diff options
Diffstat (limited to 'libguile/gh.h')
-rw-r--r-- | libguile/gh.h | 195 |
1 files changed, 195 insertions, 0 deletions
diff --git a/libguile/gh.h b/libguile/gh.h new file mode 100644 index 000000000..890b48883 --- /dev/null +++ b/libguile/gh.h @@ -0,0 +1,195 @@ +/* Copyright (C) 1995,1996,1997 Free Software Foundation, Inc. + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2, or (at your option) + * any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this software; see the file COPYING. If not, write to + * the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. + * + * As a special exception, the Free Software Foundation gives permission + * for additional uses of the text contained in its release of GUILE. + * + * The exception is that, if you link the GUILE library with other files + * to produce an executable, this does not by itself cause the + * resulting executable to be covered by the GNU General Public License. + * Your use of that executable is in no way restricted on account of + * linking the GUILE library code into it. + * + * This exception does not however invalidate any other reasons why + * the executable file might be covered by the GNU General Public License. + * + * This exception applies only to the code released by the + * Free Software Foundation under the name GUILE. If you copy + * code from other Free Software Foundation releases into a copy of + * GUILE, as the General Public License permits, the exception does + * not apply to the code that you add in this way. To avoid misleading + * anyone as to the status of such modified files, you must delete + * this exception notice from them. + * + * If you write modifications of your own for GUILE, it is your choice + * whether to permit this exception to apply to your modifications. + * If you do not wish that, delete this exception notice. + */ + + +#ifndef __GH_H +#define __GH_H + +#include <stdio.h> + +#include <libguile.h> + +/* gcc has extern inline functions that are basically as fast as macros */ +#ifdef __GNUC__ +# define INL inline +# define EXTINL extern inline +#else +# define INL +#define EXTINL +#endif /* __GNUC__ */ + +void gh_enter(int argc, char *argv[], void (*c_main_prog)()); +void gh_repl(); +SCM gh_catch(SCM tag, scm_catch_body_t body, void *body_data, + scm_catch_handler_t handler, void *handler_data); + +/* SCM gh_catch_with_saved_stack (SCM tag, scm_catch_body_t body, */ +/* void *body_data, scm_catch_handler_t handler, */ +/* void *handler_data); */ +SCM gh_standard_handler(void *data, SCM tag, SCM throw_args); +#if 0 +SCM gh_repl_handler(void *data, SCM tag, SCM throw_args); +void gh_enter_repl(int argc, char *argv[], void (*init_proc)()); +#endif /* 0 */ + +SCM gh_eval_str(char *scheme_code); +SCM gh_eval_str_with_catch(char *scheme_code, scm_catch_handler_t handler); +SCM gh_eval_str_with_standard_handler(char *scheme_code); +SCM gh_eval_str_with_stack_saving_handler(char *scheme_code); + +SCM gh_eval_file(char *fname); +SCM gh_eval_file_with_catch(char *scheme_code, scm_catch_handler_t handler); +SCM gh_eval_file_with_standard_handler(char *scheme_code); + +#define gh_defer_ints() SCM_DEFER_INTS +#define gh_allow_ints() SCM_ALLOW_INTS + +SCM gh_new_procedure(char *proc_name, SCM (*fn)(), + int n_required_args, int n_optional_args, int varp); +SCM gh_new_procedure0_0(char *proc_name, SCM (*fn)()); +SCM gh_new_procedure0_1(char *proc_name, SCM (*fn)()); +SCM gh_new_procedure0_2(char *proc_name, SCM (*fn)()); +SCM gh_new_procedure1_0(char *proc_name, SCM (*fn)()); +SCM gh_new_procedure1_1(char *proc_name, SCM (*fn)()); +SCM gh_new_procedure1_2(char *proc_name, SCM (*fn)()); +SCM gh_new_procedure2_0(char *proc_name, SCM (*fn)()); +SCM gh_new_procedure2_1(char *proc_name, SCM (*fn)()); +SCM gh_new_procedure2_2(char *proc_name, SCM (*fn)()); +SCM gh_new_procedure3_0(char *proc_name, SCM (*fn)()); +SCM gh_new_procedure4_0(char *proc_name, SCM (*fn)()); +SCM gh_new_procedure5_0(char *proc_name, SCM (*fn)()); + +/* C to Scheme conversion */ +SCM gh_bool2scm(int x); +SCM gh_int2scm(int x); +SCM gh_ulong2scm(unsigned long x); +SCM gh_long2scm(long x); +SCM gh_double2scm(double x); +SCM gh_char2scm(char c); +SCM gh_str2scm(char *s, int len); +SCM gh_str02scm(char *s); +void gh_set_substr(char *src, SCM dst, int start, int len); +SCM gh_symbol2scm(char *symbol_str); + + +/* Scheme to C conversion */ +int gh_scm2bool(SCM obj); +int gh_scm2int(SCM obj); +unsigned long gh_scm2ulong(SCM obj); +long gh_scm2long(SCM obj); +char gh_scm2char(SCM obj); +double gh_scm2double(SCM obj); +char *gh_scm2newstr(SCM str, int *lenp); +void gh_get_substr(SCM src, char *dst, int start, int len); +char *gh_symbol2newstr(SCM sym, int *lenp); + +/* type predicates: tell you if an SCM object has a given type */ +int gh_boolean_p(SCM val); +int gh_symbol_p(SCM val); +int gh_char_p(SCM val); +int gh_vector_p(SCM val); +int gh_pair_p(SCM val); +int gh_number_p(SCM val); +int gh_string_p(SCM val); +int gh_procedure_p(SCM val); +int gh_list_p(SCM val); +int gh_inexact_p(SCM val); +int gh_exact_p(SCM val); + +/* more predicates */ +int gh_eq_p(SCM x, SCM y); +int gh_eqv_p(SCM x, SCM y); +int gh_equal_p(SCM x, SCM y); + +/* standard Scheme procedures available from C */ + +SCM gh_define(char *name, SCM val); + +SCM gh_vector(SCM length, SCM val); +SCM gh_vset(SCM vec, SCM pos, SCM val); +SCM gh_vref(SCM vec, SCM pos); +unsigned long gh_vector_length(SCM v); + +SCM gh_cons(SCM x, SCM y); +#define gh_list scm_listify +unsigned long gh_list_length(SCM l); + +SCM gh_car(SCM x); +SCM gh_cdr(SCM x); + +SCM gh_caar(SCM x); +SCM gh_cadr(SCM x); +SCM gh_cdar(SCM x); +SCM gh_cddr(SCM x); + +SCM gh_caaar(SCM x); +SCM gh_caadr(SCM x); +SCM gh_cadar(SCM x); +SCM gh_caddr(SCM x); +SCM gh_cdaar(SCM x); +SCM gh_cdadr(SCM x); +SCM gh_cddar(SCM x); +SCM gh_cdddr(SCM x); + +/* Calling Scheme functions from C. */ +SCM gh_apply (SCM proc, SCM ls); +SCM gh_call0 (SCM proc); +SCM gh_call1 (SCM proc, SCM arg); +SCM gh_call2 (SCM proc, SCM arg1, SCM arg2); +SCM gh_call3 (SCM proc, SCM arg1, SCM arg2, SCM arg3); + +/* reading and writing Scheme objects. */ +void gh_display (SCM x); +void gh_newline (void); + +/* void gh_gc_mark(SCM) : mark an SCM as in use. */ +/* void gh_defer_ints() : don't interrupt code section. */ +/* void gh_allow_ints() : see gh_defer_ints(). */ +/* void gh_new_cell(SCM, int tag) : initialize SCM to be of type 'tag' */ +/* int gh_type_p(SCM, tag) : test if SCM is of type 'tag' */ +/* SCM gh_intern(char*) : get symbol corresponding to c-string.*/ +/* void gh_set_ext_data(SCM, void*) : set extension data on SCM */ +/* void *gh_get_ext_data(SCM) : return extension data from SCM. */ + +/* void gh_assert(int cond, char *msg, SCM obj); */ + + +#endif /* __GH_H */ |