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

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

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

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

Java命令同上。


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

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

1. "Vimglobalpluginforrunningjavaproject
2. "Version:2.0
3. "Maintainer:WarGrey<yoshua@gmail.com>
4. "Lastchange:2008Dec22
5. "
6. 
   
7. 
   
8. "Thisgroupsofvariablesareusedtogeneratingtheoptionsforcompiling
9. lets:LibraryOption="-classpathLO"
10. lets:SourcepathOption="-sourcepathSO"
11. lets:DistinationOption="-dDO"
12. lets:ArgumentFileOption="@AFO"
13. lets:ExtraCompileOptions=""
14. lets:ExtraExecuteOptions=""
15. 
    
16. 
    
17. "Commandsforcompilingandexecuting
18. lets:Compiler="javac"
19. lets:Interpretor="java"
20. lets:Executor=""
21. 
    
22. 
    
23. "Thisgroupsofvariablesarereferencingtothefoldsthatreallyexistsbaseonthenextgroups
24. lets:ProjectRoot=''
25. lets:SourcePath=''
26. lets:DistinationPath=''
27. lets:LibraryPath=''
28. lets:ArgumentFile=''
29. 
    
30. 
    
31. "Thisgroupsofvariablesareusedtodetectingtheenvironment
32. if!exists("g:Java_Sources")
33. letg:Java_Sources="src:java_src"
34. endif
35. if!exists("g:Java_Distinations")
36. letg:Java_Distinations="classes:java_classes"
37. endif
38. if!exists("g:Java_Libraries")
39. letg:Java_Libraries="lib:java_lib"
40. endif
41. if!exists("g:Java_ArgumentFiles")
42. letg:Java_ArgumentFiles="classpath.javac:argument.javac:source.javac"
43. endif
44. 
    
45. 
    
46. "Excommandwhichtake0ormore(upto20)parameters
47. command!-complete=file-nargs=*Javaccalls:CLCompile(<f-args>)
48. command!-complete=file-nargs=*Javacalls:CLExecute(<f-args>)
49. 
    
50. 
    
51. "Mapkeystofunctioncalls
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. ifs:IsJavaFile()==0|return0|endif
68. 
    
69. letcprt=s:ProjectRoot
70. lets:Executor=s:GetFullClassName()
71. lettail='/'.substitute(s:Executor,'\.','/','g')
72. letsrc=fnamemodify(bufname("%"),":p:r")
73. if(match(src,tail)+strlen(tail))==strlen(src)
74. letsrc=substitute(src,tail,'','g')
75. else
76. callg:EchoErrorMsg("Thisclasshasanincorrectpackage!")
77. endif
78. lets:ProjectRoot=src
79. 
    
80. letisProject=0
81. letsrcs=split(g:Java_Sources,":")
82. letdists=split(g:Java_Distinations,":")
83. whilesrc!=fnamemodify(src,":h")
84. forsdinsrcs
85. if(strlen(sd)+match(src,sd))==strlen(src)
86. letroot=substitute(src,"/".sd,"","g")
87. fordidindists
88. letdist=fnamemodify(root."/".did,":p")
89. let csrc=fnamemodify(root."/".sd,":p")
90. ifisdirectory(dist) && isdirectory(sd)
    
91. lets:ProjectRoot=root
92. lets:DistinationPath=dist
93. letisProject=1
94. break
95. endif
96. endfor
97. ifisProject==1|break|endif
98. endif
99. endfor
100. ifisProject==1|break|endif
101. letsrc=fnamemodify(src,":h")
102. endwhile
103. 
     
104. ifisProject==1
105. lets:SourcePath=s:PreparePath(g:Java_Sources,0)
106. lets:LibraryPath=s:PreparePath(g:Java_Libraries,0)
107. lets:ArgumentFile=s:PreparePath(g:Java_ArgumentFiles,1)
108. else
109. lets:DistinationPath=s:ProjectRoot
110. lets:LibraryPath=s:ProjectRoot
111. endif
112. 
     
113. ifcprt!=s:ProjectRoot
114. callg:EchoMoreMsg("Theprojectrootis".s:ProjectRoot)
115. ifcprt!=''
116. callg:EchoWarningMsg("Thisprojectisnottheoriginalone!")
117. endif
118. endif
119. endfunction
120. 
     
121. 
     
122. function!s:ToggleExecutor()
123. ifs:IsJavaFile()==0|return0|endif
125. letcer=s:Executor
126. calls:InitEnvironment()
127. ifs:Executor==cer
128. callg:EchoWarningMsg(s:Executor.'isnolongertheexecutor.')
129. lets:Executor=""
130. else
131. callg:EchoMoreMsg(s:Executor.'issetastheexecutor.')
132. letmain="\\s*\\(\\(public\\|static\\)\\s\\+\\)\\{2}void\\s\\+main(String"
133. letpara1=main."\\(\\(\\s*\\(\\.\\{3}\\|[]\\)\\s*\\)\\w\\+\\s*\\))"
134. letpara2=main."\\(\\s\\+\\w\\+\\s*[]\\s*\\))"
135. ifsearch(para1)+search(para2)==0
136. callg:EchoWarningMsg(s:Executor.'doesnothavethemainmethod!')
137. endif
138. endif
139. endfunction
140. 
     
141. 
     
142. function!s:Compile()
143. wall
144. echo"Allopenfilesaresaved."
145. execute"compiler!".s:Compiler
146. 
     
