WebSVN – corrade-nucleus-nucleons – Blame – Rev 20 – /script-kiddie/002_script_kiddie/script-kiddie/node

office

define("ace/mode/fortran_highlight_rules",["require","exports","module","ace/lib/oop","ace/mode/text_highlight_rules"], function(require, exports, module) {

2

"use strict";

3

4

var oop = require("../lib/oop");

5

var TextHighlightRules = require("./text_highlight_rules").TextHighlightRules;

6

7

var FortranHighlightRules = function() {

var keywords = (

"select|status|stop|subroutine|" +

"SELECT|STATUS|STOP|SUBROUTINE|" +

17

"RETURN|THEN|USE|WHILE|WRITE"

18

);

19

20

var keywordOperators = (

21

"and|or|not|eq|ne|gt|ge|lt|le|" +

22

"AND|OR|NOT|EQ|NE|GT|GE|LT|LE"

23

);

24

25

var builtinConstants = (

26

"true|false|TRUE|FALSE"

27

);

28

29

var builtinFunctions = (

"bge|bgt|bit_size|ble|blt|btest|ceiling|char|cmplx|conjg|cos|cosh|"+

34

35

36

"format|fraction|gamma|input|len|lge|lgt|lle|llt|log|log10|maskl|maskr|matmul|max|maxloc|maxval|"+

"BGE|BGT|BIT_SIZE|BLE|BLT|BTEST|CEILING|CHAR|CMPLX|CONJG|COS|COSH|"+

46

47

48

"FORMAT|FRACTION|GAMMA|INPUT|LEN|LGE|LGT|LLE|LLT|LOG|LOG10|MASKL|MASKR|MATMUL|MAX|MAXLOC|MAXVAL|"+

);

var storageType = (

57

58

"LOGICAL|CHARACTER|INTEGER|REAL|TYPE"

59

);

60

61

var storageModifiers = (

);

var keywordMapper = this.createKeywordMapper({

67

"invalid.deprecated": "debugger",

68

"support.function": builtinFunctions,

69

"constant.language": builtinConstants,

70

"keyword": keywords,

71

"keyword.operator": keywordOperators,

72

"storage.type": storageType,

73

"storage.modifier" : storageModifiers

74

}, "identifier");

75

76

var strPre = "(?:r|u|ur|R|U|UR|Ur|uR)?";

77

78

var decimalInteger = "(?:(?:[1-9]\\d*)|(?:0))";

79

var octInteger = "(?:0[oO]?[0-7]+)";

80

var hexInteger = "(?:0[xX][\\dA-Fa-f]+)";

81

var binInteger = "(?:0[bB][01]+)";

82

var integer = "(?:" + decimalInteger + "|" + octInteger + "|" + hexInteger + "|" + binInteger + ")";

83

84

var exponent = "(?:[eE][+-]?\\d+)";

85

var fraction = "(?:\\.\\d+)";

86

var intPart = "(?:\\d+)";

87

var pointFloat = "(?:(?:" + intPart + "?" + fraction + ")|(?:" + intPart + "\\.))";

88

var exponentFloat = "(?:(?:" + pointFloat + "|" + intPart + ")" + exponent + ")";

89

var floatNumber = "(?:" + exponentFloat + "|" + pointFloat + ")";

90

91

var stringEscape = "\\\\(x[0-9A-Fa-f]{2}|[0-7]{3}|[\\\\abfnrtv'\"]|U[0-9A-Fa-f]{8}|u[0-9A-Fa-f]{4})";

this.$rules = {

"start" : [ {

token : "comment",

regex : "!.*$"

}, {

token : "string", // multi line """ string start

99

regex : strPre + '"{3}',

100

next : "qqstring3"

101

}, {

102

token : "string", // " string

103

regex : strPre + '"(?=.)',

104

next : "qqstring"

105

}, {

106

token : "string", // multi line ''' string start

107

regex : strPre + "'{3}",

108

next : "qstring3"

109

}, {

110

token : "string", // ' string

111

regex : strPre + "'(?=.)",

112

next : "qstring"

113

}, {

114

token : "constant.numeric", // imaginary

115

regex : "(?:" + floatNumber + "|\\d+)[jJ]\\b"

116

}, {

117

token : "constant.numeric", // float

118

regex : floatNumber

119

}, {

120

token : "constant.numeric", // long integer

121

regex : integer + "[lL]\\b"

122

}, {

123

token : "constant.numeric", // integer

124

regex : integer + "\\b"

125

}, {

126

token : "keyword", // pre-compiler directives

127

128

}, {

129

token : "keyword", // special case pre-compiler directive

130

131

}, {

132

token : keywordMapper,

133

regex : "[a-zA-Z_$][a-zA-Z0-9_$]*\\b"

134

}, {

135

token : "keyword.operator",

136

regex : "\\+|\\-|\\*|\\*\\*|\\/|\\/\\/|%|<<|>>|&|\\||\\^|~|<|>|<=|=>|==|!=|<>|="

137

}, {

138

token : "paren.lparen",

139

regex : "[\\[\\(\\{]"

140

}, {

141

token : "paren.rparen",

142

regex : "[\\]\\)\\}]"

}, {

token : "text",

regex : "\\s+"

} ],

"qqstring3" : [ {

token : "constant.language.escape",

149

regex : stringEscape

150

}, {

151

token : "string", // multi line """ string end

regex : '"{3}',

next : "start"

}, {

defaultToken : "string"

156

} ],

157

"qstring3" : [ {

158

token : "constant.language.escape",

159

regex : stringEscape

160

}, {

161

token : "string", // multi line """ string end

regex : '"{3}',

next : "start"

}, {

defaultToken : "string"

166

} ],

167

"qqstring" : [{

168

token : "constant.language.escape",

169

regex : stringEscape

}, {

token : "string",

regex : "\\\\$",

next : "qqstring"

}, {

token : "string",

regex : '"|$',

next : "start"

}, {

defaultToken: "string"

180

}],

181

"qstring" : [{

182

token : "constant.language.escape",

183

regex : stringEscape

}, {

token : "string",

regex : "\\\\$",

next : "qstring"

}, {

token : "string",

regex : "'|$",

next : "start"

}, {

defaultToken: "string"

}]

};

};

oop.inherits(FortranHighlightRules, TextHighlightRules);

199

200

exports.FortranHighlightRules = FortranHighlightRules;

201

});

202

203

define("ace/mode/folding/cstyle",["require","exports","module","ace/lib/oop","ace/range","ace/mode/folding/fold_mode"], function(require, exports, module) {

204

"use strict";

205

206

var oop = require("../../lib/oop");

207

var Range = require("../../range").Range;

208

var BaseFoldMode = require("./fold_mode").FoldMode;

209

210

var FoldMode = exports.FoldMode = function(commentRegex) {

211

if (commentRegex) {

212

this.foldingStartMarker = new RegExp(

213

this.foldingStartMarker.source.replace(/\|[^|]*?$/, "|" + commentRegex.start)

214

);

215

this.foldingStopMarker = new RegExp(

216

this.foldingStopMarker.source.replace(/\|[^|]*?$/, "|" + commentRegex.end)

);

}

};

oop.inherits(FoldMode, BaseFoldMode);

(function() {

this.foldingStartMarker = /(\{|\[)[^\}\]]*$|^\s*(\/\*)/;

225

this.foldingStopMarker = /^[^\[\{]*(\}|\])|^[\s\*]*(\*\/)/;

226

this.singleLineBlockCommentRe= /^\s*(\/\*).*\*\/\s*$/;

227

this.tripleStarBlockCommentRe = /^\s*(\/\*\*\*).*\*\/\s*$/;

228

this.startRegionRe = /^\s*(\/\*|\/\/)#?region\b/;

229

this._getFoldWidgetBase = this.getFoldWidget;

230

this.getFoldWidget = function(session, foldStyle, row) {

231

var line = session.getLine(row);

232

233

if (this.singleLineBlockCommentRe.test(line)) {

234

if (!this.startRegionRe.test(line) && !this.tripleStarBlockCommentRe.test(line))

return "";

}

var fw = this._getFoldWidgetBase(session, foldStyle, row);

239

240

if (!fw && this.startRegionRe.test(line))

241

return "start"; // lineCommentRegionStart

return fw;

};

this.getFoldWidgetRange = function(session, foldStyle, row, forceMultiline) {

247

var line = session.getLine(row);

248

249

if (this.startRegionRe.test(line))

250

return this.getCommentRegionBlock(session, line, row);

251

252

var match = line.match(this.foldingStartMarker);

253

if (match) {

254

var i = match.index;

255

256

if (match[1])

257

return this.openingBracketBlock(session, match[1], row, i);

258

259

var range = session.getCommentFoldRange(row, i + match[0].length, 1);

260

261

if (range && !range.isMultiLine()) {

262

if (forceMultiline) {

263

range = this.getSectionRange(session, row);

264

} else if (foldStyle != "all")

range = null;

}

return range;

}

if (foldStyle === "markbegin")

272

return;

273

274

var match = line.match(this.foldingStopMarker);

275

if (match) {

276

var i = match.index + match[0].length;

277

278

if (match[1])

279

return this.closingBracketBlock(session, match[1], row, i);

280

281

return session.getCommentFoldRange(row, i, -1);

}

};

this.getSectionRange = function(session, row) {

286

var line = session.getLine(row);

287

var startIndent = line.search(/\S/);

288

var startRow = row;

289

var startColumn = line.length;

290

row = row + 1;

291

var endRow = row;

292

var maxRow = session.getLength();

293

while (++row < maxRow) {

294

line = session.getLine(row);

295

var indent = line.search(/\S/);

296

if (indent === -1)

297

continue;

298

if (startIndent > indent)

299

break;

300

var subRange = this.getFoldWidgetRange(session, "all", row);

301

302

if (subRange) {

303

if (subRange.start.row <= startRow) {

304

break;

305

} else if (subRange.isMultiLine()) {

306

row = subRange.end.row;

307

} else if (startIndent == indent) {

break;

}

}

endRow = row;

}

return new Range(startRow, startColumn, endRow, session.getLine(endRow).length);

315

};

316

this.getCommentRegionBlock = function(session, line, row) {

317

var startColumn = line.search(/\s*$/);

318

var maxRow = session.getLength();

319

var startRow = row;

320

321

var re = /^\s*(?:\/\*|\/\/|--)#?(end)?region\b/;

322

var depth = 1;

323

while (++row < maxRow) {

324

line = session.getLine(row);

325

var m = re.exec(line);

if (!m) continue;

if (m[1]) depth--;

else depth++;

if (!depth) break;

}

var endRow = row;

if (endRow > startRow) {

335

return new Range(startRow, startColumn, endRow, line.length);

}

};

}).call(FoldMode.prototype);

});

