Merged from the latest developing branch.
[MacVim/KaoriYa.git] / runtime / syntax / tsalt.vim
blob56f17558b71d4e6da7e84d094a6e420611524f1e
1 " Vim syntax file
2 " Language:     Telix (Modem Comm Program) SALT Script
3 " Maintainer:   Sean M. McKee <mckee@misslink.net>
4 " Last Change:  2001 May 09
5 " Version Info: @(#)tsalt.vim   1.5     97/12/16 08:11:15
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   syntax clear
11 elseif exists("b:current_syntax")
12   finish
13 endif
15 " turn case matching off
16 syn case ignore
18 "FUNCTIONS
19 " Character Handling Functions
20 syn keyword tsaltFunction       IsAscii IsAlNum IsAlpha IsCntrl IsDigit
21 syn keyword tsaltFunction       IsLower IsUpper ToLower ToUpper
23 " Connect Device Operations
24 syn keyword tsaltFunction       Carrier cInp_Cnt cGetC cGetCT cPutC cPutN
25 syn keyword tsaltFunction       cPutS cPutS_TR FlushBuf Get_Baud
26 syn keyword tsaltFunction       Get_DataB Get_Port Get_StopB Hangup
27 syn keyword tsaltFunction       KillConnectDevice MakeConnectDevice
28 syn keyword tsaltFunction       Send_Brk Set_ConnectDevice Set_Port
30 " File Input/Output Operations
31 syn keyword tsaltFunction       fClearErr fClose fDelete fError fEOF fFlush
32 syn keyword tsaltFunction       fGetC fGetS FileAttr FileFind FileSize
33 syn keyword tsaltFunction       FileTime fnStrip fOpen fPutC fPutS fRead
34 syn keyword tsaltFunction       fRename fSeek fTell fWrite
36 " File Transfers and Logs
37 syn keyword tsaltFunction       Capture Capture_Stat Printer Receive Send
38 syn keyword tsaltFunction       Set_DefProt UsageLog Usage_Stat UStamp
40 " Input String Matching
41 syn keyword tsaltFunction       Track Track_AddChr Track_Free Track_Hit
42 syn keyword tsaltFunction       WaitFor
44 " Keyboard Operations
45 syn keyword tsaltFunction       InKey InKeyW KeyGet KeyLoad KeySave KeySet
47 " Miscellaneous Functions
48 syn keyword tsaltFunction       ChatMode Dos Dial DosFunction ExitTelix
49 syn keyword tsaltFunction       GetEnv GetFon HelpScreen LoadFon NewDir
50 syn keyword tsaltFunction       Randon Redial RedirectDOS Run
51 syn keyword tsaltFunction       Set_Terminal Show_Directory TelixVersion
52 syn keyword tsaltFunction       Terminal TransTab Update_Term
54 " Script Management
55 syn keyword tsaltFunction       ArgCount Call CallD CompileScript GetRunPath
56 syn keyword tsaltFunction       Is_Loaded Load_Scr ScriptVersion
57 syn keyword tsaltFunction       TelixForWindows Unload_Scr
59 " Sound Functions
60 syn keyword tsaltFunction       Alarm PlayWave Tone
62 " String Handling
63 syn keyword tsaltFunction       CopyChrs CopyStr DelChrs GetS GetSXY
64 syn keyword tsaltFunction       InputBox InsChrs ItoS SetChr StoI StrCat
65 syn keyword tsaltFunction       StrChr StrCompI StrLen StrLower StrMaxLen
66 syn keyword tsaltFunction       StrPos StrPosI StrUpper SubChr SubChrs
67 syn keyword tsaltFunction       SubStr
69 " Time, Date, and Timer Operations
70 syn keyword tsaltFunction       CurTime Date Delay Delay_Scr Get_OnlineTime
71 syn keyword tsaltFunction       tDay tHour tMin tMonth tSec tYear Time
72 syn keyword tsaltFunction       Time_Up Timer_Free Time_Restart
73 syn keyword tsaltFunction       Time_Start Time_Total
75 " Video Operations
76 syn keyword tsaltFunction       Box CNewLine Cursor_OnOff Clear_Scr
77 syn keyword tsaltFunction       GetTermHeight GetTermWidth GetX GetY
78 syn keyword tsaltFunction       GotoXY MsgBox NewLine PrintC PrintC_Trm
79 syn keyword tsaltFunction       PrintN PrintN_Trm PrintS PrintS_Trm
80 syn keyword tsaltFunction       PrintSC PRintSC_Trm
81 syn keyword tsaltFunction       PStrA PStrAXY Scroll Status_Wind vGetChr
82 syn keyword tsaltFunction       vGetChrs vGetChrsA  vPutChr vPutChrs
83 syn keyword tsaltFunction       vPutChrsA vRstrArea vSaveArea
85 " Dynamic Data Exchange (DDE) Operations
86 syn keyword tsaltFunction       DDEExecute DDEInitate DDEPoke DDERequest
87 syn keyword tsaltFunction       DDETerminate DDETerminateAll
88 "END FUNCTIONS
90 "PREDEFINED VARAIABLES
91 syn keyword tsaltSysVar _add_lf _alarm_on _answerback_str _asc_rcrtrans
92 syn keyword tsaltSysVar _asc_remabort _asc_rlftrans _asc_scpacing
93 syn keyword tsaltSysVar _asc_scrtrans _asc_secho _asc_slpacing
94 syn keyword tsaltSysVar _asc_spacechr _asc_striph _back_color
95 syn keyword tsaltSysVar _capture_fname _connect_str _dest_bs
96 syn keyword tsaltSysVar _dial_pause _dial_time _dial_post
97 syn keyword tsaltSysVar _dial_pref1 _dial_pref2 _dial_pref3
98 syn keyword tsaltSysVar _dial_pref4 _dir_prog _down_dir
99 syn keyword tsaltSysVar _entry_bbstype _entry_comment _entry_enum
100 syn keyword tsaltSysVar _entry_name _entry_num _entry_logonname
101 syn keyword tsaltSysVar _entry_pass _fore_color _image_file
102 syn keyword tsaltSysVar _local_echo _mdm_hang_str _mdm_init_str
103 syn keyword tsaltSysVar _no_connect1 _no_connect2 _no_connect3
104 syn keyword tsaltSysVar _no_connect4 _no_connect5 _redial_stop
105 syn keyword tsaltSysVar _scr_chk_key _script_dir _sound_on
106 syn keyword tsaltSysVar _strip_high _swap_bs _telix_dir _up_dir
107 syn keyword tsaltSysVar _usage_fname _zmodauto _zmod_rcrash
108 syn keyword tsaltSysVar _zmod_scrash
109 "END PREDEFINED VARAIABLES
111 "TYPE
112 syn keyword tsaltType   str int
113 "END TYPE
115 "KEYWORDS
116 syn keyword tsaltStatement      goto break return continue
117 syn keyword tsaltConditional    if then else
118 syn keyword tsaltRepeat         while for do
119 "END KEYWORDS
121 syn keyword tsaltTodo contained TODO
123 " the rest is pretty close to C -----------------------------------------
125 " String and Character constants
126 " Highlight special characters (those which have a backslash) differently
127 syn match tsaltSpecial          contained "\^\d\d\d\|\^."
128 syn region tsaltString          start=+"+  skip=+\\\\\|\\"+  end=+"+  contains=tsaltSpecial
129 syn match tsaltCharacter        "'[^\\]'"
130 syn match tsaltSpecialCharacter "'\\.'"
132 "catch errors caused by wrong parenthesis
133 syn region tsaltParen           transparent start='(' end=')' contains=ALLBUT,tsaltParenError,tsaltIncluded,tsaltSpecial,tsaltTodo
134 syn match tsaltParenError               ")"
135 syn match tsaltInParen          contained "[{}]"
137 hi link tsaltParenError         tsaltError
138 hi link tsaltInParen            tsaltError
140 "integer number, or floating point number without a dot and with "f".
141 syn match  tsaltNumber          "\<\d\+\(u\=l\=\|lu\|f\)\>"
142 "floating point number, with dot, optional exponent
143 syn match  tsaltFloat           "\<\d\+\.\d*\(e[-+]\=\d\+\)\=[fl]\=\>"
144 "floating point number, starting with a dot, optional exponent
145 syn match  tsaltFloat           "\.\d\+\(e[-+]\=\d\+\)\=[fl]\=\>"
146 "floating point number, without dot, with exponent
147 syn match  tsaltFloat           "\<\d\+e[-+]\=\d\+[fl]\=\>"
148 "hex number
149 syn match  tsaltNumber          "0x[0-9a-f]\+\(u\=l\=\|lu\)\>"
150 "syn match  cIdentifier "\<[a-z_][a-z0-9_]*\>"
152 syn region tsaltComment         start="/\*"  end="\*/" contains=cTodo
153 syn match  tsaltComment         "//.*" contains=cTodo
154 syn match  tsaltCommentError    "\*/"
156 syn region tsaltPreCondit       start="^[ \t]*#[ \t]*\(if\>\|ifdef\>\|ifndef\>\|elif\>\|else\>\|endif\>\)"  skip="\\$"  end="$" contains=tsaltComment,tsaltString,tsaltCharacter,tsaltNumber,tsaltCommentError
157 syn region tsaltIncluded        contained start=+"+  skip=+\\\\\|\\"+  end=+"+
158 syn match  tsaltIncluded        contained "<[^>]*>"
159 syn match  tsaltInclude         "^[ \t]*#[ \t]*include\>[ \t]*["<]" contains=tsaltIncluded
160 "syn match  TelixSalyLineSkip   "\\$"
161 syn region tsaltDefine          start="^[ \t]*#[ \t]*\(define\>\|undef\>\)" skip="\\$" end="$" contains=ALLBUT,tsaltPreCondit,tsaltIncluded,tsaltInclude,tsaltDefine,tsaltInParen
162 syn region tsaltPreProc         start="^[ \t]*#[ \t]*\(pragma\>\|line\>\|warning\>\|warn\>\|error\>\)" skip="\\$" end="$" contains=ALLBUT,tsaltPreCondit,tsaltIncluded,tsaltInclude,tsaltDefine,tsaltInParen
164 " Highlight User Labels
165 syn region tsaltMulti   transparent start='?' end=':' contains=ALLBUT,tsaltIncluded,tsaltSpecial,tsaltTodo
167 syn sync ccomment tsaltComment
170 " Define the default highlighting.
171 " For version 5.7 and earlier: only when not done already
172 " For version 5.8 and later: only when an item doesn't have highlighting yet
173 if version >= 508 || !exists("did_tsalt_syntax_inits")
174   if version < 508
175     let did_tsalt_syntax_inits = 1
176     command -nargs=+ HiLink hi link <args>
177   else
178     command -nargs=+ HiLink hi def link <args>
179   endif
181         HiLink tsaltFunction            Statement
182         HiLink tsaltSysVar              Type
183         "HiLink tsaltLibFunc            UserDefFunc
184         "HiLink tsaltConstants          Type
185         "HiLink tsaltFuncArg            Type
186         "HiLink tsaltOperator           Operator
187         "HiLink tsaltLabel              Label
188         "HiLink tsaltUserLabel          Label
189         HiLink tsaltConditional         Conditional
190         HiLink tsaltRepeat              Repeat
191         HiLink tsaltCharacter           SpecialChar
192         HiLink tsaltSpecialCharacter    SpecialChar
193         HiLink tsaltNumber              Number
194         HiLink tsaltFloat               Float
195         HiLink tsaltCommentError        tsaltError
196         HiLink tsaltInclude             Include
197         HiLink tsaltPreProc             PreProc
198         HiLink tsaltDefine              Macro
199         HiLink tsaltIncluded            tsaltString
200         HiLink tsaltError               Error
201         HiLink tsaltStatement           Statement
202         HiLink tsaltPreCondit           PreCondit
203         HiLink tsaltType                Type
204         HiLink tsaltString              String
205         HiLink tsaltComment             Comment
206         HiLink tsaltSpecial             Special
207         HiLink tsaltTodo                Todo
209   delcommand HiLink
210 endif
212 let b:current_syntax = "tsalt"
214 " vim: ts=8