cos.js 5.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134
  1. /*
  2. Language: Caché Object Script
  3. Author: Nikita Savchenko <zitros.lab@gmail.com>
  4. Category: enterprise, scripting
  5. Website: https://cedocs.intersystems.com/latest/csp/docbook/DocBook.UI.Page.cls
  6. */
  7. /** @type LanguageFn */
  8. function cos (hljs) {
  9. var STRINGS = {
  10. className: 'string',
  11. variants: [
  12. {
  13. begin: '"',
  14. end: '"',
  15. contains: [{ // escaped
  16. begin: "\"\"",
  17. relevance: 0
  18. }]
  19. }
  20. ]
  21. };
  22. var NUMBERS = {
  23. className: "number",
  24. begin: "\\b(\\d+(\\.\\d*)?|\\.\\d+)",
  25. relevance: 0
  26. };
  27. var COS_KEYWORDS =
  28. 'property parameter class classmethod clientmethod extends as break ' +
  29. 'catch close continue do d|0 else elseif for goto halt hang h|0 if job ' +
  30. 'j|0 kill k|0 lock l|0 merge new open quit q|0 read r|0 return set s|0 ' +
  31. 'tcommit throw trollback try tstart use view while write w|0 xecute x|0 ' +
  32. 'zkill znspace zn ztrap zwrite zw zzdump zzwrite print zbreak zinsert ' +
  33. 'zload zprint zremove zsave zzprint mv mvcall mvcrt mvdim mvprint zquit ' +
  34. 'zsync ascii';
  35. // registered function - no need in them due to all functions are highlighted,
  36. // but I'll just leave this here.
  37. //"$bit", "$bitcount",
  38. //"$bitfind", "$bitlogic", "$case", "$char", "$classmethod", "$classname",
  39. //"$compile", "$data", "$decimal", "$double", "$extract", "$factor",
  40. //"$find", "$fnumber", "$get", "$increment", "$inumber", "$isobject",
  41. //"$isvaliddouble", "$isvalidnum", "$justify", "$length", "$list",
  42. //"$listbuild", "$listdata", "$listfind", "$listfromstring", "$listget",
  43. //"$listlength", "$listnext", "$listsame", "$listtostring", "$listvalid",
  44. //"$locate", "$match", "$method", "$name", "$nconvert", "$next",
  45. //"$normalize", "$now", "$number", "$order", "$parameter", "$piece",
  46. //"$prefetchoff", "$prefetchon", "$property", "$qlength", "$qsubscript",
  47. //"$query", "$random", "$replace", "$reverse", "$sconvert", "$select",
  48. //"$sortbegin", "$sortend", "$stack", "$text", "$translate", "$view",
  49. //"$wascii", "$wchar", "$wextract", "$wfind", "$wiswide", "$wlength",
  50. //"$wreverse", "$xecute", "$zabs", "$zarccos", "$zarcsin", "$zarctan",
  51. //"$zcos", "$zcot", "$zcsc", "$zdate", "$zdateh", "$zdatetime",
  52. //"$zdatetimeh", "$zexp", "$zhex", "$zln", "$zlog", "$zpower", "$zsec",
  53. //"$zsin", "$zsqr", "$ztan", "$ztime", "$ztimeh", "$zboolean",
  54. //"$zconvert", "$zcrc", "$zcyc", "$zdascii", "$zdchar", "$zf",
  55. //"$ziswide", "$zlascii", "$zlchar", "$zname", "$zposition", "$zqascii",
  56. //"$zqchar", "$zsearch", "$zseek", "$zstrip", "$zwascii", "$zwchar",
  57. //"$zwidth", "$zwpack", "$zwbpack", "$zwunpack", "$zwbunpack", "$zzenkaku",
  58. //"$change", "$mv", "$mvat", "$mvfmt", "$mvfmts", "$mviconv",
  59. //"$mviconvs", "$mvinmat", "$mvlover", "$mvoconv", "$mvoconvs", "$mvraise",
  60. //"$mvtrans", "$mvv", "$mvname", "$zbitand", "$zbitcount", "$zbitfind",
  61. //"$zbitget", "$zbitlen", "$zbitnot", "$zbitor", "$zbitset", "$zbitstr",
  62. //"$zbitxor", "$zincrement", "$znext", "$zorder", "$zprevious", "$zsort",
  63. //"device", "$ecode", "$estack", "$etrap", "$halt", "$horolog",
  64. //"$io", "$job", "$key", "$namespace", "$principal", "$quit", "$roles",
  65. //"$storage", "$system", "$test", "$this", "$tlevel", "$username",
  66. //"$x", "$y", "$za", "$zb", "$zchild", "$zeof", "$zeos", "$zerror",
  67. //"$zhorolog", "$zio", "$zjob", "$zmode", "$znspace", "$zparent", "$zpi",
  68. //"$zpos", "$zreference", "$zstorage", "$ztimestamp", "$ztimezone",
  69. //"$ztrap", "$zversion"
  70. return {
  71. name: 'Caché Object Script',
  72. case_insensitive: true,
  73. aliases: ["cos", "cls"],
  74. keywords: COS_KEYWORDS,
  75. contains: [
  76. NUMBERS,
  77. STRINGS,
  78. hljs.C_LINE_COMMENT_MODE,
  79. hljs.C_BLOCK_COMMENT_MODE,
  80. {
  81. className: "comment",
  82. begin: /;/, end: "$",
  83. relevance: 0
  84. },
  85. { // Functions and user-defined functions: write $ztime(60*60*3), $$myFunc(10), $$^Val(1)
  86. className: "built_in",
  87. begin: /(?:\$\$?|\.\.)\^?[a-zA-Z]+/
  88. },
  89. { // Macro command: quit $$$OK
  90. className: "built_in",
  91. begin: /\$\$\$[a-zA-Z]+/
  92. },
  93. { // Special (global) variables: write %request.Content; Built-in classes: %Library.Integer
  94. className: "built_in",
  95. begin: /%[a-z]+(?:\.[a-z]+)*/
  96. },
  97. { // Global variable: set ^globalName = 12 write ^globalName
  98. className: "symbol",
  99. begin: /\^%?[a-zA-Z][\w]*/
  100. },
  101. { // Some control constructions: do ##class(Package.ClassName).Method(), ##super()
  102. className: "keyword",
  103. begin: /##class|##super|#define|#dim/
  104. },
  105. // sub-languages: are not fully supported by hljs by 11/15/2015
  106. // left for the future implementation.
  107. {
  108. begin: /&sql\(/, end: /\)/,
  109. excludeBegin: true, excludeEnd: true,
  110. subLanguage: "sql"
  111. },
  112. {
  113. begin: /&(js|jscript|javascript)</, end: />/,
  114. excludeBegin: true, excludeEnd: true,
  115. subLanguage: "javascript"
  116. },
  117. {
  118. // this brakes first and last tag, but this is the only way to embed a valid html
  119. begin: /&html<\s*</, end: />\s*>/,
  120. subLanguage: "xml"
  121. }
  122. ]
  123. };
  124. }
  125. module.exports = cos;