define("ace/mode/fortran",["require","exports","module","ace/lib/oop","ace/mode/text","ace/mode/fortran_highlight_rules","ace/mode/folding/cstyle","ace/range"], function(require, exports, module) {

344

"use strict";

345

346

var oop = require("../lib/oop");

347

var TextMode = require("./text").Mode;

348

var FortranHighlightRules = require("./fortran_highlight_rules").FortranHighlightRules;

349

var CStyleFoldMode = require("./folding/cstyle").FoldMode;

350

var Range = require("../range").Range;

351

352

var Mode = function() {

353

this.HighlightRules = FortranHighlightRules;

354

this.foldingRules = new CStyleFoldMode();

355

this.$behaviour = this.$defaultBehaviour;

356

};

357

oop.inherits(Mode, TextMode);

(function() {

this.lineCommentStart = "!";

362

363

this.getNextLineIndent = function(state, line, tab) {

364

var indent = this.$getIndent(line);

365

366

var tokenizedLine = this.getTokenizer().getLineTokens(line, state);

367

var tokens = tokenizedLine.tokens;

368

369

if (tokens.length && tokens[tokens.length-1].type == "comment") {

return indent;

}

if (state == "start") {

374

var match = line.match(/^.*[\{\(\[:]\s*$/);

if (match) {

indent += tab;

}

}

return indent;

};

var outdents = {

"return": 1,

"break": 1,

"continue": 1,

"RETURN": 1,

"BREAK": 1,

"CONTINUE": 1

};

this.checkOutdent = function(state, line, input) {

393

if (input !== "\r\n" && input !== "\r" && input !== "\n")

394

return false;

395

396

var tokens = this.getTokenizer().getLineTokens(line.trim(), state).tokens;

if (!tokens)

return false;

do {

var last = tokens.pop();

402

} while (last && (last.type == "comment" || (last.type == "text" && last.value.match(/^\s+$/))));

if (!last)

return false;

return (last.type == "keyword" && outdents[last.value]);

408

};

409

410

this.autoOutdent = function(state, doc, row) {

411

412

row += 1;

413

var indent = this.$getIndent(doc.getLine(row));

414

var tab = doc.getTabString();

415

if (indent.slice(-tab.length) == tab)

416

doc.remove(new Range(row, indent.length-tab.length, row, indent.length));

417

};

418

419

this.$id = "ace/mode/fortran";

420

}).call(Mode.prototype);

421

422

exports.Mode = Mode;

423

});

Rev	Author	Line No.	Line
20	office	1	`define("ace/mode/fortran_highlight_rules",["require","exports","module","ace/lib/oop","ace/mode/text_highlight_rules"], function(require, exports, module) {`
		2	`"use strict";`
		3
		4	`var oop = require("../lib/oop");`
		5	`var TextHighlightRules = require("./text_highlight_rules").TextHighlightRules;`
		6
		7	`var FortranHighlightRules = function() {`
		8
		9	`var keywords = (`
		10	`"call\|case\|contains\|continue\|cycle\|do\|else\|elseif\|end\|enddo\|endif\|function\|"+`
		11	`"if\|implicit\|in\|include\|inout\|intent\|module\|none\|only\|out\|print\|program\|return\|"+`
		12	`"select\|status\|stop\|subroutine\|" +`
		13	`"return\|then\|use\|while\|write\|"+`
		14	`"CALL\|CASE\|CONTAINS\|CONTINUE\|CYCLE\|DO\|ELSE\|ELSEIF\|END\|ENDDO\|ENDIF\|FUNCTION\|"+`
		15	`"IF\|IMPLICIT\|IN\|INCLUDE\|INOUT\|INTENT\|MODULE\|NONE\|ONLY\|OUT\|PRINT\|PROGRAM\|RETURN\|"+`
		16	`"SELECT\|STATUS\|STOP\|SUBROUTINE\|" +`
		17	`"RETURN\|THEN\|USE\|WHILE\|WRITE"`
		18	`);`
		19
		20	`var keywordOperators = (`
		21	`"and\|or\|not\|eq\|ne\|gt\|ge\|lt\|le\|" +`
		22	`"AND\|OR\|NOT\|EQ\|NE\|GT\|GE\|LT\|LE"`
		23	`);`
		24
		25	`var builtinConstants = (`
		26	`"true\|false\|TRUE\|FALSE"`
		27	`);`
		28
		29	`var builtinFunctions = (`
		30	`"abs\|achar\|acos\|acosh\|adjustl\|adjustr\|aimag\|aint\|all\|allocate\|"+`
		31	`"anint\|any\|asin\|asinh\|associated\|atan\|atan2\|atanh\|"+`
		32	`"bessel_j0\|bessel_j1\|bessel_jn\|bessel_y0\|bessel_y1\|bessel_yn\|"+`
		33	`"bge\|bgt\|bit_size\|ble\|blt\|btest\|ceiling\|char\|cmplx\|conjg\|cos\|cosh\|"+`
		34	`"count\|cpu_time\|cshift\|date_and_time\|dble\|deallocate\|digits\|dim\|dot_product\|dprod\|"+`
		35	`"dshiftl\|dshiftr\|dsqrt\|eoshift\|epsilon\|erf\|erfc\|erfc_scaled\|exp\|float\|floor\|"+`
		36	`"format\|fraction\|gamma\|input\|len\|lge\|lgt\|lle\|llt\|log\|log10\|maskl\|maskr\|matmul\|max\|maxloc\|maxval\|"+`
		37	`"merge\|min\|minloc\|minval\|mod\|modulo\|nint\|not\|norm2\|null\|nullify\|pack\|parity\|popcnt\|poppar\|"+`
		38	`"precision\|present\|product\|radix\|random_number\|random_seed\|range\|repeat\|reshape\|round\|"+`
		39	`"rrspacing\|same_type_as\|scale\|scan\|selected_char_kind\|selected_int_kind\|selected_real_kind\|"+`
		40	`"set_exponent\|shape\|shifta\|shiftl\|shiftr\|sign\|sin\|sinh\|size\|sngl\|spacing\|spread\|"+`
		41	`"sqrt\|sum\|system_clock\|tan\|tanh\|tiny\|trailz\|transfer\|transpose\|trim\|ubound\|unpack\|verify\|" +`
		42	`"ABS\|ACHAR\|ACOS\|ACOSH\|ADJUSTL\|ADJUSTR\|AIMAG\|AINT\|ALL\|ALLOCATE\|"+`
		43	`"ANINT\|ANY\|ASIN\|ASINH\|ASSOCIATED\|ATAN\|ATAN2\|ATANH\|"+`
		44	`"BESSEL_J0\|BESSEL_J1\|BESSEL_JN\|BESSEL_Y0\|BESSEL_Y1\|BESSEL_YN\|"+`
		45	`"BGE\|BGT\|BIT_SIZE\|BLE\|BLT\|BTEST\|CEILING\|CHAR\|CMPLX\|CONJG\|COS\|COSH\|"+`
		46	`"COUNT\|CPU_TIME\|CSHIFT\|DATE_AND_TIME\|DBLE\|DEALLOCATE\|DIGITS\|DIM\|DOT_PRODUCT\|DPROD\|"+`
		47	`"DSHIFTL\|DSHIFTR\|DSQRT\|EOSHIFT\|EPSILON\|ERF\|ERFC\|ERFC_SCALED\|EXP\|FLOAT\|FLOOR\|"+`
		48	`"FORMAT\|FRACTION\|GAMMA\|INPUT\|LEN\|LGE\|LGT\|LLE\|LLT\|LOG\|LOG10\|MASKL\|MASKR\|MATMUL\|MAX\|MAXLOC\|MAXVAL\|"+`
		49	`"MERGE\|MIN\|MINLOC\|MINVAL\|MOD\|MODULO\|NINT\|NOT\|NORM2\|NULL\|NULLIFY\|PACK\|PARITY\|POPCNT\|POPPAR\|"+`
		50	`"PRECISION\|PRESENT\|PRODUCT\|RADIX\|RANDOM_NUMBER\|RANDOM_SEED\|RANGE\|REPEAT\|RESHAPE\|ROUND\|"+`
		51	`"RRSPACING\|SAME_TYPE_AS\|SCALE\|SCAN\|SELECTED_CHAR_KIND\|SELECTED_INT_KIND\|SELECTED_REAL_KIND\|"+`
		52	`"SET_EXPONENT\|SHAPE\|SHIFTA\|SHIFTL\|SHIFTR\|SIGN\|SIN\|SINH\|SIZE\|SNGL\|SPACING\|SPREAD\|"+`
		53	`"SQRT\|SUM\|SYSTEM_CLOCK\|TAN\|TANH\|TINY\|TRAILZ\|TRANSFER\|TRANSPOSE\|TRIM\|UBOUND\|UNPACK\|VERIFY"`
		54	`);`
		55
		56	`var storageType = (`
		57	`"logical\|character\|integer\|real\|type\|" +`
		58	`"LOGICAL\|CHARACTER\|INTEGER\|REAL\|TYPE"`
		59	`);`
		60
		61	`var storageModifiers = (`
		62	`"allocatable\|dimension\|intent\|parameter\|pointer\|target\|private\|public\|" +`
		63	`"ALLOCATABLE\|DIMENSION\|INTENT\|PARAMETER\|POINTER\|TARGET\|PRIVATE\|PUBLIC"`
		64	`);`
		65
		66	`var keywordMapper = this.createKeywordMapper({`
		67	`"invalid.deprecated": "debugger",`
		68	`"support.function": builtinFunctions,`
		69	`"constant.language": builtinConstants,`
		70	`"keyword": keywords,`
		71	`"keyword.operator": keywordOperators,`
		72	`"storage.type": storageType,`
		73	`"storage.modifier" : storageModifiers`
		74	`}, "identifier");`
		75
		76	`var strPre = "(?:r\|u\|ur\|R\|U\|UR\|Ur\|uR)?";`
		77
		78	`var decimalInteger = "(?:(?:[1-9]\\d*)\|(?:0))";`
		79	`var octInteger = "(?:0[oO]?[0-7]+)";`
		80	`var hexInteger = "(?:0[xX][\\dA-Fa-f]+)";`
		81	`var binInteger = "(?:0[bB][01]+)";`
		82	`var integer = "(?:" + decimalInteger + "\|" + octInteger + "\|" + hexInteger + "\|" + binInteger + ")";`
		83
		84	`var exponent = "(?:[eE][+-]?\\d+)";`
		85	`var fraction = "(?:\\.\\d+)";`
		86	`var intPart = "(?:\\d+)";`
		87	`var pointFloat = "(?:(?:" + intPart + "?" + fraction + ")\|(?:" + intPart + "\\.))";`
		88	`var exponentFloat = "(?:(?:" + pointFloat + "\|" + intPart + ")" + exponent + ")";`
		89	`var floatNumber = "(?:" + exponentFloat + "\|" + pointFloat + ")";`
		90
		91	`var stringEscape = "\\\\(x[0-9A-Fa-f]{2}\|[0-7]{3}\|[\\\\abfnrtv'\"]\|U[0-9A-Fa-f]{8}\|u[0-9A-Fa-f]{4})";`
		92
		93	`this.$rules = {`
		94	`"start" : [ {`
		95	`token : "comment",`
		96	`regex : "!.*$"`
		97	`}, {`
		98	`token : "string", // multi line """ string start`
		99	`regex : strPre + '"{3}',`
		100	`next : "qqstring3"`
		101	`}, {`
		102	`token : "string", // " string`
		103	`regex : strPre + '"(?=.)',`
		104	`next : "qqstring"`
		105	`}, {`
		106	`token : "string", // multi line ''' string start`
		107	`regex : strPre + "'{3}",`
		108	`next : "qstring3"`
		109	`}, {`
		110	`token : "string", // ' string`
		111	`regex : strPre + "'(?=.)",`
		112	`next : "qstring"`
		113	`}, {`
		114	`token : "constant.numeric", // imaginary`
		115	`regex : "(?:" + floatNumber + "\|\\d+)[jJ]\\b"`
		116	`}, {`
		117	`token : "constant.numeric", // float`
		118	`regex : floatNumber`
		119	`}, {`
		120	`token : "constant.numeric", // long integer`
		121	`regex : integer + "[lL]\\b"`
		122	`}, {`
		123	`token : "constant.numeric", // integer`
		124	`regex : integer + "\\b"`
		125	`}, {`
		126	`token : "keyword", // pre-compiler directives`
		127	`regex : "#\\s*(?:include\|import\|define\|undef\|INCLUDE\|IMPORT\|DEFINE\|UNDEF)\\b"`
		128	`}, {`
		129	`token : "keyword", // special case pre-compiler directive`
		130	`regex : "#\\s*(?:endif\|ifdef\|else\|elseif\|ifndef\|ENDIF\|IFDEF\|ELSE\|ELSEIF\|IFNDEF)\\b"`
		131	`}, {`
		132	`token : keywordMapper,`
		133	`regex : "[a-zA-Z_$][a-zA-Z0-9_$]*\\b"`
		134	`}, {`
		135	`token : "keyword.operator",`
		136	`regex : "\\+\|\\-\|\\\|\\\\*\|\\/\|\\/\\/\|%\|<<\|>>\|&\|\\\|\|\\^\|~\|<\|>\|<=\|=>\|==\|!=\|<>\|="`
		137	`}, {`
		138	`token : "paren.lparen",`
		139	`regex : "[\\[\\(\\{]"`
		140	`}, {`
		141	`token : "paren.rparen",`
		142	`regex : "[\\]\\)\\}]"`
		143	`}, {`
		144	`token : "text",`
		145	`regex : "\\s+"`
		146	`} ],`
		147	`"qqstring3" : [ {`
		148	`token : "constant.language.escape",`
		149	`regex : stringEscape`
		150	`}, {`
		151	`token : "string", // multi line """ string end`
		152	`regex : '"{3}',`
		153	`next : "start"`
		154	`}, {`
		155	`defaultToken : "string"`
		156	`} ],`
		157	`"qstring3" : [ {`
		158	`token : "constant.language.escape",`
		159	`regex : stringEscape`
		160	`}, {`
		161	`token : "string", // multi line """ string end`
		162	`regex : '"{3}',`
		163	`next : "start"`
		164	`}, {`
		165	`defaultToken : "string"`
		166	`} ],`
		167	`"qqstring" : [{`
		168	`token : "constant.language.escape",`
		169	`regex : stringEscape`
		170	`}, {`
		171	`token : "string",`
		172	`regex : "\\\\$",`
		173	`next : "qqstring"`
		174	`}, {`
		175	`token : "string",`
		176	`regex : '"\|$',`
		177	`next : "start"`
		178	`}, {`
		179	`defaultToken: "string"`
		180	`}],`
		181	`"qstring" : [{`
		182	`token : "constant.language.escape",`
		183	`regex : stringEscape`
		184	`}, {`
		185	`token : "string",`
		186	`regex : "\\\\$",`
		187	`next : "qstring"`
		188	`}, {`
		189	`token : "string",`
		190	`regex : "'\|$",`
		191	`next : "start"`
		192	`}, {`
		193	`defaultToken: "string"`
		194	`}]`
		195	`};`
		196	`};`
		197
		198	`oop.inherits(FortranHighlightRules, TextHighlightRules);`
		199
		200	`exports.FortranHighlightRules = FortranHighlightRules;`
		201	`});`
		202
		203	`define("ace/mode/folding/cstyle",["require","exports","module","ace/lib/oop","ace/range","ace/mode/folding/fold_mode"], function(require, exports, module) {`
		204	`"use strict";`
		205
		206	`var oop = require("../../lib/oop");`
		207	`var Range = require("../../range").Range;`
		208	`var BaseFoldMode = require("./fold_mode").FoldMode;`
		209
		210	`var FoldMode = exports.FoldMode = function(commentRegex) {`
		211	`if (commentRegex) {`
		212	`this.foldingStartMarker = new RegExp(`
		213	`this.foldingStartMarker.source.replace(/\\|[^\|]*?$/, "\|" + commentRegex.start)`
		214	`);`
		215	`this.foldingStopMarker = new RegExp(`
		216	`this.foldingStopMarker.source.replace(/\\|[^\|]*?$/, "\|" + commentRegex.end)`
		217	`);`
		218	`}`
		219	`};`
		220	`oop.inherits(FoldMode, BaseFoldMode);`
		221
		222	`(function() {`
		223
		224	`this.foldingStartMarker = /(\{\|\[)[^\}\]]$\|^\s(\/\*)/;`
		225	`this.foldingStopMarker = /^[^\[\{](\}\|\])\|^[\s\](\\/)/;`
		226	`this.singleLineBlockCommentRe= /^\s(\/\).\\/\s*$/;`
		227	`this.tripleStarBlockCommentRe = /^\s(\/\\\).\\/\s*$/;`
		228	`this.startRegionRe = /^\s(\/\\|\/\/)#?region\b/;`
		229	`this._getFoldWidgetBase = this.getFoldWidget;`
		230	`this.getFoldWidget = function(session, foldStyle, row) {`
		231	`var line = session.getLine(row);`
		232
		233	`if (this.singleLineBlockCommentRe.test(line)) {`
		234	`if (!this.startRegionRe.test(line) && !this.tripleStarBlockCommentRe.test(line))`
		235	`return "";`
		236	`}`
		237
		238	`var fw = this._getFoldWidgetBase(session, foldStyle, row);`
		239
		240	`if (!fw && this.startRegionRe.test(line))`
		241	`return "start"; // lineCommentRegionStart`
		242
		243	`return fw;`
		244	`};`
		245
		246	`this.getFoldWidgetRange = function(session, foldStyle, row, forceMultiline) {`
		247	`var line = session.getLine(row);`
		248
		249	`if (this.startRegionRe.test(line))`
		250	`return this.getCommentRegionBlock(session, line, row);`
		251
		252	`var match = line.match(this.foldingStartMarker);`
		253	`if (match) {`
		254	`var i = match.index;`
		255
		256	`if (match[1])`
		257	`return this.openingBracketBlock(session, match[1], row, i);`
		258
		259	`var range = session.getCommentFoldRange(row, i + match[0].length, 1);`
		260
		261	`if (range && !range.isMultiLine()) {`
		262	`if (forceMultiline) {`
		263	`range = this.getSectionRange(session, row);`
		264	`} else if (foldStyle != "all")`
		265	`range = null;`
		266	`}`
		267
		268	`return range;`
		269	`}`
		270
		271	`if (foldStyle === "markbegin")`
		272	`return;`
		273
		274	`var match = line.match(this.foldingStopMarker);`
		275	`if (match) {`
		276	`var i = match.index + match[0].length;`
		277
		278	`if (match[1])`
		279	`return this.closingBracketBlock(session, match[1], row, i);`
		280
		281	`return session.getCommentFoldRange(row, i, -1);`
		282	`}`
		283	`};`
		284
		285	`this.getSectionRange = function(session, row) {`
		286	`var line = session.getLine(row);`
		287	`var startIndent = line.search(/\S/);`
		288	`var startRow = row;`
		289	`var startColumn = line.length;`
		290	`row = row + 1;`
		291	`var endRow = row;`
		292	`var maxRow = session.getLength();`
		293	`while (++row < maxRow) {`
		294	`line = session.getLine(row);`
		295	`var indent = line.search(/\S/);`
		296	`if (indent === -1)`
		297	`continue;`
		298	`if (startIndent > indent)`
		299	`break;`
		300	`var subRange = this.getFoldWidgetRange(session, "all", row);`
		301
		302	`if (subRange) {`
		303	`if (subRange.start.row <= startRow) {`
		304	`break;`
		305	`} else if (subRange.isMultiLine()) {`
		306	`row = subRange.end.row;`
		307	`} else if (startIndent == indent) {`
		308	`break;`
		309	`}`
		310	`}`
		311	`endRow = row;`
		312	`}`
		313
		314	`return new Range(startRow, startColumn, endRow, session.getLine(endRow).length);`
		315	`};`
		316	`this.getCommentRegionBlock = function(session, line, row) {`
		317	`var startColumn = line.search(/\s*$/);`
		318	`var maxRow = session.getLength();`
		319	`var startRow = row;`
		320
		321	`var re = /^\s(?:\/\\|\/\/\|--)#?(end)?region\b/;`
		322	`var depth = 1;`
		323	`while (++row < maxRow) {`
		324	`line = session.getLine(row);`
		325	`var m = re.exec(line);`
		326	`if (!m) continue;`
		327	`if (m[1]) depth--;`
		328	`else depth++;`
		329
		330	`if (!depth) break;`
		331	`}`
		332
		333	`var endRow = row;`
		334	`if (endRow > startRow) {`
		335	`return new Range(startRow, startColumn, endRow, line.length);`
		336	`}`
		337	`};`
		338
		339	`}).call(FoldMode.prototype);`
		340
		341	`});`
		342
		343	`define("ace/mode/fortran",["require","exports","module","ace/lib/oop","ace/mode/text","ace/mode/fortran_highlight_rules","ace/mode/folding/cstyle","ace/range"], function(require, exports, module) {`
		344	`"use strict";`
		345
		346	`var oop = require("../lib/oop");`
		347	`var TextMode = require("./text").Mode;`
		348	`var FortranHighlightRules = require("./fortran_highlight_rules").FortranHighlightRules;`
		349	`var CStyleFoldMode = require("./folding/cstyle").FoldMode;`
		350	`var Range = require("../range").Range;`
		351
		352	`var Mode = function() {`
		353	`this.HighlightRules = FortranHighlightRules;`
		354	`this.foldingRules = new CStyleFoldMode();`
		355	`this.$behaviour = this.$defaultBehaviour;`
		356	`};`
		357	`oop.inherits(Mode, TextMode);`
		358
		359	`(function() {`
		360
		361	`this.lineCommentStart = "!";`
		362
		363	`this.getNextLineIndent = function(state, line, tab) {`
		364	`var indent = this.$getIndent(line);`
		365
		366	`var tokenizedLine = this.getTokenizer().getLineTokens(line, state);`
		367	`var tokens = tokenizedLine.tokens;`
		368
		369	`if (tokens.length && tokens[tokens.length-1].type == "comment") {`
		370	`return indent;`
		371	`}`
		372
		373	`if (state == "start") {`
		374	`var match = line.match(/^.[\{\(\[:]\s$/);`
		375	`if (match) {`
		376	`indent += tab;`
		377	`}`
		378	`}`
		379
		380	`return indent;`
		381	`};`
		382
		383	`var outdents = {`
		384	`"return": 1,`
		385	`"break": 1,`
		386	`"continue": 1,`
		387	`"RETURN": 1,`
		388	`"BREAK": 1,`
		389	`"CONTINUE": 1`
		390	`};`
		391
		392	`this.checkOutdent = function(state, line, input) {`
		393	`if (input !== "\r\n" && input !== "\r" && input !== "\n")`
		394	`return false;`
		395
		396	`var tokens = this.getTokenizer().getLineTokens(line.trim(), state).tokens;`
		397
		398	`if (!tokens)`
		399	`return false;`
		400	`do {`
		401	`var last = tokens.pop();`
		402	`} while (last && (last.type == "comment" \|\| (last.type == "text" && last.value.match(/^\s+$/))));`
		403
		404	`if (!last)`
		405	`return false;`
		406
		407	`return (last.type == "keyword" && outdents[last.value]);`
		408	`};`
		409
		410	`this.autoOutdent = function(state, doc, row) {`
		411
		412	`row += 1;`
		413	`var indent = this.$getIndent(doc.getLine(row));`
		414	`var tab = doc.getTabString();`
		415	`if (indent.slice(-tab.length) == tab)`
		416	`doc.remove(new Range(row, indent.length-tab.length, row, indent.length));`
		417	`};`
		418
		419	`this.$id = "ace/mode/fortran";`
		420	`}).call(Mode.prototype);`
		421
		422	`exports.Mode = Mode;`
		423	`});`

corrade-nucleus-nucleons – Blame information for rev 20