VIM：简化的单语言项目脚本──对Java项目开发的支持

本插件属于ftplugin，并且依赖于 shellinsidevim.vim

本插件使得你可以直接在vim编译和运行带有包的java类，并且如果改类属于一个java项目，它会自动检测项目环境（不要求你一定位于项目文件夹下），并且生成正确的编译参数。这些参数包括：classpath、sourcepath、输出目录、参数文件。以上参数的意义请自行参考javac文档。

如果上述参数不够，你可以直接在命令模式输入:Javac ，后跟参数。注意，这个参数是对上述的补充，你不用在额外指定上述参数。并且，每次输入的参数都将自动保存，直到重启vim或者在Javac命令后输入“：”再接参数。

Java命令同上。


此脚本可以方便的修改，使得应用于其他的语言环境，比如flex。

此插件的功能比较简单，更强大的脚本还在测试中。

1. "Vim global plugin for running java project
2. " Version: 2.0
3. " Maintainer: WarGrey <yoshua@gmail.com>
4. " Last change: 2008 Dec 22
5. "
6. 
   
7. 
   
8. " This groups of variables are used to generating the options for compiling
9. let s:LibraryOption="-classpath LO"
10. let s:SourcepathOption="-sourcepath SO"
11. let s:DistinationOption="-d DO"
12. let s:ArgumentFileOption="@AFO"
13. let s:ExtraCompileOptions=""
14. let s:ExtraExecuteOptions=""
15. 
    
16. 
    
17. " Commands for compiling and executing
18. let s:Compiler="javac"
19. let s:Interpretor="java"
20. let s:Executor=""
21. 
    
22. 
    
23. " This groups of variables are referencing to the folds that really exists base on the next groups
24. let s:ProjectRoot=''
25. let s:SourcePath=''
26. let s:DistinationPath=''
27. let s:LibraryPath=''
28. let s:ArgumentFile=''
29. 
    
30. 
    
31. " This groups of variables are used to detecting the environment
32. if !exists("g:Java_Sources")
33.     let g:Java_Sources="src:java_src"
34. endif
35. if !exists("g:Java_Distinations")
36.     let g:Java_Distinations="classes:java_classes"
37. endif
38. if !exists("g:Java_Libraries")
39.     let g:Java_Libraries="lib:java_lib"
40. endif
41. if !exists("g:Java_ArgumentFiles")
42.     let g:Java_ArgumentFiles="classpath.javac:argument.javac:source.javac"
43. endif
44. 
    
45. 
    
46. " Ex command which take 0 or more ( up to 20 ) parameters
47. command! -complete=file -nargs=* Javac call s:CLCompile(<f-args>)
48. command! -complete=file -nargs=* Java call s:CLExecute(<f-args>)
49. 
    
50. 
    
51. " Map keys to function calls
52. map <unique> <buffer> <F5> :call <SID>Compile()<CR>
53. map <unique> <buffer> <M-F5> :Javac 
54. map <unique> <buffer> <F6> :call <SID>Execute()<CR>
55. map <unique> <buffer> <M-F6> :Java 
56. map <unique> <buffer> <F9> :call <SID>ToggleExecutor()<CR>
57. 
    
58. 
    
59. imap <unique> <buffer> <F5> <ESC><F5>
60. imap <unique> <buffer> <M-F5> <ESC><M-F5>
61. imap <unique> <buffer> <F6> <ESC><F6>
62. imap <unique> <buffer> <M-F6> <ESC><M-F6>
63. imap <unique> <buffer> <F9> <ESC><F9>
64. 
    
65. 
    
66. function! s:InitEnvironment()
67.     if s:IsJavaFile()==0 | return 0 | endif
68. 
    
69.     let cprt=s:ProjectRoot
70.     let s:Executor=s:GetFullClassName()
71.     let tail='/'.substitute(s:Executor,'/.','/','g')
72.     let src=fnamemodify(bufname("%"),":p:r")
73.     if (match(src,tail) + strlen(tail))==strlen(src)
74.         let src=substitute(src,tail,'','g')
75.     else
76.         call g:EchoErrorMsg("This class has an incorrect package!")
77.     endif
78.     let s:ProjectRoot=src
79. 
    
