main.c

   1 #include <readline/readline.h>
   2 #include <libguile.h>
   3
   4 #include "iface_type.h"
   5
   6 SCM make_libusb_iface();
   7
   8 void main_repl(void *closure, int argc, char *argv[])
   9 {
  10         init_flash_iface_type();
  11         scm_c_define_gsubr("make-libusb-iface", 0, 0, 0, &make_libusb_iface);
  12         scm_c_primitive_load("common.scm");
  13         scm_shell(argc, argv);
  14         return;
  15 }
  16
  17 int main(int argc, char *argv[])
  18 {
  19         scm_boot_guile(argc, argv, main_repl, 0);
  20         return 0;
  21 }