1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
" Vim syntax file
" Language: Expect
" Maintainer: Ralph Jennings <knowbudy@oro.net>
" Last Change: 2012 Jun 01
" (Dominique Pelle added @Spell)
" quit when a syntax file was already loaded
if exists("b:current_syntax")
finish
endif
" Reserved Expect variable prefixes.
syn match expectVariables "\$exp[a-zA-Z0-9_]*\|\$inter[a-zA-Z0-9_]*"
syn match expectVariables "\$spawn[a-zA-Z0-9_]*\|\$timeout[a-zA-Z0-9_]*"
" Normal Expect variables.
syn match expectVariables "\$env([^)]*)"
syn match expectVariables "\$any_spawn_id\|\$argc\|\$argv\d*"
syn match expectVariables "\$user_spawn_id\|\$spawn_id\|\$timeout"
" Expect variable arrays.
syn match expectVariables "\$\(expect\|interact\)_out([^)]*)" contains=expectOutVar
" User defined variables.
syn match expectVariables "\$[a-zA-Z_][a-zA-Z0-9_]*"
" Reserved Expect command prefixes.
syn match expectCommand "exp_[a-zA-Z0-9_]*"
" Normal Expect commands.
syn keyword expectStatement close debug disconnect
syn keyword expectStatement exit exp_continue exp_internal exp_open
syn keyword expectStatement exp_pid exp_version
syn keyword expectStatement fork inter_return interpreter
syn keyword expectStatement log_file log_user match_max overlay
syn keyword expectStatement parity remove_nulls return
syn keyword expectStatement send send_error send_log send_user
syn keyword expectStatement sleep spawn strace stty system
syn keyword expectStatement timestamp trace trap wait
" Tcl commands recognized and used by Expect.
syn keyword expectCommand proc
syn keyword expectConditional if else
syn keyword expectRepeat while for foreach
" Expect commands with special arguments.
syn keyword expectStatement expect expect_after expect_background nextgroup=expectExpectOpts
syn keyword expectStatement expect_before expect_user interact nextgroup=expectExpectOpts
syn match expectSpecial contained "\\."
" Options for "expect", "expect_after", "expect_background",
" "expect_before", "expect_user", and "interact".
syn keyword expectExpectOpts default eof full_buffer null return timeout
syn keyword expectOutVar contained spawn_id seconds seconds_total
syn keyword expectOutVar contained string start end buffer
" Numbers (Tcl style).
syn case ignore
syn match expectNumber "\<\d\+\(u\=l\=\|lu\|f\)\>"
"floating point number, with dot, optional exponent
syn match expectNumber "\<\d\+\.\d*\(e[-+]\=\d\+\)\=[fl]\=\>"
"floating point number, starting with a dot, optional exponent
syn match expectNumber "\.\d\+\(e[-+]\=\d\+\)\=[fl]\=\>"
"floating point number, without dot, with exponent
syn match expectNumber "\<\d\+e[-+]\=\d\+[fl]\=\>"
"hex number
syn match expectNumber "0x[0-9a-f]\+\(u\=l\=\|lu\)\>"
"syn match expectIdentifier "\<[a-z_][a-z0-9_]*\>"
syn case match
syn region expectString start=+"+ end=+"+ contains=@Spell,expectVariables,expectSpecial
" Are these really comments in Expect? (I never use it, so I'm just guessing).
syn keyword expectTodo contained TODO
syn match expectComment "#.*$" contains=@Spell,expectTodo
syn match expectSharpBang "\%^#!.*"
" Define the default highlighting.
" Only when an item doesn't have highlighting yet
command -nargs=+ HiLink hi def link <args>
HiLink expectSharpBang PreProc
HiLink expectVariables Special
HiLink expectCommand Function
HiLink expectStatement Statement
HiLink expectConditional Conditional
HiLink expectRepeat Repeat
HiLink expectExpectOpts Keyword
HiLink expectOutVar Special
HiLink expectSpecial Special
HiLink expectNumber Number
HiLink expectString String
HiLink expectComment Comment
HiLink expectTodo Todo
"HiLink expectIdentifier Identifier
delcommand HiLink
let b:current_syntax = "expect"
" vim: ts=8
|
