| Bram Moolenaar | 071d427 | 2004-06-13 20:20:40 +0000 | [diff] [blame] | 1 | " Vim syntax file |
| 2 | " Language: printcap/termcap database |
| 3 | " Maintainer: Haakon Riiser <hakonrk@fys.uio.no> |
| 4 | " URL: http://folk.uio.no/hakonrk/vim/syntax/ptcap.vim |
| 5 | " Last Change: 2001 May 15 |
| 6 | |
| 7 | " For version 5.x: Clear all syntax items |
| 8 | " For version 6.x: Quit when a syntax file was already loaded |
| 9 | if version < 600 |
| 10 | syn clear |
| 11 | elseif exists("b:current_syntax") |
| 12 | finish |
| 13 | endif |
| 14 | |
| 15 | " Since I only highlight based on the structure of the databases, not |
| 16 | " specific keywords, case sensitivity isn't required |
| 17 | syn case ignore |
| 18 | |
| 19 | " Since everything that is not caught by the syntax patterns is assumed |
| 20 | " to be an error, we start parsing 20 lines up, unless something else |
| 21 | " is specified |
| 22 | if exists("ptcap_minlines") |
| 23 | exe "syn sync lines=".ptcap_minlines |
| 24 | else |
| 25 | syn sync lines=20 |
| 26 | endif |
| 27 | |
| 28 | " Highlight everything that isn't caught by the rules as errors, |
| 29 | " except blank lines |
| 30 | syn match ptcapError "^.*\S.*$" |
| 31 | |
| 32 | syn match ptcapLeadBlank "^\s\+" contained |
| 33 | |
| 34 | " `:' and `|' are delimiters for fields and names, and should not be |
| 35 | " highlighted. Hence, they are linked to `NONE' |
| 36 | syn match ptcapDelimiter "[:|]" contained |
| 37 | |
| 38 | " Escaped characters receive special highlighting |
| 39 | syn match ptcapEscapedChar "\\." contained |
| 40 | syn match ptcapEscapedChar "\^." contained |
| 41 | syn match ptcapEscapedChar "\\\o\{3}" contained |
| 42 | |
| 43 | " A backslash at the end of a line will suppress the newline |
| 44 | syn match ptcapLineCont "\\$" contained |
| 45 | |
| 46 | " A number follows the same rules as an integer in C |
| 47 | syn match ptcapNumber "#\(+\|-\)\=\d\+"lc=1 contained |
| 48 | syn match ptcapNumberError "#\d*[^[:digit:]:\\]"lc=1 contained |
| 49 | syn match ptcapNumber "#0x\x\{1,8}"lc=1 contained |
| 50 | syn match ptcapNumberError "#0x\X"me=e-1,lc=1 contained |
| 51 | syn match ptcapNumberError "#0x\x\{9}"lc=1 contained |
| 52 | syn match ptcapNumberError "#0x\x*[^[:xdigit:]:\\]"lc=1 contained |
| 53 | |
| 54 | " The `@' operator clears a flag (i.e., sets it to zero) |
| 55 | " The `#' operator assigns a following number to the flag |
| 56 | " The `=' operator assigns a string to the preceding flag |
| 57 | syn match ptcapOperator "[@#=]" contained |
| 58 | |
| 59 | " Some terminal capabilites have special names like `#5' and `@1', and we |
| 60 | " need special rules to match these properly |
| 61 | syn match ptcapSpecialCap "\W[#@]\d" contains=ptcapDelimiter contained |
| 62 | |
| 63 | " If editing a termcap file, an entry in the database is terminated by |
| 64 | " a (non-escaped) newline. Otherwise, it is terminated by a line which |
| 65 | " does not start with a colon (:) |
| 66 | if exists("b:ptcap_type") && b:ptcap_type[0] == 't' |
| 67 | syn region ptcapEntry start="^\s*[^[:space:]:]" end="[^\\]\(\\\\\)*$" end="^$" contains=ptcapNames,ptcapField,ptcapLeadBlank keepend |
| 68 | else |
| 69 | syn region ptcapEntry start="^\s*[^[:space:]:]"me=e-1 end="^\s*[^[:space:]:#]"me=e-1 contains=ptcapNames,ptcapField,ptcapLeadBlank,ptcapComment |
| 70 | endif |
| 71 | syn region ptcapNames start="^\s*[^[:space:]:]" skip="[^\\]\(\\\\\)*\\:" end=":"me=e-1 contains=ptcapDelimiter,ptcapEscapedChar,ptcapLineCont,ptcapLeadBlank,ptcapComment keepend contained |
| 72 | syn region ptcapField start=":" skip="[^\\]\(\\\\\)*\\$" end="[^\\]\(\\\\\)*:"me=e-1 end="$" contains=ptcapDelimiter,ptcapString,ptcapNumber,ptcapNumberError,ptcapOperator,ptcapLineCont,ptcapSpecialCap,ptcapLeadBlank,ptcapComment keepend contained |
| 73 | syn region ptcapString matchgroup=ptcapOperator start="=" skip="[^\\]\(\\\\\)*\\:" matchgroup=ptcapDelimiter end=":"me=e-1 matchgroup=NONE end="[^\\]\(\\\\\)*[^\\]$" end="^$" contains=ptcapEscapedChar,ptcapLineCont keepend contained |
| 74 | syn region ptcapComment start="^\s*#" end="$" contains=ptcapLeadBlank |
| 75 | |
| 76 | if version >= 508 || !exists("did_ptcap_syntax_inits") |
| 77 | if version < 508 |
| 78 | let did_ptcap_syntax_inits = 1 |
| 79 | command -nargs=+ HiLink hi link <args> |
| 80 | else |
| 81 | command -nargs=+ HiLink hi def link <args> |
| 82 | endif |
| 83 | |
| 84 | HiLink ptcapComment Comment |
| 85 | HiLink ptcapDelimiter Delimiter |
| 86 | " The highlighting of "ptcapEntry" should always be overridden by |
| 87 | " its contents, so I use Todo highlighting to indicate that there |
| 88 | " is work to be done with the syntax file if you can see it :-) |
| 89 | HiLink ptcapEntry Todo |
| 90 | HiLink ptcapError Error |
| 91 | HiLink ptcapEscapedChar SpecialChar |
| 92 | HiLink ptcapField Type |
| 93 | HiLink ptcapLeadBlank NONE |
| 94 | HiLink ptcapLineCont Special |
| 95 | HiLink ptcapNames Label |
| 96 | HiLink ptcapNumber NONE |
| 97 | HiLink ptcapNumberError Error |
| 98 | HiLink ptcapOperator Operator |
| 99 | HiLink ptcapSpecialCap Type |
| 100 | HiLink ptcapString NONE |
| 101 | |
| 102 | delcommand HiLink |
| 103 | endif |
| 104 | |
| 105 | let b:current_syntax = "ptcap" |
| 106 | |
| 107 | " vim: sts=4 sw=4 ts=8 |