1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
/* -----------------------------------------------------------------------------
* guilemain.i
*
* The main functions for a user augmented guile
* version that can handle wrapped calls as generated by SWIG
* ----------------------------------------------------------------------------- */
%{
#include <libguile.h>
#ifdef __cplusplus
extern "C" {
#endif
/* Debugger interface (don't change the order of the following lines) */
#define GDB_TYPE SCM
#include <libguile/gdb_interface.h>
GDB_INTERFACE;
static void
inner_main(void *closure, int argc, char **argv)
{
#ifdef SWIGINIT
SWIGINIT
#else
SWIG_init(); /* SWIG init function */
#endif
scm_shell(argc, argv); /* scheme interpreter */
/* never reached: scm_shell will perform an exit */
}
#ifdef __cplusplus
}
#endif
int
main(int argc, char **argv)
{
/* put any default initialisation code here: e.g. exit handlers */
scm_boot_guile(argc, argv, inner_main, 0); /* make a stack entry for the
garbage collector */
return 0; /* never reached, but avoids a warning */
}
%}
|
