runtime/syntax/jess.vim

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