vim: runtime/autoload/dist/ft.vim annotate

annotate runtime/autoload/dist/ft.vim @ 27493:3af3dee7e5d9 v8.2.4274

patch 8.2.4274: Basic and form filetype detection is incomplete Commit: https://github.com/vim/vim/commit/c570e9cf68c0fe30366e82c96be460047dd659b9 Author: Doug Kearns <dougkearns@gmail.com> Date: Mon Jan 31 17:09:14 2022 +0000 patch 8.2.4274: Basic and form filetype detection is incomplete Problem: Basic and form filetype detection is incomplete. Solution: Add a separate function for .frm files. (Doug Kearns, closes https://github.com/vim/vim/issues/9675)

author	Bram Moolenaar <Bram@vim.org>
date	Mon, 31 Jan 2022 18:15:03 +0100
parents	4789f29c9595
children	063952f68595

rev	line source
12816 218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	1 " Vim functions for file type detection
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	2 "
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	3 " Maintainer: Bram Moolenaar <Bram@vim.org>
27492 4789f29c9595 Update runtime files Bram Moolenaar <Bram@vim.org> parents: 27459 diff changeset	4 " Last Change: 2022 Jan 31
12816 218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	5
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	6 " These functions are moved here from runtime/filetype.vim to make startup
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	7 " faster.
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	8
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	9 " Line continuation is used here, remove 'C' from 'cpoptions'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	10 let s:cpo_save = &cpo
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	11 set cpo&vim
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	12
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	13 func dist#ft#Check_inp()
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	14 if getline(1) =~ '^\*'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	15 setf abaqus
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	16 else
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	17 let n = 1
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	18 if line("$") > 500
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	19 let nmax = 500
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	20 else
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	21 let nmax = line("$")
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	22 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	23 while n <= nmax
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	24 if getline(n) =~? "^header surface data"
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	25 setf trasys
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	26 break
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	27 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	28 let n = n + 1
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	29 endwhile
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	30 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	31 endfunc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	32
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	33 " This function checks for the kind of assembly that is wanted by the user, or
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	34 " can be detected from the first five lines of the file.
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	35 func dist#ft#FTasm()
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	36 " make sure b:asmsyntax exists
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	37 if !exists("b:asmsyntax")
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	38 let b:asmsyntax = ""
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	39 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	40
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	41 if b:asmsyntax == ""
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	42 call dist#ft#FTasmsyntax()
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	43 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	44
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	45 " if b:asmsyntax still isn't set, default to asmsyntax or GNU
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	46 if b:asmsyntax == ""
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	47 if exists("g:asmsyntax")
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	48 let b:asmsyntax = g:asmsyntax
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	49 else
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	50 let b:asmsyntax = "asm"
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	51 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	52 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	53
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	54 exe "setf " . fnameescape(b:asmsyntax)
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	55 endfunc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	56
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	57 func dist#ft#FTasmsyntax()
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	58 " see if file contains any asmsyntax=foo overrides. If so, change
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	59 " b:asmsyntax appropriately
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	60 let head = " ".getline(1)." ".getline(2)." ".getline(3)." ".getline(4).
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	61 \" ".getline(5)." "
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	62 let match = matchstr(head, '\sasmsyntax=\zs[a-zA-Z0-9]\+\ze\s')
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	63 if match != ''
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	64 let b:asmsyntax = match
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	65 elseif ((head =~? '\.title') \|\| (head =~? '\.ident') \|\| (head =~? '\.macro') \|\| (head =~? '\.subtitle') \|\| (head =~? '\.library'))
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	66 let b:asmsyntax = "vmasm"
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	67 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	68 endfunc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	69
27493 3af3dee7e5d9 patch 8.2.4274: Basic and form filetype detection is incomplete Bram Moolenaar <Bram@vim.org> parents: 27492 diff changeset	70 let s:ft_visual_basic_content = '\cVB_Name\\|Begin VB\.$Form\\|MDIForm\\|UserControl$'
3af3dee7e5d9 patch 8.2.4274: Basic and form filetype detection is incomplete Bram Moolenaar <Bram@vim.org> parents: 27492 diff changeset	71
3af3dee7e5d9 patch 8.2.4274: Basic and form filetype detection is incomplete Bram Moolenaar <Bram@vim.org> parents: 27492 diff changeset	72 " See FTfrm() for Visual Basic form file detection
3af3dee7e5d9 patch 8.2.4274: Basic and form filetype detection is incomplete Bram Moolenaar <Bram@vim.org> parents: 27492 diff changeset	73 func dist#ft#FTbas()
27287 9f72ec92d361 patch 8.2.4172: filetype detection for BASIC is not optimal Bram Moolenaar <Bram@vim.org> parents: 27162 diff changeset	74 if exists("g:filetype_bas")
9f72ec92d361 patch 8.2.4172: filetype detection for BASIC is not optimal Bram Moolenaar <Bram@vim.org> parents: 27162 diff changeset	75 exe "setf " . g:filetype_bas
9f72ec92d361 patch 8.2.4172: filetype detection for BASIC is not optimal Bram Moolenaar <Bram@vim.org> parents: 27162 diff changeset	76 return
9f72ec92d361 patch 8.2.4172: filetype detection for BASIC is not optimal Bram Moolenaar <Bram@vim.org> parents: 27162 diff changeset	77 endif
9f72ec92d361 patch 8.2.4172: filetype detection for BASIC is not optimal Bram Moolenaar <Bram@vim.org> parents: 27162 diff changeset	78
9f72ec92d361 patch 8.2.4172: filetype detection for BASIC is not optimal Bram Moolenaar <Bram@vim.org> parents: 27162 diff changeset	79 " most frequent FreeBASIC-specific keywords in distro files
9f72ec92d361 patch 8.2.4172: filetype detection for BASIC is not optimal Bram Moolenaar <Bram@vim.org> parents: 27162 diff changeset	80 let fb_keywords = '\c^\s\%(extern\\|var\\|enum\\|private\\|scope\\|union\\|byref\\|operator\\|constructor\\|delete\\|namespace\\|public\\|property\\|with\\|destructor\\|using\)\>\%(\s[:=(]\)\@!'
9f72ec92d361 patch 8.2.4172: filetype detection for BASIC is not optimal Bram Moolenaar <Bram@vim.org> parents: 27162 diff changeset	81 let fb_preproc = '\c^\s*\%(#\a\+\\|option\s\+\%(byval\\|dynamic\\|escape\\|\%(no\)\=gosub\\|nokeyword\\|private\\|static\)\>\)'
9f72ec92d361 patch 8.2.4172: filetype detection for BASIC is not optimal Bram Moolenaar <Bram@vim.org> parents: 27162 diff changeset	82 let fb_comment = "^\\s*/'"
9f72ec92d361 patch 8.2.4172: filetype detection for BASIC is not optimal Bram Moolenaar <Bram@vim.org> parents: 27162 diff changeset	83 " OPTION EXPLICIT, without the leading underscore, is common to many dialects
9f72ec92d361 patch 8.2.4172: filetype detection for BASIC is not optimal Bram Moolenaar <Bram@vim.org> parents: 27162 diff changeset	84 let qb64_preproc = '\c^\s*\%($\a\+\\|option\s\+\%(_explicit\\|_\=explicitarray\)\>\)'
9f72ec92d361 patch 8.2.4172: filetype detection for BASIC is not optimal Bram Moolenaar <Bram@vim.org> parents: 27162 diff changeset	85
9f72ec92d361 patch 8.2.4172: filetype detection for BASIC is not optimal Bram Moolenaar <Bram@vim.org> parents: 27162 diff changeset	86 let lines = getline(1, min([line("$"), 100]))
9f72ec92d361 patch 8.2.4172: filetype detection for BASIC is not optimal Bram Moolenaar <Bram@vim.org> parents: 27162 diff changeset	87
9f72ec92d361 patch 8.2.4172: filetype detection for BASIC is not optimal Bram Moolenaar <Bram@vim.org> parents: 27162 diff changeset	88 if match(lines, fb_preproc) > -1 \|\| match(lines, fb_comment) > -1 \|\| match(lines, fb_keywords) > -1
9f72ec92d361 patch 8.2.4172: filetype detection for BASIC is not optimal Bram Moolenaar <Bram@vim.org> parents: 27162 diff changeset	89 setf freebasic
9f72ec92d361 patch 8.2.4172: filetype detection for BASIC is not optimal Bram Moolenaar <Bram@vim.org> parents: 27162 diff changeset	90 elseif match(lines, qb64_preproc) > -1
9f72ec92d361 patch 8.2.4172: filetype detection for BASIC is not optimal Bram Moolenaar <Bram@vim.org> parents: 27162 diff changeset	91 setf qb64
27493 3af3dee7e5d9 patch 8.2.4274: Basic and form filetype detection is incomplete Bram Moolenaar <Bram@vim.org> parents: 27492 diff changeset	92 elseif match(lines, s:ft_visual_basic_content) > -1
12816 218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	93 setf vb
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	94 else
27287 9f72ec92d361 patch 8.2.4172: filetype detection for BASIC is not optimal Bram Moolenaar <Bram@vim.org> parents: 27162 diff changeset	95 setf basic
12816 218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	96 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	97 endfunc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	98
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	99 func dist#ft#FTbtm()
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	100 if exists("g:dosbatch_syntax_for_btm") && g:dosbatch_syntax_for_btm
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	101 setf dosbatch
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	102 else
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	103 setf btm
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	104 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	105 endfunc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	106
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	107 func dist#ft#BindzoneCheck(default)
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	108 if getline(1).getline(2).getline(3).getline(4) =~ '^; <<>> DiG [0-9.]\+.* <<>>\\|$ORIGIN\\|$TTL\\|IN\s\+SOA'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	109 setf bindzone
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	110 elseif a:default != ''
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	111 exe 'setf ' . a:default
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	112 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	113 endfunc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	114
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	115 func dist#ft#FTlpc()
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	116 if exists("g:lpc_syntax_for_c")
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	117 let lnum = 1
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	118 while lnum <= 12
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	119 if getline(lnum) =~# '^$//\\|inherit\\|private\\|protected\\|nosave\\|string\\|object\\|mapping\\|mixed$'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	120 setf lpc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	121 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	122 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	123 let lnum = lnum + 1
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	124 endwhile
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	125 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	126 setf c
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	127 endfunc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	128
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	129 func dist#ft#FTheader()
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	130 if match(getline(1, min([line("$"), 200])), '^@$interface\\|end\\|class$') > -1
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	131 if exists("g:c_syntax_for_h")
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	132 setf objc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	133 else
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	134 setf objcpp
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	135 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	136 elseif exists("g:c_syntax_for_h")
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	137 setf c
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	138 elseif exists("g:ch_syntax_for_h")
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	139 setf ch
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	140 else
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	141 setf cpp
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	142 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	143 endfunc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	144
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	145 " This function checks if one of the first ten lines start with a '@'. In
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	146 " that case it is probably a change file.
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	147 " If the first line starts with # or ! it's probably a ch file.
14999 2b30a2b4bde2 Update runtime files Bram Moolenaar <Bram@vim.org> parents: 14668 diff changeset	148 " If a line has "main", "include", "//" or "/*" it's probably ch.
12816 218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	149 " Otherwise CHILL is assumed.
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	150 func dist#ft#FTchange()
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	151 let lnum = 1
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	152 while lnum <= 10
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	153 if getline(lnum)[0] == '@'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	154 setf change
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	155 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	156 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	157 if lnum == 1 && (getline(1)[0] == '#' \|\| getline(1)[0] == '!')
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	158 setf ch
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	159 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	160 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	161 if getline(lnum) =~ "MODULE"
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	162 setf chill
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	163 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	164 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	165 if getline(lnum) =~ 'main\s(\\|#\sinclude\\|//'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	166 setf ch
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	167 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	168 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	169 let lnum = lnum + 1
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	170 endwhile
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	171 setf chill
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	172 endfunc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	173
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	174 func dist#ft#FTent()
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	175 " This function checks for valid cl syntax in the first five lines.
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	176 " Look for either an opening comment, '#', or a block start, '{".
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	177 " If not found, assume SGML.
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	178 let lnum = 1
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	179 while lnum < 6
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	180 let line = getline(lnum)
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	181 if line =~ '^\s*[#{]'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	182 setf cl
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	183 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	184 elseif line !~ '^\s*$'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	185 " Not a blank line, not a comment, and not a block start,
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	186 " so doesn't look like valid cl code.
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	187 break
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	188 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	189 let lnum = lnum + 1
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	190 endw
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	191 setf dtd
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	192 endfunc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	193
25026 fda44c0b4b7b patch 8.2.3050: cannot recognize elixir files Bram Moolenaar <Bram@vim.org> parents: 23584 diff changeset	194 func dist#ft#ExCheck()
fda44c0b4b7b patch 8.2.3050: cannot recognize elixir files Bram Moolenaar <Bram@vim.org> parents: 23584 diff changeset	195 let lines = getline(1, min([line("$"), 100]))
fda44c0b4b7b patch 8.2.3050: cannot recognize elixir files Bram Moolenaar <Bram@vim.org> parents: 23584 diff changeset	196 if exists('g:filetype_euphoria')
fda44c0b4b7b patch 8.2.3050: cannot recognize elixir files Bram Moolenaar <Bram@vim.org> parents: 23584 diff changeset	197 exe 'setf ' . g:filetype_euphoria
fda44c0b4b7b patch 8.2.3050: cannot recognize elixir files Bram Moolenaar <Bram@vim.org> parents: 23584 diff changeset	198 elseif match(lines, '^--\\|^ifdef\>\\|^include\>') > -1
fda44c0b4b7b patch 8.2.3050: cannot recognize elixir files Bram Moolenaar <Bram@vim.org> parents: 23584 diff changeset	199 setf euphoria3
fda44c0b4b7b patch 8.2.3050: cannot recognize elixir files Bram Moolenaar <Bram@vim.org> parents: 23584 diff changeset	200 else
fda44c0b4b7b patch 8.2.3050: cannot recognize elixir files Bram Moolenaar <Bram@vim.org> parents: 23584 diff changeset	201 setf elixir
fda44c0b4b7b patch 8.2.3050: cannot recognize elixir files Bram Moolenaar <Bram@vim.org> parents: 23584 diff changeset	202 endif
fda44c0b4b7b patch 8.2.3050: cannot recognize elixir files Bram Moolenaar <Bram@vim.org> parents: 23584 diff changeset	203 endfunc
fda44c0b4b7b patch 8.2.3050: cannot recognize elixir files Bram Moolenaar <Bram@vim.org> parents: 23584 diff changeset	204
12816 218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	205 func dist#ft#EuphoriaCheck()
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	206 if exists('g:filetype_euphoria')
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	207 exe 'setf ' . g:filetype_euphoria
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	208 else
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	209 setf euphoria3
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	210 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	211 endfunc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	212
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	213 func dist#ft#DtraceCheck()
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	214 let lines = getline(1, min([line("$"), 100]))
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	215 if match(lines, '^module\>\\|^import\>') > -1
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	216 " D files often start with a module and/or import statement.
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	217 setf d
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	218 elseif match(lines, '^#!\S\+dtrace\\|#pragma\s\+D\s\+option\\|:\S\{-}:\S\{-}:') > -1
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	219 setf dtrace
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	220 else
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	221 setf d
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	222 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	223 endfunc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	224
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	225 func dist#ft#FTe()
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	226 if exists('g:filetype_euphoria')
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	227 exe 'setf ' . g:filetype_euphoria
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	228 else
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	229 let n = 1
16024 7fd3a9eaeedb patch 8.1.1017: off-by-one error in filetype detection Bram Moolenaar <Bram@vim.org> parents: 15527 diff changeset	230 while n < 100 && n <= line("$")
12816 218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	231 if getline(n) =~ "^\\s\$<'\\\|'>\$\\s$"
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	232 setf specman
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	233 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	234 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	235 let n = n + 1
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	236 endwhile
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	237 setf eiffel
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	238 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	239 endfunc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	240
27493 3af3dee7e5d9 patch 8.2.4274: Basic and form filetype detection is incomplete Bram Moolenaar <Bram@vim.org> parents: 27492 diff changeset	241 func dist#ft#FTfrm()
3af3dee7e5d9 patch 8.2.4274: Basic and form filetype detection is incomplete Bram Moolenaar <Bram@vim.org> parents: 27492 diff changeset	242 if exists("g:filetype_frm")
3af3dee7e5d9 patch 8.2.4274: Basic and form filetype detection is incomplete Bram Moolenaar <Bram@vim.org> parents: 27492 diff changeset	243 exe "setf " . g:filetype_frm
3af3dee7e5d9 patch 8.2.4274: Basic and form filetype detection is incomplete Bram Moolenaar <Bram@vim.org> parents: 27492 diff changeset	244 return
3af3dee7e5d9 patch 8.2.4274: Basic and form filetype detection is incomplete Bram Moolenaar <Bram@vim.org> parents: 27492 diff changeset	245 endif
3af3dee7e5d9 patch 8.2.4274: Basic and form filetype detection is incomplete Bram Moolenaar <Bram@vim.org> parents: 27492 diff changeset	246
3af3dee7e5d9 patch 8.2.4274: Basic and form filetype detection is incomplete Bram Moolenaar <Bram@vim.org> parents: 27492 diff changeset	247 let lines = getline(1, min([line("$"), 5]))
3af3dee7e5d9 patch 8.2.4274: Basic and form filetype detection is incomplete Bram Moolenaar <Bram@vim.org> parents: 27492 diff changeset	248
3af3dee7e5d9 patch 8.2.4274: Basic and form filetype detection is incomplete Bram Moolenaar <Bram@vim.org> parents: 27492 diff changeset	249 if match(lines, s:ft_visual_basic_content) > -1
3af3dee7e5d9 patch 8.2.4274: Basic and form filetype detection is incomplete Bram Moolenaar <Bram@vim.org> parents: 27492 diff changeset	250 setf vb
3af3dee7e5d9 patch 8.2.4274: Basic and form filetype detection is incomplete Bram Moolenaar <Bram@vim.org> parents: 27492 diff changeset	251 else
3af3dee7e5d9 patch 8.2.4274: Basic and form filetype detection is incomplete Bram Moolenaar <Bram@vim.org> parents: 27492 diff changeset	252 setf form
3af3dee7e5d9 patch 8.2.4274: Basic and form filetype detection is incomplete Bram Moolenaar <Bram@vim.org> parents: 27492 diff changeset	253 endif
3af3dee7e5d9 patch 8.2.4274: Basic and form filetype detection is incomplete Bram Moolenaar <Bram@vim.org> parents: 27492 diff changeset	254 endfunc
3af3dee7e5d9 patch 8.2.4274: Basic and form filetype detection is incomplete Bram Moolenaar <Bram@vim.org> parents: 27492 diff changeset	255
26311 ce3678583211 patch 8.2.3686: filetype detection often mixes up Forth and F# Bram Moolenaar <Bram@vim.org> parents: 26296 diff changeset	256 " Distinguish between Forth and F#.
ce3678583211 patch 8.2.3686: filetype detection often mixes up Forth and F# Bram Moolenaar <Bram@vim.org> parents: 26296 diff changeset	257 " Provided by Doug Kearns.
ce3678583211 patch 8.2.3686: filetype detection often mixes up Forth and F# Bram Moolenaar <Bram@vim.org> parents: 26296 diff changeset	258 func dist#ft#FTfs()
ce3678583211 patch 8.2.3686: filetype detection often mixes up Forth and F# Bram Moolenaar <Bram@vim.org> parents: 26296 diff changeset	259 if exists("g:filetype_fs")
ce3678583211 patch 8.2.3686: filetype detection often mixes up Forth and F# Bram Moolenaar <Bram@vim.org> parents: 26296 diff changeset	260 exe "setf " . g:filetype_fs
ce3678583211 patch 8.2.3686: filetype detection often mixes up Forth and F# Bram Moolenaar <Bram@vim.org> parents: 26296 diff changeset	261 else
ce3678583211 patch 8.2.3686: filetype detection often mixes up Forth and F# Bram Moolenaar <Bram@vim.org> parents: 26296 diff changeset	262 let line = getline(nextnonblank(1))
ce3678583211 patch 8.2.3686: filetype detection often mixes up Forth and F# Bram Moolenaar <Bram@vim.org> parents: 26296 diff changeset	263 " comments and colon definitions
ce3678583211 patch 8.2.3686: filetype detection often mixes up Forth and F# Bram Moolenaar <Bram@vim.org> parents: 26296 diff changeset	264 if line =~ '^\s\.\=( ' \|\| line =~ '^\s\\G\= ' \|\| line =~ '^\\$'
ce3678583211 patch 8.2.3686: filetype detection often mixes up Forth and F# Bram Moolenaar <Bram@vim.org> parents: 26296 diff changeset	265 \ \|\| line =~ '^\s*: \S'
ce3678583211 patch 8.2.3686: filetype detection often mixes up Forth and F# Bram Moolenaar <Bram@vim.org> parents: 26296 diff changeset	266 setf forth
ce3678583211 patch 8.2.3686: filetype detection often mixes up Forth and F# Bram Moolenaar <Bram@vim.org> parents: 26296 diff changeset	267 else
26344 36f3a77e4b8c patch 8.2.3703: most people call F# "fsharp" and not "fs" Bram Moolenaar <Bram@vim.org> parents: 26311 diff changeset	268 setf fsharp
26311 ce3678583211 patch 8.2.3686: filetype detection often mixes up Forth and F# Bram Moolenaar <Bram@vim.org> parents: 26296 diff changeset	269 endif
ce3678583211 patch 8.2.3686: filetype detection often mixes up Forth and F# Bram Moolenaar <Bram@vim.org> parents: 26296 diff changeset	270 endif
ce3678583211 patch 8.2.3686: filetype detection often mixes up Forth and F# Bram Moolenaar <Bram@vim.org> parents: 26296 diff changeset	271 endfunc
ce3678583211 patch 8.2.3686: filetype detection often mixes up Forth and F# Bram Moolenaar <Bram@vim.org> parents: 26296 diff changeset	272
12816 218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	273 " Distinguish between HTML, XHTML and Django
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	274 func dist#ft#FThtml()
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	275 let n = 1
16024 7fd3a9eaeedb patch 8.1.1017: off-by-one error in filetype detection Bram Moolenaar <Bram@vim.org> parents: 15527 diff changeset	276 while n < 10 && n <= line("$")
12816 218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	277 if getline(n) =~ '\<DTD\s\+XHTML\s'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	278 setf xhtml
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	279 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	280 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	281 if getline(n) =~ '{%\s*$extends\\|block\\|load$\>\\|{#\s\+'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	282 setf htmldjango
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	283 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	284 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	285 let n = n + 1
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	286 endwhile
16024 7fd3a9eaeedb patch 8.1.1017: off-by-one error in filetype detection Bram Moolenaar <Bram@vim.org> parents: 15527 diff changeset	287 setf FALLBACK html
12816 218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	288 endfunc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	289
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	290 " Distinguish between standard IDL and MS-IDL
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	291 func dist#ft#FTidl()
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	292 let n = 1
16024 7fd3a9eaeedb patch 8.1.1017: off-by-one error in filetype detection Bram Moolenaar <Bram@vim.org> parents: 15527 diff changeset	293 while n < 50 && n <= line("$")
12816 218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	294 if getline(n) =~ '^\s*import\s\+"$unknwn\\|objidl$\.idl"'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	295 setf msidl
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	296 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	297 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	298 let n = n + 1
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	299 endwhile
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	300 setf idl
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	301 endfunc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	302
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	303 " Distinguish between "default" and Cproto prototype file. */
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	304 func dist#ft#ProtoCheck(default)
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	305 " Cproto files have a comment in the first line and a function prototype in
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	306 " the second line, it always ends in ";". Indent files may also have
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	307 " comments, thus we can't match comments to see the difference.
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	308 " IDL files can have a single ';' in the second line, require at least one
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	309 " chacter before the ';'.
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	310 if getline(2) =~ '.;$'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	311 setf cpp
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	312 else
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	313 exe 'setf ' . a:default
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	314 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	315 endfunc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	316
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	317 func dist#ft#FTm()
25727 71d3ebfb00b6 patch 8.2.3399: Octave files are not recognized Bram Moolenaar <Bram@vim.org> parents: 25026 diff changeset	318 if exists("g:filetype_m")
71d3ebfb00b6 patch 8.2.3399: Octave files are not recognized Bram Moolenaar <Bram@vim.org> parents: 25026 diff changeset	319 exe "setf " . g:filetype_m
71d3ebfb00b6 patch 8.2.3399: Octave files are not recognized Bram Moolenaar <Bram@vim.org> parents: 25026 diff changeset	320 return
71d3ebfb00b6 patch 8.2.3399: Octave files are not recognized Bram Moolenaar <Bram@vim.org> parents: 25026 diff changeset	321 endif
71d3ebfb00b6 patch 8.2.3399: Octave files are not recognized Bram Moolenaar <Bram@vim.org> parents: 25026 diff changeset	322
25794 374adc90efa5 patch 8.2.3432: octave/Matlab filetype detection does not work properly Bram Moolenaar <Bram@vim.org> parents: 25727 diff changeset	323 " excluding end(for\|function\|if\|switch\|while) common to Murphi
374adc90efa5 patch 8.2.3432: octave/Matlab filetype detection does not work properly Bram Moolenaar <Bram@vim.org> parents: 25727 diff changeset	324 let octave_block_terminators = '\<end\%(_try_catch\\|classdef\\|enumeration\\|events\\|methods\\|parfor\\|properties\)\>'
25727 71d3ebfb00b6 patch 8.2.3399: Octave files are not recognized Bram Moolenaar <Bram@vim.org> parents: 25026 diff changeset	325
26296 9f32ccdadd22 patch 8.2.3679: objc file detected as Octave Bram Moolenaar <Bram@vim.org> parents: 25794 diff changeset	326 let objc_preprocessor = '^\s#\s\%(import\\|include\\|define\\|if\\|ifn\=def\\|undef\\|line\\|error\\|pragma\)\>'
9f32ccdadd22 patch 8.2.3679: objc file detected as Octave Bram Moolenaar <Bram@vim.org> parents: 25794 diff changeset	327
12816 218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	328 let n = 1
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	329 let saw_comment = 0 " Whether we've seen a multiline comment leader.
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	330 while n < 100
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	331 let line = getline(n)
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	332 if line =~ '^\s/\'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	333 " /* ... */ is a comment in Objective C and Murphi, so we can't conclude
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	334 " it's either of them yet, but track this as a hint in case we don't see
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	335 " anything more definitive.
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	336 let saw_comment = 1
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	337 endif
26296 9f32ccdadd22 patch 8.2.3679: objc file detected as Octave Bram Moolenaar <Bram@vim.org> parents: 25794 diff changeset	338 if line =~ '^\s//' \|\| line =~ '^\s@import\>' \|\| line =~ objc_preprocessor
12816 218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	339 setf objc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	340 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	341 endif
25794 374adc90efa5 patch 8.2.3432: octave/Matlab filetype detection does not work properly Bram Moolenaar <Bram@vim.org> parents: 25727 diff changeset	342 if line =~ '^\s\%(#\\|%!\)' \|\| line =~ '^\sunwind_protect\>' \|\|
25727 71d3ebfb00b6 patch 8.2.3399: Octave files are not recognized Bram Moolenaar <Bram@vim.org> parents: 25026 diff changeset	343 \ line =~ '\%(^\\|;\)\s*' .. octave_block_terminators
71d3ebfb00b6 patch 8.2.3399: Octave files are not recognized Bram Moolenaar <Bram@vim.org> parents: 25026 diff changeset	344 setf octave
71d3ebfb00b6 patch 8.2.3399: Octave files are not recognized Bram Moolenaar <Bram@vim.org> parents: 25026 diff changeset	345 return
71d3ebfb00b6 patch 8.2.3399: Octave files are not recognized Bram Moolenaar <Bram@vim.org> parents: 25026 diff changeset	346 endif
71d3ebfb00b6 patch 8.2.3399: Octave files are not recognized Bram Moolenaar <Bram@vim.org> parents: 25026 diff changeset	347 " TODO: could be Matlab or Octave
12816 218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	348 if line =~ '^\s*%'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	349 setf matlab
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	350 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	351 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	352 if line =~ '^\s(\'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	353 setf mma
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	354 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	355 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	356 if line =~ '^\c\s*$\(type\\|var$\>\\|--\)'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	357 setf murphi
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	358 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	359 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	360 let n = n + 1
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	361 endwhile
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	362
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	363 if saw_comment
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	364 " We didn't see anything definitive, but this looks like either Objective C
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	365 " or Murphi based on the comment leader. Assume the former as it is more
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	366 " common.
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	367 setf objc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	368 else
25727 71d3ebfb00b6 patch 8.2.3399: Octave files are not recognized Bram Moolenaar <Bram@vim.org> parents: 25026 diff changeset	369 " Default is Matlab
12816 218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	370 setf matlab
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	371 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	372 endfunc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	373
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	374 func dist#ft#FTmms()
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	375 let n = 1
19039 d20ed2e5a776 Update a few runtime files. Bram Moolenaar <Bram@vim.org> parents: 16086 diff changeset	376 while n < 20
12816 218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	377 let line = getline(n)
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	378 if line =~ '^\s$%\\|//$' \|\| line =~ '^\'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	379 setf mmix
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	380 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	381 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	382 if line =~ '^\s*#'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	383 setf make
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	384 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	385 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	386 let n = n + 1
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	387 endwhile
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	388 setf mmix
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	389 endfunc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	390
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	391 " This function checks if one of the first five lines start with a dot. In
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	392 " that case it is probably an nroff file: 'filetype' is set and 1 is returned.
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	393 func dist#ft#FTnroff()
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	394 if getline(1)[0] . getline(2)[0] . getline(3)[0] . getline(4)[0] . getline(5)[0] =~ '\.'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	395 setf nroff
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	396 return 1
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	397 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	398 return 0
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	399 endfunc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	400
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	401 func dist#ft#FTmm()
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	402 let n = 1
19968 1908e92b02fd Update runtime files Bram Moolenaar <Bram@vim.org> parents: 19039 diff changeset	403 while n < 20
12816 218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	404 let line = getline(n)
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	405 if line =~ '^\s$#\s\(include\\|import$\>\\|@import\>\\|/\*\)'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	406 setf objcpp
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	407 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	408 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	409 let n = n + 1
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	410 endwhile
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	411 setf nroff
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	412 endfunc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	413
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	414 func dist#ft#FTpl()
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	415 if exists("g:filetype_pl")
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	416 exe "setf " . g:filetype_pl
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	417 else
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	418 " recognize Prolog by specific text in the first non-empty line
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	419 " require a blank after the '%' because Perl uses "%list" and "%translate"
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	420 let l = getline(nextnonblank(1))
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	421 if l =~ '\<prolog\>' \|\| l =~ '^\s$%\+\(\s\\|$$\\|/\\)' \|\| l =~ ':-'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	422 setf prolog
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	423 else
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	424 setf perl
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	425 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	426 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	427 endfunc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	428
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	429 func dist#ft#FTinc()
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	430 if exists("g:filetype_inc")
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	431 exe "setf " . g:filetype_inc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	432 else
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	433 let lines = getline(1).getline(2).getline(3)
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	434 if lines =~? "perlscript"
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	435 setf aspperl
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	436 elseif lines =~ "<%"
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	437 setf aspvbs
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	438 elseif lines =~ "<?"
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	439 setf php
23584 397f95f103e8 patch 8.2.2334: Pascal-like filetypes not always detected Bram Moolenaar <Bram@vim.org> parents: 21991 diff changeset	440 " Pascal supports // comments but they're vary rarely used for file
397f95f103e8 patch 8.2.2334: Pascal-like filetypes not always detected Bram Moolenaar <Bram@vim.org> parents: 21991 diff changeset	441 " headers so assume POV-Ray
397f95f103e8 patch 8.2.2334: Pascal-like filetypes not always detected Bram Moolenaar <Bram@vim.org> parents: 21991 diff changeset	442 elseif lines =~ '^\s\%({\\|(\\)' \|\| lines =~? s:ft_pascal_keywords
397f95f103e8 patch 8.2.2334: Pascal-like filetypes not always detected Bram Moolenaar <Bram@vim.org> parents: 21991 diff changeset	443 setf pascal
12816 218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	444 else
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	445 call dist#ft#FTasmsyntax()
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	446 if exists("b:asmsyntax")
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	447 exe "setf " . fnameescape(b:asmsyntax)
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	448 else
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	449 setf pov
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	450 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	451 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	452 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	453 endfunc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	454
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	455 func dist#ft#FTprogress_cweb()
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	456 if exists("g:filetype_w")
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	457 exe "setf " . g:filetype_w
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	458 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	459 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	460 if getline(1) =~ '&ANALYZE' \|\| getline(3) =~ '&GLOBAL-DEFINE'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	461 setf progress
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	462 else
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	463 setf cweb
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	464 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	465 endfunc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	466
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	467 func dist#ft#FTprogress_asm()
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	468 if exists("g:filetype_i")
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	469 exe "setf " . g:filetype_i
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	470 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	471 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	472 " This function checks for an assembly comment the first ten lines.
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	473 " If not found, assume Progress.
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	474 let lnum = 1
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	475 while lnum <= 10 && lnum < line('$')
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	476 let line = getline(lnum)
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	477 if line =~ '^\s;' \|\| line =~ '^\'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	478 call dist#ft#FTasm()
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	479 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	480 elseif line !~ '^\s$' \|\| line =~ '^/\'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	481 " Not an empty line: Doesn't look like valid assembly code.
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	482 " Or it looks like a Progress /* comment
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	483 break
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	484 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	485 let lnum = lnum + 1
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	486 endw
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	487 setf progress
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	488 endfunc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	489
23584 397f95f103e8 patch 8.2.2334: Pascal-like filetypes not always detected Bram Moolenaar <Bram@vim.org> parents: 21991 diff changeset	490 let s:ft_pascal_comments = '^\s\%({\\|(\\\|//\)'
397f95f103e8 patch 8.2.2334: Pascal-like filetypes not always detected Bram Moolenaar <Bram@vim.org> parents: 21991 diff changeset	491 let s:ft_pascal_keywords = '^\s*\%(program\\|unit\\|library\\|uses\\|begin\\|procedure\\|function\\|const\\|type\\|var\)\>'
397f95f103e8 patch 8.2.2334: Pascal-like filetypes not always detected Bram Moolenaar <Bram@vim.org> parents: 21991 diff changeset	492
12816 218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	493 func dist#ft#FTprogress_pascal()
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	494 if exists("g:filetype_p")
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	495 exe "setf " . g:filetype_p
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	496 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	497 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	498 " This function checks for valid Pascal syntax in the first ten lines.
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	499 " Look for either an opening comment or a program start.
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	500 " If not found, assume Progress.
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	501 let lnum = 1
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	502 while lnum <= 10 && lnum < line('$')
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	503 let line = getline(lnum)
23584 397f95f103e8 patch 8.2.2334: Pascal-like filetypes not always detected Bram Moolenaar <Bram@vim.org> parents: 21991 diff changeset	504 if line =~ s:ft_pascal_comments \|\| line =~? s:ft_pascal_keywords
12816 218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	505 setf pascal
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	506 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	507 elseif line !~ '^\s$' \|\| line =~ '^/\'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	508 " Not an empty line: Doesn't look like valid Pascal code.
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	509 " Or it looks like a Progress /* comment
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	510 break
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	511 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	512 let lnum = lnum + 1
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	513 endw
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	514 setf progress
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	515 endfunc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	516
23584 397f95f103e8 patch 8.2.2334: Pascal-like filetypes not always detected Bram Moolenaar <Bram@vim.org> parents: 21991 diff changeset	517 func dist#ft#FTpp()
397f95f103e8 patch 8.2.2334: Pascal-like filetypes not always detected Bram Moolenaar <Bram@vim.org> parents: 21991 diff changeset	518 if exists("g:filetype_pp")
397f95f103e8 patch 8.2.2334: Pascal-like filetypes not always detected Bram Moolenaar <Bram@vim.org> parents: 21991 diff changeset	519 exe "setf " . g:filetype_pp
397f95f103e8 patch 8.2.2334: Pascal-like filetypes not always detected Bram Moolenaar <Bram@vim.org> parents: 21991 diff changeset	520 else
397f95f103e8 patch 8.2.2334: Pascal-like filetypes not always detected Bram Moolenaar <Bram@vim.org> parents: 21991 diff changeset	521 let line = getline(nextnonblank(1))
397f95f103e8 patch 8.2.2334: Pascal-like filetypes not always detected Bram Moolenaar <Bram@vim.org> parents: 21991 diff changeset	522 if line =~ s:ft_pascal_comments \|\| line =~? s:ft_pascal_keywords
397f95f103e8 patch 8.2.2334: Pascal-like filetypes not always detected Bram Moolenaar <Bram@vim.org> parents: 21991 diff changeset	523 setf pascal
397f95f103e8 patch 8.2.2334: Pascal-like filetypes not always detected Bram Moolenaar <Bram@vim.org> parents: 21991 diff changeset	524 else
397f95f103e8 patch 8.2.2334: Pascal-like filetypes not always detected Bram Moolenaar <Bram@vim.org> parents: 21991 diff changeset	525 setf puppet
397f95f103e8 patch 8.2.2334: Pascal-like filetypes not always detected Bram Moolenaar <Bram@vim.org> parents: 21991 diff changeset	526 endif
397f95f103e8 patch 8.2.2334: Pascal-like filetypes not always detected Bram Moolenaar <Bram@vim.org> parents: 21991 diff changeset	527 endif
397f95f103e8 patch 8.2.2334: Pascal-like filetypes not always detected Bram Moolenaar <Bram@vim.org> parents: 21991 diff changeset	528 endfunc
397f95f103e8 patch 8.2.2334: Pascal-like filetypes not always detected Bram Moolenaar <Bram@vim.org> parents: 21991 diff changeset	529
12816 218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	530 func dist#ft#FTr()
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	531 let max = line("$") > 50 ? 50 : line("$")
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	532
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	533 for n in range(1, max)
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	534 " Rebol is easy to recognize, check for that first
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	535 if getline(n) =~? '\<REBOL\>'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	536 setf rebol
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	537 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	538 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	539 endfor
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	540
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	541 for n in range(1, max)
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	542 " R has # comments
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	543 if getline(n) =~ '^\s*#'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	544 setf r
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	545 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	546 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	547 " Rexx has /* comments */
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	548 if getline(n) =~ '^\s/\'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	549 setf rexx
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	550 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	551 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	552 endfor
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	553
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	554 " Nothing recognized, use user default or assume Rexx
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	555 if exists("g:filetype_r")
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	556 exe "setf " . g:filetype_r
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	557 else
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	558 " Rexx used to be the default, but R appears to be much more popular.
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	559 setf r
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	560 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	561 endfunc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	562
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	563 func dist#ft#McSetf()
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	564 " Rely on the file to start with a comment.
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	565 " MS message text files use ';', Sendmail files use '#' or 'dnl'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	566 for lnum in range(1, min([line("$"), 20]))
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	567 let line = getline(lnum)
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	568 if line =~ '^\s*$#\\|dnl$'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	569 setf m4 " Sendmail .mc file
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	570 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	571 elseif line =~ '^\s*;'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	572 setf msmessages " MS Message text file
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	573 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	574 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	575 endfor
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	576 setf m4 " Default: Sendmail .mc file
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	577 endfunc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	578
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	579 " Called from filetype.vim and scripts.vim.
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	580 func dist#ft#SetFileTypeSH(name)
15527 963dd629d19a patch 8.1.0771: some shell filetype patterns end in a star Bram Moolenaar <Bram@vim.org> parents: 14999 diff changeset	581 if did_filetype()
963dd629d19a patch 8.1.0771: some shell filetype patterns end in a star Bram Moolenaar <Bram@vim.org> parents: 14999 diff changeset	582 " Filetype was already detected
963dd629d19a patch 8.1.0771: some shell filetype patterns end in a star Bram Moolenaar <Bram@vim.org> parents: 14999 diff changeset	583 return
963dd629d19a patch 8.1.0771: some shell filetype patterns end in a star Bram Moolenaar <Bram@vim.org> parents: 14999 diff changeset	584 endif
12816 218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	585 if expand("<amatch>") =~ g:ft_ignore_pat
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	586 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	587 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	588 if a:name =~ '\<csh\>'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	589 " Some .sh scripts contain #!/bin/csh.
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	590 call dist#ft#SetFileTypeShell("csh")
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	591 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	592 elseif a:name =~ '\<tcsh\>'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	593 " Some .sh scripts contain #!/bin/tcsh.
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	594 call dist#ft#SetFileTypeShell("tcsh")
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	595 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	596 elseif a:name =~ '\<zsh\>'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	597 " Some .sh scripts contain #!/bin/zsh.
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	598 call dist#ft#SetFileTypeShell("zsh")
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	599 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	600 elseif a:name =~ '\<ksh\>'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	601 let b:is_kornshell = 1
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	602 if exists("b:is_bash")
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	603 unlet b:is_bash
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	604 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	605 if exists("b:is_sh")
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	606 unlet b:is_sh
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	607 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	608 elseif exists("g:bash_is_sh") \|\| a:name =~ '\<bash\>' \|\| a:name =~ '\<bash2\>'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	609 let b:is_bash = 1
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	610 if exists("b:is_kornshell")
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	611 unlet b:is_kornshell
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	612 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	613 if exists("b:is_sh")
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	614 unlet b:is_sh
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	615 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	616 elseif a:name =~ '\<sh\>'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	617 let b:is_sh = 1
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	618 if exists("b:is_kornshell")
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	619 unlet b:is_kornshell
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	620 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	621 if exists("b:is_bash")
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	622 unlet b:is_bash
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	623 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	624 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	625 call dist#ft#SetFileTypeShell("sh")
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	626 endfunc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	627
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	628 " For shell-like file types, check for an "exec" command hidden in a comment,
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	629 " as used for Tcl.
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	630 " Also called from scripts.vim, thus can't be local to this script.
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	631 func dist#ft#SetFileTypeShell(name)
15527 963dd629d19a patch 8.1.0771: some shell filetype patterns end in a star Bram Moolenaar <Bram@vim.org> parents: 14999 diff changeset	632 if did_filetype()
963dd629d19a patch 8.1.0771: some shell filetype patterns end in a star Bram Moolenaar <Bram@vim.org> parents: 14999 diff changeset	633 " Filetype was already detected
963dd629d19a patch 8.1.0771: some shell filetype patterns end in a star Bram Moolenaar <Bram@vim.org> parents: 14999 diff changeset	634 return
963dd629d19a patch 8.1.0771: some shell filetype patterns end in a star Bram Moolenaar <Bram@vim.org> parents: 14999 diff changeset	635 endif
12816 218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	636 if expand("<amatch>") =~ g:ft_ignore_pat
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	637 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	638 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	639 let l = 2
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	640 while l < 20 && l < line("$") && getline(l) =~ '^\s*$#\\|$$'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	641 " Skip empty and comment lines.
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	642 let l = l + 1
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	643 endwhile
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	644 if l < line("$") && getline(l) =~ '\sexec\s' && getline(l - 1) =~ '^\s#.*\\$'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	645 " Found an "exec" line after a comment with continuation
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	646 let n = substitute(getline(l),'\sexec\s\+$[^ ]/$\=', '', '')
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	647 if n =~ '\<tclsh\\|\<wish'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	648 setf tcl
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	649 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	650 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	651 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	652 exe "setf " . a:name
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	653 endfunc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	654
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	655 func dist#ft#CSH()
15527 963dd629d19a patch 8.1.0771: some shell filetype patterns end in a star Bram Moolenaar <Bram@vim.org> parents: 14999 diff changeset	656 if did_filetype()
963dd629d19a patch 8.1.0771: some shell filetype patterns end in a star Bram Moolenaar <Bram@vim.org> parents: 14999 diff changeset	657 " Filetype was already detected
963dd629d19a patch 8.1.0771: some shell filetype patterns end in a star Bram Moolenaar <Bram@vim.org> parents: 14999 diff changeset	658 return
963dd629d19a patch 8.1.0771: some shell filetype patterns end in a star Bram Moolenaar <Bram@vim.org> parents: 14999 diff changeset	659 endif
12816 218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	660 if exists("g:filetype_csh")
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	661 call dist#ft#SetFileTypeShell(g:filetype_csh)
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	662 elseif &shell =~ "tcsh"
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	663 call dist#ft#SetFileTypeShell("tcsh")
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	664 else
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	665 call dist#ft#SetFileTypeShell("csh")
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	666 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	667 endfunc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	668
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	669 let s:ft_rules_udev_rules_pattern = '^\s\cudev_rules\s=\s"$[^"]\{-1,}$/".*'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	670 func dist#ft#FTRules()
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	671 let path = expand('<amatch>:p')
21853 aab3fe874b05 patch 8.2.1476: filetype test fails on MS-Windows Bram Moolenaar <Bram@vim.org> parents: 21849 diff changeset	672 if path =~ '/$etc/udev/\%(rules\.d/$\=.\.rules\\|\%(usr/\)\=lib/udev/\%(rules\.d/\)\=.\.rules\)$'
12816 218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	673 setf udevrules
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	674 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	675 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	676 if path =~ '^/etc/ufw/'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	677 setf conf " Better than hog
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	678 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	679 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	680 if path =~ '^/$etc\\|usr/share$/polkit-1/rules\.d'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	681 setf javascript
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	682 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	683 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	684 try
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	685 let config_lines = readfile('/etc/udev/udev.conf')
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	686 catch /^Vim\%((\a\+)\)\=:E484/
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	687 setf hog
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	688 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	689 endtry
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	690 let dir = expand('<amatch>:p:h')
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	691 for line in config_lines
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	692 if line =~ s:ft_rules_udev_rules_pattern
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	693 let udev_rules = substitute(line, s:ft_rules_udev_rules_pattern, '\1', "")
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	694 if dir == udev_rules
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	695 setf udevrules
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	696 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	697 break
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	698 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	699 endfor
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	700 setf hog
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	701 endfunc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	702
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	703 func dist#ft#SQL()
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	704 if exists("g:filetype_sql")
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	705 exe "setf " . g:filetype_sql
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	706 else
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	707 setf sql
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	708 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	709 endfunc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	710
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	711 " If the file has an extension of 't' and is in a directory 't' or 'xt' then
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	712 " it is almost certainly a Perl test file.
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	713 " If the first line starts with '#' and contains 'perl' it's probably a Perl
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	714 " file.
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	715 " (Slow test) If a file contains a 'use' statement then it is almost certainly
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	716 " a Perl file.
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	717 func dist#ft#FTperl()
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	718 let dirname = expand("%:p:h:t")
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	719 if expand("%:e") == 't' && (dirname == 't' \|\| dirname == 'xt')
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	720 setf perl
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	721 return 1
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	722 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	723 if getline(1)[0] == '#' && getline(1) =~ 'perl'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	724 setf perl
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	725 return 1
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	726 endif
13051 a6d3e2081544 Update runtime files Christian Brabandt <cb@256bit.org> parents: 12816 diff changeset	727 let save_cursor = getpos('.')
a6d3e2081544 Update runtime files Christian Brabandt <cb@256bit.org> parents: 12816 diff changeset	728 call cursor(1,1)
a6d3e2081544 Update runtime files Christian Brabandt <cb@256bit.org> parents: 12816 diff changeset	729 let has_use = search('^use\s\s*\k', 'c', 30)
a6d3e2081544 Update runtime files Christian Brabandt <cb@256bit.org> parents: 12816 diff changeset	730 call setpos('.', save_cursor)
a6d3e2081544 Update runtime files Christian Brabandt <cb@256bit.org> parents: 12816 diff changeset	731 if has_use
12816 218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	732 setf perl
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	733 return 1
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	734 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	735 return 0
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	736 endfunc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	737
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	738 " Choose context, plaintex, or tex (LaTeX) based on these rules:
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	739 " 1. Check the first line of the file for "%&<format>".
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	740 " 2. Check the first 1000 non-comment lines for LaTeX or ConTeXt keywords.
14668 34fd018452ed Update runtime files. Christian Brabandt <cb@256bit.org> parents: 13051 diff changeset	741 " 3. Default to "plain" or to g:tex_flavor, can be set in user's vimrc.
12816 218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	742 func dist#ft#FTtex()
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	743 let firstline = getline(1)
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	744 if firstline =~ '^%&\s*\a\+'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	745 let format = tolower(matchstr(firstline, '\a\+'))
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	746 let format = substitute(format, 'pdf', '', '')
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	747 if format == 'tex'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	748 let format = 'latex'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	749 elseif format == 'plaintex'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	750 let format = 'plain'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	751 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	752 elseif expand('%') =~ 'tex/context/./..tex'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	753 let format = 'context'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	754 else
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	755 " Default value, may be changed later:
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	756 let format = exists("g:tex_flavor") ? g:tex_flavor : 'plain'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	757 " Save position, go to the top of the file, find first non-comment line.
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	758 let save_cursor = getpos('.')
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	759 call cursor(1,1)
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	760 let firstNC = search('^\s*[^[:space:]%]', 'c', 1000)
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	761 if firstNC " Check the next thousand lines for a LaTeX or ConTeXt keyword.
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	762 let lpat = 'documentclass\>\\|usepackage\>\\|begin{\\|newcommand\>\\|renewcommand\>'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	763 let cpat = 'start\a\+\\|setup\a\+\\|usemodule\\|enablemode\\|enableregime\\|setvariables\\|useencoding\\|usesymbols\\|stelle\a\+\\|verwende\a\+\\|stel\a\+\\|gebruik\a\+\\|usa\a\+\\|imposta\a\+\\|regle\a\+\\|utilisemodule\>'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	764 let kwline = search('^\s\\\%(' . lpat . '\)\\|^\s\\$' . cpat . '$',
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	765 \ 'cnp', firstNC + 1000)
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	766 if kwline == 1 " lpat matched
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	767 let format = 'latex'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	768 elseif kwline == 2 " cpat matched
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	769 let format = 'context'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	770 endif " If neither matched, keep default set above.
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	771 " let lline = search('^\s*\\\%(' . lpat . '\)', 'cn', firstNC + 1000)
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	772 " let cline = search('^\s*\\\%(' . cpat . '\)', 'cn', firstNC + 1000)
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	773 " if cline > 0
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	774 " let format = 'context'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	775 " endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	776 " if lline > 0 && (cline == 0 \|\| cline > lline)
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	777 " let format = 'tex'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	778 " endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	779 endif " firstNC
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	780 call setpos('.', save_cursor)
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	781 endif " firstline =~ '^%&\s*\a\+'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	782
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	783 " Translation from formats to file types. TODO: add AMSTeX, RevTex, others?
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	784 if format == 'plain'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	785 setf plaintex
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	786 elseif format == 'context'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	787 setf context
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	788 else " probably LaTeX
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	789 setf tex
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	790 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	791 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	792 endfunc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	793
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	794 func dist#ft#FTxml()
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	795 let n = 1
16024 7fd3a9eaeedb patch 8.1.1017: off-by-one error in filetype detection Bram Moolenaar <Bram@vim.org> parents: 15527 diff changeset	796 while n < 100 && n <= line("$")
12816 218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	797 let line = getline(n)
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	798 " DocBook 4 or DocBook 5.
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	799 let is_docbook4 = line =~ '<!DOCTYPE.*DocBook'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	800 let is_docbook5 = line =~ ' xmlns="http://docbook.org/ns/docbook"'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	801 if is_docbook4 \|\| is_docbook5
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	802 let b:docbk_type = "xml"
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	803 if is_docbook5
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	804 let b:docbk_ver = 5
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	805 else
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	806 let b:docbk_ver = 4
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	807 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	808 setf docbk
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	809 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	810 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	811 if line =~ 'xmlns:xbl="http://www.mozilla.org/xbl"'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	812 setf xbl
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	813 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	814 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	815 let n += 1
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	816 endwhile
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	817 setf xml
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	818 endfunc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	819
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	820 func dist#ft#FTy()
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	821 let n = 1
16024 7fd3a9eaeedb patch 8.1.1017: off-by-one error in filetype detection Bram Moolenaar <Bram@vim.org> parents: 15527 diff changeset	822 while n < 100 && n <= line("$")
12816 218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	823 let line = getline(n)
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	824 if line =~ '^\s*%'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	825 setf yacc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	826 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	827 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	828 if getline(n) =~ '^\s$#\\|class\>$' && getline(n) !~ '^\s#\s*include'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	829 setf racc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	830 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	831 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	832 let n = n + 1
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	833 endwhile
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	834 setf yacc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	835 endfunc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	836
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	837 func dist#ft#Redif()
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	838 let lnum = 1
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	839 while lnum <= 5 && lnum < line('$')
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	840 if getline(lnum) =~ "^\ctemplate-type:"
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	841 setf redif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	842 return
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	843 endif
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	844 let lnum = lnum + 1
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	845 endwhile
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	846 endfunc
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	847
26628 7efd8f561d04 patch 8.2.3843: dep3patch files are not recognized Bram Moolenaar <Bram@vim.org> parents: 26438 diff changeset	848 " This function is called for all files under /debian/patches/, make sure not
7efd8f561d04 patch 8.2.3843: dep3patch files are not recognized Bram Moolenaar <Bram@vim.org> parents: 26438 diff changeset	849 " to non-dep3patch files, such as README and other text files.
7efd8f561d04 patch 8.2.3843: dep3patch files are not recognized Bram Moolenaar <Bram@vim.org> parents: 26438 diff changeset	850 func dist#ft#Dep3patch()
7efd8f561d04 patch 8.2.3843: dep3patch files are not recognized Bram Moolenaar <Bram@vim.org> parents: 26438 diff changeset	851 if expand('%:t') ==# 'series'
7efd8f561d04 patch 8.2.3843: dep3patch files are not recognized Bram Moolenaar <Bram@vim.org> parents: 26438 diff changeset	852 return
7efd8f561d04 patch 8.2.3843: dep3patch files are not recognized Bram Moolenaar <Bram@vim.org> parents: 26438 diff changeset	853 endif
7efd8f561d04 patch 8.2.3843: dep3patch files are not recognized Bram Moolenaar <Bram@vim.org> parents: 26438 diff changeset	854
7efd8f561d04 patch 8.2.3843: dep3patch files are not recognized Bram Moolenaar <Bram@vim.org> parents: 26438 diff changeset	855 for ln in getline(1, 100)
7efd8f561d04 patch 8.2.3843: dep3patch files are not recognized Bram Moolenaar <Bram@vim.org> parents: 26438 diff changeset	856 if ln =~# '^\%(Description\\|Subject\\|Origin\\|Bug\\|Forwarded\\|Author\\|From\\|Reviewed-by\\|Acked-by\\|Last-Updated\\|Applied-Upstream\):'
7efd8f561d04 patch 8.2.3843: dep3patch files are not recognized Bram Moolenaar <Bram@vim.org> parents: 26438 diff changeset	857 setf dep3patch
7efd8f561d04 patch 8.2.3843: dep3patch files are not recognized Bram Moolenaar <Bram@vim.org> parents: 26438 diff changeset	858 return
7efd8f561d04 patch 8.2.3843: dep3patch files are not recognized Bram Moolenaar <Bram@vim.org> parents: 26438 diff changeset	859 elseif ln =~# '^---'
7efd8f561d04 patch 8.2.3843: dep3patch files are not recognized Bram Moolenaar <Bram@vim.org> parents: 26438 diff changeset	860 " end of headers found. stop processing
7efd8f561d04 patch 8.2.3843: dep3patch files are not recognized Bram Moolenaar <Bram@vim.org> parents: 26438 diff changeset	861 return
7efd8f561d04 patch 8.2.3843: dep3patch files are not recognized Bram Moolenaar <Bram@vim.org> parents: 26438 diff changeset	862 endif
7efd8f561d04 patch 8.2.3843: dep3patch files are not recognized Bram Moolenaar <Bram@vim.org> parents: 26438 diff changeset	863 endfor
7efd8f561d04 patch 8.2.3843: dep3patch files are not recognized Bram Moolenaar <Bram@vim.org> parents: 26438 diff changeset	864 endfunc
12816 218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	865
27070 b353bd9faec8 patch 8.2.4064: foam files are not detected Bram Moolenaar <Bram@vim.org> parents: 26708 diff changeset	866 " This function checks the first 15 lines for appearance of 'FoamFile'
b353bd9faec8 patch 8.2.4064: foam files are not detected Bram Moolenaar <Bram@vim.org> parents: 26708 diff changeset	867 " and then 'object' in a following line.
b353bd9faec8 patch 8.2.4064: foam files are not detected Bram Moolenaar <Bram@vim.org> parents: 26708 diff changeset	868 " In that case, it's probably an OpenFOAM file
b353bd9faec8 patch 8.2.4064: foam files are not detected Bram Moolenaar <Bram@vim.org> parents: 26708 diff changeset	869 func dist#ft#FTfoam()
b353bd9faec8 patch 8.2.4064: foam files are not detected Bram Moolenaar <Bram@vim.org> parents: 26708 diff changeset	870 let ffile = 0
b353bd9faec8 patch 8.2.4064: foam files are not detected Bram Moolenaar <Bram@vim.org> parents: 26708 diff changeset	871 let lnum = 1
b353bd9faec8 patch 8.2.4064: foam files are not detected Bram Moolenaar <Bram@vim.org> parents: 26708 diff changeset	872 while lnum <= 15
b353bd9faec8 patch 8.2.4064: foam files are not detected Bram Moolenaar <Bram@vim.org> parents: 26708 diff changeset	873 if getline(lnum) =~# '^FoamFile'
b353bd9faec8 patch 8.2.4064: foam files are not detected Bram Moolenaar <Bram@vim.org> parents: 26708 diff changeset	874 let ffile = 1
b353bd9faec8 patch 8.2.4064: foam files are not detected Bram Moolenaar <Bram@vim.org> parents: 26708 diff changeset	875 elseif ffile == 1 && getline(lnum) =~# '^\s*object'
b353bd9faec8 patch 8.2.4064: foam files are not detected Bram Moolenaar <Bram@vim.org> parents: 26708 diff changeset	876 setf foam
b353bd9faec8 patch 8.2.4064: foam files are not detected Bram Moolenaar <Bram@vim.org> parents: 26708 diff changeset	877 return
b353bd9faec8 patch 8.2.4064: foam files are not detected Bram Moolenaar <Bram@vim.org> parents: 26708 diff changeset	878 endif
b353bd9faec8 patch 8.2.4064: foam files are not detected Bram Moolenaar <Bram@vim.org> parents: 26708 diff changeset	879 let lnum = lnum + 1
b353bd9faec8 patch 8.2.4064: foam files are not detected Bram Moolenaar <Bram@vim.org> parents: 26708 diff changeset	880 endwhile
b353bd9faec8 patch 8.2.4064: foam files are not detected Bram Moolenaar <Bram@vim.org> parents: 26708 diff changeset	881 endfunc
b353bd9faec8 patch 8.2.4064: foam files are not detected Bram Moolenaar <Bram@vim.org> parents: 26708 diff changeset	882
27420 978890380129 patch 8.2.4238: .tf file could be fileytpe "tf" or "terraform" Bram Moolenaar <Bram@vim.org>* parents: 27287 diff changeset	883 " Determine if a *.tf file is TF mud client or terraform
978890380129 patch 8.2.4238: .tf file could be fileytpe "tf" or "terraform" Bram Moolenaar <Bram@vim.org>* parents: 27287 diff changeset	884 func dist#ft#FTtf()
978890380129 patch 8.2.4238: .tf file could be fileytpe "tf" or "terraform" Bram Moolenaar <Bram@vim.org>* parents: 27287 diff changeset	885 let numberOfLines = line('$')
978890380129 patch 8.2.4238: .tf file could be fileytpe "tf" or "terraform" Bram Moolenaar <Bram@vim.org>* parents: 27287 diff changeset	886 for i in range(1, numberOfLines)
978890380129 patch 8.2.4238: .tf file could be fileytpe "tf" or "terraform" Bram Moolenaar <Bram@vim.org>* parents: 27287 diff changeset	887 let currentLine = trim(getline(i))
978890380129 patch 8.2.4238: .tf file could be fileytpe "tf" or "terraform" Bram Moolenaar <Bram@vim.org>* parents: 27287 diff changeset	888 let firstCharacter = currentLine[0]
978890380129 patch 8.2.4238: .tf file could be fileytpe "tf" or "terraform" Bram Moolenaar <Bram@vim.org>* parents: 27287 diff changeset	889 if firstCharacter !=? ";" && firstCharacter !=? "/" && firstCharacter !=? ""
978890380129 patch 8.2.4238: .tf file could be fileytpe "tf" or "terraform" Bram Moolenaar <Bram@vim.org>* parents: 27287 diff changeset	890 setf terraform
978890380129 patch 8.2.4238: .tf file could be fileytpe "tf" or "terraform" Bram Moolenaar <Bram@vim.org>* parents: 27287 diff changeset	891 return
978890380129 patch 8.2.4238: .tf file could be fileytpe "tf" or "terraform" Bram Moolenaar <Bram@vim.org>* parents: 27287 diff changeset	892 endif
978890380129 patch 8.2.4238: .tf file could be fileytpe "tf" or "terraform" Bram Moolenaar <Bram@vim.org>* parents: 27287 diff changeset	893 endfor
978890380129 patch 8.2.4238: .tf file could be fileytpe "tf" or "terraform" Bram Moolenaar <Bram@vim.org>* parents: 27287 diff changeset	894 setf tf
978890380129 patch 8.2.4238: .tf file could be fileytpe "tf" or "terraform" Bram Moolenaar <Bram@vim.org>* parents: 27287 diff changeset	895 endfunc
978890380129 patch 8.2.4238: .tf file could be fileytpe "tf" or "terraform" Bram Moolenaar <Bram@vim.org>* parents: 27287 diff changeset	896
978890380129 patch 8.2.4238: .tf file could be fileytpe "tf" or "terraform" Bram Moolenaar <Bram@vim.org>* parents: 27287 diff changeset	897
12816 218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	898 " Restore 'cpoptions'
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	899 let &cpo = s:cpo_save
218102da5226 patch 8.0.1285: occasional crash when using a channel Christian Brabandt <cb@256bit.org> parents: diff changeset	900 unlet s:cpo_save

Mercurial > vim

annotate runtime/autoload/dist/ft.vim @ 27493:3af3dee7e5d9 v8.2.4274