147. letargfiles=s:GetArgumentFiles(s:ArgumentFile)
148. ifstrlen(argfiles)>0
149. callg:ExecuteCommand(&makeprg,argfiles,";")
150. else
151. calls:InitEnvironment()
152. letdist=substitute(s:DistinationOption,"DO",s:DistinationPath,"")
153. letcp=substitute(s:LibraryOption,"LO",s:GetClassPath(s:LibraryPath,s:DistinationPath),"")
154. letsp=substitute(s:SourcepathOption,"SO",s:SourcePath,"")
155. callg:ExecuteCommand(&makeprg,dist,cp,sp,s:ExtraCompileOptions,bufname("%"),";")
156. endif
157. endfunction
158. 
     
159. 
     
160. function!s:Execute()
161. ifs:Executor==""|calls:ToggleExecutor()|endif
162. 
     
163. letcp=substitute(s:LibraryOption,"LO",s:GetClassPath(s:LibraryPath,s:DistinationPath),"g")
164. if!filereadable(g:VIM_STD_IN_FILE)
165. callwritefile([""],g:VIM_STD_IN_FILE)
166. endif
167. callg:ExecuteCommand(">",s:Interpretor,cp,s:ExtraExecuteOptions,s:Executor)
168. endfunction
169. 
     
170. 
     
171. function!s:CLCompile(...)
172. letindex=1
173. leteoption=""
174. whileindex<=a:0
175. execute'leteoption=eoption."".g:Trim(a:'.index.')'
176. letindex=index+1
177. endwhile
178. ifmatch(eoption,"^:")==-1
179. lets:ExtraCompileOptions=s:ExtraCompileOptions.eoption
180. else
181. lets:ExtraCompileOptions=strpart(eoption,2)
182. endif
183. calls:Compile()
184. endfunction
185. 
     
186. 
     
187. function!s:CLExecute(...)
188. letindex=1
189. leteoption=""
190. whileindex<=a:0
191. execute'leteoption=eoption."".g:Trim(a:'.index.')'
192. letindex=index+1
193. endwhile
194. ifmatch(eoption,"^:")==-1
195. lets:ExtraExecuteOptions=s:ExtraExecuteOptions.eoption
196. else
197. lets:ExtraExecuteOptions=strpart(eoption,2)
198. endif
199. calls:Execute()
200. endfunction

1. "Otherusefulfunctions
2. function!s:PreparePath(srcs,isfile)
3. letresult=""
4. forsrcinsplit(a:srcs,":")
5. letsource=s:ProjectRoot."/".src
6. if(a:isfile==0&&isdirectory(source))||(a:isfile==1&&filereadable(source))
7. letresult=s:AddPathTo(result,source,":","after")
8. endif
9. endfor
10. returnresult
11. endfunction
13. 
    
14. function!s:AddPathTo(src,dir,sep,pos)
15. letpath=s:CleanPath(a:dir)
16. ifa:src==""
17. returnpath
18. elseifmatch(a:src,path)>=0
19. returns:src
20. else
21. ifa:pos=='after'
22. returna:src.a:sep.path
23. else
24. returnpath.a:sep.a:src
25. endif
26. endif
27. endfunction
29. 
    
30. function!s:CleanPath(path)
31. letpaths=split(fnamemodify(a:path,":p"),"/")
32. letresult=[]
33. letn=len(paths)-1
34. letskip=0
35. whilen>=0
36. ifpaths[n]==".."
37. letskip=skip+1
38. elseifskip==0
39. callinsert(result,paths[n],0)
40. else
41. letskip=skip-1
42. endif
43. letn=n-1
44. endwhile
45. letpath="/".join(result,"/")
46. ifmatch(path,"")>0
47. letpath='"'.path.'"'
48. endif
49. returnpath
50. endfunction
52. 
    
53. function!s:IsJavaFile()
54. letfilename=bufname("%")
55. iffnamemodify(filename,":e")!="java"
56. calls:EchoWarningMsg(filename."isnottheexpectone!")
57. return0
58. endif
59. return1
60. endfunction
62. 
    
63. function!s:GetPackage()
64. letcur=getpos(".")
65. letpackage=""
66. callsetpos(".",[0,1,1,0])
67. letline=search('package','')
68. ifline>0
69. try
70. letpackage=split(split(getline(line))[1],';')[0]
71. catch/.*/
72. callg:EchoErrorMsg("Thepackagedefinitionmayincorrect!")
73. endtry
74. endif
75. callsetpos(".",cur)
76. returnpackage
77. endfunction
79. 
    
80. function!s:GetFullClassName()
81. ifs:IsJavaFile()==0|return""|endif
83. letpackage=s:GetPackage()
84. letclass=fnamemodify(bufname("%"),":t:r")
85. ifstrlen(package)>0
86. returnpackage.'.'.class
87. else
88. returnclass
89. endif
90. endfunction
92. 
    
93. function!s:GetClassPath(libraries,distination)
94. letclasspath=substitute($CLASSPATH,"\\.\\/:","","g")
95. letlibffixes=['jar','JAR','zip','ZIP']
96. forlibinsplit(a:libraries,":")
97. forsuffixinlibffixes
98. letfindlib=substitute(glob(lib."/*".suffix),"\n",":","g")
99. ifstrlen(findlib)>0
100. letclasspath=s:AddPathTo(classpath,findlib,":","before")
101. endif
102. endfor
103. endfor
104. returns:AddPathTo(classpath,a:distination,":","before")
105. endfunction
107. 
     
108. function!s:GetArgumentFiles(ArgumentFile)
109. letargfiles=""
110. forafinsplit(a:ArgumentFile,":")
111. letargfiles=argfiles."".substitute(s:ArgumentFileOption,"AFO",af,"g")
112. endfor
113. returnargfiles
114. endfunction