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
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
|
" Vim syntax file
" Language: Jess
" Maintainer: Paul Baleme <pbaleme@mail.com>
" Last change: September 14, 2000
" Based on lisp.vim by : Dr. Charles E. Campbell, Jr.
" For version 5.x: Clear all syntax items
" For version 6.x: Quit when a syntax file was already loaded
if version < 600
syntax clear
elseif exists("b:current_syntax")
finish
endif
if version < 600
set iskeyword=42,43,45,47-58,60-62,64-90,97-122,_
else
setlocal iskeyword=42,43,45,47-58,60-62,64-90,97-122,_
endif
" Lists
syn match jessSymbol ![^()'`,"; \t]\+! contained
syn match jessBarSymbol !|..\{-}|! contained
syn region jessList matchgroup=Delimiter start="(" skip="|.\{-}|" matchgroup=Delimiter end=")" contains=jessAtom,jessBQList,jessConcat,jessDeclaration,jessList,jessNumber,jessSymbol,jessSpecial,jessFunc,jessKey,jessAtomMark,jessString,jessComment,jessBarSymbol,jessAtomBarSymbol,jessVar
syn region jessBQList matchgroup=PreProc start="`(" skip="|.\{-}|" matchgroup=PreProc end=")" contains=jessAtom,jessBQList,jessConcat,jessDeclaration,jessList,jessNumber,jessSpecial,jessSymbol,jessFunc,jessKey,jessVar,jessAtomMark,jessString,jessComment,jessBarSymbol,jessAtomBarSymbol
" Atoms
syn match jessAtomMark "'"
syn match jessAtom "'("me=e-1 contains=jessAtomMark nextgroup=jessAtomList
syn match jessAtom "'[^ \t()]\+" contains=jessAtomMark
syn match jessAtomBarSymbol !'|..\{-}|! contains=jessAtomMark
syn region jessAtom start=+'"+ skip=+\\"+ end=+"+
syn region jessAtomList matchgroup=Special start="(" skip="|.\{-}|" matchgroup=Special end=")" contained contains=jessAtomList,jessAtomNmbr0,jessString,jessComment,jessAtomBarSymbol
syn match jessAtomNmbr "\<[0-9]\+" contained
" Standard jess Functions and Macros
syn keyword jessFunc * + ** - / < > <= >= <> =
syn keyword jessFunc long longp
syn keyword jessFunc abs agenda and
syn keyword jessFunc assert assert-string bag
syn keyword jessFunc batch bind bit-and
syn keyword jessFunc bit-not bit-or bload
syn keyword jessFunc bsave build call
syn keyword jessFunc clear clear-storage close
syn keyword jessFunc complement$ context count-query-results
syn keyword jessFunc create$
syn keyword jessFunc delete$ div
syn keyword jessFunc do-backward-chaining e
syn keyword jessFunc engine eq eq*
syn keyword jessFunc eval evenp exit
syn keyword jessFunc exp explode$ external-addressp
syn keyword jessFunc fact-slot-value facts fetch
syn keyword jessFunc first$ float floatp
syn keyword jessFunc foreach format gensym*
syn keyword jessFunc get get-fact-duplication
syn keyword jessFunc get-member get-multithreaded-io
syn keyword jessFunc get-reset-globals get-salience-evaluation
syn keyword jessFunc halt if implode$
syn keyword jessFunc import insert$ integer
syn keyword jessFunc integerp intersection$ jess-version-number
syn keyword jessFunc jess-version-string length$
syn keyword jessFunc lexemep list-function$ load-facts
syn keyword jessFunc load-function load-package log
syn keyword jessFunc log10 lowcase matches
syn keyword jessFunc max member$ min
syn keyword jessFunc mod modify multifieldp
syn keyword jessFunc neq new not
syn keyword jessFunc nth$ numberp oddp
syn keyword jessFunc open or pi
syn keyword jessFunc ppdeffunction ppdefglobal ddpefrule
syn keyword jessFunc printout random read
syn keyword jessFunc readline replace$ reset
syn keyword jessFunc rest$ retract retract-string
syn keyword jessFunc return round rules
syn keyword jessFunc run run-query run-until-halt
syn keyword jessFunc save-facts set set-fact-duplication
syn keyword jessFunc set-factory set-member set-multithreaded-io
syn keyword jessFunc set-node-index-hash set-reset-globals
syn keyword jessFunc set-salience-evaluation set-strategy
syn keyword jessFunc setgen show-deffacts show-deftemplates
syn keyword jessFunc show-jess-listeners socket
syn keyword jessFunc sqrt store str-cat
syn keyword jessFunc str-compare str-index str-length
syn keyword jessFunc stringp sub-string subseq$
syn keyword jessFunc subsetp sym-cat symbolp
syn keyword jessFunc system throw time
syn keyword jessFunc try undefadvice undefinstance
syn keyword jessFunc undefrule union$ unwatch
syn keyword jessFunc upcase view watch
syn keyword jessFunc while
syn match jessFunc "\<c[ad]\+r\>"
" jess Keywords (modifiers)
syn keyword jessKey defglobal deffunction defrule
syn keyword jessKey deffacts
syn keyword jessKey defadvice defclass definstance
" Standard jess Variables
syn region jessVar start="?" end="[^a-zA-Z0-9]"me=e-1
" Strings
syn region jessString start=+"+ skip=+\\"+ end=+"+
" Shared with Declarations, Macros, Functions
"syn keyword jessDeclaration
syn match jessNumber "[0-9]\+"
syn match jessSpecial "\*[a-zA-Z_][a-zA-Z_0-9-]*\*"
syn match jessSpecial !#|[^()'`,"; \t]\+|#!
syn match jessSpecial !#x[0-9a-fA-F]\+!
syn match jessSpecial !#o[0-7]\+!
syn match jessSpecial !#b[01]\+!
syn match jessSpecial !#\\[ -\~]!
syn match jessSpecial !#[':][^()'`,"; \t]\+!
syn match jessSpecial !#([^()'`,"; \t]\+)!
syn match jessConcat "\s\.\s"
syntax match jessParenError ")"
" Comments
syn match jessComment ";.*$"
" synchronization
syn sync lines=100
" Define the default highlighting.
" For version 5.7 and earlier: only when not done already
" For version 5.8 and later: only when an item doesn't have highlighting yet
if version >= 508 || !exists("did_jess_syntax_inits")
if version < 508
let did_jess_syntax_inits = 1
command -nargs=+ HiLink hi link <args>
else
command -nargs=+ HiLink hi def link <args>
endif
HiLink jessAtomNmbr jessNumber
HiLink jessAtomMark jessMark
HiLink jessAtom Identifier
HiLink jessAtomBarSymbol Special
HiLink jessBarSymbol Special
HiLink jessComment Comment
HiLink jessConcat Statement
HiLink jessDeclaration Statement
HiLink jessFunc Statement
HiLink jessKey Type
HiLink jessMark Delimiter
HiLink jessNumber Number
HiLink jessParenError Error
HiLink jessSpecial Type
HiLink jessString String
HiLink jessVar Identifier
delcommand HiLink
endif
let b:current_syntax = "jess"
" vim: ts=18
|
