/samples/scalate-presentation/src/highlight/languages/perl.js

http://github.com/scalate/scalate · JavaScript · 152 lines · 131 code · 9 blank · 12 comment · 0 complexity · fb2cebb3c30c035b783b1035c6c0db1a MD5 · raw file

  1. /*
  2. Language: Perl
  3. Author: Peter Leonov <gojpeg@yandex.ru>
  4. */
  5. hljs.LANGUAGES.perl = function(){
  6. var PERL_DEFAULT_CONTAINS = ['comment', 'string', 'number', 'regexp', 'sub', 'variable', 'operator', 'pod'];
  7. var PERL_KEYWORDS = {'getpwent': 1, 'getservent': 1, 'quotemeta': 1, 'msgrcv': 1, 'scalar': 1, 'kill': 1, 'dbmclose': 1, 'undef': 1, 'lc': 1, 'ma': 1, 'syswrite': 1, 'tr': 1, 'send': 1, 'umask': 1, 'sysopen': 1, 'shmwrite': 1, 'vec': 1, 'qx': 1, 'utime': 1, 'local': 1, 'oct': 1, 'semctl': 1, 'localtime': 1, 'readpipe': 1, 'do': 1, 'return': 1, 'format': 1, 'read': 1, 'sprintf': 1, 'dbmopen': 1, 'pop': 1, 'getpgrp': 1, 'not': 1, 'getpwnam': 1, 'rewinddir': 1, 'qq': 1, 'fileno': 1, 'qw': 1, 'endprotoent': 1, 'wait': 1, 'sethostent': 1, 'bless': 1, 's': 1, 'opendir': 1, 'continue': 1, 'each': 1, 'sleep': 1, 'endgrent': 1, 'shutdown': 1, 'dump': 1, 'chomp': 1, 'connect': 1, 'getsockname': 1, 'die': 1, 'socketpair': 1, 'close': 1, 'flock': 1, 'exists': 1, 'index': 1, 'shmget': 1, 'sub': 1, 'for': 1, 'endpwent': 1, 'redo': 1, 'lstat': 1, 'msgctl': 1, 'setpgrp': 1, 'abs': 1, 'exit': 1, 'select': 1, 'print': 1, 'ref': 1, 'gethostbyaddr': 1, 'unshift': 1, 'fcntl': 1, 'syscall': 1, 'goto': 1, 'getnetbyaddr': 1, 'join': 1, 'gmtime': 1, 'symlink': 1, 'semget': 1, 'splice': 1, 'x': 1, 'getpeername': 1, 'recv': 1, 'log': 1, 'setsockopt': 1, 'cos': 1, 'last': 1, 'reverse': 1, 'gethostbyname': 1, 'getgrnam': 1, 'study': 1, 'formline': 1, 'endhostent': 1, 'times': 1, 'chop': 1, 'length': 1, 'gethostent': 1, 'getnetent': 1, 'pack': 1, 'getprotoent': 1, 'getservbyname': 1, 'rand': 1, 'mkdir': 1, 'pos': 1, 'chmod': 1, 'y': 1, 'substr': 1, 'endnetent': 1, 'printf': 1, 'next': 1, 'open': 1, 'msgsnd': 1, 'readdir': 1, 'use': 1, 'unlink': 1, 'getsockopt': 1, 'getpriority': 1, 'rindex': 1, 'wantarray': 1, 'hex': 1, 'system': 1, 'getservbyport': 1, 'endservent': 1, 'int': 1, 'chr': 1, 'untie': 1, 'rmdir': 1, 'prototype': 1, 'tell': 1, 'listen': 1, 'fork': 1, 'shmread': 1, 'ucfirst': 1, 'setprotoent': 1, 'else': 1, 'sysseek': 1, 'link': 1, 'getgrgid': 1, 'shmctl': 1, 'waitpid': 1, 'unpack': 1, 'getnetbyname': 1, 'reset': 1, 'chdir': 1, 'grep': 1, 'split': 1, 'require': 1, 'caller': 1, 'lcfirst': 1, 'until': 1, 'warn': 1, 'while': 1, 'values': 1, 'shift': 1, 'telldir': 1, 'getpwuid': 1, 'my': 1, 'getprotobynumber': 1, 'delete': 1, 'and': 1, 'sort': 1, 'uc': 1, 'defined': 1, 'srand': 1, 'accept': 1, 'package': 1, 'seekdir': 1, 'getprotobyname': 1, 'semop': 1, 'our': 1, 'rename': 1, 'seek': 1, 'if': 1, 'q': 1, 'chroot': 1, 'sysread': 1, 'setpwent': 1, 'no': 1, 'crypt': 1, 'getc': 1, 'chown': 1, 'sqrt': 1, 'write': 1, 'setnetent': 1, 'setpriority': 1, 'foreach': 1, 'tie': 1, 'sin': 1, 'msgget': 1, 'map': 1, 'stat': 1, 'getlogin': 1, 'unless': 1, 'elsif': 1, 'truncate': 1, 'exec': 1, 'keys': 1, 'glob': 1, 'tied': 1, 'closedir': 1, 'ioctl': 1, 'socket': 1, 'readlink': 1, 'eval': 1, 'xor': 1, 'readline': 1, 'binmode': 1, 'setservent': 1, 'eof': 1, 'ord': 1, 'bind': 1, 'alarm': 1, 'pipe': 1, 'atan2': 1, 'getgrent': 1, 'exp': 1, 'time': 1, 'push': 1, 'setgrent': 1, 'gt': 1, 'lt': 1, 'or': 1, 'ne': 1, 'm': 1};
  8. return {
  9. defaultMode: {
  10. lexems: [hljs.IDENT_RE],
  11. contains: PERL_DEFAULT_CONTAINS,
  12. keywords: PERL_KEYWORDS
  13. },
  14. modes: [
  15. // variables
  16. {
  17. className: 'variable',
  18. begin: '\\$\\d', end: '^'
  19. },
  20. {
  21. className: 'variable',
  22. begin: '[\\$\\%\\@\\*](\\^\\w\\b|#\\w+(\\:\\:\\w+)*|[^\\s\\w{]|{\\w+}|\\w+(\\:\\:\\w*)*)', end: '^'
  23. },
  24. // numbers and strings
  25. {
  26. className: 'subst',
  27. begin: '[$@]\\{', end: '\}',
  28. lexems: [hljs.IDENT_RE],
  29. keywords: PERL_KEYWORDS,
  30. contains: PERL_DEFAULT_CONTAINS,
  31. relevance: 10
  32. },
  33. {
  34. className: 'number',
  35. begin: '(\\b0[0-7_]+)|(\\b0x[0-9a-fA-F_]+)|(\\b[1-9][0-9_]*(\\.[0-9_]+)?)|[0_]\\b', end: '^',
  36. relevance: 0
  37. },
  38. {
  39. className: 'string',
  40. begin: 'q[qwxr]?\\s*\\(', end: '\\)',
  41. contains: ['escape', 'subst', 'variable'],
  42. relevance: 5
  43. },
  44. {
  45. className: 'string',
  46. begin: 'q[qwxr]?\\s*\\[', end: '\\]',
  47. contains: ['escape', 'subst', 'variable'],
  48. relevance: 5
  49. },
  50. {
  51. className: 'string',
  52. begin: 'q[qwxr]?\\s*\\{', end: '\\}',
  53. contains: ['escape', 'subst', 'variable'],
  54. relevance: 5
  55. },
  56. {
  57. className: 'string',
  58. begin: 'q[qwxr]?\\s*\\|', end: '\\|',
  59. contains: ['escape', 'subst', 'variable'],
  60. relevance: 5
  61. },
  62. {
  63. className: 'string',
  64. begin: 'q[qwxr]?\\s*\\<', end: '\\>',
  65. contains: ['escape', 'subst', 'variable'],
  66. relevance: 5
  67. },
  68. {
  69. className: 'string',
  70. begin: 'qw\\s+q', end: 'q',
  71. contains: ['escape', 'subst', 'variable'],
  72. relevance: 5
  73. },
  74. {
  75. className: 'string',
  76. begin: '\'', end: '\'',
  77. contains: ['escape'],
  78. relevance: 0
  79. },
  80. {
  81. className: 'string',
  82. begin: '"', end: '"',
  83. contains: ['escape','subst','variable'],
  84. relevance: 0
  85. },
  86. hljs.BACKSLASH_ESCAPE,
  87. {
  88. className: 'string',
  89. begin: '`', end: '`',
  90. contains: ['escape']
  91. },
  92. // regexps
  93. {
  94. className: 'regexp',
  95. begin: '(s|tr|y)/(\\\\.|[^/])*/(\\\\.|[^/])*/[a-z]*', end: '^',
  96. relevance: 10
  97. },
  98. {
  99. className: 'regexp',
  100. begin: '(m|qr)?/', end: '/[a-z]*',
  101. contains: ['escape'],
  102. relevance: 0 // allows empty "//" which is a common comment delimiter in other languages
  103. },
  104. // bareword context
  105. {
  106. className: 'string',
  107. begin: '{\\w+}', end: '^',
  108. relevance: 0
  109. },
  110. {
  111. className: 'string',
  112. begin: '\-?\\w+\\s*\\=\\>', end: '^',
  113. relevance: 0
  114. },
  115. // subroutines
  116. {
  117. className: 'sub',
  118. begin: '\\bsub\\b', end: '(\\s*\\(.*?\\))?[;{]',
  119. lexems: [hljs.IDENT_RE],
  120. keywords: {'sub':1},
  121. relevance: 5
  122. },
  123. // operators
  124. {
  125. className: 'operator',
  126. begin: '-\\w\\b', end: '^',
  127. relevance: 0
  128. },
  129. // comments
  130. hljs.HASH_COMMENT_MODE,
  131. {
  132. className: 'comment',
  133. begin: '^(__END__|__DATA__)', end: '\\n$',
  134. relevance: 5
  135. },
  136. // pod
  137. {
  138. className: 'pod',
  139. begin: '\\=\\w', end: '\\=cut'
  140. }
  141. ]
  142. };
  143. }();