File manager - Edit - /home/opticamezl/www/newok/forth.tar
Back
forth.min.js 0000644 00000005557 15174705321 0007027 0 ustar 00 (function(n){typeof exports=="object"&&typeof module=="object"?n(require("../../lib/codemirror")):typeof define=="function"&&define.amd?define(["../../lib/codemirror"],n):n(CodeMirror)})(function(n){"use strict";function R(t){var i=[];return t.split(" ").forEach(function(e){i.push({name:e})}),i}var f=R("INVERT AND OR XOR 2* 2/ LSHIFT RSHIFT 0= = 0< < > U< MIN MAX 2DROP 2DUP 2OVER 2SWAP ?DUP DEPTH DROP DUP OVER ROT SWAP >R R> R@ + - 1+ 1- ABS NEGATE S>D * M* UM* FM/MOD SM/REM UM/MOD */ */MOD / /MOD MOD HERE , @ ! CELL+ CELLS C, C@ C! CHARS 2@ 2! ALIGN ALIGNED +! ALLOT CHAR [CHAR] [ ] BL FIND EXECUTE IMMEDIATE COUNT LITERAL STATE ; DOES> >BODY EVALUATE SOURCE >IN <# # #S #> HOLD SIGN BASE >NUMBER HEX DECIMAL FILL MOVE . CR EMIT SPACE SPACES TYPE U. .R U.R ACCEPT TRUE FALSE <> U> 0<> 0> NIP TUCK ROLL PICK 2>R 2R@ 2R> WITHIN UNUSED MARKER I J TO COMPILE, [COMPILE] SAVE-INPUT RESTORE-INPUT PAD ERASE 2LITERAL DNEGATE D- D+ D0< D0= D2* D2/ D< D= DMAX DMIN D>S DABS M+ M*/ D. D.R 2ROT DU< CATCH THROW FREE RESIZE ALLOCATE CS-PICK CS-ROLL GET-CURRENT SET-CURRENT FORTH-WORDLIST GET-ORDER SET-ORDER PREVIOUS SEARCH-WORDLIST WORDLIST FIND ALSO ONLY FORTH DEFINITIONS ORDER -TRAILING /STRING SEARCH COMPARE CMOVE CMOVE> BLANK SLITERAL"),O=R("IF ELSE THEN BEGIN WHILE REPEAT UNTIL RECURSE [IF] [ELSE] [THEN] ?DO DO LOOP +LOOP UNLOOP LEAVE EXIT AGAIN CASE OF ENDOF ENDCASE");n.defineMode("forth",function(){function t(i,e){var E;for(E=i.length-1;E>=0;E--)if(i[E].name===e.toUpperCase())return i[E]}return{startState:function(){return{state:"",base:10,coreWordList:f,immediateWordList:O,wordList:[]}},token:function(i,e){var E;if(i.eatSpace())return null;if(e.state===""){if(i.match(/^(\]|:NONAME)(\s|$)/i))return e.state=" compilation","builtin compilation";if(E=i.match(/^(\:)\s+(\S+)(\s|$)+/),E)return e.wordList.push({name:E[2].toUpperCase()}),e.state=" compilation","def"+e.state;if(E=i.match(/^(VARIABLE|2VARIABLE|CONSTANT|2CONSTANT|CREATE|POSTPONE|VALUE|WORD)\s+(\S+)(\s|$)+/i),E)return e.wordList.push({name:E[2].toUpperCase()}),"def"+e.state;if(E=i.match(/^(\'|\[\'\])\s+(\S+)(\s|$)+/),E)return"builtin"+e.state}else{if(i.match(/^(\;|\[)(\s)/))return e.state="",i.backUp(1),"builtin compilation";if(i.match(/^(\;|\[)($)/))return e.state="","builtin compilation";if(i.match(/^(POSTPONE)\s+\S+(\s|$)+/))return"builtin"}if(E=i.match(/^(\S+)(\s+|$)/),E)return t(e.wordList,E[1])!==void 0?"variable"+e.state:E[1]==="\\"?(i.skipToEnd(),"comment"+e.state):t(e.coreWordList,E[1])!==void 0?"builtin"+e.state:t(e.immediateWordList,E[1])!==void 0?"keyword"+e.state:E[1]==="("?(i.eatWhile(function(r){return r!==")"}),i.eat(")"),"comment"+e.state):E[1]===".("?(i.eatWhile(function(r){return r!==")"}),i.eat(")"),"string"+e.state):E[1]==='S"'||E[1]==='."'||E[1]==='C"'?(i.eatWhile(function(r){return r!=='"'}),i.eat('"'),"string"+e.state):E[1]-68719476735?"number"+e.state:"atom"+e.state}}}),n.defineMIME("text/x-forth","forth")}); forth.js 0000644 00000012161 15174705321 0006232 0 ustar 00 // CodeMirror, copyright (c) by Marijn Haverbeke and others // Distributed under an MIT license: https://codemirror.net/5/LICENSE // Author: Aliaksei Chapyzhenka (function(mod) { if (typeof exports == "object" && typeof module == "object") // CommonJS mod(require("../../lib/codemirror")); else if (typeof define == "function" && define.amd) // AMD define(["../../lib/codemirror"], mod); else // Plain browser env mod(CodeMirror); })(function(CodeMirror) { "use strict"; function toWordList(words) { var ret = []; words.split(' ').forEach(function(e){ ret.push({name: e}); }); return ret; } var coreWordList = toWordList( 'INVERT AND OR XOR\ 2* 2/ LSHIFT RSHIFT\ 0= = 0< < > U< MIN MAX\ 2DROP 2DUP 2OVER 2SWAP ?DUP DEPTH DROP DUP OVER ROT SWAP\ >R R> R@\ + - 1+ 1- ABS NEGATE\ S>D * M* UM*\ FM/MOD SM/REM UM/MOD */ */MOD / /MOD MOD\ HERE , @ ! CELL+ CELLS C, C@ C! CHARS 2@ 2!\ ALIGN ALIGNED +! ALLOT\ CHAR [CHAR] [ ] BL\ FIND EXECUTE IMMEDIATE COUNT LITERAL STATE\ ; DOES> >BODY\ EVALUATE\ SOURCE >IN\ <# # #S #> HOLD SIGN BASE >NUMBER HEX DECIMAL\ FILL MOVE\ . CR EMIT SPACE SPACES TYPE U. .R U.R\ ACCEPT\ TRUE FALSE\ <> U> 0<> 0>\ NIP TUCK ROLL PICK\ 2>R 2R@ 2R>\ WITHIN UNUSED MARKER\ I J\ TO\ COMPILE, [COMPILE]\ SAVE-INPUT RESTORE-INPUT\ PAD ERASE\ 2LITERAL DNEGATE\ D- D+ D0< D0= D2* D2/ D< D= DMAX DMIN D>S DABS\ M+ M*/ D. D.R 2ROT DU<\ CATCH THROW\ FREE RESIZE ALLOCATE\ CS-PICK CS-ROLL\ GET-CURRENT SET-CURRENT FORTH-WORDLIST GET-ORDER SET-ORDER\ PREVIOUS SEARCH-WORDLIST WORDLIST FIND ALSO ONLY FORTH DEFINITIONS ORDER\ -TRAILING /STRING SEARCH COMPARE CMOVE CMOVE> BLANK SLITERAL'); 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'); CodeMirror.defineMode('forth', function() { function searchWordList (wordList, word) { var i; for (i = wordList.length - 1; i >= 0; i--) { if (wordList[i].name === word.toUpperCase()) { return wordList[i]; } } return undefined; } return { startState: function() { return { state: '', base: 10, coreWordList: coreWordList, immediateWordList: immediateWordList, wordList: [] }; }, token: function (stream, stt) { var mat; if (stream.eatSpace()) { return null; } if (stt.state === '') { // interpretation if (stream.match(/^(\]|:NONAME)(\s|$)/i)) { stt.state = ' compilation'; return 'builtin compilation'; } mat = stream.match(/^(\:)\s+(\S+)(\s|$)+/); if (mat) { stt.wordList.push({name: mat[2].toUpperCase()}); stt.state = ' compilation'; return 'def' + stt.state; } mat = stream.match(/^(VARIABLE|2VARIABLE|CONSTANT|2CONSTANT|CREATE|POSTPONE|VALUE|WORD)\s+(\S+)(\s|$)+/i); if (mat) { stt.wordList.push({name: mat[2].toUpperCase()}); return 'def' + stt.state; } mat = stream.match(/^(\'|\[\'\])\s+(\S+)(\s|$)+/); if (mat) { return 'builtin' + stt.state; } } else { // compilation // ; [ if (stream.match(/^(\;|\[)(\s)/)) { stt.state = ''; stream.backUp(1); return 'builtin compilation'; } if (stream.match(/^(\;|\[)($)/)) { stt.state = ''; return 'builtin compilation'; } if (stream.match(/^(POSTPONE)\s+\S+(\s|$)+/)) { return 'builtin'; } } // dynamic wordlist mat = stream.match(/^(\S+)(\s+|$)/); if (mat) { if (searchWordList(stt.wordList, mat[1]) !== undefined) { return 'variable' + stt.state; } // comments if (mat[1] === '\\') { stream.skipToEnd(); return 'comment' + stt.state; } // core words if (searchWordList(stt.coreWordList, mat[1]) !== undefined) { return 'builtin' + stt.state; } if (searchWordList(stt.immediateWordList, mat[1]) !== undefined) { return 'keyword' + stt.state; } if (mat[1] === '(') { stream.eatWhile(function (s) { return s !== ')'; }); stream.eat(')'); return 'comment' + stt.state; } // // strings if (mat[1] === '.(') { stream.eatWhile(function (s) { return s !== ')'; }); stream.eat(')'); return 'string' + stt.state; } if (mat[1] === 'S"' || mat[1] === '."' || mat[1] === 'C"') { stream.eatWhile(function (s) { return s !== '"'; }); stream.eat('"'); return 'string' + stt.state; } // numbers if (mat[1] - 0xfffffffff) { return 'number' + stt.state; } // if (mat[1].match(/^[-+]?[0-9]+\.[0-9]*/)) { // return 'number' + stt.state; // } return 'atom' + stt.state; } } }; }); CodeMirror.defineMIME("text/x-forth", "forth"); }); forth.min.js.gz 0000644 00000002701 15174705321 0007432 0 ustar 00 � �Vms��~�ogccn��%1�c��m1��d/pg��]�\�l�����.��N? ��Wl�_f�"�f��z-~��l�y����u���W5,��o77�l�2Q��뙙�����2 ǩ9Nm�>Ն�HM�<�ròՑ�3��5h�}��9���zM�ݯ����~6RQɱV�y��PXy:,����YX��9R�ۿ�U��P8��$-L�匳���{,e���e�l��S�P+ke��J��]nA|O��0�G�Q?C��P���_o�.\�_� M$W�����:ᬃ:I:��{�Q^ךAhG�Q �cy͙D)���M�TP�EUx�1��$�h�!:C���"F ����鬆������M9�����aX)W߆�~����O�]�^)AE3B&Kt��G}܆h1}�~")�(�$�.�,�%�@R�R�.AM4o� z�I K�O�b\���x�D��B{q� �f�D���MA�D�6���=���F���x>]��C�"q�p$��#!yB��BAq�D��U�M�A2�߃�0D'�ߣ����y�l1�8� �{��gH�E� �6�����jw N�d|{�x�����M]I�r~r���@�5�+D�эE�DwCTAtVq@�'� �|O�m�6ghqJ��,�_�FT��|Q-C����'��XB�-�e���8 !K1� �К�pz�D@P���;��/,?�1Ah+��X` T��� �CMH��5b�Z�S�e�˵��Ћ�Cl�gX6+�jTWU�i�[z�xh�N@�zI,��� ݠ�GW+���*}\�2�A�\���B��S��@»���k��d�j�a]Μ�`���2�q�φ�6��nTfj������,7��:5��x�^\Ҧ{~I�U+�i��=�\�UN�%���B���qZd��_� /D1(T��P ð�ո8��Y��|���1���T��A��1��-��Vv�}T�=�A�UG 1|��L&�N9�q�u �z-���b�l�g���F�b/���[,��j�N�g`�M��dP�����K:)�ٟ�ڎ���a��'*�JͲ�z��? ��N�ʲ���H���������6����Y,��e}G��z�.;L���R�E������9��^�N��n���Tm��CY��B}Y��e�����q�;u�Ï�ܼ��]�c�ホ�w�)Ձ�De֗A��R�NBEw�A�s�t�v/�։�~��ί�O�<<M�.E -�۽�3���Y|L�2���i��0�Nլ� [ ~��|Y�R���}T�k���2K�ԠxxN'j�E�o���5,Ci9Ӱ����Et�)�����r�x*���r{p�q�wl��;[���lU��������pm�^�O*�g��t���e��|Q�(�������o����ݚo
| ver. 1.4 |
Github
|
.
| PHP 8.3.23 | Generation time: 0 |
proxy
|
phpinfo
|
Settings