📄 forth_8cpp-source.html
字号:
<a name="l00662"></a>00662 <a class="code" href="group__forth__imp.html#gga104a186">XT_S_TO_D</a>, (<a class="code" href="group__forth.html#ga0">CELL</a>)<a class="code" href="group__forth__imp.html#ga27">XT_D_DOT</a>, <a class="code" href="group__forth__imp.html#gga104a163">XT_EXIT</a> <span class="comment">// S>D D.</span><a name="l00663"></a>00663 };<a name="l00664"></a>00664 <a name="l00665"></a>00665 <a name="l00671"></a><a class="code" href="group__forth__imp.html#ga29">00671</a> <span class="keyword">static</span> <span class="keyword">const</span> <a class="code" href="group__forth.html#ga0">CELL</a> <a class="code" href="group__forth__imp.html#ga29">XT_CR</a>[] =<a name="l00672"></a>00672 {<a name="l00673"></a>00673 XT_PAREN_CR, <a class="code" href="group__forth__imp.html#gga104a191">XT_TYPE</a>, <a class="code" href="group__forth__imp.html#gga104a163">XT_EXIT</a> <span class="comment">// (cr) TYPE</span><a name="l00674"></a>00674 };<a name="l00675"></a>00675 <a name="l00676"></a>00676 <a name="l00697"></a><a class="code" href="group__forth__imp.html#ga30">00697</a> <span class="keyword">static</span> <span class="keyword">const</span> <a class="code" href="group__forth.html#ga0">CELL</a> <a class="code" href="group__forth__imp.html#ga30">XT_CREATE_WORD</a>[] =<a name="l00698"></a>00698 {<a name="l00699"></a>00699 <a class="code" href="group__forth__imp.html#gga104a181">XT_OVER</a>, <a class="code" href="group__forth__imp.html#gga104a198">XT_0_NOT_EQUALS</a>, <span class="comment">// OVER 0<></span><a name="l00700"></a>00700 <a class="code" href="group__forth__imp.html#gga104a181">XT_OVER</a>, <a class="code" href="group__forth__imp.html#gga104a199">XT_0_GREATER</a>, <a class="code" href="group__forth__imp.html#gga104a169">XT_INVERT</a>, <a class="code" href="group__forth__imp.html#gga104a145">XT_AND</a>, <span class="comment">// OVER 0> INVERT AND</span><a name="l00701"></a>00701 <a class="code" href="group__forth__imp.html#ga66">XT_0BRANCH</a>(4), <a class="code" href="group__forth__imp.html#ga67">LIT</a>(ZeroLengthName), <a class="code" href="group__forth__imp.html#gga104a221">XT_THROW</a>, <span class="comment">// IF -16 THROW THEN</span><a name="l00702"></a>00702 <a class="code" href="group__forth__imp.html#ga67">LIT</a>(<a class="code" href="group__forth__imp.html#ga3">NameLengthMask</a>), <a class="code" href="group__forth__imp.html#gga104a177">XT_MIN</a>, <span class="comment">// NameLengthMask MIN </span><a name="l00703"></a>00703 <a class="code" href="group__forth__imp.html#gga104a142">XT_ALIGN</a>, <a class="code" href="group__forth__imp.html#gga104a165">XT_HERE</a>, <a class="code" href="group__forth__imp.html#gga104a137">XT_TO_R</a>, <span class="comment">// ALIGN HERE >R</span><a name="l00704"></a>00704 <a name="l00705"></a>00705 XT_CURRENT, <a class="code" href="group__forth__imp.html#gga104a139">XT_FETCH</a>, <span class="comment">// CURRENT @</span><a name="l00706"></a>00706 <a class="code" href="group__forth__imp.html#gga104a159">XT_DUP</a>, XT_FETCH, <a class="code" href="group__forth__imp.html#gga104a183">XT_R_FETCH</a>, <a class="code" href="group__forth__imp.html#gga104a118">XT_MINUS</a>, <a class="code" href="group__forth__imp.html#gga104a117">XT_COMMA</a>, <span class="comment">// DUP @ R@ - ,</span><a name="l00707"></a>00707 XT_R_FETCH, <a class="code" href="group__forth__imp.html#gga104a190">XT_SWAP</a>, <a class="code" href="group__forth__imp.html#gga104a110">XT_STORE</a>, <span class="comment">// R@ SWAP !</span><a name="l00708"></a>00708 <a name="l00709"></a>00709 XT_DUP, <a class="code" href="group__forth__imp.html#gga104a148">XT_C_COMMA</a>, <span class="comment">// DUP C,</span><a name="l00710"></a>00710 XT_DUP, <a class="code" href="group__forth__imp.html#ga66">XT_0BRANCH</a>(10), XT_OVER, <a class="code" href="group__forth__imp.html#gga104a149">XT_C_FETCH</a>, XT_C_COMMA, <span class="comment">// BEGIN DUP WHILE OVER C@ C,</span><a name="l00711"></a>00711 XT_SWAP, <a class="code" href="group__forth__imp.html#gga104a152">XT_CHAR_PLUS</a>, XT_SWAP, <a class="code" href="group__forth__imp.html#gga104a122">XT_1_MINUS</a>, <a class="code" href="group__forth__imp.html#ga65">XT_BRANCH</a>(-11), <span class="comment">// SWAP CHAR+ SWAP 1- REPEAT </span><a name="l00712"></a>00712 <a class="code" href="group__forth__imp.html#gga104a127">XT_2DROP</a>, XT_ALIGN, <a class="code" href="group__forth__imp.html#gga104a182">XT_R_FROM</a>, XT_LATEST, XT_STORE, <span class="comment">// 2DROP ALIGN R> LATEST ! ;</span><a name="l00713"></a>00713 <a class="code" href="group__forth__imp.html#gga104a163">XT_EXIT</a><a name="l00714"></a>00714 };<a name="l00715"></a>00715 <a name="l00716"></a>00716 <a name="l00724"></a><a class="code" href="group__forth__imp.html#ga31">00724</a> <span class="keyword">static</span> <span class="keyword">const</span> <a class="code" href="group__forth.html#ga0">CELL</a> <a class="code" href="group__forth__imp.html#ga31">XT_VALIDATE</a>[] =<a name="l00725"></a>00725 {<a name="l00726"></a>00726 <a class="code" href="group__forth__imp.html#ga67">LIT</a>(<a class="code" href="classWordHeader.html#w3w2">WordHeader::Valid</a>), <span class="comment">// WordValid</span><a name="l00727"></a>00727 XT_LATEST, <a class="code" href="group__forth__imp.html#gga104a139">XT_FETCH</a>, <a class="code" href="group__forth__imp.html#gga104a150">XT_CELL_PLUS</a>, <span class="comment">// LATEST @ >FLAGS </span><a name="l00728"></a>00728 <a class="code" href="group__forth__imp.html#gga104a213">XT_TUCK</a>, <a class="code" href="group__forth__imp.html#gga104a149">XT_C_FETCH</a>, <span class="comment">// TUCK C@</span><a name="l00729"></a>00729 <a class="code" href="group__forth__imp.html#gga104a180">XT_OR</a>, <a class="code" href="group__forth__imp.html#gga104a190">XT_SWAP</a>, <a class="code" href="group__forth__imp.html#gga104a147">XT_C_STORE</a>, <span class="comment">// OR SWAP C!</span><a name="l00730"></a>00730 <a class="code" href="group__forth__imp.html#gga104a163">XT_EXIT</a><a name="l00731"></a>00731 };<a name="l00732"></a>00732 <a name="l00733"></a>00733 <a name="l00740"></a><a class="code" href="group__forth__imp.html#ga32">00740</a> <span class="keyword">static</span> <span class="keyword">const</span> <a class="code" href="group__forth.html#ga0">CELL</a> <a class="code" href="group__forth__imp.html#ga32">XT_PAREN_CREATE</a>[] =<a name="l00741"></a>00741 {<a name="l00742"></a>00742 <a class="code" href="group__forth__imp.html#gga104a182">XT_R_FROM</a>, <a class="code" href="group__forth__imp.html#gga104a163">XT_EXIT</a> <span class="comment">// R></span><a name="l00743"></a>00743 };<a name="l00744"></a>00744 <a name="l00745"></a>00745 <a name="l00751"></a><a class="code" href="group__forth__imp.html#ga33">00751</a> <span class="keyword">static</span> <span class="keyword">const</span> <a class="code" href="group__forth.html#ga0">CELL</a> <a class="code" href="group__forth__imp.html#ga33">XT_CREATE</a>[] =<a name="l00752"></a>00752 {<a name="l00753"></a>00753 XT_PARSE_WORD, (<a class="code" href="group__forth.html#ga0">CELL</a>)<a class="code" href="group__forth__imp.html#ga30">XT_CREATE_WORD</a>, <span class="comment">// PARSE-WORD CREATE-WORD</span><a name="l00754"></a>00754 <a class="code" href="group__forth__imp.html#ga67">LIT</a>(<a class="code" href="group__forth__imp.html#ga32">XT_PAREN_CREATE</a>), <a class="code" href="group__forth__imp.html#gga104a117">XT_COMMA</a>, <span class="comment">// POSTPONE (create)</span><a name="l00755"></a>00755 (<a class="code" href="group__forth.html#ga0">CELL</a>)<a class="code" href="group__forth__imp.html#ga31">XT_VALIDATE</a>, <a class="code" href="group__forth__imp.html#gga104a163">XT_EXIT</a> <span class="comment">// VALIDATE </span><a name="l00756"></a>00756 };<a name="l00757"></a>00757 <a name="l00758"></a>00758 <a name="l00765"></a><a class="code" href="group__forth__imp.html#ga34">00765</a> <span class="keyword">static</span> <span class="keyword">const</span> <a class="code" href="group__forth.html#ga0">CELL</a> <a class="code" href="group__forth__imp.html#ga34">XT_PAREN_DOES</a>[] = <a name="l00766"></a>00766 {<a name="l00767"></a>00767 <a class="code" href="group__forth__imp.html#gga104a182">XT_R_FROM</a>, XT_LATEST, <a class="code" href="group__forth__imp.html#gga104a139">XT_FETCH</a>, XT_TO_CFA, <a class="code" href="group__forth__imp.html#gga104a110">XT_STORE</a>, <span class="comment">// R> LATEST @ >CFA !</span><a name="l00768"></a>00768 <a class="code" href="group__forth__imp.html#gga104a163">XT_EXIT</a><a name="l00769"></a>00769 };<a name="l00770"></a>00770 <a name="l00771"></a>00771 <a name="l00777"></a><a class="code" href="group__forth__imp.html#ga35">00777</a> <span class="keyword">static</span> <span class="keyword">const</span> <a class="code" href="group__forth.html#ga0">CELL</a> <a class="code" href="group__forth__imp.html#ga35">XT_LITERAL</a>[] =<a name="l00778"></a>00778 {<a name="l00779"></a>00779 <a class="code" href="group__forth__imp.html#ga67">LIT</a>(<a class="code" href="group__forth__imp.html#gga104a173">XT_PAREN_LITERAL</a>), <a class="code" href="group__forth__imp.html#gga104a117">XT_COMMA</a>, <a class="code" href="group__forth__imp.html#gga104a117">XT_COMMA</a>, <span class="comment">// ['] (literal) , ,</span><a name="l00780"></a>00780 <a class="code" href="group__forth__imp.html#gga104a163">XT_EXIT</a><a name="l00781"></a>00781 };<a name="l00782"></a>00782 <a name="l00783"></a>00783 <a name="l00791"></a><a class="code" href="group__forth__imp.html#ga36">00791</a> <span class="keyword">static</span> <span class="keyword">const</span> <a class="code" href="group__forth.html#ga0">CELL</a> <a class="code" href="group__forth__imp.html#ga36">XT_PAREN_S_QUOTE</a>[] =<a name="l00792"></a>00792 {<a name="l00793"></a>00793 <a class="code" href="group__forth__imp.html#gga104a183">XT_R_FETCH</a>, <a class="code" href="group__forth__imp.html#gga104a150">XT_CELL_PLUS</a>, <a class="code" href="group__forth__imp.html#gga104a182">XT_R_FROM</a>, <a class="code" href="group__forth__imp.html#gga104a139">XT_FETCH</a>, <span class="comment">// R@ CELL+ R> @</span><a name="l00794"></a>00794 <a class="code" href="group__forth__imp.html#gga104a128">XT_2DUP</a>, <a class="code" href="group__forth__imp.html#gga104a153">XT_CHARS</a>, <a class="code" href="group__forth__imp.html#gga104a114">XT_PLUS</a>, <a class="code" href="group__forth__imp.html#gga104a143">XT_ALIGNED</a>, <a class="code" href="group__forth__imp.html#gga104a137">XT_TO_R</a>, <span class="comment">// 2DUP CHARS + ALIGNED >R</span><a name="l00795"></a>00795 <a class="code" href="group__forth__imp.html#gga104a163">XT_EXIT</a><a name="l00796"></a>00796 };<a name="l00797"></a>00797 <a name="l00798"></a>00798 <a name="l00807"></a><a class="code" href="group__forth__imp.html#ga37">00807</a> <span class="keyword">static</span> <span class="keyword">const</span> <a class="code" href="group__forth.html#ga0">CELL</a> <a class="code" href="group__forth__imp.html#ga37">XT_S_QUOTE</a>[] = <a name="l00808"></a>00808 {<a name="l00809"></a>00809 <a class="code" href="group__forth__imp.html#ga67">LIT</a>(<span class="charliteral">'"'</span>), <a class="code" href="group__forth__imp.html#gga104a209">XT_PARSE</a>, <span class="comment">// [CHAR] " PARSE </span><a name="l00810"></a>00810 <a class="code" href="group__forth__imp.html#ga67">LIT</a>(<a class="code" href="group__forth__imp.html#ga36">XT_PAREN_S_QUOTE</a>), <a class="code" href="group__forth__imp.html#gga104a117">XT_COMMA</a>, <span class="comment">// POSTPONE (s")</span><a name="l00811"></a>00811 <a class="code" href="group__forth__imp.html#gga104a159">XT_DUP</a>, XT_COMMA, <a class="code" href="group__forth__imp.html#gga104a165">XT_HERE</a>, <a class="code" href="group__forth__imp.html#gga104a190">XT_SWAP</a>, <span class="comment">// DUP , HERE SWAP</span><a name="l00812"></a>00812 XT_DUP, <a class="code" href="group__forth__imp.html#gga104a153">XT_CHARS</a>, <a class="code" href="group__forth__imp.html#gga104a144">XT_ALLOT</a>, <a class="code" href="group__forth__imp.html#gga104a142">XT_ALIGN</a>, <a class="code" href="group__forth__imp.html#gga104a222">XT_CMOVE</a>, <a class="code" href="group__forth__imp.html#gga104a163">XT_EXIT</a> <span class="comment">// DUP CHARS ALLOT ALIGN CMOVE</span><a name="l00813"></a>00813 };<a name="l00814"></a>00814 <a name="l00815"></a>00815 <a name="l00821"></a><a class="code" href="group__forth__imp.html#ga38">00821</a> <span class="keyword">static</span> <span class="keyword">const</span> <a class="code" href="group__forth.html#ga0">CELL</a> <a class="code" href="group__forth__imp.html#ga38">XT_CHAR</a>[] = <a name="l00822"></a>00822 {<a name="l00823"></a>00823 XT_PARSE_WORD, <a class="code" href="group__forth__imp.html#ga66">XT_0BRANCH</a>(3), <a class="code" href="group__forth__imp.html#gga104a149">XT_C_FETCH</a>, <a class="code" href="group__forth__imp.html#gga104a163">XT_EXIT</a>, <span class="comment">// PARSE-WORD IF C@ EXIT THEN </span><a name="l00824"></a>00824 <a class="code" href="group__forth__imp.html#gga104a158">XT_DROP</a>, <a class="code" href="group__forth__imp.html#gga104a206">XT_FALSE</a>, XT_EXIT <span class="comment">// DROP FALSE</span><a name="l00825"></a>00825 };<a name="l00826"></a>00826 <a name="l00827"></a>00827 <a name="l00845"></a><a class="code" href="group__forth__imp.html#ga39">00845</a> <span class="keyword">static</span> <span class="keyword">const</span> <a class="code" href="group__forth.html#ga0">CELL</a> <a class="code" href="group__forth__imp.html#ga39">XT_PAREN_FIND</a>[] =<a name="l00846"></a>00846 {<a name="l00847"></a>00847 XT_CONTEXT, <a class="code" href="group__forth__imp.html#gga104a139">XT_FETCH</a>, <a class="code" href="group__forth__imp.html#gga104a206">XT_FALSE</a>, <span class="comment">// CONTEXT @ 0 </span><a name="l00848"></a>00848 <a cl⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -