芝麻web文件管理V1.00
编辑当前文件:/home2/sdektunc/acancehyucatan.gob.mx/media/vendor/codemirror/mode/cobol/cobol.min.js
!function(E){"object"==typeof exports&&"object"==typeof module?E(require("../../lib/codemirror")):"function"==typeof define&&define.amd?define(["../../lib/codemirror"],E):E(CodeMirror)}((function(E){"use strict";E.defineMode("cobol",(function(){var E="string",T="atom";function I(E){for(var T={},I=E.split(" "),N=0;N
>= "),O={digit:/\d/,digit_or_colon:/[\d:]/,hex:/[0-9a-f]/i,sign:/[+-]/,exponent:/e/i,keyword_char:/[^\s\(\[\;\)\]]/,symbol:/[\w*+\-]/};return{startState:function(){return{indentStack:null,indentation:0,mode:!1}},token:function(I,C){if(null==C.indentStack&&I.sol()&&(C.indentation=6),I.eatSpace())return null;var L=null;switch(C.mode){case"string":for(var D=!1;null!=(D=I.next());)if(('"'==D||"'"==D)&&!I.match(/['"]/,!1)){C.mode=!1;break}L=E;break;default:var S=I.next(),U=I.column();if(U>=0&&U<=5)L="def";else if(U>=72&&U<=79)I.skipToEnd(),L="header";else if("*"==S&&6==U)I.skipToEnd(),L="comment";else if('"'==S||"'"==S)C.mode="string",L=E;else if("'"!=S||O.digit_or_colon.test(I.peek()))if("."==S)L="link";else if(function(E,T){return"0"===E&&T.eat(/x/i)?(T.eatWhile(O.hex),!0):("+"!=E&&"-"!=E||!O.digit.test(T.peek())||(T.eat(O.sign),E=T.next()),!!O.digit.test(E)&&(T.eat(E),T.eatWhile(O.digit),"."==T.peek()&&(T.eat("."),T.eatWhile(O.digit)),T.eat(O.exponent)&&(T.eat(O.sign),T.eatWhile(O.digit)),!0))}(S,I))L="number";else{if(I.current().match(O.symbol))for(;U<71&&void 0!==I.eat(O.symbol);)U++;L=R&&R.propertyIsEnumerable(I.current().toUpperCase())?"keyword":A&&A.propertyIsEnumerable(I.current().toUpperCase())?"builtin":N&&N.propertyIsEnumerable(I.current().toUpperCase())?T:null}else L=T}return L},indent:function(E){return null==E.indentStack?E.indentation:E.indentStack.indent}}})),E.defineMIME("text/x-cobol","cobol")}));