Mercurial > vim
annotate runtime/scripts.vim @ 11501:2ac2ec9f4160
Added tag v8.0.0633 for changeset f0d050a452c54ca66a617cf5e067de9955d24742
| author | Christian Brabandt <cb@256bit.org> |
|---|---|
| date | Sat, 10 Jun 2017 17:15:03 +0200 |
| parents | 1218c5353e2b |
| children | a58229e3aff6 |
| rev | line source |
|---|---|
| 7 | 1 " Vim support file to detect file types in scripts |
| 2 " | |
| 3 " Maintainer: Bram Moolenaar <Bram@vim.org> | |
| 11062 | 4 " Last change: 2017 Mar 04 |
| 7 | 5 |
| 6 " This file is called by an autocommand for every file that has just been | |
| 7 " loaded into a buffer. It checks if the type of file can be recognized by | |
| 8 " the file contents. The autocommand is in $VIMRUNTIME/filetype.vim. | |
| 9 | |
| 10 | |
| 11 " Only do the rest when the FileType autocommand has not been triggered yet. | |
| 12 if did_filetype() | |
| 13 finish | |
| 14 endif | |
| 15 | |
| 16 " Load the user defined scripts file first | |
| 17 " Only do this when the FileType autocommand has not been triggered yet | |
| 279 | 18 if exists("myscriptsfile") && filereadable(expand(myscriptsfile)) |
| 7 | 19 execute "source " . myscriptsfile |
| 20 if did_filetype() | |
| 21 finish | |
| 22 endif | |
| 23 endif | |
| 24 | |
| 25 " Line continuation is used here, remove 'C' from 'cpoptions' | |
| 26 let s:cpo_save = &cpo | |
| 27 set cpo&vim | |
| 28 | |
| 29 let s:line1 = getline(1) | |
| 30 | |
| 31 if s:line1 =~ "^#!" | |
| 32 " A script that starts with "#!". | |
| 33 | |
| 34 " Check for a line like "#!/usr/bin/env VAR=val bash". Turn it into | |
| 35 " "#!/usr/bin/bash" to make matching easier. | |
| 36 if s:line1 =~ '^#!\s*\S*\<env\s' | |
| 37 let s:line1 = substitute(s:line1, '\S\+=\S\+', '', 'g') | |
| 38 let s:line1 = substitute(s:line1, '\<env\s\+', '', '') | |
| 39 endif | |
| 40 | |
| 41 " Get the program name. | |
| 42 " Only accept spaces in PC style paths: "#!c:/program files/perl [args]". | |
| 279 | 43 " If the word env is used, use the first word after the space: |
| 44 " "#!/usr/bin/env perl [path/args]" | |
| 7 | 45 " If there is no path use the first word: "#!perl [path/args]". |
| 46 " Otherwise get the last word after a slash: "#!/usr/bin/perl [path/args]". | |
| 47 if s:line1 =~ '^#!\s*\a:[/\\]' | |
| 48 let s:name = substitute(s:line1, '^#!.*[/\\]\(\i\+\).*', '\1', '') | |
| 279 | 49 elseif s:line1 =~ '^#!.*\<env\>' |
| 50 let s:name = substitute(s:line1, '^#!.*\<env\>\s\+\(\i\+\).*', '\1', '') | |
| 7 | 51 elseif s:line1 =~ '^#!\s*[^/\\ ]*\>\([^/\\]\|$\)' |
| 52 let s:name = substitute(s:line1, '^#!\s*\([^/\\ ]*\>\).*', '\1', '') | |
| 53 else | |
| 54 let s:name = substitute(s:line1, '^#!\s*\S*[/\\]\(\i\+\).*', '\1', '') | |
| 55 endif | |
| 56 | |
| 923 | 57 " tcl scripts may have #!/bin/sh in the first line and "exec wish" in the |
| 58 " third line. Suggested by Steven Atkinson. | |
| 59 if getline(3) =~ '^exec wish' | |
| 60 let s:name = 'wish' | |
| 61 endif | |
| 62 | |
| 22 | 63 " Bourne-like shell scripts: bash bash2 ksh ksh93 sh |
| 64 if s:name =~ '^\(bash\d*\|\|ksh\d*\|sh\)\>' | |
| 7 | 65 call SetFileTypeSH(s:line1) " defined in filetype.vim |
| 66 | |
| 67 " csh scripts | |
| 68 elseif s:name =~ '^csh\>' | |
| 69 if exists("g:filetype_csh") | |
| 26 | 70 call SetFileTypeShell(g:filetype_csh) |
| 7 | 71 else |
| 26 | 72 call SetFileTypeShell("csh") |
| 7 | 73 endif |
| 74 | |
| 75 " tcsh scripts | |
| 76 elseif s:name =~ '^tcsh\>' | |
| 26 | 77 call SetFileTypeShell("tcsh") |
| 7 | 78 |
| 79 " Z shell scripts | |
| 80 elseif s:name =~ '^zsh\>' | |
| 81 set ft=zsh | |
| 82 | |
| 83 " TCL scripts | |
| 84 elseif s:name =~ '^\(tclsh\|wish\|expectk\|itclsh\|itkwish\)\>' | |
| 85 set ft=tcl | |
| 86 | |
| 87 " Expect scripts | |
| 88 elseif s:name =~ '^expect\>' | |
| 89 set ft=expect | |
| 90 | |
| 91 " Gnuplot scripts | |
| 92 elseif s:name =~ '^gnuplot\>' | |
| 93 set ft=gnuplot | |
| 94 | |
| 95 " Makefiles | |
| 96 elseif s:name =~ 'make\>' | |
| 97 set ft=make | |
| 98 | |
| 279 | 99 " Lua |
| 100 elseif s:name =~ 'lua' | |
| 101 set ft=lua | |
| 102 | |
| 2437 | 103 " Perl 6 |
| 104 elseif s:name =~ 'perl6' | |
| 105 set ft=perl6 | |
| 106 | |
| 7 | 107 " Perl |
| 108 elseif s:name =~ 'perl' | |
| 109 set ft=perl | |
| 110 | |
| 111 " PHP | |
| 112 elseif s:name =~ 'php' | |
| 113 set ft=php | |
| 114 | |
| 115 " Python | |
| 116 elseif s:name =~ 'python' | |
| 117 set ft=python | |
| 118 | |
| 119 " Groovy | |
| 120 elseif s:name =~ '^groovy\>' | |
| 121 set ft=groovy | |
| 122 | |
| 123 " Ruby | |
| 124 elseif s:name =~ 'ruby' | |
| 125 set ft=ruby | |
| 126 | |
| 11062 | 127 " JavaScript |
| 128 elseif s:name =~ 'node\(js\)\=\>' || s:name =~ 'rhino\>' | |
| 129 set ft=javascript | |
| 130 | |
| 7 | 131 " BC calculator |
| 132 elseif s:name =~ '^bc\>' | |
| 133 set ft=bc | |
| 134 | |
| 135 " sed | |
| 136 elseif s:name =~ 'sed\>' | |
| 137 set ft=sed | |
| 138 | |
| 139 " OCaml-scripts | |
| 140 elseif s:name =~ 'ocaml' | |
| 141 set ft=ocaml | |
| 142 | |
| 143 " Awk scripts | |
| 144 elseif s:name =~ 'awk\>' | |
| 145 set ft=awk | |
| 146 | |
| 147 " Website MetaLanguage | |
| 148 elseif s:name =~ 'wml' | |
| 149 set ft=wml | |
| 150 | |
| 151 " Scheme scripts | |
| 152 elseif s:name =~ 'scheme' | |
| 153 set ft=scheme | |
| 154 | |
| 556 | 155 " CFEngine scripts |
| 156 elseif s:name =~ 'cfengine' | |
| 157 set ft=cfengine | |
| 158 | |
| 4780 | 159 " Erlang scripts |
| 160 elseif s:name =~ 'escript' | |
| 161 set ft=erlang | |
| 162 | |
| 11062 | 163 " Haskell |
| 164 elseif s:name =~ 'haskell' | |
| 165 set ft=haskell | |
| 166 | |
| 167 " Scala | |
| 168 elseif s:name =~ 'scala\>' | |
| 169 set ft=scala | |
| 170 | |
| 7 | 171 endif |
| 172 unlet s:name | |
| 173 | |
| 174 else | |
| 175 " File does not start with "#!". | |
| 176 | |
| 177 let s:line2 = getline(2) | |
| 178 let s:line3 = getline(3) | |
| 179 let s:line4 = getline(4) | |
| 180 let s:line5 = getline(5) | |
| 181 | |
| 182 " Bourne-like shell scripts: sh ksh bash bash2 | |
| 183 if s:line1 =~ '^:$' | |
| 184 call SetFileTypeSH(s:line1) " defined in filetype.vim | |
| 185 | |
| 186 " Z shell scripts | |
| 2596 | 187 elseif s:line1 =~ '^#compdef\>' || s:line1 =~ '^#autoload\>' || |
| 188 \ "\n".s:line1."\n".s:line2."\n".s:line3."\n".s:line4."\n".s:line5 =~ '\n\s*emulate\s\+\%(-[LR]\s\+\)\=[ckz]\=sh\>' | |
| 7 | 189 set ft=zsh |
| 190 | |
| 191 " ELM Mail files | |
| 1668 | 192 elseif s:line1 =~ '^From \([a-zA-Z][a-zA-Z_0-9\.=-]*\(@[^ ]*\)\=\|-\) .* \(19\|20\)\d\d$' |
| 7 | 193 set ft=mail |
| 194 | |
| 195 " Mason | |
| 196 elseif s:line1 =~ '^<[%&].*>' | |
| 197 set ft=mason | |
| 198 | |
| 199 " Vim scripts (must have '" vim' as the first line to trigger this) | |
| 200 elseif s:line1 =~ '^" *[vV]im$' | |
| 201 set ft=vim | |
| 202 | |
| 203 " MOO | |
| 204 elseif s:line1 =~ '^\*\* LambdaMOO Database, Format Version \%([1-3]\>\)\@!\d\+ \*\*$' | |
| 205 set ft=moo | |
| 206 | |
| 207 " Diff file: | |
| 208 " - "diff" in first line (context diff) | |
| 209 " - "Only in " in first line | |
| 210 " - "--- " in first line and "+++ " in second line (unified diff). | |
| 211 " - "*** " in first line and "--- " in second line (context diff). | |
| 212 " - "# It was generated by makepatch " in the second line (makepatch diff). | |
| 213 " - "Index: <filename>" in the first line (CVS file) | |
| 809 | 214 " - "=== ", line of "=", "---", "+++ " (SVK diff) |
| 816 | 215 " - "=== ", "--- ", "+++ " (bzr diff, common case) |
| 216 " - "=== (removed|added|renamed|modified)" (bzr diff, alternative) | |
| 3830 | 217 " - "# HG changeset patch" in first line (Mercurial export format) |
| 218 elseif s:line1 =~ '^\(diff\>\|Only in \|\d\+\(,\d\+\)\=[cda]\d\+\>\|# It was generated by makepatch \|Index:\s\+\f\+\r\=$\|===== \f\+ \d\+\.\d\+ vs edited\|==== //\f\+#\d\+\|# HG changeset patch\)' | |
| 7 | 219 \ || (s:line1 =~ '^--- ' && s:line2 =~ '^+++ ') |
| 531 | 220 \ || (s:line1 =~ '^\* looking for ' && s:line2 =~ '^\* comparing to ') |
| 7 | 221 \ || (s:line1 =~ '^\*\*\* ' && s:line2 =~ '^--- ') |
| 816 | 222 \ || (s:line1 =~ '^=== ' && ((s:line2 =~ '^=\{66\}' && s:line3 =~ '^--- ' && s:line4 =~ '^+++') || (s:line2 =~ '^--- ' && s:line3 =~ '^+++ '))) |
| 223 \ || (s:line1 =~ '^=== \(removed\|added\|renamed\|modified\)') | |
| 7 | 224 set ft=diff |
| 225 | |
| 226 " PostScript Files (must have %!PS as the first line, like a2ps output) | |
| 227 elseif s:line1 =~ '^%![ \t]*PS' | |
| 228 set ft=postscr | |
| 229 | |
| 230 " M4 scripts: Guess there is a line that starts with "dnl". | |
| 231 elseif s:line1 =~ '^\s*dnl\>' | |
| 232 \ || s:line2 =~ '^\s*dnl\>' | |
| 233 \ || s:line3 =~ '^\s*dnl\>' | |
| 234 \ || s:line4 =~ '^\s*dnl\>' | |
| 235 \ || s:line5 =~ '^\s*dnl\>' | |
| 236 set ft=m4 | |
| 237 | |
| 238 " AmigaDos scripts | |
| 239 elseif $TERM == "amiga" | |
| 240 \ && (s:line1 =~ "^;" || s:line1 =~ '^\.[bB][rR][aA]') | |
| 241 set ft=amiga | |
| 242 | |
| 243 " SiCAD scripts (must have procn or procd as the first line to trigger this) | |
| 244 elseif s:line1 =~? '^ *proc[nd] *$' | |
| 245 set ft=sicad | |
| 246 | |
| 247 " Purify log files start with "**** Purify" | |
| 248 elseif s:line1 =~ '^\*\*\*\* Purify' | |
| 249 set ft=purifylog | |
| 250 | |
| 251 " XML | |
| 252 elseif s:line1 =~ '<?\s*xml.*?>' | |
| 253 set ft=xml | |
| 254 | |
| 255 " XHTML (e.g.: PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN") | |
| 256 elseif s:line1 =~ '\<DTD\s\+XHTML\s' | |
| 257 set ft=xhtml | |
| 258 | |
| 1708 | 259 " HTML (e.g.: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN") |
|
9116
bc38030aec7d
commit https://github.com/vim/vim/commit/26852128a2b713ef49341a0c18daba928444e7eb
Christian Brabandt <cb@256bit.org>
parents:
6180
diff
changeset
|
260 " Avoid "doctype html", used by slim. |
|
bc38030aec7d
commit https://github.com/vim/vim/commit/26852128a2b713ef49341a0c18daba928444e7eb
Christian Brabandt <cb@256bit.org>
parents:
6180
diff
changeset
|
261 elseif s:line1 =~? '<!DOCTYPE\s\+html\>' |
| 1708 | 262 set ft=html |
| 263 | |
| 1648 | 264 " PDF |
| 265 elseif s:line1 =~ '^%PDF-' | |
| 266 set ft=pdf | |
| 267 | |
| 7 | 268 " XXD output |
| 269 elseif s:line1 =~ '^\x\{7}: \x\{2} \=\x\{2} \=\x\{2} \=\x\{2} ' | |
| 270 set ft=xxd | |
| 271 | |
| 272 " RCS/CVS log output | |
| 273 elseif s:line1 =~ '^RCS file:' || s:line2 =~ '^RCS file:' | |
| 274 set ft=rcslog | |
| 275 | |
| 276 " CVS commit | |
| 22 | 277 elseif s:line2 =~ '^CVS:' || getline("$") =~ '^CVS: ' |
| 7 | 278 set ft=cvs |
| 279 | |
| 179 | 280 " Prescribe |
| 281 elseif s:line1 =~ '^!R!' | |
| 282 set ft=prescribe | |
| 283 | |
| 7 | 284 " Send-pr |
| 285 elseif s:line1 =~ '^SEND-PR:' | |
| 286 set ft=sendpr | |
| 287 | |
| 288 " SNNS files | |
| 289 elseif s:line1 =~ '^SNNS network definition file' | |
| 290 set ft=snnsnet | |
| 291 elseif s:line1 =~ '^SNNS pattern definition file' | |
| 292 set ft=snnspat | |
| 293 elseif s:line1 =~ '^SNNS result file' | |
| 294 set ft=snnsres | |
| 295 | |
| 296 " Virata | |
| 297 elseif s:line1 =~ '^%.\{-}[Vv]irata' | |
| 298 \ || s:line2 =~ '^%.\{-}[Vv]irata' | |
| 299 \ || s:line3 =~ '^%.\{-}[Vv]irata' | |
| 300 \ || s:line4 =~ '^%.\{-}[Vv]irata' | |
| 301 \ || s:line5 =~ '^%.\{-}[Vv]irata' | |
| 302 set ft=virata | |
| 303 | |
| 304 " Strace | |
| 1698 | 305 elseif s:line1 =~ '^\(\[pid \d\+\] \)\=[0-9:.]* *execve(' || s:line1 =~ '^__libc_start_main' |
| 7 | 306 set ft=strace |
| 307 | |
| 308 " VSE JCL | |
| 309 elseif s:line1 =~ '^\* $$ JOB\>' || s:line1 =~ '^// *JOB\>' | |
| 310 set ft=vsejcl | |
| 311 | |
| 312 " TAK and SINDA | |
| 313 elseif s:line4 =~ 'K & K Associates' || s:line2 =~ 'TAK 2000' | |
| 314 set ft=takout | |
| 315 elseif s:line3 =~ 'S Y S T E M S I M P R O V E D ' | |
| 316 set ft=sindaout | |
| 317 elseif getline(6) =~ 'Run Date: ' | |
| 318 set ft=takcmp | |
| 319 elseif getline(9) =~ 'Node File 1' | |
| 320 set ft=sindacmp | |
| 321 | |
| 322 " DNS zone files | |
| 807 | 323 elseif s:line1.s:line2.s:line3.s:line4 =~ '^; <<>> DiG [0-9.]\+ <<>>\|BIND.*named\|$ORIGIN\|$TTL\|IN\s\+SOA' |
| 324 set ft=bindzone | |
| 7 | 325 |
| 326 " BAAN | |
| 327 elseif s:line1 =~ '|\*\{1,80}' && s:line2 =~ 'VRC ' | |
| 328 \ || s:line2 =~ '|\*\{1,80}' && s:line3 =~ 'VRC ' | |
| 329 set ft=baan | |
| 330 | |
| 331 " Valgrind | |
| 1145 | 332 elseif s:line1 =~ '^==\d\+== valgrind' || s:line3 =~ '^==\d\+== Using valgrind' |
| 7 | 333 set ft=valgrind |
| 334 | |
| 6180 | 335 " Go docs |
| 336 elseif s:line1 =~ '^PACKAGE DOCUMENTATION$' | |
| 337 set ft=godoc | |
| 338 | |
| 7 | 339 " Renderman Interface Bytestream |
| 340 elseif s:line1 =~ '^##RenderMan' | |
| 341 set ft=rib | |
| 342 | |
| 343 " Scheme scripts | |
| 344 elseif s:line1 =~ 'exec\s\+\S*scheme' || s:line2 =~ 'exec\s\+\S*scheme' | |
| 345 set ft=scheme | |
| 346 | |
| 1648 | 347 " Git output |
| 2034 | 348 elseif s:line1 =~ '^\(commit\|tree\|object\) \x\{40\}\>\|^tag \S\+$' |
| 1648 | 349 set ft=git |
| 350 | |
|
4681
2eb30f341e8d
Updated runtime files and translations.
Bram Moolenaar <bram@vim.org>
parents:
3830
diff
changeset
|
351 " Gprof (gnu profiler) |
|
2eb30f341e8d
Updated runtime files and translations.
Bram Moolenaar <bram@vim.org>
parents:
3830
diff
changeset
|
352 elseif s:line1 == 'Flat profile:' |
|
2eb30f341e8d
Updated runtime files and translations.
Bram Moolenaar <bram@vim.org>
parents:
3830
diff
changeset
|
353 \ && s:line2 == '' |
|
2eb30f341e8d
Updated runtime files and translations.
Bram Moolenaar <bram@vim.org>
parents:
3830
diff
changeset
|
354 \ && s:line3 =~ '^Each sample counts as .* seconds.$' |
|
2eb30f341e8d
Updated runtime files and translations.
Bram Moolenaar <bram@vim.org>
parents:
3830
diff
changeset
|
355 set ft=gprof |
|
2eb30f341e8d
Updated runtime files and translations.
Bram Moolenaar <bram@vim.org>
parents:
3830
diff
changeset
|
356 |
| 4780 | 357 " Erlang terms |
| 358 " (See also: http://www.gnu.org/software/emacs/manual/html_node/emacs/Choosing-Modes.html#Choosing-Modes) | |
| 359 elseif s:line1 =~? '-\*-.*erlang.*-\*-' | |
| 360 set ft=erlang | |
| 361 | |
| 7 | 362 " CVS diff |
| 363 else | |
| 2034 | 364 let s:lnum = 1 |
| 365 while getline(s:lnum) =~ "^? " && s:lnum < line("$") | |
| 366 let s:lnum += 1 | |
| 7 | 367 endwhile |
| 2034 | 368 if getline(s:lnum) =~ '^Index:\s\+\f\+$' |
| 7 | 369 set ft=diff |
| 370 | |
| 371 " locale input files: Formal Definitions of Cultural Conventions | |
| 372 " filename must be like en_US, fr_FR@euro or en_US.UTF-8 | |
| 373 elseif expand("%") =~ '\a\a_\a\a\($\|[.@]\)\|i18n$\|POSIX$\|translit_' | |
| 2034 | 374 let s:lnum = 1 |
| 375 while s:lnum < 100 && s:lnum < line("$") | |
| 376 if getline(s:lnum) =~ '^LC_\(IDENTIFICATION\|CTYPE\|COLLATE\|MONETARY\|NUMERIC\|TIME\|MESSAGES\|PAPER\|TELEPHONE\|MEASUREMENT\|NAME\|ADDRESS\)$' | |
| 7 | 377 setf fdcc |
| 378 break | |
| 379 endif | |
| 2034 | 380 let s:lnum += 1 |
| 7 | 381 endwhile |
| 382 endif | |
| 2034 | 383 unlet s:lnum |
| 7 | 384 |
| 385 endif | |
| 386 | |
| 387 unlet s:line2 s:line3 s:line4 s:line5 | |
| 388 | |
| 389 endif | |
| 390 | |
| 391 " Restore 'cpoptions' | |
| 392 let &cpo = s:cpo_save | |
| 393 | |
| 394 unlet s:cpo_save s:line1 |