summaryrefslogtreecommitdiff
path: root/doc/example-smob/myguile.c
diff options
context:
space:
mode:
authorJim Blandy <jimb@red-bean.com>1998-10-15 21:48:51 +0000
committerJim Blandy <jimb@red-bean.com>1998-10-15 21:48:51 +0000
commit90b714763e2f6ec59267ed5bf16356f8b7df58f7 (patch)
tree85bc34390592bccfa11b7623dd7ff68f15cf5ad7 /doc/example-smob/myguile.c
parent305f02b1303af61c156f2922f1019ac1dfba76c2 (diff)
downloadguile-90b714763e2f6ec59267ed5bf16356f8b7df58f7.tar.gz
Created this directory for the Guile 1.3 release. Thanks to Jay
Glascoe for suggesting that we provide a complete, buildable example! * ChangeLog, Makefile, README, image-type.c, image-type.h, myguile: New files.
Diffstat (limited to 'doc/example-smob/myguile.c')
-rw-r--r--doc/example-smob/myguile.c17
1 files changed, 17 insertions, 0 deletions
diff --git a/doc/example-smob/myguile.c b/doc/example-smob/myguile.c
new file mode 100644
index 000000000..7234b9846
--- /dev/null
+++ b/doc/example-smob/myguile.c
@@ -0,0 +1,17 @@
+#include <libguile.h>
+#include "image-type.h"
+
+static void
+inner_main (void *closure, int argc, char **argv)
+{
+ /* module initializations would go here */
+ init_image_type();
+ scm_shell (argc, argv);
+}
+
+int
+main (int argc, char **argv)
+{
+ scm_boot_guile (argc, argv, inner_main, 0);
+ return 0; /* never reached */
+}