updated for version 7.0g01

1 files changed, 51 insertions, 43 deletions

diff --git a/runtime/syntax/snobol4.vim b/runtime/syntax/snobol4.vim
index d5475e5e7..1f6460f1f 100644
--- a/runtime/syntax/snobol4.vim
+++ b/runtime/syntax/snobol4.vim
@@ -1,7 +1,10 @@
 " Vim syntax file
 " Language:     SNOBOL4
 " Maintainer:   Rafal Sulejman <rms@poczta.onet.pl>
-" Last change:  2004 May 16
+" Site: http://rms.republika.pl/vim/syntax/snobol4.vim
+" Last change:  2006 may 1
+" Changes: 
+" - nonexistent Snobol4 keywords displayed as errors.
 
 " For version 5.x: Clear all syntax items
 " For version 6.x: Quit when a syntax file was already loaded
@@ -13,48 +16,49 @@ endif
 
 syntax case ignore
 " Vanilla Snobol4 keywords
-syn keyword	snobol4Keywoard   any apply arb arbno arg array
-syn keyword	snobol4Keywoard   break
-syn keyword	snobol4Keywoard   char clear code collect convert copy
-syn keyword	snobol4Keywoard   data datatype date define detach differ dump dupl
-syn keyword	snobol4Keywoard   endfile eq eval
-syn keyword	snobol4Keywoard   field
-syn keyword	snobol4Keywoard   ge gt ident
-syn keyword	snobol4Keywoard   input integer item
-syn keyword	snobol4Keywoard   le len lgt local lpad lt
-syn keyword	snobol4Keywoard   ne notany
-syn keyword	snobol4Keywoard   opsyn output
-syn keyword	snobol4Keywoard   pos prototype
-syn keyword	snobol4Keywoard   remdr replace rpad rpos rtab
-syn keyword	snobol4Keywoard   size span stoptr
-syn keyword	snobol4Keywoard   tab table time trace trim
-syn keyword	snobol4Keywoard   unload
-syn keyword	snobol4Keywoard   value
+syn keyword     snobol4Keyword   any apply arb arbno arg array
+syn keyword     snobol4Keyword   break
+syn keyword     snobol4Keyword   char clear code collect convert copy
+syn keyword     snobol4Keyword   data datatype date define detach differ dump dupl
+syn keyword     snobol4Keyword   endfile eq eval
+syn keyword     snobol4Keyword   field
+syn keyword     snobol4Keyword   ge gt ident
+syn keyword     snobol4Keyword   input integer item
+syn keyword     snobol4Keyword   le len lgt local lpad lt
+syn keyword     snobol4Keyword   ne notany
+syn keyword     snobol4Keyword   opsyn output
+syn keyword     snobol4Keyword   pos prototype
+syn keyword     snobol4Keyword   remdr replace rpad rpos rtab
+syn keyword     snobol4Keyword   size span stoptr
+syn keyword     snobol4Keyword   tab table time trace trim terminal
+syn keyword     snobol4Keyword   unload
+syn keyword     snobol4Keyword   value
 " Spitbol keywords
 " CSNOBOL keywords
-syn keyword	snobol4Keywoard   sset
+syn keyword     snobol4Keyword   sset
 
 syn region      snobol4String       matchgroup=Quote start=+"+ skip=+\\"+ end=+"+
 syn region      snobol4String       matchgroup=Quote start=+'+ skip=+\\'+ end=+'+
-syn match       snobol4Label        "^[^- \t][^ \t]*"
 syn match       snobol4Statement    "^-[^ ][^ ]*"
