Merge branch 'master' into STABLE-BRANCH-2-2
[gnupg.git] / tests / gpgscm / scheme.h
1 /* SCHEME.H */
2
3 #ifndef _SCHEME_H
4 #define _SCHEME_H
5
6 #include <stdio.h>
7
8 #ifdef __cplusplus
9 extern "C" {
10 #endif
11
12 /*
13  * Default values for #define'd symbols
14  */
15 #ifndef STANDALONE       /* If used as standalone interpreter */
16 # define STANDALONE 1
17 #endif
18
19 #ifndef _MSC_VER
20 # define USE_STRCASECMP 1
21 # ifndef USE_STRLWR
22 #   define USE_STRLWR 1
23 # endif
24 # define SCHEME_EXPORT
25 #else
26 # define USE_STRCASECMP 0
27 # define USE_STRLWR 0
28 # ifdef _SCHEME_SOURCE
29 #  define SCHEME_EXPORT __declspec(dllexport)
30 # else
31 #  define SCHEME_EXPORT __declspec(dllimport)
32 # endif
33 #endif
34
35 #if USE_NO_FEATURES
36 # define USE_MATH 0
37 # define USE_CHAR_CLASSIFIERS 0
38 # define USE_ASCII_NAMES 0
39 # define USE_STRING_PORTS 0
40 # define USE_ERROR_HOOK 0
41 # define USE_TRACING 0
42 # define USE_COLON_HOOK 0
43 # define USE_DL 0
44 # define USE_PLIST 0
45 #endif
46
47 /*
48  * Leave it defined if you want continuations, and also for the Sharp Zaurus.
49  * Undefine it if you only care about faster speed and not strict Scheme compatibility.
50  */
51 #define USE_SCHEME_STACK
52
53 #if USE_DL
54 # define USE_INTERFACE 1
55 #endif
56
57
58 #ifndef USE_MATH         /* If math support is needed */
59 # define USE_MATH 1
60 #endif
61
62 #ifndef USE_CHAR_CLASSIFIERS  /* If char classifiers are needed */
63 # define USE_CHAR_CLASSIFIERS 1
64 #endif
65
66 #ifndef USE_ASCII_NAMES  /* If extended escaped characters are needed */
67 # define USE_ASCII_NAMES 1
68 #endif
69
70 #ifndef USE_STRING_PORTS      /* Enable string ports */
71 # define USE_STRING_PORTS 1
72 #endif
73
74 #ifndef USE_TRACING
75 # define USE_TRACING 1
76 #endif
77
78 #ifndef USE_PLIST
79 # define USE_PLIST 0
80 #endif
81
82 /* To force system errors through user-defined error handling (see *error-hook*) */
83 #ifndef USE_ERROR_HOOK
84 # define USE_ERROR_HOOK 1
85 #endif
86
87 #ifndef USE_COLON_HOOK   /* Enable qualified qualifier */
88 # define USE_COLON_HOOK 1
89 #endif
90
91 #ifndef USE_STRCASECMP   /* stricmp for Unix */
92 # define USE_STRCASECMP 0
93 #endif
94
95 #ifndef USE_STRLWR
96 # define USE_STRLWR 1
97 #endif
98
99 #ifndef STDIO_ADDS_CR    /* Define if DOS/Windows */
100 # define STDIO_ADDS_CR 0
101 #endif
102
103 #ifndef INLINE
104 # define INLINE
105 #endif
106
107 #ifndef USE_INTERFACE
108 # define USE_INTERFACE 0
109 #endif
110
111 #ifndef SHOW_ERROR_LINE   /* Show error line in file */
112 # define SHOW_ERROR_LINE 1
113 #endif
114
115 typedef struct scheme scheme;
116 typedef struct cell *pointer;
117
118 typedef void * (*func_alloc)(size_t);
119 typedef void (*func_dealloc)(void *);
120
121 /* table of functions required for foreign objects */
122 typedef struct foreign_object_vtable {
123      void (*finalize)(scheme *sc, void *data);
124      void (*to_string)(scheme *sc, char *out, size_t size, void *data);
125 } foreign_object_vtable;
126
127 /* num, for generic arithmetic */
128 typedef struct num {
129      char is_fixnum;
130      union {
131           long ivalue;
132           double rvalue;
133      } value;
134 } num;
135
136 SCHEME_EXPORT scheme *scheme_init_new(void);
137 SCHEME_EXPORT scheme *scheme_init_new_custom_alloc(func_alloc malloc, func_dealloc free);
138 SCHEME_EXPORT int scheme_init(scheme *sc);
139 SCHEME_EXPORT int scheme_init_custom_alloc(scheme *sc, func_alloc, func_dealloc);
140 SCHEME_EXPORT void scheme_deinit(scheme *sc);
141 void scheme_set_input_port_file(scheme *sc, FILE *fin);
142 void scheme_set_input_port_string(scheme *sc, char *start, char *past_the_end);
143 SCHEME_EXPORT void scheme_set_output_port_file(scheme *sc, FILE *fin);
144 void scheme_set_output_port_string(scheme *sc, char *start, char *past_the_end);
145 SCHEME_EXPORT void scheme_load_file(scheme *sc, FILE *fin);
146 SCHEME_EXPORT void scheme_load_named_file(scheme *sc, FILE *fin, const char *filename);
147 SCHEME_EXPORT void scheme_load_string(scheme *sc, const char *cmd);
148 SCHEME_EXPORT pointer scheme_apply0(scheme *sc, const char *procname);
149 SCHEME_EXPORT pointer scheme_call(scheme *sc, pointer func, pointer args);
150 SCHEME_EXPORT pointer scheme_eval(scheme *sc, pointer obj);
151 void scheme_set_external_data(scheme *sc, void *p);
152 SCHEME_EXPORT void scheme_define(scheme *sc, pointer env, pointer symbol, pointer value);
153
154 typedef pointer (*foreign_func)(scheme *, pointer);
155
156 pointer _cons(scheme *sc, pointer a, pointer b, int immutable);
157 pointer mk_integer(scheme *sc, long num);
158 pointer mk_real(scheme *sc, double num);
159 pointer mk_symbol(scheme *sc, const char *name);
160 pointer gensym(scheme *sc);
161 pointer mk_string(scheme *sc, const char *str);
162 pointer mk_counted_string(scheme *sc, const char *str, int len);
163 pointer mk_empty_string(scheme *sc, int len, char fill);
164 pointer mk_character(scheme *sc, int c);
165 pointer mk_foreign_func(scheme *sc, foreign_func f);
166 pointer mk_foreign_object(scheme *sc, const foreign_object_vtable *vtable, void *data);
167 void putstr(scheme *sc, const char *s);
168 int list_length(scheme *sc, pointer a);
169 int eqv(pointer a, pointer b);
170
171
172 #if USE_INTERFACE
173 struct scheme_interface {
174   void (*scheme_define)(scheme *sc, pointer env, pointer symbol, pointer value);
175   pointer (*cons)(scheme *sc, pointer a, pointer b);
176   pointer (*immutable_cons)(scheme *sc, pointer a, pointer b);
177   pointer (*reserve_cells)(scheme *sc, int n);
178   pointer (*mk_integer)(scheme *sc, long num);
179   pointer (*mk_real)(scheme *sc, double num);
180   pointer (*mk_symbol)(scheme *sc, const char *name);
181   pointer (*gensym)(scheme *sc);
182   pointer (*mk_string)(scheme *sc, const char *str);
183   pointer (*mk_counted_string)(scheme *sc, const char *str, int len);
184   pointer (*mk_character)(scheme *sc, int c);
185   pointer (*mk_vector)(scheme *sc, int len);
186   pointer (*mk_foreign_func)(scheme *sc, foreign_func f);
187   pointer (*mk_foreign_object)(scheme *sc, const foreign_object_vtable *vtable, void *data);
188   const foreign_object_vtable *(*get_foreign_object_vtable)(pointer p);
189   void *(*get_foreign_object_data)(pointer p);
190   void (*putstr)(scheme *sc, const char *s);
191   void (*putcharacter)(scheme *sc, int c);
192
193   int (*is_string)(pointer p);
194   char *(*string_value)(pointer p);
195   int (*is_number)(pointer p);
196   num (*nvalue)(pointer p);
197   long (*ivalue)(pointer p);
198   double (*rvalue)(pointer p);
199   int (*is_integer)(pointer p);
200   int (*is_real)(pointer p);
201   int (*is_character)(pointer p);
202   long (*charvalue)(pointer p);
203   int (*is_list)(scheme *sc, pointer p);
204   int (*is_vector)(pointer p);
205   int (*list_length)(scheme *sc, pointer vec);
206   long (*vector_length)(pointer vec);
207   void (*fill_vector)(pointer vec, pointer elem);
208   pointer (*vector_elem)(pointer vec, int ielem);
209   pointer (*set_vector_elem)(pointer vec, int ielem, pointer newel);
210   int (*is_port)(pointer p);
211
212   int (*is_pair)(pointer p);
213   pointer (*pair_car)(pointer p);
214   pointer (*pair_cdr)(pointer p);
215   pointer (*set_car)(pointer p, pointer q);
216   pointer (*set_cdr)(pointer p, pointer q);
217
218   int (*is_symbol)(pointer p);
219   char *(*symname)(pointer p);
220
221   int (*is_syntax)(pointer p);
222   int (*is_proc)(pointer p);
223   int (*is_foreign)(pointer p);
224   char *(*syntaxname)(pointer p);
225   int (*is_closure)(pointer p);
226   int (*is_macro)(pointer p);
227   pointer (*closure_code)(pointer p);
228   pointer (*closure_env)(pointer p);
229
230   int (*is_continuation)(pointer p);
231   int (*is_promise)(pointer p);
232   int (*is_environment)(pointer p);
233   int (*is_immutable)(pointer p);
234   void (*setimmutable)(pointer p);
235   void (*load_file)(scheme *sc, FILE *fin);
236   void (*load_string)(scheme *sc, const char *input);
237   pointer (*mk_port_from_file)(scheme *sc, FILE *f, int kind);
238 };
239 #endif
240
241 #if !STANDALONE
242 typedef struct scheme_registerable
243 {
244   foreign_func  f;
245   const char *  name;
246 }
247 scheme_registerable;
248
249 void scheme_register_foreign_func_list(scheme * sc,
250                                        scheme_registerable * list,
251                                        int n);
252
253 #endif /* !STANDALONE */
254
255 #ifdef __cplusplus
256 }
257 #endif
258
259 #endif
260
261
262 /*
263 Local variables:
264 c-file-style: "k&r"
265 End:
266 */