#define GUPPI_PROC (fname, string_name, req, opt, var, ARGLIST)
gboolean guppi_guile_is_active (void);
void guppi_guile_init (void);
void guppi_scm_error (const char *subr,
const char *msg);
void guppi_scm_tagged_error (const char *tag,
const char *subr,
const char *msg);
SCM guppi_eval_str (const char *exp);
SCM guppi_safe_load (char *filename);
SCM guppi_safe_apply (SCM proc,
SCM args);
SCM guppi_safe_apply_thunk (SCM proc);
SCM guppi_safe_apply_message_only (SCM proc,
SCM args);
SCM guppi_safe_call0 (SCM thunk);
SCM guppi_safe_call1 (SCM proc,
SCM arg);
SCM guppi_safe_call2 (SCM proc,
SCM arg1,
SCM arg2);
SCM guppi_safe_call3 (SCM proc,
SCM arg1,
SCM arg2,
SCM arg3);
gboolean guppi_string_to_enum_val (const ScmEnumInfo *info,
const char *str,
gint *retval);
gboolean guppi_enum_val_to_string (const ScmEnumInfo *info,
gint val,
const char **retval);
void guppi_scm_thunk_cb (gpointer widget,
gpointer thunk);
void guppi_scm_eval_cb (gpointer widget,
gpointer eval_str);
void guppi_scm_define_autoloaded_symbol
(const gchar *fn_name,
const gchar *type,
const gchar *name);
gboolean scm_stringv_p (...);
SCM stringv2scm (gchar**);
gchar** scm2stringv (...);
gboolean scm_color_p (...);
SCM color2scm (guint32);
guint32 scm2color (...);
gboolean scm_compass_p (...);
SCM compass2scm (guppi_compass_t);
guppi_compass_t scm2compass (...);
GtkArg* scm2gtk_arg (SCM name,
...);
SCM gtk_arg2scm (GtkArg*);
GtkArg* scm2argv (SCM list,
guint *length);
void guppi_argv_free (GtkArg*,
guint len);
GuppiFnWrapper* scm2fn_d__i (SCM proc);
GuppiFnWrapper* scm2fn_d__i_d (SCM proc);
GuppiFnWrapper* scm2fn_d__d (SCM proc);
GuppiFnWrapper* scm2fn_d__d_d (SCM proc); |