📄 forthtest_8cpp-source.html
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><meta http-equiv="Content-Type" content="text/html;charset=iso-8859-1"><title>forth/test/forthtest.cpp Source File</title><link href="doxygen.css" rel="stylesheet" type="text/css"></head><body><!-- Generated by Doxygen 1.4.4 --><div class="qindex"><a class="qindex" href="index.html">Main Page</a> | <a class="qindex" href="modules.html">Modules</a> | <a class="qindex" href="hierarchy.html">Class Hierarchy</a> | <a class="qindex" href="annotated.html">Class List</a> | <a class="qindex" href="dirs.html">Directories</a> | <a class="qindex" href="files.html">File List</a> | <a class="qindex" href="functions.html">Class Members</a> | <a class="qindex" href="globals.html">File Members</a></div><div class="nav"><a class="el" href="dir_000002.html">forth</a> » <a class="el" href="dir_000003.html">test</a></div><h1>forthtest.cpp</h1><a href="forthtest_8cpp.html">Go to the documentation of this file.</a><div class="fragment"><pre class="fragment"><a name="l00001"></a>00001 <a name="l00018"></a>00018 <span class="preprocessor">#include "<a class="code" href="common_8h.html">common.h</a>"</span><a name="l00019"></a>00019 <span class="preprocessor">#include "..\forth.h"</span><a name="l00020"></a>00020 <a name="l00022"></a><a class="code" href="group__forth__test.html#ga2">00022</a> <span class="preprocessor">#define SOURCE_ROOT_PATH "..\\forth\\"</span><a name="l00023"></a>00023 <span class="preprocessor"></span><a name="l00024"></a>00024 <span class="preprocessor">#include <conio.h></span><a name="l00025"></a>00025 <a name="l00029"></a><a class="code" href="classStdForthIo.html">00029</a> <span class="keyword">class </span><a class="code" href="classStdForthIo.html">StdForthIo</a> : <span class="keyword">public</span> <a class="code" href="classForthIo.html">ForthIo</a><a name="l00030"></a>00030 {<a name="l00031"></a>00031 <span class="keyword">public</span>:<a name="l00032"></a><a class="code" href="classStdForthIo.html#a0">00032</a> <span class="keyword">inline</span> <a class="code" href="classStdForthIo.html#a0">StdForthIo</a>()<a name="l00033"></a>00033 { <a class="code" href="classForthIo.html#o0">NewLine</a>[0]=2; <a class="code" href="classForthIo.html#o0">NewLine</a>[1]=13; <a class="code" href="classForthIo.html#o0">NewLine</a>[2]=10; }<a name="l00034"></a><a class="code" href="classStdForthIo.html#a1">00034</a> <span class="keyword">virtual</span> <span class="keywordtype">void</span> <a class="code" href="classStdForthIo.html#a1">ConsoleOut</a>(<span class="keyword">const</span> <a class="code" href="group__forth.html#ga2">CHAR</a>* text,<a class="code" href="group__forth.html#ga1">UCELL</a> textLength)<a name="l00035"></a>00035 { <span class="keywordflow">while</span>(textLength--) putch(*text++); }<a name="l00036"></a><a class="code" href="classStdForthIo.html#a2">00036</a> <span class="keyword">virtual</span> <a class="code" href="group__forth.html#ga0">CELL</a> <a class="code" href="classStdForthIo.html#a2">ConsoleIn</a>()<a name="l00037"></a>00037 { <span class="keywordflow">return</span> getch(); }<a name="l00038"></a>00038 };<a name="l00039"></a>00039 <a name="l00040"></a>00040 <a name="l00041"></a>00041 <span class="preprocessor">#include <malloc.h></span><a name="l00042"></a>00042 <span class="preprocessor">#include <stdlib.h></span><a name="l00043"></a>00043 <span class="preprocessor">#include <stdio.h></span><a name="l00044"></a>00044 <a name="l00056"></a><a class="code" href="group__forth__test.html#ga0">00056</a> <span class="keywordtype">bool</span> <a class="code" href="group__forth__test.html#ga0">ReadFile</a>(<span class="keyword">const</span> <span class="keywordtype">char</span>* name,<span class="keywordtype">void</span>*& address, <a class="code" href="group__integers.html#ga6">uint</a>& size)<a name="l00057"></a>00057 {<a name="l00058"></a>00058 FILE* f=fopen(name,<span class="stringliteral">"rb"</span>);<a name="l00059"></a>00059 <span class="keywordflow">if</span>(!f)<a name="l00060"></a>00060 <span class="keywordflow">return</span> <span class="keyword">false</span>;<a name="l00061"></a>00061 <span class="keywordflow">if</span>(fseek(f,0,SEEK_END))<a name="l00062"></a>00062 { fclose(f); <span class="keywordflow">return</span> <span class="keyword">false</span>; }<a name="l00063"></a>00063 size = ftell(f); <a name="l00064"></a>00064 <span class="keywordflow">if</span>(fseek(f,0,SEEK_SET))<a name="l00065"></a>00065 { fclose(f); <span class="keywordflow">return</span> <span class="keyword">false</span>; }<a name="l00066"></a>00066 address = malloc(size*<span class="keyword">sizeof</span>(<a class="code" href="group__forth.html#ga2">CHAR</a>));<a name="l00067"></a>00067 <span class="keywordflow">if</span>(!address)<a name="l00068"></a>00068 { fclose(f); <span class="keywordflow">return</span> <span class="keyword">false</span>; }<a name="l00069"></a>00069 <span class="keywordflow">if</span>(size!=fread(address,<span class="keyword">sizeof</span>(<a class="code" href="group__integers.html#ga0">uint8</a>),size,f))<a name="l00070"></a>00070 { free(address); fclose(f); <span class="keywordflow">return</span> <span class="keyword">false</span>; }<a name="l00071"></a>00071 fclose(f);<a name="l00072"></a>00072 CHAR* d=(CHAR*)((<a class="code" href="group__forth.html#ga0">CELL</a>)address+size*<span class="keyword">sizeof</span>(CHAR)/<span class="keyword">sizeof</span>(uint8));<a name="l00073"></a>00073 uint8* s=(uint8*)((<a class="code" href="group__forth.html#ga0">CELL</a>)address+size*<span class="keyword">sizeof</span>(uint8));<a name="l00074"></a>00074 <span class="keywordflow">while</span>((<span class="keywordtype">void</span>*)d>(<span class="keywordtype">void</span>*)s) *--d=*--s;<a name="l00075"></a>00075 <span class="keywordflow">return</span> <span class="keyword">true</span>;<a name="l00076"></a>00076 }<a name="l00077"></a>00077 <a name="l00078"></a>00078 <a name="l00079"></a>00079 <span class="preprocessor">#if BITS_PER_CHAR==16</span><a name="l00080"></a>00080 <span class="preprocessor"></span><a name="l00081"></a>00081 <span class="preprocessor">#define STRING(string) L##string</span><a name="l00082"></a>00082 <span class="preprocessor"></span><a name="l00083"></a>00083 <span class="preprocessor">#define LINE(string) L##string L"\n"</span><a name="l00084"></a>00084 <span class="preprocessor"></span><span class="preprocessor">#else</span><a name="l00085"></a>00085 <span class="preprocessor"></span><a name="l00086"></a><a class="code" href="group__forth__test.html#ga3">00086</a> <span class="preprocessor">#define STRING(string) string</span><a name="l00087"></a>00087 <span class="preprocessor"></span><a name="l00088"></a><a class="code" href="group__forth__test.html#ga4">00088</a> <span class="preprocessor">#define LINE(string) string "\n"</span><a name="l00089"></a>00089 <span class="preprocessor"></span><span class="preprocessor">#endif</span><a name="l00090"></a>00090 <span class="preprocessor"></span><a name="l00091"></a>00091 <a name="l00095"></a><a class="code" href="classForthTest.html">00095</a> <span class="keyword">class </span><a class="code" href="classForthTest.html">ForthTest</a> : <span class="keyword">public</span> <a class="code" href="classForth.html">Forth</a><a name="l00096"></a>00096 {<a name="l00097"></a>00097 <span class="keyword">public</span>:<a name="l00103"></a>00103 <a class="code" href="group__forth.html#ga0">CELL</a> <a class="code" href="group__forth__test.html#ga6">Include</a>(<span class="keyword">const</span> <span class="keywordtype">char</span>* fileName);<a name="l00104"></a>00104 <a name="l00110"></a>00110 <a class="code" href="group__forth.html#ga0">CELL</a> <a class="code" href="group__forth__test.html#ga7">IncludeLines</a>(<span class="keyword">const</span> <span class="keywordtype">char</span>* fileName);<a name="l00111"></a>00111 };<a name="l00112"></a>00112 <a name="l00113"></a>00113 <a name="l00114"></a><a class="code" href="group__forth__test.html#ga6">00114</a> <a class="code" href="group__forth.html#ga0">CELL</a> <a class="code" href="group__forth__test.html#ga6">ForthTest::Include</a>(<span class="keyword">const</span> <span class="keywordtype">char</span>* fileName)<a name="l00115"></a>00115 {<a name="l00116"></a>00116 <span class="keywordtype">void</span>* file;<a name="l00117"></a>00117 <a class="code" href="group__integers.html#ga6">uint</a> size;<a name="l00118"></a>00118 <span class="keywordflow">if</span>(<a class="code" href="group__forth__test.html#ga0">ReadFile</a>(fileName,file,size))<a name="l00119"></a>00119 {<a name="l00120"></a>00120 <a class="code" href="group__forth.html#ga0">CELL</a> result = <a class="code" href="classForth.html#a3">Evaluate</a>((<span class="keyword">const</span> <a class="code" href="group__forth.html#ga2">CHAR</a>*)file,size);<a name="l00121"></a>00121 free(file);<a name="l00122"></a>00122 <span class="keywordflow">return</span> result;<a name="l00123"></a>00123 }<a name="l00124"></a>00124 <span class="keywordflow">else</span><a name="l00125"></a>00125 <span class="keywordflow">return</span> -38; <span class="comment">// non-existent file</span><a name="l00126"></a>00126 }<a name="l00127"></a>00127 <a name="l00128"></a>00128 <a name="l00129"></a><a class="code" href="group__forth__test.html#ga7">00129</a> <a class="code" href="group__forth.html#ga0">CELL</a> <a class="code" href="group__forth__test.html#ga7">ForthTest::IncludeLines</a>(<span class="keyword">const</span> <span class="keywordtype">char</span>* fileName)<a name="l00130"></a>00130 {<a name="l00131"></a>00131 <span class="keyword">static</span> <a class="code" href="group__forth.html#ga0">CELL</a> XT_INTERPRET_LINES = 0;<a name="l00132"></a>00132 <a name="l00133"></a>00133 <span class="keyword">static</span> <span class="keyword">const</span> <a class="code" href="group__forth.html#ga2">CHAR</a> InterpretLines[] = <a name="l00134"></a>00134 {<a name="l00135"></a>00135 <span class="comment">// Function which interprets source a line at a time...</span><a name="l00136"></a>00136 <a class="code" href="group__forth__test.html#ga4">LINE</a>(<span class="stringliteral">"DECIMAL"</span>)<a name="l00137"></a>00137 <a class="code" href="group__forth__test.html#ga4">LINE</a>(<span class="stringliteral">":NONAME ( c-addr u -- )"</span>)<a name="l00138"></a>00138 <a class="code" href="group__forth__test.html#ga4">LINE</a>(<span class="stringliteral">" (source) 2! 0 >IN !"</span>)<a name="l00139"></a>00139 <a class="code" href="group__forth__test.html#ga4">LINE</a>(<span class="stringliteral">" SOURCE CHARS + >R"</span>)<a name="l00140"></a>00140 <a class="code" href="group__forth__test.html#ga4">LINE</a>(<span class="stringliteral">" BEGIN"</span>)<a name="l00141"></a>00141 <a class="code" href="group__forth__test.html#ga4">LINE</a>(<span class="stringliteral">" SOURCE DROP >IN @ CHARS +"</span>)⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -