📄 forthtest_8cpp-source.html
字号:
<a name="l00142"></a>00142 <a class="code" href="group__forth__test.html#ga4">LINE</a>(<span class="stringliteral">" DUP R@ U<"</span>)<a name="l00143"></a>00143 <a class="code" href="group__forth__test.html#ga4">LINE</a>(<span class="stringliteral">" WHILE"</span>)<a name="l00144"></a>00144 <a class="code" href="group__forth__test.html#ga4">LINE</a>(<span class="stringliteral">" R@ OVER - 1 CHARS / (source) 2!"</span>)<a name="l00145"></a>00145 <span class="comment">// LINE(" BASE @ HEX R@ . (source) 2@ CHARS + . CR BASE !")</span><a name="l00146"></a>00146 <a class="code" href="group__forth__test.html#ga4">LINE</a>(<span class="stringliteral">" 0 >IN ! 10 PARSE 2DROP >IN @ (source) ! 0 >IN !"</span>)<a name="l00147"></a>00147 <span class="comment">// LINE(" SOURCE TYPE KEY DROP")</span><a name="l00148"></a>00148 <a class="code" href="group__forth__test.html#ga4">LINE</a>(<span class="stringliteral">" INTERPRET"</span>)<a name="l00149"></a>00149 <a class="code" href="group__forth__test.html#ga4">LINE</a>(<span class="stringliteral">" REPEAT"</span>)<a name="l00150"></a>00150 <a class="code" href="group__forth__test.html#ga4">LINE</a>(<span class="stringliteral">" R> 2DROP"</span>)<a name="l00151"></a>00151 <a class="code" href="group__forth__test.html#ga4">LINE</a>(<span class="stringliteral">";"</span>)<a name="l00152"></a>00152 };<a name="l00153"></a>00153 <a name="l00154"></a>00154 <span class="keywordflow">if</span>(!XT_INTERPRET_LINES)<a name="l00155"></a>00155 {<a name="l00156"></a>00156 <span class="comment">// Create word to interpret a file a line at a time...</span><a name="l00157"></a>00157 <a class="code" href="group__forth.html#ga0">CELL</a> result = <a class="code" href="classForth.html#a3">Evaluate</a>(InterpretLines,<span class="keyword">sizeof</span>(InterpretLines)/<span class="keyword">sizeof</span>(<a class="code" href="group__forth.html#ga2">CHAR</a>));<a name="l00158"></a>00158 <span class="keywordflow">if</span>(result)<a name="l00159"></a>00159 <span class="keywordflow">return</span> result;<a name="l00160"></a>00160 XT_INTERPRET_LINES = <a class="code" href="classForth.html#a5">Pop</a>(1)[0]; <span class="comment">// Pop xt for INTERPRET-LINES</span><a name="l00161"></a>00161 }<a name="l00162"></a>00162 <a name="l00163"></a>00163 <span class="keywordtype">void</span>* file;<a name="l00164"></a>00164 <a class="code" href="group__integers.html#ga6">uint</a> size;<a name="l00165"></a>00165 <span class="keywordflow">if</span>(<a class="code" href="group__forth__test.html#ga0">ReadFile</a>(fileName,file,size))<a name="l00166"></a>00166 {<a name="l00167"></a>00167 <span class="comment">// Interpret file a line at a time...</span><a name="l00168"></a>00168 <a class="code" href="classForth.html#a4">Push</a>((<a class="code" href="group__forth.html#ga0">CELL</a>*)&file,1);<a name="l00169"></a>00169 <a class="code" href="classForth.html#a4">Push</a>((<a class="code" href="group__forth.html#ga0">CELL</a>*)&size,1);<a name="l00170"></a>00170 <a class="code" href="group__forth.html#ga0">CELL</a> result = <a class="code" href="classForth.html#a2">Execute</a>(XT_INTERPRET_LINES);<a name="l00171"></a>00171 free(file);<a name="l00172"></a>00172 <span class="keywordflow">return</span> result;<a name="l00173"></a>00173 }<a name="l00174"></a>00174 <span class="keywordflow">else</span><a name="l00175"></a>00175 <span class="keywordflow">return</span> -38; <span class="comment">// non-existent file</span><a name="l00176"></a>00176 }<a name="l00177"></a>00177 <a name="l00178"></a>00178 <a name="l00183"></a><a class="code" href="group__forth__test.html#ga5">00183</a> <span class="preprocessor">#define COUNTED_STRING(string) (CHAR*)STRING(string),(sizeof(string)-1)</span><a name="l00184"></a>00184 <span class="preprocessor"></span><a name="l00185"></a>00185 <a name="l00189"></a><a class="code" href="group__forth__test.html#ga1">00189</a> <span class="keywordtype">void</span> <a class="code" href="group__forth__test.html#ga1">TestForth</a>()<a name="l00190"></a>00190 {<a name="l00191"></a>00191 <span class="comment">// construct test VM...</span><a name="l00192"></a>00192 <a class="code" href="group__integers.html#ga6">uint</a> size = 1<<20; <span class="comment">// 1Meg of RAM</span><a name="l00193"></a>00193 <span class="keywordtype">void</span>* start = malloc(size);<a name="l00194"></a>00194 <a class="code" href="classStdForthIo.html">StdForthIo</a> io;<a name="l00195"></a>00195 <a class="code" href="classForthTest.html">ForthTest</a>* forth = (<a class="code" href="classForthTest.html">ForthTest</a>*)<a class="code" href="classForth.html#e0">Forth::Construct</a>(start,size,&io);<a name="l00196"></a>00196 <a name="l00197"></a>00197 <span class="comment">// test Push and Pop...</span><a name="l00198"></a>00198 <a class="code" href="group__forth.html#ga0">CELL</a> args[2];<a name="l00199"></a>00199 args[0] = 888;<a name="l00200"></a>00200 forth-><a class="code" href="classForth.html#a4">Push</a>(args,1);<a name="l00201"></a>00201 args[0] = 999;<a name="l00202"></a>00202 forth-><a class="code" href="classForth.html#a4">Push</a>(args,1);<a name="l00203"></a>00203 args[0] = 11;<a name="l00204"></a>00204 args[1] = 123;<a name="l00205"></a>00205 forth-><a class="code" href="classForth.html#a4">Push</a>(args,2);<a name="l00206"></a>00206 <span class="keyword">const</span> <a class="code" href="group__forth.html#ga0">CELL</a>* out;<a name="l00207"></a>00207 out=forth-><a class="code" href="classForth.html#a5">Pop</a>(0); <span class="comment">// pop zero arguments, i.e. just get a peek at the stack</span><a name="l00208"></a>00208 <a class="code" href="common_8h.html#a3">ASSERT</a>(out[0]==11)<a name="l00209"></a>00209 <a class="code" href="common_8h.html#a3">ASSERT</a>(out[1]==123)<a name="l00210"></a>00210 <a class="code" href="common_8h.html#a3">ASSERT</a>(out[2]==999)<a name="l00211"></a>00211 <a class="code" href="common_8h.html#a3">ASSERT</a>(out[3]==888)<a name="l00212"></a>00212 forth-><a class="code" href="classForth.html#a3">Evaluate</a>(<a class="code" href="group__forth__test.html#ga5">COUNTED_STRING</a>(<span class="stringliteral">"- SWAP"</span>)); <span class="comment">// stack effect is: ( 888 999 123 11 -- 888 112 999 )</span><a name="l00213"></a>00213 out=forth-><a class="code" href="classForth.html#a5">Pop</a>(0);<a name="l00214"></a>00214 <a class="code" href="common_8h.html#a3">ASSERT</a>(out[0]==999)<a name="l00215"></a>00215 <a class="code" href="common_8h.html#a3">ASSERT</a>(out[1]==112)<a name="l00216"></a>00216 <a class="code" href="common_8h.html#a3">ASSERT</a>(out[2]==888)<a name="l00217"></a>00217 out=forth-><a class="code" href="classForth.html#a5">Pop</a>(2);<a name="l00218"></a>00218 <a class="code" href="common_8h.html#a3">ASSERT</a>(out[0]==999)<a name="l00219"></a>00219 <a class="code" href="common_8h.html#a3">ASSERT</a>(out[1]==112)<a name="l00220"></a>00220 out=forth-><a class="code" href="classForth.html#a5">Pop</a>(1);<a name="l00221"></a>00221 <a class="code" href="common_8h.html#a3">ASSERT</a>(out[0]==888)<a name="l00222"></a>00222 <a name="l00223"></a>00223 <span class="comment">// load additional forth source...</span><a name="l00224"></a>00224 <a class="code" href="common_8h.html#a3">ASSERT</a>(0==forth-><a class="code" href="group__forth__test.html#ga6">Include</a>(<a class="code" href="group__forth__test.html#ga2">SOURCE_ROOT_PATH</a> <span class="stringliteral">"core-ext.f"</span>));<a name="l00225"></a>00225 <a class="code" href="common_8h.html#a3">ASSERT</a>(0==forth-><a class="code" href="group__forth__test.html#ga6">Include</a>(<a class="code" href="group__forth__test.html#ga2">SOURCE_ROOT_PATH</a> <span class="stringliteral">"search.f"</span>));<a name="l00226"></a>00226 <a class="code" href="common_8h.html#a3">ASSERT</a>(0==forth-><a class="code" href="group__forth__test.html#ga6">Include</a>(<a class="code" href="group__forth__test.html#ga2">SOURCE_ROOT_PATH</a> <span class="stringliteral">"programming-tools.f"</span>));<a name="l00227"></a>00227 <a name="l00228"></a>00228 <span class="comment">// ANS wordset tests...</span><a name="l00229"></a>00229 <a class="code" href="common_8h.html#a3">ASSERT</a>(0==forth-><a class="code" href="group__forth__test.html#ga6">Include</a>(<a class="code" href="group__forth__test.html#ga2">SOURCE_ROOT_PATH</a> <span class="stringliteral">"test\\tester.f"</span>));<a name="l00230"></a>00230 <a class="code" href="common_8h.html#a3">ASSERT</a>(0==forth-><a class="code" href="group__forth__test.html#ga7">IncludeLines</a>(<a class="code" href="group__forth__test.html#ga2">SOURCE_ROOT_PATH</a> <span class="stringliteral">"test\\core.f"</span>));<a name="l00231"></a>00231 <a class="code" href="common_8h.html#a3">ASSERT</a>(0==forth-><a class="code" href="group__forth__test.html#ga7">IncludeLines</a>(<a class="code" href="group__forth__test.html#ga2">SOURCE_ROOT_PATH</a> <span class="stringliteral">"test\\core-ext.f"</span>));<a name="l00232"></a>00232 <a class="code" href="common_8h.html#a3">ASSERT</a>(0==forth-><a class="code" href="group__forth__test.html#ga7">IncludeLines</a>(<a class="code" href="group__forth__test.html#ga2">SOURCE_ROOT_PATH</a> <span class="stringliteral">"test\\search.f"</span>));<a name="l00233"></a>00233 <a class="code" href="common_8h.html#a3">ASSERT</a>(0==forth-><a class="code" href="group__forth__test.html#ga7">IncludeLines</a>(<a class="code" href="group__forth__test.html#ga2">SOURCE_ROOT_PATH</a> <span class="stringliteral">"test\\search-ext.f"</span>));<a name="l00234"></a>00234 <a name="l00235"></a>00235 <span class="preprocessor">#if 0 // set true to test ARM assembler and disassembler...</span><a name="l00236"></a>00236 <span class="preprocessor"></span> <a class="code" href="common_8h.html#a3">ASSERT</a>(0==forth-><a class="code" href="group__forth__test.html#ga6">Include</a>(<a class="code" href="group__forth__test.html#ga2">SOURCE_ROOT_PATH</a> <span class="stringliteral">"arm-disasm.f"</span>));<a name="l00237"></a>00237 <a class="code" href="common_8h.html#a3">ASSERT</a>(0==forth-><a class="code" href="group__forth__test.html#ga6">Include</a>(<a class="code" href="group__forth__test.html#ga2">SOURCE_ROOT_PATH</a> <span class="stringliteral">"arm-asm.f"</span>));<a name="l00238"></a>00238 <a class="code" href="common_8h.html#a3">ASSERT</a>(0==forth-><a class="code" href="group__forth__test.html#ga6">Include</a>(<a class="code" href="group__forth__test.html#ga2">SOURCE_ROOT_PATH</a> <span class="stringliteral">"test\\arm-asm-disasm-test.f"</span>));<a name="l00239"></a>00239 <span class="preprocessor">#endif</span><a name="l00240"></a>00240 <span class="preprocessor"></span><a name="l00241"></a>00241 <span class="comment">// forth->Quit();</span><a name="l00242"></a>00242 <a name="l00243"></a>00243 free(forth);<a name="l00244"></a>00244 }<a name="l00245"></a>00245 <span class="comment">// End of group</span><a name="l00247"></a>00247 </pre></div><HR><ADDRESS STYLE="align: right;"><SMALL>Generated by <A HREF="http://www.doxygen.org/index.html"><IMG SRC="doxygen.png" ALT="doxygen" ALIGN="middle" BORDER="0"></A> 1.4.4</SMALL></ADDRESS></BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -