microscheme/scheme.h


/* SCHEME.H */

#ifndef SCHEME_H
#define SCHEME_H

#include <inttypes.h>
#include <stdio.h>

#ifdef __cplusplus
extern "C"
{
#endif

/*
 * Default values for #define'd symbols
 */
#ifndef STANDALONE             /* If used as standalone interpreter */
# define STANDALONE 1
#endif

#define USE_STRCASECMP 1
#ifndef USE_STRLWR
# define USE_STRLWR 1
#endif
#define SCHEME_EXPORT static

#if USE_NO_FEATURES
# define USE_MULTIPLICITY 0
# define USE_MATH 0
# define USE_CHAR_CLASSIFIERS 0
# define USE_ASCII_NAMES 0
# define USE_PORTS 1
# define USE_STRING_PORTS 0
# define USE_ERROR_HOOK 0
# define USE_TRACING 0
# define USE_COLON_HOOK 0
# define USE_DL 0
# define USE_PLIST 0
# define USE_FLOAT 0
# define USE_ERROR_CHECKING 0
# define USE_PRINTF 0
#endif

/*
 * Leave it defined if you want continuations, and also for the Sharp Zaurus.
 * Undefine it if you only care about faster speed and not strict Scheme compatibility.
 */
//#define USE_SCHEME_STACK

#if USE_DL
# define USE_INTERFACE 1
#endif

#ifndef USE_MULTIPLICITY
# define USE_MULTIPLICITY 1
#endif

#ifndef USE_FLOAT
# define USE_FLOAT 1
#endif

#ifndef USE_MATH               /* If math support is needed */
# define USE_MATH 1
#endif

#ifndef USE_CHAR_CLASSIFIERS   /* If char classifiers are needed */
# define USE_CHAR_CLASSIFIERS 1
#endif

#ifndef USE_ASCII_NAMES        /* If extended escaped characters are needed */
# define USE_ASCII_NAMES 1
#endif

#ifndef USE_PORTS              /* Enable ports */
# define USE_PORTS 1
#endif

#ifndef USE_STRING_PORTS       /* Enable string ports */
# define USE_STRING_PORTS USE_PORTS
#endif

#ifndef USE_TRACING
# define USE_TRACING 1
#endif

#ifndef USE_PLIST
# define USE_PLIST 0
#endif

/* To force system errors through user-defined error handling (see *error-hook*) */
#ifndef USE_ERROR_HOOK
# define USE_ERROR_HOOK 1
#endif

#ifndef USE_COLON_HOOK         /* Enable qualified qualifier */
# define USE_COLON_HOOK 1
#endif

#ifndef USE_ERROR_CHECKING
# define USE_ERROR_CHECKING 1
#endif

#ifndef USE_PRINTF
# define USE_PRINTF 1
#endif

#ifndef USE_STRLWR
# define USE_STRLWR 1
#endif

#ifndef INLINE
# define INLINE inline
#endif

#ifndef SHOW_ERROR_LINE        /* Show error line in file */
# define SHOW_ERROR_LINE 1
#endif

#if USE_MULTIPLICITY
# define SCHEME_V sc
# define SCHEME_P scheme *SCHEME_V
# define SCHEME_P_ SCHEME_P,
# define SCHEME_A SCHEME_V
# define SCHEME_A_ SCHEME_A,
#else
# define SCHEME_V (&sc)
# define SCHEME_P
# define SCHEME_P_
# define SCHEME_A
# define SCHEME_A_
#endif

  typedef struct scheme scheme;
  typedef struct cell *pointer;

  typedef void *(*func_alloc) (size_t);
  typedef void (*func_dealloc) (void *);

  typedef long IVALUE;          /* this is not used consistently yet */

#if USE_FLOAT
  typedef double RVALUE;
# define num_is_fixnum(n)    (n).is_fixnum
# define num_set_fixnum(n,f) (n).is_fixnum = (f)
# define num_ivalue(n)       (n).value.ivalue
# define num_rvalue(n)       (n).value.rvalue
# define num_set_ivalue(n,i) (n).value.ivalue = (i)
# define num_set_rvalue(n,r) (n).value.rvalue = (r)
#else
  typedef long RVALUE;
# define num_is_fixnum(n)    1
# define num_set_fixnum(n,f) 0
# define num_ivalue(n)       (n).value.ivalue
# define num_rvalue(n)       (n).value.ivalue
# define num_set_ivalue(n,i) (n).value.ivalue = (i)
# define num_set_rvalue(n,r) (n).value.ivalue = (r)
#endif

/* num, for generic arithmetic */
  typedef struct num
  {
    union
    {
      long ivalue;
#if USE_FLOAT
      RVALUE rvalue;
#endif
    } value;
#if USE_FLOAT
    char is_fixnum;
#endif
  } num;

/* Used for documentation purposes, to signal functions in 'interface' */
#define INTERFACE static

  SCHEME_EXPORT scheme *scheme_init_new ();
  SCHEME_EXPORT int scheme_init (SCHEME_P);
  SCHEME_EXPORT void scheme_deinit (SCHEME_P);
  void scheme_set_input_port_file (SCHEME_P_ int fin);
  void scheme_set_input_port_string (SCHEME_P_ char *start, char *past_the_end);
  SCHEME_EXPORT void scheme_set_output_port_file (SCHEME_P_ int fin);
  void scheme_set_output_port_string (SCHEME_P_ char *start, char *past_the_end);
  SCHEME_EXPORT void scheme_load_file (SCHEME_P_ int fin);
  SCHEME_EXPORT void scheme_load_named_file (SCHEME_P_ int fin, const char *filename);
  SCHEME_EXPORT void scheme_load_string (SCHEME_P_ const char *cmd);
  SCHEME_EXPORT pointer scheme_apply0 (SCHEME_P_ const char *procname);
  SCHEME_EXPORT pointer scheme_call (SCHEME_P_ pointer func, pointer args);
  SCHEME_EXPORT pointer scheme_eval (SCHEME_P_ pointer obj);
  void scheme_set_external_data (SCHEME_P_ void *p);
  SCHEME_EXPORT void scheme_define (SCHEME_P_ pointer env, pointer symbol, pointer value);

  typedef pointer (*foreign_func) (SCHEME_P_ pointer);

  pointer xcons (SCHEME_P_ pointer a, pointer b, int immutable);
  INTERFACE pointer mk_integer (SCHEME_P_ long num);
  INTERFACE pointer mk_real (SCHEME_P_ RVALUE num);
  INTERFACE pointer mk_symbol (SCHEME_P_ const char *name);
  INTERFACE pointer gensym (SCHEME_P);
  INTERFACE pointer mk_string (SCHEME_P_ const char *str);
  INTERFACE pointer mk_counted_string (SCHEME_P_ const char *str, uint32_t len);
  INTERFACE pointer mk_empty_string (SCHEME_P_ uint32_t len, char fill);
  INTERFACE pointer mk_character (SCHEME_P_ int c);
  INTERFACE pointer mk_foreign_func (SCHEME_P_ foreign_func f);
  INTERFACE void putstr (SCHEME_P_ const char *s);
  INTERFACE int list_length (SCHEME_P_ pointer a);
  INTERFACE int eqv (pointer a, pointer b);

#if !STANDALONE
  typedef struct scheme_registerable
  {
    foreign_func f;
    const char *name;
  }
  scheme_registerable;

  void scheme_register_foreign_func_list (SCHEME_P_ scheme_registerable * list, int n);

#endif                         /* !STANDALONE */

#ifdef __cplusplus
}
#endif

