1 /* Copyright (C) 1995,1996,1997,1998,2000,2001, 2005, 2006 Free Software Foundation, Inc.
3 * This library is free software; you can redistribute it and/or
4 * modify it under the terms of the GNU Lesser General Public
5 * License as published by the Free Software Foundation; either
6 * version 2.1 of the License, or (at your option) any later version.
8 * This library is distributed in the hope that it will be useful,
9 * but WITHOUT ANY WARRANTY; without even the implied warranty of
10 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
11 * Lesser General Public License for more details.
13 * You should have received a copy of the GNU Lesser General Public
14 * License along with this library; if not, write to the Free Software
15 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
22 /* This needs to be included outside of the extern "C" block.
26 #if SCM_ENABLE_DEPRECATED
32 /* gcc has extern inline functions that are basically as fast as macros */
35 # define EXTINL extern inline
41 SCM_API
void gh_enter(int argc
, char *argv
[],
42 void (*c_main_prog
)(int, char **));
43 #define gh_init () scm_init_guile ()
44 SCM_API
void gh_repl(int argc
, char *argv
[]);
45 SCM_API SCM
gh_catch(SCM tag
, scm_t_catch_body body
, void *body_data
,
46 scm_t_catch_handler handler
, void *handler_data
);
48 SCM_API SCM
gh_standard_handler(void *data
, SCM tag
, SCM throw_args
);
50 SCM_API SCM
gh_eval_str(const char *scheme_code
);
51 SCM_API SCM
gh_eval_str_with_catch(const char *scheme_code
, scm_t_catch_handler handler
);
52 SCM_API SCM
gh_eval_str_with_standard_handler(const char *scheme_code
);
53 SCM_API SCM
gh_eval_str_with_stack_saving_handler(const char *scheme_code
);
55 SCM_API SCM
gh_eval_file(const char *fname
);
56 #define gh_load(fname) gh_eval_file(fname)
57 SCM_API SCM
gh_eval_file_with_catch(const char *scheme_code
, scm_t_catch_handler handler
);
58 SCM_API SCM
gh_eval_file_with_standard_handler(const char *scheme_code
);
60 #define gh_defer_ints() SCM_CRITICAL_SECTION_START
61 #define gh_allow_ints() SCM_CRITICAL_SECTION_END
63 SCM_API SCM
gh_new_procedure(const char *proc_name
, SCM (*fn
)(),
64 int n_required_args
, int n_optional_args
,
66 SCM_API SCM
gh_new_procedure0_0(const char *proc_name
, SCM (*fn
)(void));
67 SCM_API SCM
gh_new_procedure0_1(const char *proc_name
, SCM (*fn
)(SCM
));
68 SCM_API SCM
gh_new_procedure0_2(const char *proc_name
, SCM (*fn
)(SCM
, SCM
));
69 SCM_API SCM
gh_new_procedure1_0(const char *proc_name
, SCM (*fn
)(SCM
));
70 SCM_API SCM
gh_new_procedure1_1(const char *proc_name
, SCM (*fn
)(SCM
, SCM
));
71 SCM_API SCM
gh_new_procedure1_2(const char *proc_name
, SCM (*fn
)(SCM
, SCM
, SCM
));
72 SCM_API SCM
gh_new_procedure2_0(const char *proc_name
, SCM (*fn
)(SCM
, SCM
));
73 SCM_API SCM
gh_new_procedure2_1(const char *proc_name
, SCM (*fn
)(SCM
, SCM
, SCM
));
74 SCM_API SCM
gh_new_procedure2_2(const char *proc_name
, SCM (*fn
)(SCM
, SCM
, SCM
, SCM
));
75 SCM_API SCM
gh_new_procedure3_0(const char *proc_name
, SCM (*fn
)(SCM
, SCM
, SCM
));
76 SCM_API SCM
gh_new_procedure4_0(const char *proc_name
, SCM (*fn
)(SCM
, SCM
, SCM
, SCM
));
77 SCM_API SCM
gh_new_procedure5_0(const char *proc_name
, SCM (*fn
)(SCM
, SCM
, SCM
, SCM
, SCM
));
79 /* C to Scheme conversion */
80 SCM_API SCM
gh_bool2scm(int x
);
81 SCM_API SCM
gh_int2scm(int x
);
82 SCM_API SCM
gh_ulong2scm(unsigned long x
);
83 SCM_API SCM
gh_long2scm(long x
);
84 SCM_API SCM
gh_double2scm(double x
);
85 SCM_API SCM
gh_char2scm(char c
);
86 SCM_API SCM
gh_str2scm(const char *s
, size_t len
);
87 SCM_API SCM
gh_str02scm(const char *s
);
88 SCM_API
void gh_set_substr(const char *src
, SCM dst
, long start
, size_t len
);
89 SCM_API SCM
gh_symbol2scm(const char *symbol_str
);
90 SCM_API SCM
gh_ints2scm(const int *d
, long n
);
92 SCM_API SCM
gh_chars2byvect(const char *d
, long n
);
93 SCM_API SCM
gh_shorts2svect(const short *d
, long n
);
94 SCM_API SCM
gh_longs2ivect(const long *d
, long n
);
95 SCM_API SCM
gh_ulongs2uvect(const unsigned long *d
, long n
);
96 SCM_API SCM
gh_floats2fvect(const float *d
, long n
);
97 SCM_API SCM
gh_doubles2dvect(const double *d
, long n
);
99 SCM_API SCM
gh_doubles2scm(const double *d
, long n
);
101 /* Scheme to C conversion */
102 SCM_API
int gh_scm2bool(SCM obj
);
103 SCM_API
int gh_scm2int(SCM obj
);
104 SCM_API
unsigned long gh_scm2ulong(SCM obj
);
105 SCM_API
long gh_scm2long(SCM obj
);
106 SCM_API
char gh_scm2char(SCM obj
);
107 SCM_API
double gh_scm2double(SCM obj
);
108 SCM_API
char *gh_scm2newstr(SCM str
, size_t *lenp
);
109 SCM_API
void gh_get_substr(SCM src
, char *dst
, long start
, size_t len
);
110 SCM_API
char *gh_symbol2newstr(SCM sym
, size_t *lenp
);
111 SCM_API
char *gh_scm2chars(SCM vector
, char *result
);
112 SCM_API
short *gh_scm2shorts(SCM vector
, short *result
);
113 SCM_API
long *gh_scm2longs(SCM vector
, long *result
);
114 SCM_API
float *gh_scm2floats(SCM vector
, float *result
);
115 SCM_API
double *gh_scm2doubles(SCM vector
, double *result
);
117 /* type predicates: tell you if an SCM object has a given type */
118 SCM_API
int gh_boolean_p(SCM val
);
119 SCM_API
int gh_symbol_p(SCM val
);
120 SCM_API
int gh_char_p(SCM val
);
121 SCM_API
int gh_vector_p(SCM val
);
122 SCM_API
int gh_pair_p(SCM val
);
123 SCM_API
int gh_number_p(SCM val
);
124 SCM_API
int gh_string_p(SCM val
);
125 SCM_API
int gh_procedure_p(SCM val
);
126 SCM_API
int gh_list_p(SCM val
);
127 SCM_API
int gh_inexact_p(SCM val
);
128 SCM_API
int gh_exact_p(SCM val
);
130 /* more predicates */
131 SCM_API
int gh_eq_p(SCM x
, SCM y
);
132 SCM_API
int gh_eqv_p(SCM x
, SCM y
);
133 SCM_API
int gh_equal_p(SCM x
, SCM y
);
134 SCM_API
int gh_string_equal_p(SCM s1
, SCM s2
);
135 SCM_API
int gh_null_p(SCM l
);
137 /* standard Scheme procedures available from C */
139 #define gh_not(x) scm_not(x)
141 SCM_API SCM
gh_define(const char *name
, SCM val
);
143 /* string manipulation routines */
144 #define gh_make_string(k, chr) scm_make_string(k, chr)
145 #define gh_string_length(str) scm_string_length(str)
146 #define gh_string_ref(str, k) scm_string_ref(str, k)
147 #define gh_string_set_x(str, k, chr) scm_string_set_x(str, k, chr)
148 #define gh_substring(str, start, end) scm_substring(str, start, end)
149 #define gh_string_append(args) scm_string_append(args)
152 /* vector manipulation routines */
153 /* note that gh_vector() does not behave quite like the Scheme (vector
154 obj1 obj2 ...), because the interpreter engine does not pass the
155 data element by element, but rather as a list. thus, gh_vector()
156 ends up being identical to gh_list_to_vector() */
157 #define gh_vector(ls) scm_vector(ls)
158 SCM_API SCM
gh_make_vector(SCM length
, SCM val
);
159 SCM_API SCM
gh_vector_set_x(SCM vec
, SCM pos
, SCM val
);
160 SCM_API SCM
gh_vector_ref(SCM vec
, SCM pos
);
161 SCM_API
unsigned long gh_vector_length (SCM v
);
162 SCM_API
unsigned long gh_uniform_vector_length (SCM v
);
163 SCM_API SCM
gh_uniform_vector_ref (SCM v
, SCM ilist
);
164 #define gh_list_to_vector(ls) scm_vector(ls)
165 #define gh_vector_to_list(v) scm_vector_to_list(v)
167 SCM_API SCM
gh_lookup (const char *sname
);
168 SCM_API SCM
gh_module_lookup (SCM module
, const char *sname
);
170 SCM_API SCM
gh_cons(SCM x
, SCM y
);
171 #define gh_list scm_list_n
172 SCM_API
unsigned long gh_length(SCM l
);
173 SCM_API SCM
gh_append(SCM args
);
174 SCM_API SCM
gh_append2(SCM l1
, SCM l2
);
175 SCM_API SCM
gh_append3(SCM l1
, SCM l2
, SCM l3
);
176 SCM_API SCM
gh_append4(SCM l1
, SCM l2
, SCM l3
, SCM l4
);
177 #define gh_reverse(ls) scm_reverse(ls)
178 #define gh_list_tail(ls, k) scm_list_tail(ls, k)
179 #define gh_list_ref(ls, k) scm_list_ref(ls, k)
180 #define gh_memq(x, ls) scm_memq(x, ls)
181 #define gh_memv(x, ls) scm_memv(x, ls)
182 #define gh_member(x, ls) scm_member(x, ls)
183 #define gh_assq(x, alist) scm_assq(x, alist)
184 #define gh_assv(x, alist) scm_assv(x, alist)
185 #define gh_assoc(x, alist) scm_assoc(x, alist)
187 SCM_API SCM
gh_car(SCM x
);
188 SCM_API SCM
gh_cdr(SCM x
);
190 SCM_API SCM
gh_caar(SCM x
);
191 SCM_API SCM
gh_cadr(SCM x
);
192 SCM_API SCM
gh_cdar(SCM x
);
193 SCM_API SCM
gh_cddr(SCM x
);
195 SCM_API SCM
gh_caaar(SCM x
);
196 SCM_API SCM
gh_caadr(SCM x
);
197 SCM_API SCM
gh_cadar(SCM x
);
198 SCM_API SCM
gh_caddr(SCM x
);
199 SCM_API SCM
gh_cdaar(SCM x
);
200 SCM_API SCM
gh_cdadr(SCM x
);
201 SCM_API SCM
gh_cddar(SCM x
);
202 SCM_API SCM
gh_cdddr(SCM x
);
204 SCM_API SCM
gh_set_car_x(SCM pair
, SCM value
);
205 SCM_API SCM
gh_set_cdr_x(SCM pair
, SCM value
);
208 /* Calling Scheme functions from C. */
209 SCM_API SCM
gh_apply (SCM proc
, SCM ls
);
210 SCM_API SCM
gh_call0 (SCM proc
);
211 SCM_API SCM
gh_call1 (SCM proc
, SCM arg
);
212 SCM_API SCM
gh_call2 (SCM proc
, SCM arg1
, SCM arg2
);
213 SCM_API SCM
gh_call3 (SCM proc
, SCM arg1
, SCM arg2
, SCM arg3
);
215 /* reading and writing Scheme objects. */
216 SCM_API
void gh_display (SCM x
);
217 SCM_API
void gh_write (SCM x
);
218 SCM_API
void gh_newline (void);
220 /* void gh_gc_mark(SCM) : mark an SCM as in use. */
221 /* void gh_defer_ints() : don't interrupt code section. */
222 /* void gh_allow_ints() : see gh_defer_ints(). */
223 /* void gh_new_cell(SCM, int tag) : initialize SCM to be of type 'tag' */
224 /* int gh_type_p(SCM, tag) : test if SCM is of type 'tag' */
225 /* SCM gh_intern(char*) : get symbol corresponding to c-string.*/
226 /* void gh_set_ext_data(SCM, void*) : set extension data on SCM */
227 /* void *gh_get_ext_data(SCM) : return extension data from SCM. */
229 /* void gh_assert(int cond, char *msg, SCM obj); */