geda-project/gerbvhtdocs
1
0
Fork 0
mirror of git://git.geda-project.org/gerbvhtdocs synced 2025-05-10 01:41:53 +08:00
Code Issues Packages Projects Releases Wiki Activity
gerbvhtdocs/doxygen/scheme_8h-source.html

253 lines
21 KiB
HTML
Raw Blame History

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html><head><meta http-equiv="Content-Type" content="text/html;charset=UTF-8">
<title>gerbv: src/scheme.h Source File</title>
<link href="doxygen.css" rel="stylesheet" type="text/css">
<link href="tabs.css" rel="stylesheet" type="text/css">
</head><body>
<!-- Generated by Doxygen 1.5.6 -->
<div class="navigation" id="top">
<div class="tabs">
<ul>
<li><a href="main.html"><span>Main&nbsp;Page</span></a></li>
<li><a href="modules.html"><span>Modules</span></a></li>
<li><a href="classes.html"><span>Data&nbsp;Structures</span></a></li>
<li class="current"><a href="files.html"><span>Files</span></a></li>
<li><a href="dirs.html"><span>Directories</span></a></li>
<li><a href="examples.html"><span>Examples</span></a></li>
</ul>
</div>
<div class="navpath"><a class="el" href="dir_0fba06f62092f0c8d9ff47b96507f331.html">src</a>
</div>
</div>
<div class="contents">
<h1>scheme.h</h1><a href="scheme_8h.html">Go to the documentation of this file.</a><div class="fragment"><pre class="fragment"><a name="l00001"></a>00001 <span class="comment">/* SCHEME.H */</span>
<a name="l00002"></a>00002
<a name="l00008"></a>00008 <span class="preprocessor">#ifndef _SCHEME_H</span>
<a name="l00009"></a>00009 <span class="preprocessor"></span><span class="preprocessor">#define _SCHEME_H</span>
<a name="l00010"></a>00010 <span class="preprocessor"></span>
<a name="l00011"></a>00011 <span class="preprocessor">#include &lt;stdio.h&gt;</span>
<a name="l00012"></a>00012
<a name="l00013"></a>00013 <span class="preprocessor">#ifdef HAVE_CONFIG_H</span>
<a name="l00014"></a>00014 <span class="preprocessor"></span><span class="preprocessor">#include &lt;config.h&gt;</span>
<a name="l00015"></a>00015 <span class="preprocessor">#endif</span>
<a name="l00016"></a>00016 <span class="preprocessor"></span>
<a name="l00017"></a>00017 <span class="comment">/*</span>
<a name="l00018"></a>00018 <span class="comment"> * Default values for #define'd symbols</span>
<a name="l00019"></a>00019 <span class="comment"> */</span>
<a name="l00020"></a>00020 <span class="preprocessor">#ifndef STANDALONE </span><span class="comment">/* If used as standalone interpreter */</span>
<a name="l00021"></a>00021 <span class="preprocessor"># define STANDALONE 1</span>
<a name="l00022"></a>00022 <span class="preprocessor"></span><span class="preprocessor">#endif</span>
<a name="l00023"></a>00023 <span class="preprocessor"></span>
<a name="l00024"></a>00024
<a name="l00025"></a>00025 <span class="preprocessor">#if !defined(_MSC_VER) &amp;&amp; !defined(__MINGW32__)</span>
<a name="l00026"></a>00026 <span class="preprocessor"></span><span class="preprocessor"># define USE_STRCASECMP 1 </span>
<a name="l00027"></a>00027 <span class="preprocessor"></span><span class="preprocessor"># define USE_STRLWR 1 </span>
<a name="l00028"></a>00028 <span class="preprocessor"></span><span class="preprocessor"># define SCHEME_EXPORT</span>
<a name="l00029"></a>00029 <span class="preprocessor"></span><span class="preprocessor">#else </span>
<a name="l00030"></a>00030 <span class="preprocessor"></span><span class="preprocessor"># define USE_STRCASECMP 0 </span>
<a name="l00031"></a>00031 <span class="preprocessor"></span><span class="preprocessor"># define USE_STRLWR 0 </span>
<a name="l00032"></a>00032 <span class="preprocessor"></span><span class="preprocessor"># if defined(__MINGW32__)</span>
<a name="l00033"></a>00033 <span class="preprocessor"></span><span class="preprocessor"># define SCHEME_EXPORT</span>
<a name="l00034"></a>00034 <span class="preprocessor"></span><span class="preprocessor"># else</span>
<a name="l00035"></a>00035 <span class="preprocessor"></span><span class="preprocessor"># ifdef _SCHEME_SOURCE</span>
<a name="l00036"></a>00036 <span class="preprocessor"></span><span class="preprocessor"># define SCHEME_EXPORT __declspec(dllexport)</span>
<a name="l00037"></a>00037 <span class="preprocessor"></span><span class="preprocessor"># else</span>
<a name="l00038"></a>00038 <span class="preprocessor"></span><span class="preprocessor"># define SCHEME_EXPORT __declspec(dllimport)</span>
<a name="l00039"></a>00039 <span class="preprocessor"></span><span class="preprocessor"># endif</span>
<a name="l00040"></a>00040 <span class="preprocessor"></span><span class="preprocessor"># endif</span>
<a name="l00041"></a>00041 <span class="preprocessor"></span><span class="preprocessor">#endif</span>
<a name="l00042"></a>00042 <span class="preprocessor"></span>
<a name="l00043"></a>00043
<a name="l00044"></a>00044
<a name="l00045"></a>00045 <span class="preprocessor">#if USE_NO_FEATURES</span>
<a name="l00046"></a>00046 <span class="preprocessor"></span><span class="preprocessor"># define USE_MATH 0</span>
<a name="l00047"></a>00047 <span class="preprocessor"></span><span class="preprocessor"># define USE_CHAR_CLASSIFIERS 0</span>
<a name="l00048"></a>00048 <span class="preprocessor"></span><span class="preprocessor"># define USE_ASCII_NAMES 0</span>
<a name="l00049"></a>00049 <span class="preprocessor"></span><span class="preprocessor"># define USE_STRING_PORTS 0</span>
<a name="l00050"></a>00050 <span class="preprocessor"></span><span class="preprocessor"># define USE_ERROR_HOOK 0</span>
<a name="l00051"></a>00051 <span class="preprocessor"></span><span class="preprocessor"># define USE_TRACING 0</span>
<a name="l00052"></a>00052 <span class="preprocessor"></span><span class="preprocessor"># define USE_COLON_HOOK 0</span>
<a name="l00053"></a>00053 <span class="preprocessor"></span><span class="preprocessor"># define USE_DL 0</span>
<a name="l00054"></a>00054 <span class="preprocessor"></span><span class="preprocessor"># define USE_PLIST 0</span>
<a name="l00055"></a>00055 <span class="preprocessor"></span><span class="preprocessor">#endif</span>
<a name="l00056"></a>00056 <span class="preprocessor"></span>
<a name="l00057"></a>00057 <span class="comment">/*</span>
<a name="l00058"></a>00058 <span class="comment"> * Leave it defined if you want continuations, and also for the Sharp Zaurus.</span>
<a name="l00059"></a>00059 <span class="comment"> * Undefine it if you only care about faster speed and not strict Scheme compatibility.</span>
<a name="l00060"></a>00060 <span class="comment"> */</span>
<a name="l00061"></a>00061 <span class="preprocessor">#define USE_SCHEME_STACK</span>
<a name="l00062"></a>00062 <span class="preprocessor"></span>
<a name="l00063"></a>00063 <span class="preprocessor">#if USE_DL</span>
<a name="l00064"></a>00064 <span class="preprocessor"></span><span class="preprocessor"># define USE_INTERFACE 1</span>
<a name="l00065"></a>00065 <span class="preprocessor"></span><span class="preprocessor">#endif</span>
<a name="l00066"></a>00066 <span class="preprocessor"></span>
<a name="l00067"></a>00067
<a name="l00068"></a>00068 <span class="preprocessor">#ifndef USE_MATH </span><span class="comment">/* If math support is needed */</span>
<a name="l00069"></a>00069 <span class="preprocessor"># define USE_MATH 1</span>
<a name="l00070"></a>00070 <span class="preprocessor"></span><span class="preprocessor">#endif</span>
<a name="l00071"></a>00071 <span class="preprocessor"></span>
<a name="l00072"></a>00072 <span class="preprocessor">#ifndef USE_CHAR_CLASSIFIERS </span><span class="comment">/* If char classifiers are needed */</span>
<a name="l00073"></a>00073 <span class="preprocessor"># define USE_CHAR_CLASSIFIERS 1</span>
<a name="l00074"></a>00074 <span class="preprocessor"></span><span class="preprocessor">#endif</span>
<a name="l00075"></a>00075 <span class="preprocessor"></span>
<a name="l00076"></a>00076 <span class="preprocessor">#ifndef USE_ASCII_NAMES </span><span class="comment">/* If extended escaped characters are needed */</span>
<a name="l00077"></a>00077 <span class="preprocessor"># define USE_ASCII_NAMES 1</span>
<a name="l00078"></a>00078 <span class="preprocessor"></span><span class="preprocessor">#endif</span>
<a name="l00079"></a>00079 <span class="preprocessor"></span>
<a name="l00080"></a>00080 <span class="preprocessor">#ifndef USE_STRING_PORTS </span><span class="comment">/* Enable string ports */</span>
<a name="l00081"></a>00081 <span class="preprocessor"># define USE_STRING_PORTS 1</span>
<a name="l00082"></a>00082 <span class="preprocessor"></span><span class="preprocessor">#endif</span>
<a name="l00083"></a>00083 <span class="preprocessor"></span>
<a name="l00084"></a>00084 <span class="preprocessor">#ifndef USE_TRACING</span>
<a name="l00085"></a>00085 <span class="preprocessor"></span><span class="preprocessor"># define USE_TRACING 1</span>
<a name="l00086"></a>00086 <span class="preprocessor"></span><span class="preprocessor">#endif</span>
<a name="l00087"></a>00087 <span class="preprocessor"></span>
<a name="l00088"></a>00088 <span class="preprocessor">#ifndef USE_PLIST</span>
<a name="l00089"></a>00089 <span class="preprocessor"></span><span class="preprocessor"># define USE_PLIST 0</span>
<a name="l00090"></a>00090 <span class="preprocessor"></span><span class="preprocessor">#endif</span>
<a name="l00091"></a>00091 <span class="preprocessor"></span>
<a name="l00092"></a>00092 <span class="comment">/* To force system errors through user-defined error handling (see *error-hook*) */</span>
<a name="l00093"></a>00093 <span class="preprocessor">#ifndef USE_ERROR_HOOK</span>
<a name="l00094"></a>00094 <span class="preprocessor"></span><span class="preprocessor"># define USE_ERROR_HOOK 1</span>
<a name="l00095"></a>00095 <span class="preprocessor"></span><span class="preprocessor">#endif</span>
<a name="l00096"></a>00096 <span class="preprocessor"></span>
<a name="l00097"></a>00097 <span class="preprocessor">#ifndef USE_COLON_HOOK </span><span class="comment">/* Enable qualified qualifier */</span>
<a name="l00098"></a>00098 <span class="preprocessor"># define USE_COLON_HOOK 1</span>
<a name="l00099"></a>00099 <span class="preprocessor"></span><span class="preprocessor">#endif</span>
<a name="l00100"></a>00100 <span class="preprocessor"></span>
<a name="l00101"></a>00101 <span class="preprocessor">#ifndef USE_STRCASECMP </span><span class="comment">/* stricmp for Unix */</span>
<a name="l00102"></a>00102 <span class="preprocessor"># define USE_STRCASECMP 0</span>
<a name="l00103"></a>00103 <span class="preprocessor"></span><span class="preprocessor">#endif</span>
<a name="l00104"></a>00104 <span class="preprocessor"></span>
<a name="l00105"></a>00105 <span class="preprocessor">#ifndef USE_STRLWR</span>
<a name="l00106"></a>00106 <span class="preprocessor"></span><span class="preprocessor"># define USE_STRLWR 1</span>
<a name="l00107"></a>00107 <span class="preprocessor"></span><span class="preprocessor">#endif</span>
<a name="l00108"></a>00108 <span class="preprocessor"></span>
<a name="l00109"></a>00109 <span class="preprocessor">#ifndef STDIO_ADDS_CR </span><span class="comment">/* Define if DOS/Windows */</span>
<a name="l00110"></a>00110 <span class="preprocessor"># define STDIO_ADDS_CR 0</span>
<a name="l00111"></a>00111 <span class="preprocessor"></span><span class="preprocessor">#endif</span>
<a name="l00112"></a>00112 <span class="preprocessor"></span>
<a name="l00113"></a>00113 <span class="preprocessor">#ifndef INLINE</span>
<a name="l00114"></a>00114 <span class="preprocessor"></span><span class="preprocessor"># define INLINE</span>
<a name="l00115"></a>00115 <span class="preprocessor"></span><span class="preprocessor">#endif</span>
<a name="l00116"></a>00116 <span class="preprocessor"></span>
<a name="l00117"></a>00117 <span class="preprocessor">#ifndef USE_INTERFACE</span>
<a name="l00118"></a>00118 <span class="preprocessor"></span><span class="preprocessor"># define USE_INTERFACE 0</span>
<a name="l00119"></a>00119 <span class="preprocessor"></span><span class="preprocessor">#endif</span>
<a name="l00120"></a>00120 <span class="preprocessor"></span>
<a name="l00121"></a>00121 <span class="keyword">typedef</span> <span class="keyword">struct </span>scheme scheme;
<a name="l00122"></a>00122 <span class="keyword">typedef</span> <span class="keyword">struct </span>cell *pointer;
<a name="l00123"></a>00123
<a name="l00124"></a>00124 <span class="keyword">typedef</span> <span class="keywordtype">void</span> * (*func_alloc)(size_t);
<a name="l00125"></a>00125 <span class="keyword">typedef</span> void (*func_dealloc)(<span class="keywordtype">void</span> *);
<a name="l00126"></a>00126
<a name="l00127"></a>00127 <span class="comment">/* num, for generic arithmetic */</span>
<a name="l00128"></a>00128 <span class="keyword">typedef</span> <span class="keyword">struct </span>num {
<a name="l00129"></a>00129 <span class="keywordtype">char</span> is_fixnum;
<a name="l00130"></a>00130 <span class="keyword">union </span>{
<a name="l00131"></a>00131 <span class="keywordtype">long</span> ivalue;
<a name="l00132"></a>00132 <span class="keywordtype">double</span> rvalue;
<a name="l00133"></a>00133 } value;
<a name="l00134"></a>00134 } num;
<a name="l00135"></a>00135
<a name="l00136"></a>00136 SCHEME_EXPORT scheme *scheme_init_new();
<a name="l00137"></a>00137 SCHEME_EXPORT scheme *scheme_init_new_custom_alloc(func_alloc malloc, func_dealloc free);
<a name="l00138"></a>00138 SCHEME_EXPORT <span class="keywordtype">int</span> scheme_init(scheme *sc);
<a name="l00139"></a>00139 SCHEME_EXPORT <span class="keywordtype">int</span> scheme_init_custom_alloc(scheme *sc, func_alloc, func_dealloc);
<a name="l00140"></a>00140 SCHEME_EXPORT <span class="keywordtype">void</span> scheme_deinit(scheme *sc);
<a name="l00141"></a>00141 <span class="keywordtype">void</span> scheme_set_input_port_file(scheme *sc, FILE *fin);
<a name="l00142"></a>00142 <span class="keywordtype">void</span> scheme_set_input_port_string(scheme *sc, <span class="keywordtype">char</span> *start, <span class="keywordtype">char</span> *past_the_end);
<a name="l00143"></a>00143 SCHEME_EXPORT <span class="keywordtype">void</span> scheme_set_output_port_file(scheme *sc, FILE *fin);
<a name="l00144"></a>00144 <span class="keywordtype">void</span> scheme_set_output_port_string(scheme *sc, <span class="keywordtype">char</span> *start, <span class="keywordtype">char</span> *past_the_end);
<a name="l00145"></a>00145 SCHEME_EXPORT <span class="keywordtype">void</span> scheme_load_file(scheme *sc, FILE *fin);
<a name="l00146"></a>00146 SCHEME_EXPORT <span class="keywordtype">void</span> scheme_load_string(scheme *sc, <span class="keyword">const</span> <span class="keywordtype">char</span> *cmd);
<a name="l00147"></a>00147 <span class="keywordtype">void</span> scheme_apply0(scheme *sc, <span class="keyword">const</span> <span class="keywordtype">char</span> *procname);
<a name="l00148"></a>00148 SCHEME_EXPORT pointer scheme_apply1(scheme *sc, <span class="keyword">const</span> <span class="keywordtype">char</span> *procname, pointer);
<a name="l00149"></a>00149 <span class="keywordtype">void</span> scheme_set_external_data(scheme *sc, <span class="keywordtype">void</span> *p);
<a name="l00150"></a>00150 SCHEME_EXPORT <span class="keywordtype">void</span> scheme_define(scheme *sc, pointer env, pointer symbol, pointer value);
<a name="l00151"></a>00151
<a name="l00152"></a>00152 <span class="keyword">typedef</span> pointer (*foreign_func)(scheme *, pointer);
<a name="l00153"></a>00153
<a name="l00154"></a>00154 pointer _cons(scheme *sc, pointer a, pointer b, <span class="keywordtype">int</span> immutable);
<a name="l00155"></a>00155 pointer mk_integer(scheme *sc, <span class="keywordtype">long</span> num);
<a name="l00156"></a>00156 pointer mk_real(scheme *sc, <span class="keywordtype">double</span> num);
<a name="l00157"></a>00157 pointer mk_symbol(scheme *sc, <span class="keyword">const</span> <span class="keywordtype">char</span> *name);
<a name="l00158"></a>00158 pointer gensym(scheme *sc);
<a name="l00159"></a>00159 pointer mk_string(scheme *sc, <span class="keyword">const</span> <span class="keywordtype">char</span> *str);
<a name="l00160"></a>00160 pointer mk_counted_string(scheme *sc, <span class="keyword">const</span> <span class="keywordtype">char</span> *str, <span class="keywordtype">int</span> len);
<a name="l00161"></a>00161 pointer mk_character(scheme *sc, <span class="keywordtype">int</span> c);
<a name="l00162"></a>00162 pointer mk_foreign_func(scheme *sc, foreign_func f);
<a name="l00163"></a>00163 <span class="keywordtype">void</span> putstr(scheme *sc, <span class="keyword">const</span> <span class="keywordtype">char</span> *s);
<a name="l00164"></a>00164
<a name="l00165"></a>00165
<a name="l00166"></a>00166 <span class="preprocessor">#if USE_INTERFACE</span>
<a name="l00167"></a>00167 <span class="preprocessor"></span><span class="keyword">struct </span>scheme_interface {
<a name="l00168"></a>00168 void (*scheme_define)(scheme *sc, pointer env, pointer symbol, pointer value);
<a name="l00169"></a>00169 pointer (*cons)(scheme *sc, pointer a, pointer b);
<a name="l00170"></a>00170 pointer (*immutable_cons)(scheme *sc, pointer a, pointer b);
<a name="l00171"></a>00171 pointer (*mk_integer)(scheme *sc, <span class="keywordtype">long</span> num);
<a name="l00172"></a>00172 pointer (*mk_real)(scheme *sc, <span class="keywordtype">double</span> num);
<a name="l00173"></a>00173 pointer (*mk_symbol)(scheme *sc, <span class="keyword">const</span> <span class="keywordtype">char</span> *name);
<a name="l00174"></a>00174 pointer (*gensym)(scheme *sc);
<a name="l00175"></a>00175 pointer (*mk_string)(scheme *sc, <span class="keyword">const</span> <span class="keywordtype">char</span> *str);
<a name="l00176"></a>00176 pointer (*mk_counted_string)(scheme *sc, <span class="keyword">const</span> <span class="keywordtype">char</span> *str, <span class="keywordtype">int</span> len);
<a name="l00177"></a>00177 pointer (*mk_character)(scheme *sc, <span class="keywordtype">int</span> c);
<a name="l00178"></a>00178 pointer (*mk_vector)(scheme *sc, <span class="keywordtype">int</span> len);
<a name="l00179"></a>00179 pointer (*mk_foreign_func)(scheme *sc, foreign_func f);
<a name="l00180"></a>00180 void (*putstr)(scheme *sc, <span class="keyword">const</span> <span class="keywordtype">char</span> *s);
<a name="l00181"></a>00181 void (*putcharacter)(scheme *sc, <span class="keywordtype">int</span> c);
<a name="l00182"></a>00182
<a name="l00183"></a>00183 int (*is_string)(pointer p);
<a name="l00184"></a>00184 <span class="keywordtype">char</span> *(*string_value)(pointer p);
<a name="l00185"></a>00185 int (*is_number)(pointer p);
<a name="l00186"></a>00186 num (*nvalue)(pointer p);
<a name="l00187"></a>00187 long (*ivalue)(pointer p);
<a name="l00188"></a>00188 double (*rvalue)(pointer p);
<a name="l00189"></a>00189 int (*is_integer)(pointer p);
<a name="l00190"></a>00190 int (*is_real)(pointer p);
<a name="l00191"></a>00191 int (*is_character)(pointer p);
<a name="l00192"></a>00192 long (*charvalue)(pointer p);
<a name="l00193"></a>00193 int (*is_vector)(pointer p);
<a name="l00194"></a>00194 long (*vector_length)(pointer vec);
<a name="l00195"></a>00195 void (*fill_vector)(pointer vec, pointer elem);
<a name="l00196"></a>00196 pointer (*vector_elem)(pointer vec, <span class="keywordtype">int</span> ielem);
<a name="l00197"></a>00197 pointer (*set_vector_elem)(pointer vec, <span class="keywordtype">int</span> ielem, pointer newel);
<a name="l00198"></a>00198 int (*is_port)(pointer p);
<a name="l00199"></a>00199
<a name="l00200"></a>00200 int (*is_pair)(pointer p);
<a name="l00201"></a>00201 pointer (*pair_car)(pointer p);
<a name="l00202"></a>00202 pointer (*pair_cdr)(pointer p);
<a name="l00203"></a>00203 pointer (*set_car)(pointer p, pointer q);
<a name="l00204"></a>00204 pointer (*set_cdr)(pointer p, pointer q);
<a name="l00205"></a>00205
<a name="l00206"></a>00206 int (*is_symbol)(pointer p);
<a name="l00207"></a>00207 <span class="keywordtype">char</span> *(*symname)(pointer p);
<a name="l00208"></a>00208
<a name="l00209"></a>00209 int (*is_syntax)(pointer p);
<a name="l00210"></a>00210 int (*is_proc)(pointer p);
<a name="l00211"></a>00211 int (*is_foreign)(pointer p);
<a name="l00212"></a>00212 <span class="keywordtype">char</span> *(*syntaxname)(pointer p);
<a name="l00213"></a>00213 int (*is_closure)(pointer p);
<a name="l00214"></a>00214 int (*is_macro)(pointer p);
<a name="l00215"></a>00215 pointer (*closure_code)(pointer p);
<a name="l00216"></a>00216 pointer (*closure_env)(pointer p);
<a name="l00217"></a>00217
<a name="l00218"></a>00218 int (*is_continuation)(pointer p);
<a name="l00219"></a>00219 int (*is_promise)(pointer p);
<a name="l00220"></a>00220 int (*is_environment)(pointer p);
<a name="l00221"></a>00221 int (*is_immutable)(pointer p);
<a name="l00222"></a>00222 void (*setimmutable)(pointer p);
<a name="l00223"></a>00223 void (*load_file)(scheme *sc, FILE *fin);
<a name="l00224"></a>00224 void (*load_string)(scheme *sc, <span class="keyword">const</span> <span class="keywordtype">char</span> *input);
<a name="l00225"></a>00225 };
<a name="l00226"></a>00226 <span class="preprocessor">#endif</span>
<a name="l00227"></a>00227 <span class="preprocessor"></span>
<a name="l00228"></a>00228 <span class="preprocessor">#endif</span>
<a name="l00229"></a>00229 <span class="preprocessor"></span>
</pre></div></div>
<hr size="1"><address style="text-align: right;"><small>Generated on Tue Aug 19 00:14:50 2008 for gerbv by&nbsp;
<a href="http://www.doxygen.org/index.html">
<img src="doxygen.png" alt="doxygen" align="middle" border="0"></a> 1.5.6 </small></address>
</body>
</html>
Reference in New Issue View Git Blame Copy Permalink