80.     let isProject=0
81.     let srcs=split(g:Java_Sources,":")
82.     let dists=split(g:Java_Distinations,":")
83.     while src!=fnamemodify(src,":h")
84.         for sd in srcs
85.             if (strlen(sd)+match(src,sd))==strlen(src)
86.                 let root=substitute(src,"/".sd,"","g")
87.                 for did in dists
88.                     let dist=fnamemodify(root."/".did,":p")
89.                     let csrc=fnamemodify(root."/".sd,":p")
90.                     if isdirectory(dist) && isdirectory(sd)
    
91.                         let s:ProjectRoot=root
92.                         let s:DistinationPath=dist
93.                         let isProject=1
94.                         break
95.                     endif
96.                 endfor
97.                 if isProject==1 | break | endif
98.             endif
99.         endfor
100.         if isProject==1 | break | endif
101.         let src=fnamemodify(src,":h")
102.     endwhile
103. 
     
104.     if isProject==1
105.         let s:SourcePath=s:PreparePath(g:Java_Sources,0)
106.         let s:LibraryPath=s:PreparePath(g:Java_Libraries,0)
107.         let s:ArgumentFile=s:PreparePath(g:Java_ArgumentFiles,1)
108.     else
109.         let s:DistinationPath=s:ProjectRoot
110.         let s:LibraryPath=s:ProjectRoot
111.     endif
112. 
     
113.     if cprt!=s:ProjectRoot
114.         call g:EchoMoreMsg("The project root is ".s:ProjectRoot)
115.         if cprt!=''
116.             call g:EchoWarningMsg("This project is not the original one!")
117.         endif
118.     endif
119. endfunction
120. 
     
121. 
     
122. function! s:ToggleExecutor()
123.     if s:IsJavaFile()==0 | return 0 | endif
124.     
125.     let cer=s:Executor
126.     call s:InitEnvironment()
127.     if s:Executor==cer
128.         call g:EchoWarningMsg(s:Executor.' is no longer the executor.')
129.         let s:Executor=""
130.     else
131.         call g:EchoMoreMsg(s:Executor.' is set as the executor.')
132.         let main="//s*//(//(public//|static//)//s//+//)//{2}void//s//+main(String"
133.         let para1=main."//(//(//s*//(//.//{3}//|[]//)//s*//)//w//+//s*//))"
134.         let para2=main."//(//s//+//w//+//s*[]//s*//))"
135.         if search(para1)+search(para2)==0
136.             call g:EchoWarningMsg(s:Executor.' does not have the main method!')
137.         endif
138.     endif
139. endfunction
140. 
     
141. 
     
142. function! s:Compile()
143.     wall
144.     echo "All open files are saved."
145.     execute "compiler! ".s:Compiler
146. 
     
147.     let argfiles=s:GetArgumentFiles(s:ArgumentFile)
148.     if strlen(argfiles)>0
149.         call g:ExecuteCommand(&makeprg,argfiles,";")
150.     else
151.         call s:InitEnvironment()
152.         let dist=substitute(s:DistinationOption,"DO",s:DistinationPath,"")
153.         let cp=substitute(s:LibraryOption,"LO",s:GetClassPath(s:LibraryPath,s:DistinationPath),"")
154.         let sp=substitute(s:SourcepathOption,"SO",s:SourcePath,"")
155.         call g:ExecuteCommand(&makeprg,dist,cp,sp,s:ExtraCompileOptions,bufname("%"),";")
156.     endif
157. endfunction
158. 
     
159. 
     
160. function! s:Execute()
161.     if s:Executor=="" | call s:ToggleExecutor() | endif
162. 
     
163.     let cp=substitute(s:LibraryOption,"LO",s:GetClassPath(s:LibraryPath,s:DistinationPath),"g")
164.     if !filereadable(g:VIM_STD_IN_FILE)
165.         call writefile([""],g:VIM_STD_IN_FILE)
166.     endif
167.     call g:ExecuteCommand(">",s:Interpretor,cp,s:ExtraExecuteOptions,s:Executor)
168. endfunction
169. 
     
170. 
     
171. function! s:CLCompile(...)
172.     let index=1
173.     let eoption=""
174.     while index<=a:0
175.         execute 'let eoption=eoption." ".g:Trim(a:'.index.')'
176.         let index=index+1
177.     endwhile
178.     if match(eoption,"^ :")==-1
179.         let s:ExtraCompileOptions=s:ExtraCompileOptions.eoption
180.     else
181.         let s:ExtraCompileOptions=strpart(eoption,2)
182.     endif
183.     call s:Compile()
184. endfunction
185. 
     
186. 
     
187. function! s:CLExecute(...)
188.     let index=1
189.     let eoption=""
190.     while index<=a:0
191.         execute 'let eoption=eoption." ".g:Trim(a:'.index.')'
192.         let index=index+1
193.     endwhile
194.     if match(eoption,"^ :")==-1
195.         let s:ExtraExecuteOptions=s:ExtraExecuteOptions.eoption
196.     else
197.         let s:ExtraExecuteOptions=strpart(eoption,2)
198.     endif
199.     call s:Execute()
200. endfunction

1. " Other useful functions
2. function! s:PreparePath(srcs,isfile)
3.     let result=""
4.     for src in split(a:srcs,":")
5.         let source=s:ProjectRoot."/".src
6.         if (a:isfile==0 && isdirectory(source)) || (a:isfile==1 && filereadable(source))
7.             let result=s:AddPathTo(result,source,":","after")
8.         endif
9.     endfor
10.     return result
11. endfunction
13. 
    
14. function! s:AddPathTo(src,dir,sep,pos)
15.     let path=s:CleanPath(a:dir)
16.     if a:src==""
17.         return path
18.     elseif match(a:src,path)>=0
19.         return s:src
20.     else
21.         if a:pos=='after'
22.             return a:src.a:sep.path
23.         else
24.             return path.a:sep.a:src
25.         endif
26.     endif
27. endfunction
29. 
    
30. function! s:CleanPath(path)
31.     let paths=split(fnamemodify(a:path,":p"),"/")
32.     let result=[]
33.     let n=len(paths)-1
34.     let skip=0
35.     while n>=0
36.         if paths[n]==".."
37.             let skip=skip+1
38.         elseif skip==0
39.             call insert(result,paths[n],0)
40.         else
41.             let skip=skip-1
42.         endif
43.         let n=n-1
44.     endwhile
45.     let path="/".join(result,"/")
46.     if match(path," ")>0
47.         let path='"'.path.'"'
48.     endif
49.     return path
50. endfunction
52. 
    
53. function! s:IsJavaFile()
54.     let filename=bufname("%")
55.     if fnamemodify(filename,":e")!="java"
56.         call s:EchoWarningMsg(filename." is not the expect one!")
57.         return 0
58.     endif
59.     return 1
60. endfunction
62. 
    
63. function! s:GetPackage()
64.     let cur=getpos(".")
65.     let package=""
66.     call setpos(".",[0,1,1,0])
67.     let line=search('package','')
68.     if line>0
69.         try
70.             let package=split(split(getline(line))[1],';')[0]
71.         catch /.*/
72.             call g:EchoErrorMsg("The package definition may incorrect!")
73.         endtry
74.     endif
75.     call setpos(".",cur)
76.     return package
77. endfunction
79. 
    
80. function! s:GetFullClassName()
81.     if s:IsJavaFile()==0 | return "" | endif
83.     let package=s:GetPackage()
84.     let class=fnamemodify(bufname("%"),":t:r")
85.     if strlen(package)>0
86.         return package.'.'.class
87.     else
88.         return class
89.     endif
90. endfunction
92. 
    
93. function! s:GetClassPath(libraries,distination)
94.     let classpath=substitute($CLASSPATH,"//.///:","","g")
95.     let libffixes=['jar','JAR','zip','ZIP']
96.     for lib in split(a:libraries,":")
97.         for suffix in libffixes
98.             let findlib=substitute(glob(lib."/*".suffix),"/n",":","g")
99.             if strlen(findlib)>0
100.                 let classpath=s:AddPathTo(classpath,findlib,":","before")
101.             endif
102.         endfor
103.     endfor
104.     return s:AddPathTo(classpath,a:distination,":","before")
105. endfunction
107. 
     
108. function! s:GetArgumentFiles(ArgumentFile)
109.     let argfiles=""
110.     for af in split(a:ArgumentFile,":")
111.         let argfiles=argfiles." ".substitute(s:ArgumentFileOption,"AFO",af,"g")
112.     endfor
113.     return argfiles
114. endfunction