guile/zebra-guile.c

   1 /* Zebra guile interface.
   2    Copyright (C) 1998, 99 Kunihiro Ishiguro
   3
   4 This file is part of GNU Zebra.
   5
   6 GNU Zebra is free software; you can redistribute it and/or modify it
   7 under the terms of the GNU General Public License as published by the
   8 Free Software Foundation; either version 2, or (at your option) any
   9 later version.
  10
  11 GNU Zebra is distributed in the hope that it will be useful, but
  12 WITHOUT ANY WARRANTY; without even the implied warranty of
  13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14 General Public License for more details.
  15
  16 You should have received a copy of the GNU General Public License
  17 along with GNU Zebra; see the file COPYING.  If not, write to the Free
  18 Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
  19 02111-1307, USA.  */
  20
  21 #include <libguile.h>
  22 #include "zebra-guile.h"
  23
  24 #include "zebra.h"
  25 #include "thread.h"
  26
  27 struct thread *master;
  28
  29 static void
  30 init_libzebra ()
  31 {
  32   void cmd_init();
  33   void vty_init();
  34   void memory_init();
  35
  36   cmd_init (1);
  37   vty_init ();
  38   memory_init ();
  39 }
  40
  41 /* Install scheme procudures. */
  42 void
  43 init_zebra_guile ()
  44 {
  45   init_libzebra ();
  46
  47   init_bgp ();
  48
  49 #if 0
  50   init_zebra ();
  51   init_rip ();
  52   init_ospf ();
  53 #endif /* 0 */
  54 }
  55
  56 static void
  57 inner_main (void *closure, int argc, char **argv)
  58 {
  59   /* Install zebra related scheme procedures. */
  60   init_zebra_guile ();
  61
  62   /* Invoke interpreter. */
  63   scm_shell (argc, argv);
  64 }
  65
  66 int
  67 main (int argc, char **argv)
  68 {
  69   scm_boot_guile (argc, argv, inner_main, 0);
  70   return 0;                     /* Not reached */
  71 }