… | |
… | |
2 | /* SCHEME.H */ |
2 | /* SCHEME.H */ |
3 | |
3 | |
4 | #ifndef SCHEME_H |
4 | #ifndef SCHEME_H |
5 | #define SCHEME_H |
5 | #define SCHEME_H |
6 | |
6 | |
|
|
7 | #include <inttypes.h> |
7 | #include <stdio.h> |
8 | #include <stdio.h> |
8 | |
9 | |
9 | #ifdef __cplusplus |
10 | #ifdef __cplusplus |
10 | extern "C" |
11 | extern "C" |
11 | { |
12 | { |
… | |
… | |
196 | INTERFACE pointer mk_integer (SCHEME_P_ long num); |
197 | INTERFACE pointer mk_integer (SCHEME_P_ long num); |
197 | INTERFACE pointer mk_real (SCHEME_P_ RVALUE num); |
198 | INTERFACE pointer mk_real (SCHEME_P_ RVALUE num); |
198 | INTERFACE pointer mk_symbol (SCHEME_P_ const char *name); |
199 | INTERFACE pointer mk_symbol (SCHEME_P_ const char *name); |
199 | INTERFACE pointer gensym (SCHEME_P); |
200 | INTERFACE pointer gensym (SCHEME_P); |
200 | INTERFACE pointer mk_string (SCHEME_P_ const char *str); |
201 | INTERFACE pointer mk_string (SCHEME_P_ const char *str); |
201 | INTERFACE pointer mk_counted_string (SCHEME_P_ const char *str, int len); |
202 | INTERFACE pointer mk_counted_string (SCHEME_P_ const char *str, uint32_t len); |
202 | INTERFACE pointer mk_empty_string (SCHEME_P_ int len, char fill); |
203 | INTERFACE pointer mk_empty_string (SCHEME_P_ uint32_t len, char fill); |
203 | INTERFACE pointer mk_character (SCHEME_P_ int c); |
204 | INTERFACE pointer mk_character (SCHEME_P_ int c); |
204 | INTERFACE pointer mk_foreign_func (SCHEME_P_ foreign_func f); |
205 | INTERFACE pointer mk_foreign_func (SCHEME_P_ foreign_func f); |
205 | INTERFACE void putstr (SCHEME_P_ const char *s); |
206 | INTERFACE void putstr (SCHEME_P_ const char *s); |
206 | INTERFACE int list_length (SCHEME_P_ pointer a); |
207 | INTERFACE int list_length (SCHEME_P_ pointer a); |
207 | INTERFACE int eqv (pointer a, pointer b); |
208 | INTERFACE int eqv (pointer a, pointer b); |