#endif

/*
Local variables:
c-file-style: "k&r"
End:
*/
Revision:	1.3
Committed:	Wed Nov 25 10:30:34 2015 UTC (8 years, 6 months ago) by root
Content type:	text/plain
Branch:	MAIN
Changes since 1.2:	+3 -2 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1
2			/* SCHEME.H */
3
4			#ifndef SCHEME_H
5	root	1.2	#define SCHEME_H
6	root	1.1
7	root	1.3	#include <inttypes.h>
8	root	1.2	#include <stdio.h>
9	root	1.1
10	root	1.2	#ifdef __cplusplus
11	root	1.1	extern "C"
12			{
13	root	1.2	#endif
14	root	1.1
15			/*
16			* Default values for #define'd symbols
17			*/
18	root	1.2	#ifndef STANDALONE /* If used as standalone interpreter */
19			# define STANDALONE 1
20			#endif
21
22			#define USE_STRCASECMP 1
23			#ifndef USE_STRLWR
24			# define USE_STRLWR 1
25			#endif
26			#define SCHEME_EXPORT static
27
28			#if USE_NO_FEATURES
29			# define USE_MULTIPLICITY 0
30			# define USE_MATH 0
31			# define USE_CHAR_CLASSIFIERS 0
32			# define USE_ASCII_NAMES 0
33			# define USE_PORTS 1
34			# define USE_STRING_PORTS 0
35			# define USE_ERROR_HOOK 0
36			# define USE_TRACING 0
37			# define USE_COLON_HOOK 0
38			# define USE_DL 0
39			# define USE_PLIST 0
40			# define USE_FLOAT 0
41			# define USE_ERROR_CHECKING 0
42			# define USE_PRINTF 0
43			#endif
44	root	1.1
45			/*
46			* Leave it defined if you want continuations, and also for the Sharp Zaurus.
47			* Undefine it if you only care about faster speed and not strict Scheme compatibility.
48			*/
49	root	1.2	//#define USE_SCHEME_STACK
50
51			#if USE_DL
52			# define USE_INTERFACE 1
53			#endif
54
55			#ifndef USE_MULTIPLICITY
56			# define USE_MULTIPLICITY 1
57			#endif
58
59			#ifndef USE_FLOAT
60			# define USE_FLOAT 1
61			#endif
62	root	1.1
63	root	1.2	#ifndef USE_MATH /* If math support is needed */
64			# define USE_MATH 1
65			#endif
66
67			#ifndef USE_CHAR_CLASSIFIERS /* If char classifiers are needed */
68			# define USE_CHAR_CLASSIFIERS 1
69			#endif
70
71			#ifndef USE_ASCII_NAMES /* If extended escaped characters are needed */
72			# define USE_ASCII_NAMES 1
73			#endif
74
75			#ifndef USE_PORTS /* Enable ports */
76			# define USE_PORTS 1
77			#endif
78
79			#ifndef USE_STRING_PORTS /* Enable string ports */
80			# define USE_STRING_PORTS USE_PORTS
81			#endif
82
83			#ifndef USE_TRACING
84			# define USE_TRACING 1
85			#endif
86
87			#ifndef USE_PLIST
88			# define USE_PLIST 0
89			#endif
90	root	1.1
91			/* To force system errors through user-defined error handling (see error-hook) */
92	root	1.2	#ifndef USE_ERROR_HOOK
93			# define USE_ERROR_HOOK 1
94			#endif
95
96			#ifndef USE_COLON_HOOK /* Enable qualified qualifier */
97			# define USE_COLON_HOOK 1
98			#endif
99
100			#ifndef USE_ERROR_CHECKING
101			# define USE_ERROR_CHECKING 1
102			#endif
103
104			#ifndef USE_PRINTF
105			# define USE_PRINTF 1
106			#endif
107
108			#ifndef USE_STRLWR
109			# define USE_STRLWR 1
110			#endif
111
112			#ifndef INLINE
113			# define INLINE inline
114			#endif
115
116			#ifndef SHOW_ERROR_LINE /* Show error line in file */
117			# define SHOW_ERROR_LINE 1
118			#endif
119
120			#if USE_MULTIPLICITY
121			# define SCHEME_V sc
122			# define SCHEME_P scheme *SCHEME_V
123			# define SCHEME_P_ SCHEME_P,
124			# define SCHEME_A SCHEME_V
125			# define SCHEME_A_ SCHEME_A,
126			#else
127			# define SCHEME_V (&sc)
128			# define SCHEME_P
129			# define SCHEME_P_
130			# define SCHEME_A
131			# define SCHEME_A_
132			#endif
133	root	1.1
134			typedef struct scheme scheme;
135			typedef struct cell *pointer;
136
137			typedef void (func_alloc) (size_t);
138			typedef void (func_dealloc) (void );
139
140			typedef long IVALUE; /* this is not used consistently yet */
141
142	root	1.2	#if USE_FLOAT
143	root	1.1	typedef double RVALUE;
144	root	1.2	# define num_is_fixnum(n) (n).is_fixnum
145			# define num_set_fixnum(n,f) (n).is_fixnum = (f)
146			# define num_ivalue(n) (n).value.ivalue
147			# define num_rvalue(n) (n).value.rvalue
148			# define num_set_ivalue(n,i) (n).value.ivalue = (i)
149			# define num_set_rvalue(n,r) (n).value.rvalue = (r)
150			#else
151	root	1.1	typedef long RVALUE;
152	root	1.2	# define num_is_fixnum(n) 1
153			# define num_set_fixnum(n,f) 0
154			# define num_ivalue(n) (n).value.ivalue
155			# define num_rvalue(n) (n).value.ivalue
156			# define num_set_ivalue(n,i) (n).value.ivalue = (i)
157			# define num_set_rvalue(n,r) (n).value.ivalue = (r)
158			#endif
159	root	1.1
160			/* num, for generic arithmetic */
161			typedef struct num
162			{
163			union
164			{
165			long ivalue;
166	root	1.2	#if USE_FLOAT
167	root	1.1	RVALUE rvalue;
168	root	1.2	#endif
169	root	1.1	} value;
170	root	1.2	#if USE_FLOAT
171	root	1.1	char is_fixnum;
172	root	1.2	#endif
173	root	1.1	} num;
174
175			/* Used for documentation purposes, to signal functions in 'interface' */
176	root	1.2	#define INTERFACE static
177	root	1.1
178			SCHEME_EXPORT scheme *scheme_init_new ();
179			SCHEME_EXPORT int scheme_init (SCHEME_P);
180			SCHEME_EXPORT void scheme_deinit (SCHEME_P);
181			void scheme_set_input_port_file (SCHEME_P_ int fin);
182			void scheme_set_input_port_string (SCHEME_P_ char start, char past_the_end);
183			SCHEME_EXPORT void scheme_set_output_port_file (SCHEME_P_ int fin);
184			void scheme_set_output_port_string (SCHEME_P_ char start, char past_the_end);
185			SCHEME_EXPORT void scheme_load_file (SCHEME_P_ int fin);
186			SCHEME_EXPORT void scheme_load_named_file (SCHEME_P_ int fin, const char *filename);
187			SCHEME_EXPORT void scheme_load_string (SCHEME_P_ const char *cmd);
188			SCHEME_EXPORT pointer scheme_apply0 (SCHEME_P_ const char *procname);
189			SCHEME_EXPORT pointer scheme_call (SCHEME_P_ pointer func, pointer args);
190			SCHEME_EXPORT pointer scheme_eval (SCHEME_P_ pointer obj);
191			void scheme_set_external_data (SCHEME_P_ void *p);
192			SCHEME_EXPORT void scheme_define (SCHEME_P_ pointer env, pointer symbol, pointer value);
193
194			typedef pointer (*foreign_func) (SCHEME_P_ pointer);
195
196			pointer xcons (SCHEME_P_ pointer a, pointer b, int immutable);
197			INTERFACE pointer mk_integer (SCHEME_P_ long num);
198			INTERFACE pointer mk_real (SCHEME_P_ RVALUE num);
199			INTERFACE pointer mk_symbol (SCHEME_P_ const char *name);
200			INTERFACE pointer gensym (SCHEME_P);
201			INTERFACE pointer mk_string (SCHEME_P_ const char *str);
202	root	1.3	INTERFACE pointer mk_counted_string (SCHEME_P_ const char *str, uint32_t len);
203			INTERFACE pointer mk_empty_string (SCHEME_P_ uint32_t len, char fill);
204	root	1.1	INTERFACE pointer mk_character (SCHEME_P_ int c);
205			INTERFACE pointer mk_foreign_func (SCHEME_P_ foreign_func f);
206			INTERFACE void putstr (SCHEME_P_ const char *s);
207			INTERFACE int list_length (SCHEME_P_ pointer a);
208			INTERFACE int eqv (pointer a, pointer b);
209
210	root	1.2	#if !STANDALONE
211	root	1.1	typedef struct scheme_registerable
212			{
213			foreign_func f;
214			const char *name;
215			}
216			scheme_registerable;
217
218			void scheme_register_foreign_func_list (SCHEME_P_ scheme_registerable * list, int n);
219
220	root	1.2	#endif /* !STANDALONE */
221	root	1.1
222	root	1.2	#ifdef __cplusplus
223	root	1.1	}
224	root	1.2	#endif
225	root	1.1
226			#endif
227
228			/*
229			Local variables:
230			c-file-style: "k&r"
231			End:
232			*/