From 90b714763e2f6ec59267ed5bf16356f8b7df58f7 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Thu, 15 Oct 1998 21:48:51 +0000 Subject: 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. --- doc/example-smob/myguile.c | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 doc/example-smob/myguile.c (limited to 'doc/example-smob/myguile.c') 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 +#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 */ +} -- cgit v1.2.3