|
0
|
1 // CodeMirror, copyright (c) by Marijn Haverbeke and others
|
|
|
2 // Distributed under an MIT license: https://codemirror.net/5/LICENSE
|
|
|
3
|
|
|
4 // Author: Aliaksei Chapyzhenka
|
|
|
5
|
|
|
6 (function(mod) {
|
|
|
7 if (typeof exports == "object" && typeof module == "object") // CommonJS
|
|
|
8 mod(require("../../lib/codemirror"));
|
|
|
9 else if (typeof define == "function" && define.amd) // AMD
|
|
|
10 define(["../../lib/codemirror"], mod);
|
|
|
11 else // Plain browser env
|
|
|
12 mod(CodeMirror);
|
|
|
13 })(function(CodeMirror) {
|
|
|
14 "use strict";
|
|
|
15
|
|
|
16 function toWordList(words) {
|
|
|
17 var ret = [];
|
|
|
18 words.split(' ').forEach(function(e){
|
|
|
19 ret.push({name: e});
|
|
|
20 });
|
|
|
21 return ret;
|
|
|
22 }
|
|
|
23
|
|
|
24 var coreWordList = toWordList(
|
|
|
25 'INVERT AND OR XOR\
|
|
|
26 2* 2/ LSHIFT RSHIFT\
|
|
|
27 0= = 0< < > U< MIN MAX\
|
|
|
28 2DROP 2DUP 2OVER 2SWAP ?DUP DEPTH DROP DUP OVER ROT SWAP\
|
|
|
29 >R R> R@\
|
|
|
30 + - 1+ 1- ABS NEGATE\
|
|
|
31 S>D * M* UM*\
|
|
|
32 FM/MOD SM/REM UM/MOD */ */MOD / /MOD MOD\
|
|
|
33 HERE , @ ! CELL+ CELLS C, C@ C! CHARS 2@ 2!\
|
|
|
34 ALIGN ALIGNED +! ALLOT\
|
|
|
35 CHAR [CHAR] [ ] BL\
|
|
|
36 FIND EXECUTE IMMEDIATE COUNT LITERAL STATE\
|
|
|
37 ; DOES> >BODY\
|
|
|
38 EVALUATE\
|
|
|
39 SOURCE >IN\
|
|
|
40 <# # #S #> HOLD SIGN BASE >NUMBER HEX DECIMAL\
|
|
|
41 FILL MOVE\
|
|
|
42 . CR EMIT SPACE SPACES TYPE U. .R U.R\
|
|
|
43 ACCEPT\
|
|
|
44 TRUE FALSE\
|
|
|
45 <> U> 0<> 0>\
|
|
|
46 NIP TUCK ROLL PICK\
|
|
|
47 2>R 2R@ 2R>\
|
|
|
48 WITHIN UNUSED MARKER\
|
|
|
49 I J\
|
|
|
50 TO\
|
|
|
51 COMPILE, [COMPILE]\
|
|
|
52 SAVE-INPUT RESTORE-INPUT\
|
|
|
53 PAD ERASE\
|
|
|
54 2LITERAL DNEGATE\
|
|
|
55 D- D+ D0< D0= D2* D2/ D< D= DMAX DMIN D>S DABS\
|
|
|
56 M+ M*/ D. D.R 2ROT DU<\
|
|
|
57 CATCH THROW\
|
|
|
58 FREE RESIZE ALLOCATE\
|
|
|
59 CS-PICK CS-ROLL\
|
|
|
60 GET-CURRENT SET-CURRENT FORTH-WORDLIST GET-ORDER SET-ORDER\
|
|
|
61 PREVIOUS SEARCH-WORDLIST WORDLIST FIND ALSO ONLY FORTH DEFINITIONS ORDER\
|
|
|
62 -TRAILING /STRING SEARCH COMPARE CMOVE CMOVE> BLANK SLITERAL');
|
|
|
63
|
|
|
64 var immediateWordList = toWordList('IF ELSE THEN BEGIN WHILE REPEAT UNTIL RECURSE [IF] [ELSE] [THEN] ?DO DO LOOP +LOOP UNLOOP LEAVE EXIT AGAIN CASE OF ENDOF ENDCASE');
|
|
|
65
|
|
|
66 CodeMirror.defineMode('forth', function() {
|
|
|
67 function searchWordList (wordList, word) {
|
|
|
68 var i;
|
|
|
69 for (i = wordList.length - 1; i >= 0; i--) {
|
|
|
70 if (wordList[i].name === word.toUpperCase()) {
|
|
|
71 return wordList[i];
|
|
|
72 }
|
|
|
73 }
|
|
|
74 return undefined;
|
|
|
75 }
|
|
|
76 return {
|
|
|
77 startState: function() {
|
|
|
78 return {
|
|
|
79 state: '',
|
|
|
80 base: 10,
|
|
|
81 coreWordList: coreWordList,
|
|
|
82 immediateWordList: immediateWordList,
|
|
|
83 wordList: []
|
|
|
84 };
|
|
|
85 },
|
|
|
86 token: function (stream, stt) {
|
|
|
87 var mat;
|
|
|
88 if (stream.eatSpace()) {
|
|
|
89 return null;
|
|
|
90 }
|
|
|
91 if (stt.state === '') { // interpretation
|
|
|
92 if (stream.match(/^(\]|:NONAME)(\s|$)/i)) {
|
|
|
93 stt.state = ' compilation';
|
|
|
94 return 'builtin compilation';
|
|
|
95 }
|
|
|
96 mat = stream.match(/^(\:)\s+(\S+)(\s|$)+/);
|
|
|
97 if (mat) {
|
|
|
98 stt.wordList.push({name: mat[2].toUpperCase()});
|
|
|
99 stt.state = ' compilation';
|
|
|
100 return 'def' + stt.state;
|
|
|
101 }
|
|
|
102 mat = stream.match(/^(VARIABLE|2VARIABLE|CONSTANT|2CONSTANT|CREATE|POSTPONE|VALUE|WORD)\s+(\S+)(\s|$)+/i);
|
|
|
103 if (mat) {
|
|
|
104 stt.wordList.push({name: mat[2].toUpperCase()});
|
|
|
105 return 'def' + stt.state;
|
|
|
106 }
|
|
|
107 mat = stream.match(/^(\'|\[\'\])\s+(\S+)(\s|$)+/);
|
|
|
108 if (mat) {
|
|
|
109 return 'builtin' + stt.state;
|
|
|
110 }
|
|
|
111 } else { // compilation
|
|
|
112 // ; [
|
|
|
113 if (stream.match(/^(\;|\[)(\s)/)) {
|
|
|
114 stt.state = '';
|
|
|
115 stream.backUp(1);
|
|
|
116 return 'builtin compilation';
|
|
|
117 }
|
|
|
118 if (stream.match(/^(\;|\[)($)/)) {
|
|
|
119 stt.state = '';
|
|
|
120 return 'builtin compilation';
|
|
|
121 }
|
|
|
122 if (stream.match(/^(POSTPONE)\s+\S+(\s|$)+/)) {
|
|
|
123 return 'builtin';
|
|
|
124 }
|
|
|
125 }
|
|
|
126
|
|
|
127 // dynamic wordlist
|
|
|
128 mat = stream.match(/^(\S+)(\s+|$)/);
|
|
|
129 if (mat) {
|
|
|
130 if (searchWordList(stt.wordList, mat[1]) !== undefined) {
|
|
|
131 return 'variable' + stt.state;
|
|
|
132 }
|
|
|
133
|
|
|
134 // comments
|
|
|
135 if (mat[1] === '\\') {
|
|
|
136 stream.skipToEnd();
|
|
|
137 return 'comment' + stt.state;
|
|
|
138 }
|
|
|
139
|
|
|
140 // core words
|
|
|
141 if (searchWordList(stt.coreWordList, mat[1]) !== undefined) {
|
|
|
142 return 'builtin' + stt.state;
|
|
|
143 }
|
|
|
144 if (searchWordList(stt.immediateWordList, mat[1]) !== undefined) {
|
|
|
145 return 'keyword' + stt.state;
|
|
|
146 }
|
|
|
147
|
|
|
148 if (mat[1] === '(') {
|
|
|
149 stream.eatWhile(function (s) { return s !== ')'; });
|
|
|
150 stream.eat(')');
|
|
|
151 return 'comment' + stt.state;
|
|
|
152 }
|
|
|
153
|
|
|
154 // // strings
|
|
|
155 if (mat[1] === '.(') {
|
|
|
156 stream.eatWhile(function (s) { return s !== ')'; });
|
|
|
157 stream.eat(')');
|
|
|
158 return 'string' + stt.state;
|
|
|
159 }
|
|
|
160 if (mat[1] === 'S"' || mat[1] === '."' || mat[1] === 'C"') {
|
|
|
161 stream.eatWhile(function (s) { return s !== '"'; });
|
|
|
162 stream.eat('"');
|
|
|
163 return 'string' + stt.state;
|
|
|
164 }
|
|
|
165
|
|
|
166 // numbers
|
|
|
167 if (mat[1] - 0xfffffffff) {
|
|
|
168 return 'number' + stt.state;
|
|
|
169 }
|
|
|
170 // if (mat[1].match(/^[-+]?[0-9]+\.[0-9]*/)) {
|
|
|
171 // return 'number' + stt.state;
|
|
|
172 // }
|
|
|
173
|
|
|
174 return 'atom' + stt.state;
|
|
|
175 }
|
|
|
176 }
|
|
|
177 };
|
|
|
178 });
|
|
|
179 CodeMirror.defineMIME("text/x-forth", "forth");
|
|
|
180 });
|