-syn match       snobol4Comment      "^*.*$"
-syn match       Constant            "\.[a-z][a-z0-9\-]*"
-"syn match       snobol4Label        ":\([sf]*([^)]*)\)*" contains=ALLBUT,snobol4ParenError
-syn region       snobol4Label        start=":(" end=")" contains=ALLBUT,snobol4ParenError
-syn region       snobol4Label        start=":f(" end=")" contains=ALLBUT,snobol4ParenError
-syn region       snobol4Label        start=":s(" end=")" contains=ALLBUT,snobol4ParenError
-syn match       snobol4Number       "\<\d*\(\.\d\d*\)*\>"
+syn match       snobol4Comment      "^\*.*$"
+syn match       snobol4Comment      ";\*.*$"
+syn match       snobol4Constant     "[^a-z]\.[a-z][a-z0-9\-]*"
+syn region      snobol4Goto        start=":[sf]\{0,1}(" end=")\|$\|;" contains=ALLBUT,snobol4ParenError
+syn match       snobol4Number       "\<\d*\(\.\d\d*\)*\>" 
+syn match       snobol4BogusSysVar       "&\w\{1,}"
+syn match       snobol4SysVar       "&\(abort\|alphabet\|anchor\|arb\|bal\|case\|code\|dump\|errlimit\|errtext\|errtype\|fail\|fence\|fnclevel\|ftrace\|fullscan\|input\|lastno\|lcase\|maxlngth\|output\|parm\|rem\|rtntype\|stcount\|stfcount\|stlimit\|stno\|succeed\|trace\|trim\|ucase\)"
+syn match       snobol4Label        "^[^-\.\+ \t]\S\{1,}"
+"
 " Parens matching
 syn cluster     snobol4ParenGroup   contains=snobol4ParenError
 syn region      snobol4Paren        transparent start='(' end=')' contains=ALLBUT,@snobol4ParenGroup,snobol4ErrInBracket
 syn match       snobol4ParenError   display "[\])]"
 syn match       snobol4ErrInParen   display contained "[\]{}]\|<%\|%>"
 syn region      snobol4Bracket      transparent start='\[\|<:' end=']\|:>' contains=ALLBUT,@snobol4ParenGroup,snobol4ErrInParen
-syn match       snobol4ErrInBracket display contained "[);{}]\|<%\|%>"
+syn match       snobol4ErrInBracket display contained "[){}]\|<%\|%>"
 
 " optional shell shebang line
-syn match	snobol4Comment    "^\#\!.*$"
+syn match       snobol4Comment    "^\#\!.*$"
 
 
 " Define the default highlighting.
@@ -68,23 +72,27 @@ if version >= 508 || !exists("did_snobol4_syntax_inits")
     command -nargs=+ HiLink hi def link <args>
   endif
 
-  HiLink snobol4Label		Label
-  HiLink snobol4Conditional	Conditional
-  HiLink snobol4Repeat		Repeat
-  HiLink snobol4Number		Number
-  HiLink snobol4Error		Error
-  HiLink snobol4Statement	PreProc
-  HiLink snobol4String		String
-  HiLink snobol4Comment		Comment
-  HiLink snobol4Special		Special
-  HiLink snobol4Todo		Todo
-  HiLink snobol4Keyword		Statement
-  HiLink snobol4Function	Statement
-  HiLink snobol4Keyword		Keyword
-  HiLink snobol4MathsOperator	Operator
+  HiLink snobol4Constant        Constant
+  HiLink snobol4Label           Label
+  HiLink snobol4Goto            Repeat
+  HiLink snobol4Conditional     Conditional
+  HiLink snobol4Repeat          Repeat
+  HiLink snobol4Number          Number
+  HiLink snobol4Error           Error
+  HiLink snobol4Statement       PreProc
+  HiLink snobol4String          String
+  HiLink snobol4Comment         Comment
+  HiLink snobol4Special         Special
+  HiLink snobol4Todo            Todo
+  HiLink snobol4Keyword         Statement
+  HiLink snobol4Function        Statement
+  HiLink snobol4Keyword         Keyword
+  HiLink snobol4MathsOperator   Operator
   HiLink snobol4ParenError      snobol4Error
   HiLink snobol4ErrInParen      snobol4Error
   HiLink snobol4ErrInBracket    snobol4Error
+  HiLink snobol4SysVar          Keyword
+  HiLink snobol4BogusSysVar     snobol4Error
 
   delcommand HiLink
 endif