" Vim syntax file
" Language:	StoryServer
" Maintainer:	Hans Fugal <hans at fugal.net>
" URL:		http://fugal.net/vim/syntax/storyserver.vim
" Last Change:	$Date: 2002/08/26 18:49:13 $
" Version:	1.1 (alpha)

" Remove any old syntax stuff hanging around
syn clear

if !exists("main_syntax")
  let main_syntax = 'storyserver'
endif

" source html.vim
so <sfile>:p:h/html.vim
"syn include @Tcl <sfile>:p:h/tcl.vim

syn include @SQL <sfile>:p:h/sql.vim
syn cluster SQL remove=sqlString,sqlComment add=ssTop

syn cluster htmlPreproc add=ssTop,ssComment

" ssTop
syn region ssTop matchgroup=Delimiter start=+[^\\]\[+lc=1 start=/^\[/ end=+\]+ contains=@ssStrings,ssSQL,ssTop,ssKeyword,@ssComments
hi link	ssTop Special

" comments
syn region ssComment matchgroup=Comment start=/\[#/ end=/\]/ contains=ssCommentSkip
syn region ssCommentSkip transparent start=/\[/ end=/\]/ contained contains=ssCommentSkip 
syn region tclComment start=/^\s*#\|;\s*#/hs=e end=/$/me=e-1 contained
hi link ssComment Comment
hi link tclComment Comment
syn cluster ssComments contains=ssComment,tclComment

" ssStrings
" todo: handle [IF {[SHOW a] < [SHOW b]} {<a href=link>link</a>}] correctly
syn region ssQuoteString contained start=/"/ end=/"/ contains=ssTop
syn region ssCurlyString matchgroup=ssCurlyString contained start=+{+ end=+}+ contains=@htmlTop,ssCurlyStringSkip
syn region ssCurlyStringSkip contained start=+{+ end=+}+ transparent contains=ssCurlyStringSkip
hi link ssQuoteString String
hi link ssCurlyString Normal
syn cluster ssStrings contains=ssQuoteString,ssCurlyString

" ssSQL
syn region ssSQL contained matchgroup=String start=/SQL\s\+"/ms=e end=/"/ contains=@SQL

" keywords
syn keyword ssKeyword contained ANONYMOUS_LOGIN AT_RANDOM CC_UPDATE CHECKBOX CLEAR_CACHE COMPONENT CONNECT CTIME CURL CUTTER_64-1 DATE DATE_COMPUTE DATE_FORMAT DB_DATE DECODE64 DEFAULT_ROW DEFINE DLOAD ENCODE64 ENV ERROR_TRACE EVAL FIELD FILTER FIRST FOREACH FORM GET_CHIP GET_CHOICE_LIST GET_COOKIE GET_LOGIN_INFO GET_NEXT_ID GET_PROJECT_LIST GET_COOKIE GET_LOGIN_INFO GET_NEXT_ID GET_PROJECT_LIST HTML_ESCAPE HTTP_EQUIV HTTP_REDIRECT IF IF_NSET IF_NSUPPORTS IF_PLATFORM IF_SET IF_SUPPORTS INCLUDE ITEM_DELETE ITEM_EXISTS ITEM_FETCH ITEM_INFO ITEM_INSERT ITEM_LISTBOX ITEM_SEARCH ITEM_UPDATE LINK LOCALE LOG MTIME NEEDS NULL NUMBERP NUMERIZE ON_ERROR PAD PAGE_EXPIRES PERSONALIZE PROFILE_MARK PZN_CACHE_DELETE QUOTE_SQL RADIO_GROUP RAND RECORD REGISTER_CLEANUP_PROC RESET RESET_INTERPRETER RESET_TIMEOUT RETAIN ROW_DELETE ROW_INSERT ROW_UPDATE SAVE_STATE SEARCH SELECT_LIST SENDMAIL SET SET_CHIP SET_COOKIE SHOW SOURCE SQL_FORMAT SUBMIT SUPPORTS SYSLOG TEXT TIME_ZONE URL_ESCAPE URL_UNESCAPE
syn keyword ssKeyword contained XML_ADD_CATALOG XML_COMPILE_QUERY XML_DEFINE_XLATION_MAP XML_DELETE_PERS_COLL XML_DELETE_PERS_DOC XML_DELETE_XLATION_SPEC XML_ENABLE_XLATION_MAP XML_FETCH XML_GET XML_GET_COLL_NAME XML_GET_DOC_NAME XML_GET_ELEMENT_ATTRS XML_GET_ELEMENT_ATTRVAL XML_GET_ELEMENT_BODY XML_GET_FIRST_CHILD XML_GET_LAST_PARSER_MSGS XML_GET_NEXT_RESULT_ELEMENT XML_GET_NEXT_SIBLING XML_GET_NODE_TYPE XML_GET_PARENT_ELEMENT XML_GET_PERS_COLLS_INFO XML_GET_PERS_DOCS_INFO XML_GET_PREV_SIBLING XML_PARSE_DOC XML_QUERY_DOC XML_QUERY_ELEMENT XML_QUERY_PERS_DOCS XML_RENDER XML_SAVE XML_SET_XLATION_RULE XML_USE_SGML_DECL XML_VALIDATE_DOC
syn keyword ssKeyword ASSET AUTHORIZATION CMS CMS_OBJECT CONTENT_ITEM GROUP PROGRAM_TAST PROJECT RECORD STATIC_FILE TASK TEMPLATE USER USER_TASK 
hi link ssKeyword Identifier