runtime/syntax/lpc.vim

   1 " Vim syntax file
   2 " Language:     LPC
   3 " Maintainer:   Shizhu Pan <poet@mudbuilder.net>
   4 " URL:          http://poet.tomud.com/pub/lpc.vim.bz2
   5 " Last Change:  2011 Dec 10 by Thilo Six
   6 " Comments:     If you are using Vim 6.2 or later, see :h lpc.vim for
   7 "               file type recognizing, if not, you had to use modeline.
   8
   9
  10 " Nodule: This is the start nodule. {{{1
  11
  12 " For version 5.x: Clear all syntax items
  13 " For version 6.x: Quit when a syntax file was already loaded
  14 if version < 600
  15   syntax clear
  16 elseif exists("b:current_syntax")
  17   finish
  18 endif
  19
  20 let s:cpo_save = &cpo
  21 set cpo&vim
  22
  23 " Nodule: Keywords {{{1
  24
  25 " LPC keywords
  26 " keywords should always be highlighted so "contained" is not used.
  27 syn cluster     lpcKeywdGrp     contains=lpcConditional,lpcLabel,lpcOperator,lpcRepeat,lpcStatement,lpcModifier,lpcReserved
  28
  29 syn keyword     lpcConditional  if else switch
  30 syn keyword     lpcLabel        case default
  31 syn keyword     lpcOperator     catch efun in inherit
  32 syn keyword     lpcRepeat       do for foreach while
  33 syn keyword     lpcStatement    break continue return
  34
  35 syn match       lpcEfunError    /efun[^:]/ display
  36
  37 " Illegal to use keyword as function
  38 " It's not working, maybe in the next version.
  39 syn keyword     lpcKeywdError   contained if for foreach return switch while
  40
  41 " These are keywords only because they take lvalue or type as parameter,
  42 " so these keywords should only be used as function but cannot be names of
  43 " user-defined functions.
  44 syn keyword     lpcKeywdFunc    new parse_command sscanf time_expression
  45
  46 " Nodule: Type and modifiers {{{1
  47
  48 " Type names list.
  49
  50 " Special types
  51 syn keyword     lpcType         void mixed unknown
  52 " Scalar/Value types.
  53 syn keyword     lpcType         int float string
  54 " Pointer types.
  55 syn keyword     lpcType         array buffer class function mapping object
  56 " Other types.
  57 if exists("lpc_compat_32")
  58     syn keyword     lpcType         closure status funcall
  59 else
  60     syn keyword     lpcError        closure status
  61     syn keyword     lpcType         multiset
  62 endif
  63
  64 " Type modifier.
  65 syn keyword     lpcModifier     nomask private public
  66 syn keyword     lpcModifier     varargs virtual
  67
  68 " sensible modifiers
  69 if exists("lpc_pre_v22")
  70     syn keyword lpcReserved     nosave protected ref
  71     syn keyword lpcModifier     static
  72 else
  73     syn keyword lpcError        static
  74     syn keyword lpcModifier     nosave protected ref
  75 endif
  76
  77 " Nodule: Applies {{{1
  78
  79 " Match a function declaration or function pointer
  80 syn match       lpcApplyDecl    excludenl /->\h\w*(/me=e-1 contains=lpcApplies transparent display
  81
  82 " We should note that in func_spec.c the efun definition syntax is so
  83 " complicated that I use such a long regular expression to describe.
  84 syn match       lpcLongDecl     excludenl /\(\s\|\*\)\h\+\s\h\+(/me=e-1 contains=@lpcEfunGroup,lpcType,@lpcKeywdGrp transparent display
  85
  86 " this is form for all functions
  87 " ->foo() form had been excluded
  88 syn match       lpcFuncDecl     excludenl /\h\w*(/me=e-1 contains=lpcApplies,@lpcEfunGroup,lpcKeywdError transparent display
  89
  90 " The (: :) parenthesis or $() forms a function pointer
  91 syn match       lpcFuncName     /(:\s*\h\+\s*:)/me=e-1 contains=lpcApplies,@lpcEfunGroup transparent display contained
  92 syn match       lpcFuncName     /(:\s*\h\+,/ contains=lpcApplies,@lpcEfunGroup transparent display contained
  93 syn match       lpcFuncName     /\$(\h\+)/ contains=lpcApplies,@lpcEfunGroup transparent display contained
  94
  95 " Applies list.
  96 "       system applies
  97 syn keyword     lpcApplies      contained __INIT clean_up create destructor heart_beat id init move_or_destruct reset
  98 "       interactive
  99 syn keyword     lpcApplies      contained catch_tell logon net_dead process_input receive_message receive_snoop telnet_suboption terminal_type window_size write_prompt
 100 "       master applies
 101 syn keyword     lpcApplies      contained author_file compile_object connect crash creator_file domain_file epilog error_handler flag get_bb_uid get_root_uid get_save_file_name log_error make_path_absolute object_name preload privs_file retrieve_ed_setup save_ed_setup slow_shutdown
 102 syn keyword     lpcApplies      contained valid_asm valid_bind valid_compile_to_c valid_database valid_hide valid_link valid_object valid_override valid_read valid_save_binary valid_seteuid valid_shadow valid_socket valid_write
 103 "       parsing
 104 syn keyword     lpcApplies      contained inventory_accessible inventory_visible is_living parse_command_adjectiv_id_list parse_command_adjective_id_list parse_command_all_word parse_command_id_list parse_command_plural_id_list parse_command_prepos_list parse_command_users parse_get_environment parse_get_first_inventory parse_get_next_inventory parser_error_message
 105
 106
 107 " Nodule: Efuns {{{1
 108
 109 syn cluster     lpcEfunGroup    contains=lpc_efuns,lpcOldEfuns,lpcNewEfuns,lpcKeywdFunc
 110
 111 " Compat32 efuns
 112 if exists("lpc_compat_32")
 113     syn keyword lpc_efuns       contained closurep heart_beat_info m_delete m_values m_indices query_once_interactive strstr
 114 else
 115     syn match   lpcErrFunc      /#`\h\w*/
 116     " Shell compatible first line comment.
 117     syn region  lpcCommentFunc  start=/^#!/ end=/$/
 118 endif
 119
 120 " pre-v22 efuns which are removed in newer versions.
 121 syn keyword     lpcOldEfuns     contained tail dump_socket_status
 122
 123 " new efuns after v22 should be added here!
 124 syn keyword     lpcNewEfuns     contained socket_status
 125
 126 " LPC efuns list.
 127 " DEBUG efuns Not included.
 128 " New efuns should NOT be added to this list, see v22 efuns above.
 129 " Efuns list {{{2
 130 syn keyword     lpc_efuns       contained acos add_action all_inventory all_previous_objects allocate allocate_buffer allocate_mapping apply arrayp asin atan author_stats
 131 syn keyword     lpc_efuns       contained bind break_string bufferp
 132 syn keyword     lpc_efuns       contained cache_stats call_other call_out call_out_info call_stack capitalize catch ceil check_memory children classp clear_bit clone_object clonep command commands copy cos cp crc32 crypt ctime
 133 syn keyword     lpc_efuns       contained db_close db_commit db_connect db_exec db_fetch db_rollback db_status debug_info debugmalloc debug_message deep_inherit_list deep_inventory destruct disable_commands disable_wizard domain_stats dumpallobj dump_file_descriptors dump_prog
 134 syn keyword     lpc_efuns       contained each ed ed_cmd ed_start enable_commands enable_wizard environment error errorp eval_cost evaluate exec exp explode export_uid external_start
 135 syn keyword     lpc_efuns       contained fetch_variable file_length file_name file_size filter filter_array filter_mapping find_call_out find_living find_object find_player first_inventory floatp floor flush_messages function_exists function_owner function_profile functionp functions
 136 syn keyword     lpc_efuns       contained generate_source get_char get_config get_dir geteuid getuid
 137 syn keyword     lpc_efuns       contained heart_beats
 138 syn keyword     lpc_efuns       contained id_matrix implode in_edit in_input inherit_list inherits input_to interactive intp
 139 syn keyword     lpc_efuns       contained keys
 140 syn keyword     lpc_efuns       contained link living livings load_object localtime log log10 lookat_rotate lower_case lpc_info
 141 syn keyword     lpc_efuns       contained malloc_check malloc_debug malloc_status map map_array map_delete map_mapping mapp master match_path max_eval_cost member_array memory_info memory_summary message mkdir moncontrol move_object mud_status
 142 syn keyword     lpc_efuns       contained named_livings network_stats next_bit next_inventory notify_fail nullp
 143 syn keyword     lpc_efuns       contained objectp objects oldcrypt opcprof origin
 144 syn keyword     lpc_efuns       contained parse_add_rule parse_add_synonym parse_command parse_dump parse_init parse_my_rules parse_refresh parse_remove parse_sentence pluralize pointerp pow present previous_object printf process_string process_value program_info
 145 syn keyword     lpc_efuns       contained query_ed_mode query_heart_beat query_host_name query_idle query_ip_name query_ip_number query_ip_port query_load_average query_notify_fail query_privs query_replaced_program query_shadowing query_snoop query_snooping query_verb
 146 syn keyword     lpc_efuns       contained random read_buffer read_bytes read_file receive reclaim_objects refs regexp reg_assoc reload_object remove_action remove_call_out remove_interactive remove_shadow rename repeat_string replace_program replace_string replaceable reset_eval_cost resolve restore_object restore_variable rm rmdir rotate_x rotate_y rotate_z rusage
 147 syn keyword     lpc_efuns       contained save_object save_variable say scale set_author set_bit set_eval_limit set_heart_beat set_hide set_light set_living_name set_malloc_mask set_privs set_reset set_this_player set_this_user seteuid shadow shallow_inherit_list shout shutdown sin sizeof snoop socket_accept socket_acquire socket_address socket_bind socket_close socket_connect socket_create socket_error socket_listen socket_release socket_write sort_array sprintf sqrt stat store_variable strcmp stringp strlen strsrch
 148 syn keyword     lpc_efuns       contained tan tell_object tell_room terminal_colour test_bit this_interactive this_object this_player this_user throw time to_float to_int trace traceprefix translate typeof
 149 syn keyword     lpc_efuns       contained undefinedp unique_array unique_mapping upper_case uptime userp users
 150 syn keyword     lpc_efuns       contained values variables virtualp
 151 syn keyword     lpc_efuns       contained wizardp write write_buffer write_bytes write_file
 152
 153 " Nodule: Constants {{{1
 154
 155 " LPC Constants.
 156 " like keywords, constants are always highlighted, be careful to choose only
 157 " the constants we used to add to this list.
 158 syn keyword     lpcConstant     __ARCH__ __COMPILER__ __DIR__ __FILE__ __OPTIMIZATION__ __PORT__ __VERSION__
 159 "       Defines in options.h are all predefined in LPC sources surrounding by
 160 "       two underscores. Do we need to include all of that?
 161 syn keyword     lpcConstant     __SAVE_EXTENSION__ __HEARTBEAT_INTERVAL__
 162 "       from the documentation we know that these constants remains only for
 163 "       backward compatibility and should not be used any more.
 164 syn keyword     lpcConstant     HAS_ED HAS_PRINTF HAS_RUSAGE HAS_DEBUG_LEVEL
 165 syn keyword     lpcConstant     MUD_NAME F__THIS_OBJECT
 166
 167 " Nodule: Todo for this file.  {{{1
 168
 169 " TODO : need to check for LPC4 syntax and other series of LPC besides
 170 " v22, b21 and l32, if you had a good idea, contact me at poet@mudbuilder.net
 171 " and I will be appreciated about that.
 172
 173 " Notes about some FAQ:
 174 "
 175 " About variables : We adopts the same behavior for C because almost all the
 176 " LPC programmers are also C programmers, so we don't need separate settings
 177 " for C and LPC. That is the reason why I don't change variables like
 178 " "c_no_utf"s to "lpc_no_utf"s.
 179 "
 180 " Copy : Some of the following seems to be copied from c.vim but not quite
 181 " the same in details because the syntax for C and LPC is different.
 182 "
 183 " Color scheme : this syntax file had been thouroughly tested to work well
 184 " for all of the dark-backgrounded color schemes Vim has provided officially,
 185 " and it should be quite Ok for all of the bright-backgrounded color schemes,
 186 " of course it works best for the color scheme that I am using, download it
 187 " from http://poet.tomud.com/pub/ps_color.vim.bz2 if you want to try it.
 188 "
 189
 190 " Nodule: String and Character {{{1
 191
 192
 193 " String and Character constants
 194 " Highlight special characters (those which have a backslash) differently
 195 syn match       lpcSpecial      display contained "\\\(x\x\+\|\o\{1,3}\|.\|$\)"
 196 if !exists("c_no_utf")
 197   syn match     lpcSpecial      display contained "\\\(u\x\{4}\|U\x\{8}\)"
 198 endif
 199
 200 " LPC version of sprintf() format,
 201 syn match       lpcFormat       display "%\(\d\+\)\=[-+ |=#@:.]*\(\d\+\)\=\('\I\+'\|'\I*\\'\I*'\)\=[OsdicoxXf]" contained
 202 syn match       lpcFormat       display "%%" contained
 203 syn region      lpcString       start=+L\="+ skip=+\\\\\|\\"+ end=+"+ contains=lpcSpecial,lpcFormat
 204 " lpcCppString: same as lpcString, but ends at end of line
 205 syn region      lpcCppString    start=+L\="+ skip=+\\\\\|\\"\|\\$+ excludenl end=+"+ end='$' contains=lpcSpecial,lpcFormat
 206
 207 " LPC preprocessor for the text formatting short cuts
 208 " Thanks to Dr. Charles E. Campbell <cec@gryphon.gsfc.nasa.gov>
 209 "       he suggests the best way to do this.
 210 syn region      lpcTextString   start=/@\z(\h\w*\)$/ end=/^\z1/ contains=lpcSpecial
 211 syn region      lpcArrayString  start=/@@\z(\h\w*\)$/ end=/^\z1/ contains=lpcSpecial
 212
 213 " Character
 214 syn match       lpcCharacter    "L\='[^\\]'"
 215 syn match       lpcCharacter    "L'[^']*'" contains=lpcSpecial
 216 syn match       lpcSpecialError "L\='\\[^'\"?\\abefnrtv]'"
 217 syn match       lpcSpecialCharacter "L\='\\['\"?\\abefnrtv]'"
 218 syn match       lpcSpecialCharacter display "L\='\\\o\{1,3}'"
 219 syn match       lpcSpecialCharacter display "'\\x\x\{1,2}'"
 220 syn match       lpcSpecialCharacter display "L'\\x\x\+'"
 221
 222 " Nodule: White space {{{1
 223
 224 " when wanted, highlight trailing white space
 225 if exists("c_space_errors")
 226   if !exists("c_no_trail_space_error")
 227     syn match   lpcSpaceError   display excludenl "\s\+$"
 228   endif
 229   if !exists("c_no_tab_space_error")
 230     syn match   lpcSpaceError   display " \+\t"me=e-1
 231   endif
 232 endif
 233
 234 " Nodule: Parenthesis and brackets {{{1
 235
 236 " catch errors caused by wrong parenthesis and brackets
 237 syn cluster     lpcParenGroup   contains=lpcParenError,lpcIncluded,lpcSpecial,lpcCommentSkip,lpcCommentString,lpcComment2String,@lpcCommentGroup,lpcCommentStartError,lpcUserCont,lpcUserLabel,lpcBitField,lpcCommentSkip,lpcOctalZero,lpcCppOut,lpcCppOut2,lpcCppSkip,lpcFormat,lpcNumber,lpcFloat,lpcOctal,lpcOctalError,lpcNumbersCom
 238 syn region      lpcParen        transparent start='(' end=')' contains=ALLBUT,@lpcParenGroup,lpcCppParen,lpcErrInBracket,lpcCppBracket,lpcCppString,@lpcEfunGroup,lpcApplies,lpcKeywdError
 239 " lpcCppParen: same as lpcParen but ends at end-of-line; used in lpcDefine
 240 syn region      lpcCppParen     transparent start='(' skip='\\$' excludenl end=')' end='$' contained contains=ALLBUT,@lpcParenGroup,lpcErrInBracket,lpcParen,lpcBracket,lpcString,@lpcEfunGroup,lpcApplies,lpcKeywdError
 241 syn match       lpcParenError   display ")"
 242 syn match       lpcParenError   display "\]"
 243 " for LPC:
 244 " Here we should consider the array ({ }) parenthesis and mapping ([ ])
 245 " parenthesis and multiset (< >) parenthesis.
 246 syn match       lpcErrInParen   display contained "[^^]{"ms=s+1
 247 syn match       lpcErrInParen   display contained "\(}\|\]\)[^)]"me=e-1
 248 syn region      lpcBracket      transparent start='\[' end=']' contains=ALLBUT,@lpcParenGroup,lpcErrInParen,lpcCppParen,lpcCppBracket,lpcCppString,@lpcEfunGroup,lpcApplies,lpcFuncName,lpcKeywdError
 249 " lpcCppBracket: same as lpcParen but ends at end-of-line; used in lpcDefine
 250 syn region      lpcCppBracket   transparent start='\[' skip='\\$' excludenl end=']' end='$' contained contains=ALLBUT,@lpcParenGroup,lpcErrInParen,lpcParen,lpcBracket,lpcString,@lpcEfunGroup,lpcApplies,lpcFuncName,lpcKeywdError
 251 syn match       lpcErrInBracket display contained "[);{}]"
 252
 253 " Nodule: Numbers {{{1
 254
 255 " integer number, or floating point number without a dot and with "f".
 256 syn case ignore
 257 syn match       lpcNumbers      display transparent "\<\d\|\.\d" contains=lpcNumber,lpcFloat,lpcOctalError,lpcOctal
 258 " Same, but without octal error (for comments)
 259 syn match       lpcNumbersCom   display contained transparent "\<\d\|\.\d" contains=lpcNumber,lpcFloat,lpcOctal
 260 syn match       lpcNumber       display contained "\d\+\(u\=l\{0,2}\|ll\=u\)\>"
 261 " hex number
 262 syn match       lpcNumber       display contained "0x\x\+\(u\=l\{0,2}\|ll\=u\)\>"
 263 " Flag the first zero of an octal number as something special
 264 syn match       lpcOctal        display contained "0\o\+\(u\=l\{0,2}\|ll\=u\)\>" contains=lpcOctalZero
 265 syn match       lpcOctalZero    display contained "\<0"
 266 syn match       lpcFloat        display contained "\d\+f"
 267 " floating point number, with dot, optional exponent
 268 syn match       lpcFloat        display contained "\d\+\.\d*\(e[-+]\=\d\+\)\=[fl]\="
 269 " floating point number, starting with a dot, optional exponent
 270 syn match       lpcFloat        display contained "\.\d\+\(e[-+]\=\d\+\)\=[fl]\=\>"
 271 " floating point number, without dot, with exponent
 272 syn match       lpcFloat        display contained "\d\+e[-+]\=\d\+[fl]\=\>"
 273 " flag an octal number with wrong digits
 274 syn match       lpcOctalError   display contained "0\o*[89]\d*"
 275 syn case match
 276
 277 " Nodule: Comment string {{{1
 278
 279 " lpcCommentGroup allows adding matches for special things in comments
 280 syn keyword     lpcTodo         contained TODO FIXME XXX
 281 syn cluster     lpcCommentGroup contains=lpcTodo
 282
 283 if exists("c_comment_strings")
 284   " A comment can contain lpcString, lpcCharacter and lpcNumber.
 285   syntax match  lpcCommentSkip  contained "^\s*\*\($\|\s\+\)"
 286   syntax region lpcCommentString        contained start=+L\=\\\@<!"+ skip=+\\\\\|\\"+ end=+"+ end=+\*/+me=s-1 contains=lpcSpecial,lpcCommentSkip
 287   syntax region lpcComment2String       contained start=+L\=\\\@<!"+ skip=+\\\\\|\\"+ end=+"+ end="$" contains=lpcSpecial
 288   syntax region  lpcCommentL    start="//" skip="\\$" end="$" keepend contains=@lpcCommentGroup,lpcComment2String,lpcCharacter,lpcNumbersCom,lpcSpaceError
 289   syntax region lpcComment      matchgroup=lpcCommentStart start="/\*" matchgroup=NONE end="\*/" contains=@lpcCommentGroup,lpcCommentStartError,lpcCommentString,lpcCharacter,lpcNumbersCom,lpcSpaceError
 290 else
 291   syn region    lpcCommentL     start="//" skip="\\$" end="$" keepend contains=@lpcCommentGroup,lpcSpaceError
 292   syn region    lpcComment      matchgroup=lpcCommentStart start="/\*" matchgroup=NONE end="\*/" contains=@lpcCommentGroup,lpcCommentStartError,lpcSpaceError
 293 endif
 294 " keep a // comment separately, it terminates a preproc. conditional
 295 syntax match    lpcCommentError display "\*/"
 296 syntax match    lpcCommentStartError display "/\*"me=e-1 contained
 297
 298 " Nodule: Pre-processor {{{1
 299
 300 syn region      lpcPreCondit    start="^\s*#\s*\(if\|ifdef\|ifndef\|elif\)\>" skip="\\$" end="$" end="//"me=s-1 contains=lpcComment,lpcCppString,lpcCharacter,lpcCppParen,lpcParenError,lpcNumbers,lpcCommentError,lpcSpaceError
 301 syn match       lpcPreCondit    display "^\s*#\s*\(else\|endif\)\>"
 302 if !exists("c_no_if0")
 303   syn region    lpcCppOut               start="^\s*#\s*if\s\+0\+\>" end=".\|$" contains=lpcCppOut2
 304   syn region    lpcCppOut2      contained start="0" end="^\s*#\s*\(endif\>\|else\>\|elif\>\)" contains=lpcSpaceError,lpcCppSkip
 305   syn region    lpcCppSkip      contained start="^\s*#\s*\(if\>\|ifdef\>\|ifndef\>\)" skip="\\$" end="^\s*#\s*endif\>" contains=lpcSpaceError,lpcCppSkip
 306 endif
 307 syn region      lpcIncluded     display contained start=+"+ skip=+\\\\\|\\"+ end=+"+
 308 syn match       lpcIncluded     display contained "<[^>]*>"
 309 syn match       lpcInclude      display "^\s*#\s*include\>\s*["<]" contains=lpcIncluded
 310 syn match lpcLineSkip   "\\$"
 311 syn cluster     lpcPreProcGroup contains=lpcPreCondit,lpcIncluded,lpcInclude,lpcDefine,lpcErrInParen,lpcErrInBracket,lpcUserLabel,lpcSpecial,lpcOctalZero,lpcCppOut,lpcCppOut2,lpcCppSkip,lpcFormat,lpcNumber,lpcFloat,lpcOctal,lpcOctalError,lpcNumbersCom,lpcString,lpcCommentSkip,lpcCommentString,lpcComment2String,@lpcCommentGroup,lpcCommentStartError,lpcParen,lpcBracket,lpcMulti,lpcKeywdError
 312 syn region      lpcDefine       start="^\s*#\s*\(define\|undef\)\>" skip="\\$" end="$" end="//"me=s-1 contains=ALLBUT,@lpcPreProcGroup
 313
 314 if exists("lpc_pre_v22")
 315     syn region  lpcPreProc      start="^\s*#\s*\(pragma\>\|echo\>\)" skip="\\$" end="$" keepend contains=ALLBUT,@lpcPreProcGroup
 316 else
 317     syn region  lpcPreProc      start="^\s*#\s*\(pragma\>\|echo\>\|warn\>\|error\>\)" skip="\\$" end="$" keepend contains=ALLBUT,@lpcPreProcGroup
 318 endif
 319
 320 " Nodule: User labels {{{1
 321
 322 " Highlight Labels
 323 " User labels in LPC is not allowed, only "case x" and "default" is supported
 324 syn cluster     lpcMultiGroup   contains=lpcIncluded,lpcSpecial,lpcCommentSkip,lpcCommentString,lpcComment2String,@lpcCommentGroup,lpcCommentStartError,lpcUserCont,lpcUserLabel,lpcBitField,lpcOctalZero,lpcCppOut,lpcCppOut2,lpcCppSkip,lpcFormat,lpcNumber,lpcFloat,lpcOctal,lpcOctalError,lpcNumbersCom,lpcCppParen,lpcCppBracket,lpcCppString,lpcKeywdError
 325 syn region      lpcMulti                transparent start='\(case\|default\|public\|protected\|private\)' skip='::' end=':' contains=ALLBUT,@lpcMultiGroup
 326
 327 syn cluster     lpcLabelGroup   contains=lpcUserLabel
 328 syn match       lpcUserCont     display "^\s*lpc:$" contains=@lpcLabelGroup
 329
 330 " Don't want to match anything
 331 syn match       lpcUserLabel    display "lpc" contained
 332
 333 " Nodule: Initializations {{{1
 334
 335 if exists("c_minlines")
 336   let b:c_minlines = c_minlines
 337 else
 338   if !exists("c_no_if0")
 339     let b:c_minlines = 50       " #if 0 constructs can be long
 340   else
 341     let b:c_minlines = 15       " mostly for () constructs
 342   endif
 343 endif
 344 exec "syn sync ccomment lpcComment minlines=" . b:c_minlines
 345
 346 " Make sure these options take place since we no longer depend on file type
 347 " plugin for C
 348 setlocal cindent
 349 setlocal fo-=t fo+=croql
 350 setlocal comments=sO:*\ -,mO:*\ \ ,exO:*/,s1:/*,mb:*,ex:*/,://
 351
 352 " Win32 can filter files in the browse dialog
 353 if has("gui_win32") && !exists("b:browsefilter")
 354     let b:browsefilter = "LPC Source Files (*.c *.d *.h)\t*.c;*.d;*.h\n" .
 355         \ "LPC Data Files (*.scr *.o *.dat)\t*.scr;*.o;*.dat\n" .
 356         \ "Text Documentation (*.txt)\t*.txt\n" .
 357         \ "All Files (*.*)\t*.*\n"
 358 endif
 359
 360 " Nodule: Highlight links {{{1
 361
 362 " Define the default highlighting.
 363 " For version 5.7 and earlier: only when not done already
 364 " For version 5.8 and later: only when an item doesn't have highlighting yet
 365 if version >= 508 || !exists("did_lpc_syn_inits")
 366   if version < 508
 367     let did_lpc_syn_inits = 1
 368     command -nargs=+ HiLink hi link <args>
 369   else
 370     command -nargs=+ HiLink hi def link <args>
 371   endif
 372
 373   HiLink lpcModifier            lpcStorageClass
 374
 375   HiLink lpcQuotedFmt           lpcFormat
 376   HiLink lpcFormat              lpcSpecial
 377   HiLink lpcCppString           lpcString       " Cpp means
 378                                                 " C Pre-Processor
 379   HiLink lpcCommentL            lpcComment
 380   HiLink lpcCommentStart        lpcComment
 381   HiLink lpcUserLabel           lpcLabel
 382   HiLink lpcSpecialCharacter    lpcSpecial
 383   HiLink lpcOctal               lpcPreProc
 384   HiLink lpcOctalZero           lpcSpecial  " LPC will treat octal numbers
 385                                             " as decimals, programmers should
 386                                             " be aware of that.
 387   HiLink lpcEfunError           lpcError
 388   HiLink lpcKeywdError          lpcError
 389   HiLink lpcOctalError          lpcError
 390   HiLink lpcParenError          lpcError
 391   HiLink lpcErrInParen          lpcError
 392   HiLink lpcErrInBracket        lpcError
 393   HiLink lpcCommentError        lpcError
 394   HiLink lpcCommentStartError   lpcError
 395   HiLink lpcSpaceError          lpcError
 396   HiLink lpcSpecialError        lpcError
 397   HiLink lpcErrFunc             lpcError
 398
 399   if exists("lpc_pre_v22")
 400       HiLink lpcOldEfuns        lpc_efuns
 401       HiLink lpcNewEfuns        lpcError
 402   else
 403       HiLink lpcOldEfuns        lpcReserved
 404       HiLink lpcNewEfuns        lpc_efuns
 405   endif
 406   HiLink lpc_efuns              lpcFunction
 407
 408   HiLink lpcReserved            lpcPreProc
 409   HiLink lpcTextString          lpcString   " This should be preprocessors, but
 410   HiLink lpcArrayString         lpcPreProc  " let's make some difference
 411                                             " between text and array
 412
 413   HiLink lpcIncluded            lpcString
 414   HiLink lpcCommentString       lpcString
 415   HiLink lpcComment2String      lpcString
 416   HiLink lpcCommentSkip         lpcComment
 417   HiLink lpcCommentFunc         lpcComment
 418
 419   HiLink lpcCppSkip             lpcCppOut
 420   HiLink lpcCppOut2             lpcCppOut
 421   HiLink lpcCppOut              lpcComment
 422
 423   " Standard type below
 424   HiLink lpcApplies             Special
 425   HiLink lpcCharacter           Character
 426   HiLink lpcComment             Comment
 427   HiLink lpcConditional         Conditional
 428   HiLink lpcConstant            Constant
 429   HiLink lpcDefine              Macro
 430   HiLink lpcError               Error
 431   HiLink lpcFloat               Float
 432   HiLink lpcFunction            Function
 433   HiLink lpcIdentifier          Identifier
 434   HiLink lpcInclude             Include
 435   HiLink lpcLabel               Label
 436   HiLink lpcNumber              Number
 437   HiLink lpcOperator            Operator
 438   HiLink lpcPreCondit           PreCondit
 439   HiLink lpcPreProc             PreProc
 440   HiLink lpcRepeat              Repeat
 441   HiLink lpcStatement           Statement
 442   HiLink lpcStorageClass        StorageClass
 443   HiLink lpcString              String
 444   HiLink lpcStructure           Structure
 445   HiLink lpcSpecial             LineNr
 446   HiLink lpcTodo                Todo
 447   HiLink lpcType                Type
 448
 449   delcommand HiLink
 450 endif
 451
 452 " Nodule: This is the end nodule. {{{1
 453
 454 let b:current_syntax = "lpc"
 455
 456 let &cpo = s:cpo_save
 457 unlet s:cpo_save
 458
 459 " vim:ts=8:nosta:sw=2:ai:si:
 460 " vim600:set fdm=marker: }}}1