home *** CD-ROM | disk | FTP | other *** search
/ vim.ftp.fu-berlin.de / 2015-02-03.vim.ftp.fu-berlin.de.tar / vim.ftp.fu-berlin.de / mac / vim54rt.sit / runtime / filetype.vim < prev    next >
Encoding:
Text File  |  1999-08-14  |  12.5 KB  |  539 lines  |  [TEXT/ALFA]
  1. " Vim support file to detect file types
  2. "
  3. " Maintainer:    Bram Moolenaar <Bram@vim.org>
  4. " Last change:    1999 Jul 21
  5.  
  6. if !exists("did_load_filetypes")
  7. let did_load_filetypes = 1
  8.  
  9. augroup filetype
  10.  
  11. " Ignored extensions
  12. au BufNewFile,BufRead *.orig,*.bak    exe "doau filetype BufRead " . expand("<afile>:r")
  13. au BufNewFile,BufRead *~        exe "doau filetype BufRead " . substitute(expand("<afile>"), '\~$', '', '')
  14.  
  15.  
  16. " ABC music notation
  17. au BufNewFile,BufRead *.abc            set ft=abc
  18.  
  19. " Ada (83, 9X, 95)
  20. au BufNewFile,BufRead *.adb,*.ads        set ft=ada
  21.  
  22. " AHDL
  23. au BufNewFile,BufRead *.tdf            set ft=ahdl
  24.  
  25. " Applix ELF
  26. au BufNewFile,BufRead *.am            set ft=elf
  27.  
  28. " ASN.1
  29. au BufNewFile,BufRead *.asn,*.asn1        set ft=asn
  30.  
  31. " Assembly (all kinds)
  32. au BufNewFile,BufRead *.asm,*.s,*.i,*.mac    call FTCheck_asm()
  33.  
  34. " This function checks for the kind of assembly that is wanted by the user, or
  35. " can be detected from the first five lines of the file.
  36. fun! FTCheck_asm()
  37.   " make sure b:asmsyntax exists
  38.   if !exists("b:asmsyntax")
  39.     let b:asmsyntax = ""
  40.   endif
  41.  
  42.   if b:asmsyntax == ""
  43.     " see if file contains any asmsyntax=foo overrides. If so, change
  44.     " b:asmsyntax appropriately
  45.     let head = " ".getline(1)." ".getline(2)." ".getline(3)." ".getline(4).
  46.     \" ".getline(5)." "
  47.     if head =~ '\sasmsyntax=\S\+\s'
  48.       let b:asmsyntax = substitute(head, '.*\sasmsyntax=\(\S\+\)\s.*','\1', "")
  49.     endif
  50.   endif
  51.  
  52.   " if b:asmsyntax still isn't set, default to asmsyntax or GNU
  53.   if b:asmsyntax == ""
  54.     if exists("g:asmsyntax")
  55.       let b:asmsyntax = g:asmsyntax
  56.     else
  57.       let b:asmsyntax = "asm"
  58.     endif
  59.   endif
  60.  
  61.   exe "set ft=" . b:asmsyntax
  62. endfun
  63.  
  64. " Atlas
  65. au BufNewFile,BufRead *.atl,*.as        set ft=atlas
  66.  
  67. " Avenue
  68. au BufNewFile,BufRead *.ave            set ft=ave
  69.  
  70. " Awk
  71. au BufNewFile,BufRead *.awk            set ft=awk
  72.  
  73. " BASIC or Visual Basic
  74. " Check if one of the first five lines contains "VB_Name".  In that case it is
  75. " probably a Visual Basic file.  Otherwise it's assumed to be 'normal' basic.
  76. au BufNewFile,BufRead *.bas            if getline(1).getline(2).
  77.     \getline(3).getline(4).getline(5) =~? 'VB_Name'|set ft=vb|
  78.     \else|set ft=basic|endif
  79.  
  80. " Batch file for MSDOS
  81. au BufNewFile,BufRead *.bat,*.sys        set ft=dosbatch
  82.  
  83. " Batch file for 4DOS
  84. au BufNewFile,BufRead *.btm            set ft=btm
  85.  
  86. " BibTeX bibliography database file
  87. au BufNewFile,BufRead *.bib            set ft=bib
  88.  
  89. " C
  90. au BufNewFile,BufRead *.c            set ft=c
  91.  
  92. " C++
  93. if has("fname_case")
  94.   au BufNewFile,BufRead *.cpp,*.cc,*.cxx,*.c++,*.C,*.H,*.hh,*.hxx,*.hpp,*.inl set ft=cpp
  95. else
  96.   au BufNewFile,BufRead *.cpp,*.cc,*.cxx,*.c++,*.hh,*.hxx,*.hpp,*.inl set ft=cpp
  97. endif
  98.  
  99. " .h files can be C or C++, set c_syntax_for_h if you want C
  100. au BufNewFile,BufRead *.h            if exists("c_syntax_for_h")|set ft=c|else|set ft=cpp|endif
  101.  
  102. " Cascading Style Sheets
  103. au BufNewFile,BufRead *.css            set ft=css
  104.  
  105. " Century Term Command Scripts
  106. au BufNewFile,BufRead *.cmd,*.con        set ft=cterm
  107.  
  108. " Clean
  109. au BufNewFile,BufReadPost *.dcl,*.icl        set ft=clean
  110.  
  111. " Clipper
  112. au BufNewFile,BufRead *.prg            set ft=clipper
  113.  
  114. " Cobol
  115. au BufNewFile,BufRead *.cbl,*.cob,*.cpy,*.lib    set ft=cobol
  116.  
  117. " Configure scripts
  118. au BufNewFile,BufRead configure.in        set ft=config
  119.  
  120. " Diff files
  121. au BufNewFile,BufRead *.diff,*.rej        set ft=diff
  122.  
  123. " Diva (with Skill) or InstallShield
  124. au BufNewFile,BufRead *.rul            if getline(1).getline(2).getline(3).getline(4).getline(5).getline(6) =~? 'InstallShield'|set ft=ishd|else|set ft=diva|endif
  125.  
  126. " DCL (Digital Command Language - vms)
  127. au BufNewFile,BufRead *.com            set ft=dcl
  128.  
  129. " Dracula
  130. au BufNewFile,BufRead drac.*,*.drac,*.drc,*lvs,*lpe set ft=dracula
  131.  
  132. " DTD (Document Type Definition for XML)
  133. au BufNewFile,BufRead *.dtd            set ft=dtd
  134.  
  135. " Eiffel
  136. au BufNewFile,BufRead *.e,*.E            set ft=eiffel
  137.  
  138. " Elm Filter Rules file
  139. au BufNewFile,BufReadPost filter-rules        set ft=elmfilt
  140.  
  141. " ESQL-C
  142. au BufNewFile,BufRead *.ec,*.EC            set ft=esqlc
  143.  
  144. " Exports
  145. au BufNewFile,BufRead exports            set ft=exports
  146.  
  147. " Focus Executable
  148. au BufNewFile,BufRead *.fex,*.focexec        set ft=focexec
  149.  
  150. " Focus Master file
  151. au BufNewFile,BufRead *.mas,*.master        set ft=master
  152.  
  153. " Forth
  154. au BufNewFile,BufRead *.fs,*.ft            set ft=forth
  155.  
  156. " Fortran
  157. au BufNewFile,BufRead *.f,*.F,*.for,*.fpp    set ft=fortran
  158.  
  159. " Fvwm
  160. au BufNewFile,BufRead *fvwm*rc*            set ft=fvwm
  161.  
  162. " GDB command files
  163. au BufNewFile,BufRead .gdbinit            set ft=gdb
  164.  
  165. " GDMO
  166. au BufNewFile,BufRead *.mo,*.gdmo        set ft=gdmo
  167.  
  168. " GP scripts (2.0 and onward)
  169. au BufNewFile,BufRead *.gp            set ft=gp
  170.  
  171. " Gnuplot scripts
  172. au BufNewFile,BufRead *.gpi            set ft=gnuplot
  173.  
  174. " Haskell
  175. au BufNewFile,BufRead *.hs            set ft=haskell
  176. au BufNewFile,BufRead *.lhs            set ft=lhaskell
  177.  
  178. " HTML (.shtml for server side)
  179. au BufNewFile,BufRead *.html,*.htm,*.shtml    set ft=html
  180.  
  181. " HTML with M4
  182. au BufNewFile,BufRead *.html.m4            set ft=htmlm4
  183.  
  184. " IDL (Interface Description Language)
  185. au BufNewFile,BufRead *.idl            set ft=idl
  186.  
  187. " IDL (Interactive Data Language)
  188. au BufNewFile,BufRead *.pro            set ft=idlang
  189.  
  190. " Inform
  191. au BufNewFile,BufRead *.inf,*.INF        set ft=inform
  192.  
  193. " .INI file for MSDOS
  194. au BufNewFile,BufRead *.ini            set ft=dosini
  195.  
  196. " Java
  197. au BufNewFile,BufRead *.java,*.jav        set ft=java
  198.  
  199. " JavaCC
  200. au BufNewFile,BufRead *.jj,*.jjt        set ft=javacc
  201.  
  202. " JavaScript
  203. au BufNewFile,BufRead *.js,*.javascript        set ft=javascript
  204.  
  205. " Jgraph
  206. au BufNewFile,BufRead *.jgr            set ft=jgraph
  207.  
  208. " Kimwitu[++]
  209. au BufNewFile,BufRead *.k            set ft=kwt
  210.  
  211. " Lace (ISE)
  212. au BufNewFile,BufRead *.ace,*.ACE        set ft=lace
  213.  
  214. " Lex
  215. au BufNewFile,BufRead *.lex,*.l            set ft=lex
  216.  
  217. " Lilo: Linux loader
  218. au BufNewFile,BufRead lilo.conf*        set ft=lilo
  219.  
  220. " Lisp
  221. if has("fname_case")
  222.   au BufNewFile,BufRead *.lsp,*.L        set ft=lisp
  223. else
  224.   au BufNewFile,BufRead *.lsp            set ft=lisp
  225. endif
  226.  
  227. " Lite
  228. au BufNewFile,BufRead *.lite,*.lt        set ft=lite
  229.  
  230. " LOTOS
  231. au BufNewFile,BufRead *.lot,*.lotos        set ft=lotos
  232.  
  233. " Lout (also: *.lt)
  234. au BufNewFile,BufRead *.lou,*.lout        set ft=lout
  235.  
  236. " Lua
  237. au BufNewFile,BufRead *.lua            set ft=lua
  238.  
  239. " Lynx style file
  240. au BufNewFile,BufRead *.lss            set ft=lss
  241.  
  242. " M4
  243. au BufNewFile,BufRead *.m4            if expand("<afile>") !~?  "html.m4$" | set ft=m4 | endif
  244.  
  245. " Mail (for Elm, trn and rn)
  246. au BufNewFile,BufRead snd.*,.letter,.followup,.article,.article.[0-9]\+,pico.[0-9]\+,mutt*[0-9],ae[0-9]\+.txt set ft=mail
  247.  
  248. " Makefile
  249. au BufNewFile,BufRead [mM]akefile*,GNUmakefile,*.mk,*.mak set ft=make
  250.  
  251. " Manpage
  252. au BufNewFile,BufRead *.man            set ft=man
  253.  
  254. " Maple V
  255. au BufNewFile,BufRead *.mv,*.mpl,*.mws        set ft=maple
  256.  
  257. " Matlab
  258. au BufNewFile,BufRead *.m            set ft=matlab
  259.  
  260. " Metafont
  261. au BufNewFile,BufRead *.mf            set ft=mf
  262.  
  263. " MetaPost
  264. au BufNewFile,BufRead *.mp            set ft=mp
  265.  
  266. " Modsim III
  267. au BufNewFile,BufRead *.mod            set ft=modsim3
  268.  
  269. " Modula 2
  270. au BufNewFile,BufRead *.m2,*.DEF,*.MOD,*.md,*.mi set ft=modula2
  271.  
  272. " Modula 3
  273. au BufNewFile,BufRead *.m3,*.i3            set ft=modula3
  274.  
  275. " Msql
  276. au BufNewFile,BufRead *.msql            set ft=msql
  277.  
  278. " M$ Resource files
  279. au BufNewFile,BufRead *.rc            set ft=rc
  280.  
  281. " Mutt setup file
  282. au BufNewFile,BufRead .muttrc            set ft=muttrc
  283.  
  284. " Novell netware batch files
  285. au BufNewFile,BufRead *.ncf            set ft=ncf
  286.  
  287. " Nroff/Troff (*.ms is checked below)
  288. au BufNewFile,BufRead *.me,*.mm,*.tr,*.nr,*.[1-9] set ft=nroff
  289.  
  290. " OCAML
  291. au BufNewFile,BufRead *.ml            set ft=ocaml
  292.  
  293. " OPL
  294. au BufNewFile,BufRead *.[Oo][Pp][Ll]        set ft=opl
  295.  
  296. " Pascal
  297. au BufNewFile,BufRead *.p,*.pas            set ft=pascal
  298.  
  299. " Perl
  300. if has("fname_case")
  301.   au BufNewFile,BufRead *.pl,*.PL        set ft=perl
  302. else
  303.   au BufNewFile,BufRead *.pl            set ft=perl
  304. endif
  305.  
  306. " Perl or XPM
  307. au BufNewFile,BufRead *.pm        if getline(1) =~ "XPM"|set ft=xpm|else|set ft=perl|endif
  308.  
  309. " Perl POD
  310. au BufNewFile,BufRead *.pod            set ft=pod
  311.  
  312. " Php3
  313. au BufNewFile,BufRead *.php3            set ft=php3
  314.  
  315. " Phtml
  316. au BufNewFile,BufRead *.phtml            set ft=phtml
  317.  
  318. " Pike
  319. au BufNewFile,BufRead *.pike,*.lpc,*.ulpc,*.pmod set ft=pike
  320.  
  321. " Pine config
  322. au BufNewFile,BufRead .pinerc,pinerc        set ft=pine
  323.  
  324. " PL/SQL
  325. au BufNewFile,BufRead *.pls,*.plsql        set ft=plsql
  326.  
  327. " PO (GNU gettext)
  328. au BufNewFile,BufRead *.po            set ft=po
  329.  
  330. " PostScript
  331. au BufNewFile,BufRead *.ps,*.eps        set ft=postscr
  332.  
  333. " Povray
  334. au BufNewFile,BufRead *.pov,*.inc        set ft=pov
  335.  
  336. " Printcap and Termcap
  337. au BufNewFile,BufRead *printcap*,*termcap*    set ft=ptcap
  338.  
  339. " PCCTS
  340. au BufNewFile,BufRead *.g            set ft=pccts
  341.  
  342. " Procmail
  343. au BufNewFile,BufRead .procmail,.procmailrc    set ft=procmail
  344.  
  345. " Prolog
  346. au BufNewFile,BufRead *.pdb            set ft=prolog
  347.  
  348. " Python
  349. au BufNewFile,BufRead *.py            set ft=python
  350.  
  351. " Radiance
  352. au BufNewFile,BufRead *.rad,*.mat        set ft=radiance
  353.  
  354. " Rexx
  355. au BufNewFile,BufRead *.rexx,*.rex        set ft=rexx
  356.  
  357. " Rexx or Rebol
  358. au BufNewFile,BufRead *.r            if getline(1) =~ '^REBOL'|set ft=rebol|else|set ft=rexx|endif
  359.  
  360. " Rpcgen
  361. au BufNewFile,BufRead *.x            set ft=rpcgen
  362.  
  363. " S-lang (or shader language!)
  364. au BufNewFile,BufRead *.sl            set ft=slang
  365.  
  366. " SAS script
  367. au BufNewFile,BufRead *.sas            set ft=sas
  368.  
  369. " Sather
  370. au BufNewFile,BufRead *.sa            set ft=sather
  371.  
  372. " SDL
  373. au BufNewFile,BufRead *.sdl,*.pr        set ft=sdl
  374.  
  375. " sed
  376. au BufNewFile,BufRead *.sed            set ft=sed
  377.  
  378. " Sendmail
  379. au BufNewFile,BufRead sendmail.cf        set ft=sm
  380.  
  381. " SGML
  382. au BufNewFile,BufRead *.sgm,*.sgml        set ft=sgml
  383.  
  384. " Shell scripts (sh, ksh, bash, csh)
  385. au BufNewFile,BufRead .profile,.bashrc,.bash_profile,.kshrc,*.sh,*.ksh,*.bash,*.env set ft=sh
  386. au BufNewFile,BufRead .login,.cshrc,.tcshrc,*.csh,*.tcsh set ft=csh
  387.  
  388. " Z-Shell script
  389. au BufNewFile,BufRead .z*,zsh*,zlog*        set ft=zsh
  390.  
  391. " Scheme
  392. au BufNewFile,BufRead *.scm            set ft=scheme
  393.  
  394. " Simula
  395. au BufNewFile,BufRead *.sim            set ft=simula
  396.  
  397. " SKILL
  398. au BufNewFile,BufRead *.il            set ft=skill
  399.  
  400. " SLRN
  401. au BufNewFile,BufRead .slrnrc            set ft=slrnrc
  402. au BufNewFile,BufRead *.score            set ft=slrnsc
  403.  
  404. " Smalltalk
  405. au BufNewFile,BufRead *.st,*.cls        set ft=st
  406.  
  407. " SMIL
  408. au BufNewFile,BufReadPost *.smil        set ft=smil
  409.  
  410. " SMIL or SNMP MIB file
  411. au BufNewFile,BufRead *.smi        if getline(1) =~ '\<smil\>'|set ft=smil|else|set ft=mib|endif
  412.  
  413. " SNMP MIB files
  414. au BufNewFile,BufReadPost *.mib            set ft=mib
  415.  
  416. " Spec (Linux RPM)
  417. au BufNewFile,BufRead *.spec            set ft=spec
  418.  
  419. " Speedup (AspenTech plant simulator)
  420. au BufNewFile,BufRead *.speedup,*.spdata,*.spd    set ft=spup
  421.  
  422. " Squid: Removed, because there are too many *.conf files that aren't Squid.
  423. "au BufNewFile,BufRead *.conf            set ft=squid
  424.  
  425. " SQL
  426. au BufNewFile,BufRead *.sql            set ft=sql
  427.  
  428. " Tags
  429. au BufNewFile,BufRead tags            set ft=tags
  430.  
  431. " Tcl
  432. au BufNewFile,BufRead *.tcl,*.tk        set ft=tcl
  433.  
  434. " Telix Salt
  435. au BufNewFile,BufRead *.slt            set ft=tsalt
  436.  
  437. " TeX
  438. au BufNewFile,BufRead *.tex,*.sty,*.dtx,*.ltx    set ft=tex
  439.  
  440. " TF mud client
  441. au BufNewFile,BufRead *.tf            set ft=tf
  442.  
  443. " Motif UIT/UIL files
  444. au BufNewFile,BufRead *.uit,*.uil        set ft=uil
  445.  
  446. " Verilog HDL
  447. au BufNewFile,BufRead *.v            set ft=verilog
  448.  
  449. " VHDL
  450. au BufNewFile,BufRead *.hdl,*.vhd,*.vhdl,*.vhdl_[0-9]*,*.vbe,*.vst  set ft=vhdl
  451.  
  452. " Vim Help file
  453. if has("mac")
  454.   au BufNewFile,BufRead *[/:]vim*[/:]doc[/:]*.txt,*[/:]runtime[/:]doc[/:]*.txt set ft=help
  455. else
  456.   au BufNewFile,BufRead */vim*/doc/*.txt,*/runtime/doc/*.txt    set ft=help
  457. endif
  458.  
  459. " Vim script
  460. au BufNewFile,BufRead *vimrc*,*.vim,.exrc,_exrc set ft=vim
  461.  
  462. " Viminfo file
  463. au BufNewFile,BufRead .viminfo,_viminfo        set ft=viminfo
  464.  
  465. " Visual Basic (also uses *.bas)
  466. au BufNewFile,BufRead *.frm            set ft=vb
  467.  
  468. " Vgrindefs file
  469. au BufNewFile,BufRead vgrindefs            set ft=vgrindefs
  470.  
  471. " VRML V1.0c
  472. au BufNewFile,BufRead *.wrl            set ft=vrml
  473.  
  474. " X Pixmap (dynamically sets colors, use BufEnter to make it work better)
  475. au BufEnter *.xpm                set ft=xpm
  476.  
  477. " XS Perl extension interface language
  478. au BufEnter *.xs                set ft=xs
  479.  
  480. " X resources file
  481. au BufNewFile,BufRead *.Xdefaults,*/app-defaults/* set ft=xdefaults
  482.  
  483. " Xmath
  484. au BufNewFile,BufRead *.msc,*.msf        set ft=xmath
  485. au BufNewFile,BufRead *.ms            call FTCheck_ms()
  486.  
  487. " This function checks if one of the first five lines start with a dot.  In
  488. " that case it is probably an nroff file.  Otherwise it's assumed to be Xmath.
  489. fun! FTCheck_ms()
  490.   let lnum = 1
  491.   while lnum <= 5
  492.     if getline(lnum) =~ '^\.'
  493.       set ft=nroff
  494.       let lnum = 99
  495.     endif
  496.     let lnum = lnum + 1
  497.   endwhile
  498.   if lnum < 99
  499.     set ft=xmath
  500.   endif
  501. endfun
  502.  
  503. " vim: ts=8
  504. " XML
  505. au BufNewFile,BufRead *.xml            set ft=xml
  506.  
  507. " Yacc
  508. au BufNewFile,BufRead *.y            set ft=yacc
  509.  
  510. " Z80 assembler asz80
  511. au BufNewFile,BufRead *.z8a            set ft=z8a
  512.  
  513. augroup END
  514.  
  515.  
  516. " Source the user-specified filetype file
  517. if exists("myfiletypefile") && file_readable(expand(myfiletypefile))
  518.   execute "source " . myfiletypefile
  519. endif
  520.  
  521.  
  522. " Check for "*" after loading myfiletypefile, so that scripts.vim is only used
  523. " when there are no matching file name extensions.
  524. augroup filetype
  525.   au BufNewFile,BufRead,StdinReadPost *        if !did_filetype()|so <sfile>:p:h/scripts.vim|endif
  526. augroup END
  527.  
  528.  
  529. " If the GUI is already running, may still need to install the Syntax menu.
  530. " Don't do it when the 'M' flag is included in 'guioptions'
  531. if has("gui_running") && !exists("did_install_syntax_menu") && &guioptions !~# "M"
  532.   source <sfile>:p:h/menu.vim
  533. endif
  534.  
  535.  
  536. endif " !exists("did_load_filetypes")
  537.  
  538. " vim: ts=8
  539.