/runtime/syntax/cl.vim

https://bitbucket.org/ultra_iter/vim-qt · Vim Script · 113 lines · 69 code · 23 blank · 21 comment · 5 complexity · f81375c97f51fb17767ab2011b4c54dc MD5 · raw file 

    

  1. " Vim syntax file
    2. 

  2. " Language:		CL
    3. 

  3. "			(pronounced alphabetically, and NOT known as Clever)
    4. 

  4. "			(CL was created by Multibase, http://www.mbase.com.au)
    5. 

  5. " Filename extensions:	*.ent
    6. 

  6. "			*.eni
    7. 

  7. " Maintainer:		Philip Uren	<philuSPAX@ieee.org> Remove SPAX spam block
    8. 

  8. " Version:              4
    9. 

  9. " Last Change:		May 11 2012
    10. 

    11. 

  11. " For version 5.x: Clear all syntax items
    12. 

  12. " For version 6.x: Quit when a syntax file was already loaded
    13. 

  13. if version < 600
    14. 

  14.     syntax clear
    15. 

  15. elseif exists("b:current_syntax")
    16. 

  16.     finish
    17. 

  17. endif
    18. 

  18. 

  19. if version >= 600
    20. 

  20.     setlocal iskeyword=@,48-57,_,-,
    21. 

  21. else
    22. 

  22.     set iskeyword=@,48-57,_,-,
    23. 

  23. endif
    24. 

  24. 

  25. syn case ignore
    26. 

  26. 

  27. syn sync lines=300
    28. 

  28. 

  29. "If/else/elsif/endif and while/wend mismatch errors
    30. 

  30. syn match   clifError	    "\<wend\>"
    31. 

  31. syn match   clifError	    "\<elsif\>"
    32. 

  32. syn match   clifError	    "\<else\>"
    33. 

  33. syn match   clifError	    "\<endif\>"
    34. 

  34. 

  35. syn match   clSpaceError    "\s\+$"
    36. 

  36. 

  37. " If and while regions
    38. 

  38. syn region  clLoop	transparent matchgroup=clWhile start="\<while\>" matchgroup=clWhile end="\<wend\>" contains=ALLBUT,clBreak,clProcedure
    39. 

  39. syn region  clIf	transparent matchgroup=clConditional start="\<if\>" matchgroup=clConditional end="\<endif\>"   contains=ALLBUT,clBreak,clProcedure
    40. 

  40. 

  41. " Make those TODO notes and debugging stand out!
    42. 

  42. syn keyword clTodo	contained   TODO BUG DEBUG FIX
    43. 

  43. syn match   clNeedsWork	contained   "NEED[S]*\s\s*WORK"
    44. 

  44. syn keyword clDebug	contained   debug
    45. 

  45. 

  46. syn match   clComment	"#.*$"	    contains=clTodo,clNeedsWork
    47. 

  47. syn region  clProcedure	oneline	    start="^\s*[{}]" end="$"
    48. 

  48. syn match   clInclude	"^\s*include\s.*"
    49. 

  49. 

  50. " We don't put "debug" in the clSetOptions;
    51. 

  51. " we contain it in clSet so we can make it stand out.
    52. 

  52. syn keyword clSetOptions    transparent aauto abort align convert E fill fnum goback hangup justify null_exit output rauto rawprint rawdisplay repeat skip tab trim
    53. 

  53. syn match   clSet	"^\s*set\s.*" contains=clSetOptions,clDebug
    54. 

  54. 

  55. syn match   clPreProc	"^\s*#P.*"
    56. 

  56. 

  57. syn keyword clConditional   else elsif
    58. 

  58. syn keyword clWhile	continue endloop
    59. 

  59. " 'break' needs to be a region so we can sync on it above.
    60. 

  60. syn region  clBreak	oneline start="^\s*break" end="$"
    61. 

  61. 

  62. syn match   clOperator	"[!;|)(:.><+*=-]"
    63. 

  63. 

  64. syn match   clNumber	"\<\d\+\(u\=l\=\|lu\|f\)\>"
    65. 

  65. 

  66. syn region  clString	matchgroup=clQuote  start=+"+ end=+"+	skip=+\\"+
    67. 

  67. syn region  clString	matchgroup=clQuote  start=+'+ end=+'+	skip=+\\'+
    68. 

    69. 

  69. syn keyword clReserved	ERROR EXIT INTERRUPT LOCKED LREPLY MODE MCOL MLINE MREPLY NULL REPLY V1 V2 V3 V4 V5 V6 V7 V8 V9 ZERO BYPASS GOING_BACK AAUTO ABORT ABORT ALIGN BIGE CONVERT FNUM GOBACK HANGUP JUSTIFY NEXIT OUTPUT RAUTO RAWDISPLAY RAWPRINT REPEAT SKIP TAB TRIM LCOUNT PCOUNT PLINES SLINES SCOLS MATCH LMATCH
    70. 

  70. 

  71. syn keyword clFunction	asc asize chr name random slen srandom day getarg getcgi getenv lcase scat sconv sdel skey smult srep substr sword trim ucase match
    72. 

  72. 

  73. syn keyword clStatement	clear clear_eol clear_eos close copy create unique with where empty define define ldefine delay_form delete escape exit_block exit_do exit_process field fork format get getfile getnext getprev goto head join maintain message no_join on_eop on_key on_exit on_delete openin openout openapp pause popenin popenout popenio print put range read redisplay refresh restart_block screen select sleep text unlock write and not or do
    74. 

  74. 

  75. " Define the default highlighting.
    76. 

  76. " For version 5.7 and earlier: only when not done already
    77. 

  77. " For version 5.8 and later: only when an item doesn't have highlighting yet
    78. 

  78. if  version >= 508 || !exists("did_cl_syntax_inits")
    79. 

  79.     if	version < 508
    80. 

  80. 	let did_cl_syntax_inits = 1
    81. 

  81. 	command -nargs=+ HiLink hi link <args>
    82. 

  82.     else
    83. 

  83. 	command -nargs=+ HiLink hi def link <args>
    84. 

  84.     endif
    85. 

  85. 

  86.     HiLink clifError	Error
    87. 

  87.     HiLink clSpaceError	Error
    88. 

  88.     HiLink clWhile	Repeat
    89. 

  89.     HiLink clConditional    Conditional
    90. 

  90.     HiLink clDebug	Debug
    91. 

  91.     HiLink clNeedsWork	Todo
    92. 

  92.     HiLink clTodo	Todo
    93. 

  93.     HiLink clComment	Comment
    94. 

  94.     HiLink clProcedure	Procedure
    95. 

  95.     HiLink clBreak	Procedure
    96. 

  96.     HiLink clInclude	Include
    97. 

  97.     HiLink clSetOption	Statement
    98. 

  98.     HiLink clSet	Identifier
    99. 

  99.     HiLink clPreProc	PreProc
    100. 

  100.     HiLink clOperator	Operator
    101. 

  101.     HiLink clNumber	Number
    102. 

  102.     HiLink clString	String
    103. 

  103.     HiLink clQuote	Delimiter
    104. 

  104.     HiLink clReserved	Identifier
    105. 

  105.     HiLink clFunction	Function
    106. 

  106.     HiLink clStatement	Statement
    107. 

  107. 

  108.     delcommand HiLink
    109. 

  109. endif
    110. 

  110. 

  111. let b:current_syntax = "cl"
    112. 

  112. 

  113. " vim: ts=8 sw=4
    114.