guile18/doc/example-smob/myguile.c

   1 /* myguile.c
   2  *
   3  *      Copyright (C) 1998, 2006 Free Software Foundation, Inc.
   4  *
   5  * This program is free software; you can redistribute it and/or modify
   6  * it under the terms of the GNU General Public License as published by
   7  * the Free Software Foundation; either version 2, or (at your option)
   8  * any later version.
   9  *
  10  * This program is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13  * GNU General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU General Public License
  16  * along with this software; see the file COPYING.  If not, write to
  17  * the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  18  * Boston, MA 02110-1301 USA
  19  */
  20
  21 #include <libguile.h>
  22 #include "image-type.h"
  23
  24 static void
  25 inner_main (void *closure, int argc, char **argv)
  26 {
  27   /* module initializations would go here */
  28   init_image_type();
  29   scm_shell (argc, argv);
  30 }
  31
  32 int
  33 main (int argc, char **argv)
  34 {
  35   scm_boot_guile (argc, argv, inner_main, 0);
  36   return 0; /* never reached */
  37 }