HCoop / bpt / guile.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
(Network Sockets and Communication): In socketpair,
[bpt/guile.git] / libguile / gh.h
CommitLineData
80dee77b 1/* Copyright (C) 1995,1996,1997,1998,2000,2001 Free Software Foundation, Inc.
ee2a8b9b 2 *
73be1d9e
MV		 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.
ee2a8b9b 7 *
73be1d9e
MV		 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.
ee2a8b9b 12 *
73be1d9e
MV		 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., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
16 */
ee2a8b9b
JB		 17\f
18
19#ifndef __GH_H
20#define __GH_H
21
18daf95b
AG		 22#ifdef __cplusplus
23extern "C" {
24#endif
25
ee2a8b9b
JB		 26#include <libguile.h>
27
28/* gcc has extern inline functions that are basically as fast as macros */
29#ifdef __GNUC__
30# define INL inline
31# define EXTINL extern inline
32#else
33# define INL
34#define EXTINL
35#endif /* __GNUC__ */
36
33b001fd
MV		 37SCM_API void gh_enter(int argc, char *argv[],
38 void (*c_main_prog)(int, char **));
1464aae0 39#define gh_init () scm_init_guile ()
33b001fd
MV		 40SCM_API void gh_repl(int argc, char *argv[]);
41SCM_API SCM gh_catch(SCM tag, scm_t_catch_body body, void *body_data,
42 scm_t_catch_handler handler, void *handler_data);
ee2a8b9b 43
33b001fd 44SCM_API SCM gh_standard_handler(void *data, SCM tag, SCM throw_args);
ee2a8b9b 45
33b001fd
MV		 46SCM_API SCM gh_eval_str(const char *scheme_code);
47SCM_API SCM gh_eval_str_with_catch(const char *scheme_code, scm_t_catch_handler handler);
48SCM_API SCM gh_eval_str_with_standard_handler(const char *scheme_code);
49SCM_API SCM gh_eval_str_with_stack_saving_handler(const char *scheme_code);
ee2a8b9b 50
33b001fd 51SCM_API SCM gh_eval_file(const char *fname);
e5eece74 52#define gh_load(fname) gh_eval_file(fname)
33b001fd
MV		 53SCM_API SCM gh_eval_file_with_catch(const char *scheme_code, scm_t_catch_handler handler);
54SCM_API SCM gh_eval_file_with_standard_handler(const char *scheme_code);
ee2a8b9b
JB		 55
56#define gh_defer_ints() SCM_DEFER_INTS
57#define gh_allow_ints() SCM_ALLOW_INTS
58
33b001fd
MV		 59SCM_API SCM gh_new_procedure(const char *proc_name, SCM (*fn)(),
60 int n_required_args, int n_optional_args,
61 int varp);
62SCM_API SCM gh_new_procedure0_0(const char *proc_name, SCM (*fn)(void));
63SCM_API SCM gh_new_procedure0_1(const char *proc_name, SCM (*fn)(SCM));
64SCM_API SCM gh_new_procedure0_2(const char *proc_name, SCM (*fn)(SCM, SCM));
65SCM_API SCM gh_new_procedure1_0(const char *proc_name, SCM (*fn)(SCM));
66SCM_API SCM gh_new_procedure1_1(const char *proc_name, SCM (*fn)(SCM, SCM));
67SCM_API SCM gh_new_procedure1_2(const char *proc_name, SCM (*fn)(SCM, SCM, SCM));
68SCM_API SCM gh_new_procedure2_0(const char *proc_name, SCM (*fn)(SCM, SCM));
69SCM_API SCM gh_new_procedure2_1(const char *proc_name, SCM (*fn)(SCM, SCM, SCM));
70SCM_API SCM gh_new_procedure2_2(const char *proc_name, SCM (*fn)(SCM, SCM, SCM, SCM));
71SCM_API SCM gh_new_procedure3_0(const char *proc_name, SCM (*fn)(SCM, SCM, SCM));
72SCM_API SCM gh_new_procedure4_0(const char *proc_name, SCM (*fn)(SCM, SCM, SCM, SCM));
73SCM_API SCM gh_new_procedure5_0(const char *proc_name, SCM (*fn)(SCM, SCM, SCM, SCM, SCM));
ee2a8b9b
JB		 74
75/* C to Scheme conversion */
33b001fd
MV		 76SCM_API SCM gh_bool2scm(int x);
77SCM_API SCM gh_int2scm(int x);
78SCM_API SCM gh_ulong2scm(unsigned long x);
79SCM_API SCM gh_long2scm(long x);
80SCM_API SCM gh_double2scm(double x);
81SCM_API SCM gh_char2scm(char c);
82SCM_API SCM gh_str2scm(const char *s, size_t len);
83SCM_API SCM gh_str02scm(const char *s);
84SCM_API void gh_set_substr(char *src, SCM dst, long start, size_t len);
85SCM_API SCM gh_symbol2scm(const char *symbol_str);
86SCM_API SCM gh_ints2scm(const int *d, long n);
afe5177e 87
2d82b182 88#if SCM_HAVE_ARRAYS
33b001fd
MV		 89SCM_API SCM gh_chars2byvect(const char *d, long n);
90SCM_API SCM gh_shorts2svect(const short *d, long n);
91SCM_API SCM gh_longs2ivect(const long *d, long n);
92SCM_API SCM gh_ulongs2uvect(const unsigned long *d, long n);
93SCM_API SCM gh_floats2fvect(const float *d, long n);
94SCM_API SCM gh_doubles2dvect(const double *d, long n);
f3a2c4cf 95#endif
ee2a8b9b 96
33b001fd 97SCM_API SCM gh_doubles2scm(const double *d, long n);
ee2a8b9b
JB		 98
99/* Scheme to C conversion */
33b001fd
MV		 100SCM_API int gh_scm2bool(SCM obj);
101SCM_API int gh_scm2int(SCM obj);
102SCM_API unsigned long gh_scm2ulong(SCM obj);
103SCM_API long gh_scm2long(SCM obj);
104SCM_API char gh_scm2char(SCM obj);
105SCM_API double gh_scm2double(SCM obj);
106SCM_API char *gh_scm2newstr(SCM str, size_t *lenp);
107SCM_API void gh_get_substr(SCM src, char *dst, long start, size_t len);
108SCM_API char *gh_symbol2newstr(SCM sym, size_t *lenp);
109SCM_API char *gh_scm2chars(SCM vector, char *result);
110SCM_API short *gh_scm2shorts(SCM vector, short *result);
111SCM_API long *gh_scm2longs(SCM vector, long *result);
112SCM_API float *gh_scm2floats(SCM vector, float *result);
113SCM_API double *gh_scm2doubles(SCM vector, double *result);
ee2a8b9b
JB		 114
115/* type predicates: tell you if an SCM object has a given type */
33b001fd
MV		 116SCM_API int gh_boolean_p(SCM val);
117SCM_API int gh_symbol_p(SCM val);
118SCM_API int gh_char_p(SCM val);
119SCM_API int gh_vector_p(SCM val);
120SCM_API int gh_pair_p(SCM val);
121SCM_API int gh_number_p(SCM val);
122SCM_API int gh_string_p(SCM val);
123SCM_API int gh_procedure_p(SCM val);
124SCM_API int gh_list_p(SCM val);
125SCM_API int gh_inexact_p(SCM val);
126SCM_API int gh_exact_p(SCM val);
ee2a8b9b
JB		 127
128/* more predicates */
33b001fd
MV		 129SCM_API int gh_eq_p(SCM x, SCM y);
130SCM_API int gh_eqv_p(SCM x, SCM y);
131SCM_API int gh_equal_p(SCM x, SCM y);
132SCM_API int gh_string_equal_p(SCM s1, SCM s2);
133SCM_API int gh_null_p(SCM l);
ee2a8b9b
JB		 134
135/* standard Scheme procedures available from C */
136
7fee59bd
MG		 137#define gh_not(x) scm_not(x)
138
33b001fd 139SCM_API SCM gh_define(const char *name, SCM val);
ee2a8b9b 140
1464aae0
MV		 141/* string manipulation routines */
142#define gh_make_string(k, chr) scm_make_string(k, chr)
143#define gh_string_length(str) scm_string_length(str)
144#define gh_string_ref(str, k) scm_string_ref(str, k)
145#define gh_string_set_x(str, k, chr) scm_string_set_x(str, k, chr)
34d19ef6 146#define gh_substring(str, start, end) scm_substring(str, start, end)
1464aae0
MV		 147#define gh_string_append(args) scm_string_append(args)
148
149
e5eece74
MG		 150/* vector manipulation routines */
151/* note that gh_vector() does not behave quite like the Scheme (vector
152 obj1 obj2 ...), because the interpreter engine does not pass the
153 data element by element, but rather as a list. thus, gh_vector()
154 ends up being identical to gh_list_to_vector() */
155#define gh_vector(ls) scm_vector(ls)
33b001fd
MV		 156SCM_API SCM gh_make_vector(SCM length, SCM val);
157SCM_API SCM gh_vector_set_x(SCM vec, SCM pos, SCM val);
158SCM_API SCM gh_vector_ref(SCM vec, SCM pos);
159SCM_API unsigned long gh_vector_length (SCM v);
160SCM_API unsigned long gh_uniform_vector_length (SCM v);
161SCM_API SCM gh_uniform_vector_ref (SCM v, SCM ilist);
e5eece74 162#define gh_list_to_vector(ls) scm_vector(ls)
c56f8119 163#define gh_vector_to_list(v) scm_vector_to_list(v)
ee2a8b9b 164
33b001fd
MV		 165SCM_API SCM gh_lookup (const char *sname);
166SCM_API SCM gh_module_lookup (SCM module, const char *sname);
35379308 167
33b001fd 168SCM_API SCM gh_cons(SCM x, SCM y);
1afff620 169#define gh_list scm_list_n
33b001fd
MV		 170SCM_API unsigned long gh_length(SCM l);
171SCM_API SCM gh_append(SCM args);
172SCM_API SCM gh_append2(SCM l1, SCM l2);
173SCM_API SCM gh_append3(SCM l1, SCM l2, SCM l3);
174SCM_API SCM gh_append4(SCM l1, SCM l2, SCM l3, SCM l4);
7fee59bd
MG		 175#define gh_reverse(ls) scm_reverse(ls)
176#define gh_list_tail(ls, k) scm_list_tail(ls, k)
177#define gh_list_ref(ls, k) scm_list_ref(ls, k)
178#define gh_memq(x, ls) scm_memq(x, ls)
38d0f691
MD		 179#define gh_memv(x, ls) scm_memv(x, ls)
180#define gh_member(x, ls) scm_member(x, ls)
7fee59bd
MG		 181#define gh_assq(x, alist) scm_assq(x, alist)
182#define gh_assv(x, alist) scm_assv(x, alist)
183#define gh_assoc(x, alist) scm_assoc(x, alist)
ee2a8b9b 184
33b001fd
MV		 185SCM_API SCM gh_car(SCM x);
186SCM_API SCM gh_cdr(SCM x);
ee2a8b9b 187
33b001fd
MV		 188SCM_API SCM gh_caar(SCM x);
189SCM_API SCM gh_cadr(SCM x);
190SCM_API SCM gh_cdar(SCM x);
191SCM_API SCM gh_cddr(SCM x);
ee2a8b9b 192
33b001fd
MV		 193SCM_API SCM gh_caaar(SCM x);
194SCM_API SCM gh_caadr(SCM x);
195SCM_API SCM gh_cadar(SCM x);
196SCM_API SCM gh_caddr(SCM x);
197SCM_API SCM gh_cdaar(SCM x);
198SCM_API SCM gh_cdadr(SCM x);
199SCM_API SCM gh_cddar(SCM x);
200SCM_API SCM gh_cdddr(SCM x);
ee2a8b9b 201
33b001fd
MV		 202SCM_API SCM gh_set_car_x(SCM pair, SCM value);
203SCM_API SCM gh_set_cdr_x(SCM pair, SCM value);
7fee59bd
MG		 204
205
ee2a8b9b 206/* Calling Scheme functions from C. */
33b001fd
MV		 207SCM_API SCM gh_apply (SCM proc, SCM ls);
208SCM_API SCM gh_call0 (SCM proc);
209SCM_API SCM gh_call1 (SCM proc, SCM arg);
210SCM_API SCM gh_call2 (SCM proc, SCM arg1, SCM arg2);
211SCM_API SCM gh_call3 (SCM proc, SCM arg1, SCM arg2, SCM arg3);
ee2a8b9b
JB		 212
213/* reading and writing Scheme objects. */
33b001fd
MV		 214SCM_API void gh_display (SCM x);
215SCM_API void gh_write (SCM x);
216SCM_API void gh_newline (void);
ee2a8b9b
JB		 217
218/* void gh_gc_mark(SCM) : mark an SCM as in use. */
219/* void gh_defer_ints() : don't interrupt code section. */
220/* void gh_allow_ints() : see gh_defer_ints(). */
221/* void gh_new_cell(SCM, int tag) : initialize SCM to be of type 'tag' */
222/* int gh_type_p(SCM, tag) : test if SCM is of type 'tag' */
223/* SCM gh_intern(char*) : get symbol corresponding to c-string.*/
224/* void gh_set_ext_data(SCM, void*) : set extension data on SCM */
225/* void *gh_get_ext_data(SCM) : return extension data from SCM. */
226
227/* void gh_assert(int cond, char *msg, SCM obj); */
228
18daf95b
AG		 229#ifdef __cplusplus
230}
231#endif
ee2a8b9b
JB		 232
233#endif /* __GH_H */
89e00824
ML		 234
235/*
236 Local Variables:
237 c-file-style: "gnu"
238 End:
239*/
Unnamed repository; edit this file 'description' to name the repository.