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
   6  * modify it under the terms of the GNU Lesser General Public License
   7  * as published by the Free Software Foundation; either version 3, or
   8  * (at your option) any later version.
   9  *
  10  * This program is distributed in the hope that it will be useful, but
  11  * WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13  * Lesser General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU Lesser General Public
  16  * License along with this software; see the file COPYING.LESSER.  If
  17  * not, write to the Free Software Foundation, Inc., 51 Franklin
  18  * Street, Fifth Floor, 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 }