tilde.club/~brennen/
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 

110 lines
1.6 KiB

if (! this.sh_languages) {
this.sh_languages = {};
}
sh_languages['pascal'] = [
[
[
/\b(?:alfa|and|array|begin|case|const|div|do|downto|else|end|false|file|for|function|get|goto|if|in|label|mod|new|not|of|or|pack|packed|page|program|put|procedure|read|readln|record|repeat|reset|rewrite|set|text|then|to|true|type|unpack|until|var|while|with|writeln|write)\b/gi,
'sh_keyword',
-1
],
[
/\(\*/g,
'sh_comment',
1
],
[
/\{/g,
'sh_comment',
2
],
[
/\b[+-]?(?:(?:0x[A-Fa-f0-9]+)|(?:(?:[\d]*\.)?[\d]+(?:[eE][+-]?[\d]+)?))u?(?:(?:int(?:8|16|32|64))|L)?\b/g,
'sh_number',
-1
],
[
/"/g,
'sh_string',
3
],
[
/'/g,
'sh_string',
4
],
[
/\b(?:boolean|byte|char|integer|maxint|real)\b/gi,
'sh_type',
-1
],
[
/~|!|%|\^|\*|\(|\)|-|\+|=|\[|\]|\\|:|;|,|\.|\/|\?|&|<|>|\|/g,
'sh_symbol',
-1
],
[
/(?:[A-Za-z]|_)[A-Za-z0-9_]*(?=[ \t]*\()/g,
'sh_function',
-1
]
],
[
[
/\*\)/g,
'sh_comment',
-2
],
[
/\(\*/g,
'sh_comment',
1
]
],
[
[
/\}/g,
'sh_comment',
-2
],
[
/\{/g,
'sh_comment',
2
]
],
[
[
/$/g,
null,
-2
],
[
/\\(?:\\|")/g,
null,
-1
],
[
/"/g,
'sh_string',
-2
]
],
[
[
/$/g,
null,
-2
],
[
/\\(?:\\|')/g,
null,
-1
],
[
/'/g,
'sh_string',
-2
]
]
];