libguile/gh.h

   1 /* Copyright (C) 1995,1996,1997,1998,2000,2001 Free Software Foundation, Inc.
   2  *
   3  * This program is free software; you can redistribute it and/or modify
   4  * it under the terms of the GNU General Public License as published by
   5  * the Free Software Foundation; either version 2, or (at your option)
   6  * any later version.
   7  *
   8  * This program 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
  11  * GNU General Public License for more details.
  12  *
  13  * You should have received a copy of the GNU General Public License
  14  * along with this software; see the file COPYING.  If not, write to
  15  * the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
  16  * Boston, MA 02111-1307 USA
  17  *
  18  * As a special exception, the Free Software Foundation gives permission
  19  * for additional uses of the text contained in its release of GUILE.
  20  *
  21  * The exception is that, if you link the GUILE library with other files
  22  * to produce an executable, this does not by itself cause the
  23  * resulting executable to be covered by the GNU General Public License.
  24  * Your use of that executable is in no way restricted on account of
  25  * linking the GUILE library code into it.
  26  *
  27  * This exception does not however invalidate any other reasons why
  28  * the executable file might be covered by the GNU General Public License.
  29  *
  30  * This exception applies only to the code released by the
  31  * Free Software Foundation under the name GUILE.  If you copy
  32  * code from other Free Software Foundation releases into a copy of
  33  * GUILE, as the General Public License permits, the exception does
  34  * not apply to the code that you add in this way.  To avoid misleading
  35  * anyone as to the status of such modified files, you must delete
  36  * this exception notice from them.
  37  *
  38  * If you write modifications of your own for GUILE, it is your choice
  39  * whether to permit this exception to apply to your modifications.
  40  * If you do not wish that, delete this exception notice.  */
  41 \f
  42
  43 #ifndef __GH_H
  44 #define __GH_H
  45
  46 #ifdef __cplusplus
  47 extern "C" {
  48 #endif
  49
  50 #include <libguile.h>
  51
  52 /* gcc has extern inline functions that are basically as fast as macros */
  53 #ifdef __GNUC__
  54 # define INL inline
  55 # define EXTINL extern inline
  56 #else
  57 # define INL
  58 #define EXTINL
  59 #endif /* __GNUC__ */
  60
  61 void gh_enter(int argc, char *argv[], void (*c_main_prog)(int, char **));
  62 void gh_repl(int argc, char *argv[]);
  63 SCM gh_catch(SCM tag, scm_catch_body_t body, void *body_data,
  64              scm_catch_handler_t handler, void *handler_data);
  65
  66 SCM gh_standard_handler(void *data, SCM tag, SCM throw_args);
  67
  68 SCM gh_eval_str(const char *scheme_code);
  69 SCM gh_eval_str_with_catch(const char *scheme_code, scm_catch_handler_t handler);
  70 SCM gh_eval_str_with_standard_handler(const char *scheme_code);
  71 SCM gh_eval_str_with_stack_saving_handler(const char *scheme_code);
  72
  73 SCM gh_eval_file(const char *fname);
  74 #define gh_load(fname) gh_eval_file(fname)
  75 SCM gh_eval_file_with_catch(const char *scheme_code, scm_catch_handler_t handler);
  76 SCM gh_eval_file_with_standard_handler(const char *scheme_code);
  77
  78 #define gh_defer_ints() SCM_DEFER_INTS
  79 #define gh_allow_ints() SCM_ALLOW_INTS
  80
  81 SCM gh_new_procedure(const char *proc_name, SCM (*fn)(),
  82                      int n_required_args, int n_optional_args, int varp);
  83 SCM gh_new_procedure0_0(const char *proc_name, SCM (*fn)(void));
  84 SCM gh_new_procedure0_1(const char *proc_name, SCM (*fn)(SCM));
  85 SCM gh_new_procedure0_2(const char *proc_name, SCM (*fn)(SCM, SCM));
  86 SCM gh_new_procedure1_0(const char *proc_name, SCM (*fn)(SCM));
  87 SCM gh_new_procedure1_1(const char *proc_name, SCM (*fn)(SCM, SCM));
  88 SCM gh_new_procedure1_2(const char *proc_name, SCM (*fn)(SCM, SCM, SCM));
  89 SCM gh_new_procedure2_0(const char *proc_name, SCM (*fn)(SCM, SCM));
  90 SCM gh_new_procedure2_1(const char *proc_name, SCM (*fn)(SCM, SCM, SCM));
  91 SCM gh_new_procedure2_2(const char *proc_name, SCM (*fn)(SCM, SCM, SCM, SCM));
  92 SCM gh_new_procedure3_0(const char *proc_name, SCM (*fn)(SCM, SCM, SCM));
  93 SCM gh_new_procedure4_0(const char *proc_name, SCM (*fn)(SCM, SCM, SCM, SCM));
  94 SCM gh_new_procedure5_0(const char *proc_name, SCM (*fn)(SCM, SCM, SCM, SCM, SCM));
  95
  96 /* C to Scheme conversion */
  97 SCM gh_bool2scm(int x);
  98 SCM gh_int2scm(int x);
  99 SCM gh_ulong2scm(unsigned long x);
 100 SCM gh_long2scm(long x);
 101 SCM gh_double2scm(double x);
 102 SCM gh_char2scm(char c);
 103 SCM gh_str2scm(const char *s, int len);
 104 SCM gh_str02scm(const char *s);
 105 void gh_set_substr(char *src, SCM dst, int start, int len);
 106 SCM gh_symbol2scm(const char *symbol_str);
 107 SCM gh_ints2scm(const int *d, int n);
 108
 109 #ifdef HAVE_ARRAYS
 110 SCM gh_chars2byvect(const char *d, int n);
 111 SCM gh_shorts2svect(const short *d, int n);
 112 SCM gh_longs2ivect(const long *d, int n);
 113 SCM gh_ulongs2uvect(const unsigned long *d, int n);
 114 SCM gh_floats2fvect(const float *d, int n);
 115 SCM gh_doubles2dvect(const double *d, int n);
 116 #endif
 117
 118 SCM gh_doubles2scm(const double *d, int n);
 119
 120 /* Scheme to C conversion */
 121 int gh_scm2bool(SCM obj);
 122 int gh_scm2int(SCM obj);
 123 unsigned long gh_scm2ulong(SCM obj);
 124 long gh_scm2long(SCM obj);
 125 char gh_scm2char(SCM obj);
 126 double gh_scm2double(SCM obj);
 127 char *gh_scm2newstr(SCM str, int *lenp);
 128 void gh_get_substr(SCM src, char *dst, int start, int len);
 129 char *gh_symbol2newstr(SCM sym, int *lenp);
 130 char *gh_scm2chars(SCM vector, char *result);
 131 short *gh_scm2shorts(SCM vector, short *result);
 132 long *gh_scm2longs(SCM vector, long *result);
 133 float *gh_scm2floats(SCM vector, float *result);
 134 double *gh_scm2doubles(SCM vector, double *result);
 135
 136 /* type predicates: tell you if an SCM object has a given type */
 137 int gh_boolean_p(SCM val);
 138 int gh_symbol_p(SCM val);
 139 int gh_char_p(SCM val);
 140 int gh_vector_p(SCM val);
 141 int gh_pair_p(SCM val);
 142 int gh_number_p(SCM val);
 143 int gh_string_p(SCM val);
 144 int gh_procedure_p(SCM val);
 145 int gh_list_p(SCM val);
 146 int gh_inexact_p(SCM val);
 147 int gh_exact_p(SCM val);
 148
 149 /* more predicates */
 150 int gh_eq_p(SCM x, SCM y);
 151 int gh_eqv_p(SCM x, SCM y);
 152 int gh_equal_p(SCM x, SCM y);
 153 int gh_string_equal_p(SCM s1, SCM s2);
 154 int gh_null_p(SCM l);
 155
 156 /* standard Scheme procedures available from C */
 157
 158 #define gh_not(x) scm_not(x)
 159
 160 SCM gh_define(const char *name, SCM val);
 161
 162 /* vector manipulation routines */
 163 /* note that gh_vector() does not behave quite like the Scheme (vector
 164    obj1 obj2 ...), because the interpreter engine does not pass the
 165    data element by element, but rather as a list.  thus, gh_vector()
 166    ends up being identical to gh_list_to_vector() */
 167 #define gh_vector(ls) scm_vector(ls)
 168 SCM gh_make_vector(SCM length, SCM val);
 169 SCM gh_vector_set_x(SCM vec, SCM pos, SCM val);
 170 SCM gh_vector_ref(SCM vec, SCM pos);
 171 unsigned long gh_vector_length (SCM v);
 172 unsigned long gh_uniform_vector_length (SCM v);
 173 SCM gh_uniform_vector_ref (SCM v, SCM ilist);
 174 #define gh_list_to_vector(ls) scm_vector(ls)
 175 #define gh_vector_to_list(v) scm_vector_to_list(v)
 176
 177 SCM gh_lookup (const char *sname);
 178 SCM gh_module_lookup (SCM vector, const char *sname);
 179
 180 SCM gh_cons(SCM x, SCM y);
 181 #define gh_list scm_listify
 182 unsigned long gh_length(SCM l);
 183 SCM gh_append(SCM args);
 184 SCM gh_append2(SCM l1, SCM l2);
 185 SCM gh_append3(SCM l1, SCM l2, SCM l3);
 186 SCM gh_append4(SCM l1, SCM l2, SCM l3, SCM l4);
 187 #define gh_reverse(ls) scm_reverse(ls)
 188 #define gh_list_tail(ls, k) scm_list_tail(ls, k)
 189 #define gh_list_ref(ls, k) scm_list_ref(ls, k)
 190 #define gh_memq(x, ls) scm_memq(x, ls)
 191 #define gh_memv(x, ls) scm_memv(x, ls)
 192 #define gh_member(x, ls) scm_member(x, ls)
 193 #define gh_assq(x, alist) scm_assq(x, alist)
 194 #define gh_assv(x, alist) scm_assv(x, alist)
 195 #define gh_assoc(x, alist) scm_assoc(x, alist)
 196
 197 SCM gh_car(SCM x);
 198 SCM gh_cdr(SCM x);
 199
 200 SCM gh_caar(SCM x);
 201 SCM gh_cadr(SCM x);
 202 SCM gh_cdar(SCM x);
 203 SCM gh_cddr(SCM x);
 204
 205 SCM gh_caaar(SCM x);
 206 SCM gh_caadr(SCM x);
 207 SCM gh_cadar(SCM x);
 208 SCM gh_caddr(SCM x);
 209 SCM gh_cdaar(SCM x);
 210 SCM gh_cdadr(SCM x);
 211 SCM gh_cddar(SCM x);
 212 SCM gh_cdddr(SCM x);
 213
 214 SCM gh_set_car_x(SCM pair, SCM value);
 215 SCM gh_set_cdr_x(SCM pair, SCM value);
 216
 217
 218 /* Calling Scheme functions from C.  */
 219 SCM gh_apply (SCM proc, SCM ls);
 220 SCM gh_call0 (SCM proc);
 221 SCM gh_call1 (SCM proc, SCM arg);
 222 SCM gh_call2 (SCM proc, SCM arg1, SCM arg2);
 223 SCM gh_call3 (SCM proc, SCM arg1, SCM arg2, SCM arg3);
 224
 225 /* reading and writing Scheme objects.  */
 226 void gh_display (SCM x);
 227 void gh_write (SCM x);
 228 void gh_newline (void);
 229
 230 /* void  gh_gc_mark(SCM)              : mark an SCM as in use. */
 231 /* void  gh_defer_ints()              : don't interrupt code section. */
 232 /* void  gh_allow_ints()              : see gh_defer_ints(). */
 233 /* void  gh_new_cell(SCM, int tag)    : initialize SCM to be of type 'tag' */
 234 /* int   gh_type_p(SCM, tag)          : test if SCM is of type 'tag' */
 235 /* SCM   gh_intern(char*)             : get symbol corresponding to c-string.*/
 236 /* void  gh_set_ext_data(SCM, void*)  : set extension data on SCM */
 237 /* void *gh_get_ext_data(SCM)         : return extension data from SCM. */
 238
 239 /* void  gh_assert(int cond, char *msg, SCM obj); */
 240
 241 #ifdef __cplusplus
 242 }
 243 #endif
 244
 245 #endif /* __GH_H */
 246
 247 /*
 248   Local Variables:
 249   c-file-style: "gnu"
 250   End:
 251 */