vim-53/runtime/filetype.vim

59     if line("$") > 500
62       let nmax = line("$")
373   if match(getline(1, min([line("$"), 200])), '^@\(interface\|end\|class\)') > -1
420 " If the first line starts with # or ! it's probably a ch file.
421 " If a line has "main", "include", "//" ir "/*" it's probably ch.
465     let line = getline(lnum)
466     if line =~ '^\s*[#{]'
469     elseif line !~ '^\s*$'
470       " Not a blank line, not a comment, and not a block start,
568   let lines = getline(1, min([line("$"), 100]))
643   while n < 100 && n < line("$")
732       \ if getline(1) =~ '^From.*# This line is ignored.$' |
802   while n < 10 && n < line("$")
843   while n < 50 && n < line("$")
861 au BufNewFile,BufRead .indent.pro		setf indent
862 au BufNewFile,BufRead indent.pro		call s:ProtoCheck('indent')
869   " Cproto files have a comment in the first line and a function prototype in
870   " the second line, it always ends in ";".  Indent files may also have
881 au BufNewFile,BufRead indentrc			setf indent
1069     let line = getline(n)
1070     if line =~ '^\s*\(#\s*\(include\|import\)\>\|/\*\|//\)'
1074     if line =~ '^\s*%'
1078     if line =~ '^\s*(\*'
1121     let line = getline(n)
1122     if line =~ '^\s*\(%\|//\)' || line =~ '^\*'
1126     if line =~ '^\s*#'
1229     let line = getline(n)
1230     if line =~ '^\s*\(#\s*\(include\|import\)\>\|/\*\)'
1297     " recognize Prolog by specific text in the first non-empty line
1442   while lnum <= 10 && lnum < line('$')
1443     let line = getline(lnum)
1444     if line =~ '^\s*;' || line =~ '^\*'
1447     elseif line !~ '^\s*$' || line =~ '^/\*'
1448       " Not an empty line: Doesn't look like valid assembly code.
1469   while lnum <= 10 && lnum < line('$')
1470     let line = getline(lnum)
1471     if line =~ '^\s*\(program\|unit\|procedure\|function\|const\|type\|var\)\>'
1472 	\ || line =~ '^\s*{' || line =~ '^\s*(\*'
1475     elseif line !~ '^\s*$' || line =~ '^/\*'
1476       " Not an empty line: Doesn't look like valid Pascal code.
1558   let max = line("$") > 50 ? 50 : line("$")
1664   for lnum in range(1, min([line("$"), 20]))
1665     let line = getline(lnum)
1666     if line =~ '^\s*\(#\|dnl\)'
1669     elseif line =~ '^\s*;'
1693 au BufNewFile,BufRead *.sgm,*.sgml
1697 	\   let b:docbk_type="sgml" |
1700 	\   setf sgml |
1711 au BufNewFile,BufRead sgml.catalog*		call s:StarSetf('catalog')
1768   while l < 20 && l < line("$") && getline(l) =~ '^\s*\(#\|$\)'
1772   if l < line("$") && getline(l) =~ '\s*exec\s' && getline(l - 1) =~ '^\s*#.*\\$'
1773     " Found an "exec" line after a comment with continuation
1886   for line in config_lines
1887     if line =~ s:ft_rules_udev_rules_pattern
1888       let udev_rules = substitute(line, s:ft_rules_udev_rules_pattern, '\1', "")
1972 " If the first line starts with '#' and contains 'perl' it's probably a Perl
2023 " 1. Check the first line of the file for "%&<format>".
2037     " Save position, go to the top of the file, find first non-comment line.
2238   while n < 100 && n < line("$")
2239     let line = getline(n)
2240     if line =~ '<!DOCTYPE.*DocBook'
2245     if line =~ 'xmlns:xbl="http://www.mozilla.org/xbl"'
2296   while n < 100 && n < line("$")
2297     let line = getline(n)
2298     if line =~ '^\s*%'