microscheme/scheme.h

/*
 * µscheme
 *
 * Copyright (C) 2015 Marc Alexander Lehmann <uscheme@schmorp.de>
 *                 do as you want with this, attribution appreciated.
 */

/* 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_REAL 0
# define USE_ERROR_CHECKING 0
# define USE_PRINTF 0
#endif

/*
 * Define: much slower, but somewhat smaller evaluation stack implemention, use more memory
 * Undefined: faster, somewhat bigger implementation, uses less memory at runtime
 */
/*#define USE_SCHEME_STACK*/

#ifndef USE_MULTIPLICITY
# define USE_MULTIPLICITY 1
#endif

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