Directory:~$ /home/lmsyaran/public_html/j3/media/editors/codemirror/mode/pascal/

Upload File

[Home] [System Details] [Kill Me]

!(function(a){"object"==typeof
exports&&"object"==typeof
module?a(require("../../lib/codemirror")):"function"==typeof
define&&define.amd?define(["../../lib/codemirror"],a):a(CodeMirror)})((function(a){"use
strict";a.defineMode("pascal",(function(){function
a(a,h){var i=a.next();if("#"==i&&h.startOfLine)return
a.skipToEnd(),"meta";if('"'==i||"'"==i)return
h.tokenize=b(i),h.tokenize(a,h);if("("==i&&a.eat("*"))return
h.tokenize=c,c(a,h);if("{"==i)return
h.tokenize=d,d(a,h);if(/[\[\]\(\),;\:\.]/.test(i))return
null;if(/\d/.test(i))return
a.eatWhile(/[\w\.]/),"number";if("/"==i&&a.eat("/"))return
a.skipToEnd(),"comment";if(g.test(i))return
a.eatWhile(g),"operator";a.eatWhile(/[\w\$_]/);var
j=a.current();return
e.propertyIsEnumerable(j)?"keyword":f.propertyIsEnumerable(j)?"atom":"variable"}function
b(a){return function(b,c){for(var
d,e=!1,f=!1;null!=(d=b.next());){if(d==a&&!e){f=!0;break}e=!e&&"\\"==d}return!f&&e||(c.tokenize=null),"string"}}function
c(a,b){for(var
c,d=!1;c=a.next();){if(")"==c&&d){b.tokenize=null;break}d="*"==c}return"comment"}function
d(a,b){for(var
c;c=a.next();)if("}"==c){b.tokenize=null;break}return"comment"}var
e=(function(a){for(var b={},c=a.split("
"),d=0;d<c.length;++d)b[c[d]]=!0;return b})("absolute and
array asm begin case const constructor destructor div do downto else end
file for function goto if implementation in inherited inline interface
label mod nil not object of operator or packed procedure program record
reintroduce repeat self set shl shr string then to type unit until uses var
while with xor as class dispinterface except exports finalization finally
initialization inline is library on out packed property raise
resourcestring threadvar try absolute abstract alias assembler bitpacked
break cdecl continue cppdecl cvar default deprecated dynamic enumerator
experimental export external far far16 forward generic helper implements
index interrupt iocheck local message name near nodefault noreturn
nostackframe oldfpccall otherwise overload override pascal platform private
protected public published read register reintroduce result safecall
saveregisters softfloat specialize static stdcall stored strict unaligned
unimplemented varargs virtual
write"),f={null:!0},g=/[+\-*&%=<>!?|\/]/;return{startState:function(){return{tokenize:null}},token:function(b,c){if(b.eatSpace())return
null;var d=(c.tokenize||a)(b,c);return
d},electricChars:"{}"}})),a.defineMIME("text/x-pascal","pascal")}));