summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--doc/install.texi4
-rw-r--r--guile/.gitignore10
-rw-r--r--guile/Makefile.am12
-rw-r--r--guile/Makefile.in299
-rw-r--r--guile/README17
-rw-r--r--guile/guile-bgp.c117
-rw-r--r--guile/zebra-guile.c71
-rw-r--r--guile/zebra-guile.h21
-rw-r--r--guile/zebra-support.c19
9 files changed, 0 insertions, 570 deletions
diff --git a/doc/install.texi b/doc/install.texi
index 1cc65574..0f8f65fa 100644
--- a/doc/install.texi
+++ b/doc/install.texi
@@ -49,10 +49,6 @@ use to turn off IPv6 support, to disable the compilation of specific
daemons, and to enable SNMP support.
@table @option
-@item --enable-guile
-Turn on compilation of the zebra-guile interpreter. You will need the
-guile library to make this. zebra-guile implementation is not yet
-finished. So this option is only useful for zebra-guile developers.
@item --disable-ipv6
Turn off IPv6 related features and daemons. Quagga configure script
automatically detects IPv6 stack. But sometimes you might want to
diff --git a/guile/.gitignore b/guile/.gitignore
deleted file mode 100644
index 5c2e06b6..00000000
--- a/guile/.gitignore
+++ /dev/null
@@ -1,10 +0,0 @@
-Makefile
-*.o
-zebra-guile
-Makefile.in
-.nfs*
-.arch-inventory
-.arch-ids
-*~
-*.loT
-
diff --git a/guile/Makefile.am b/guile/Makefile.am
deleted file mode 100644
index 8d7008e9..00000000
--- a/guile/Makefile.am
+++ /dev/null
@@ -1,12 +0,0 @@
-## Process this file with Automake to create Makefile.in
-
-INCLUDES = @GUILE_CFLAGS@ -I.. -I$(top_srcdir) -I$(top_srcdir)/lib -I$(top_builddir)/lib
-DEFS = @DEFS@ -I. -I$(srcdir)
-
-AM_CFLAGS = $(PICFLAGS)
-AM_LDFLAGS = $(PILDFLAGS)
-
-bin_PROGRAMS = zebra-guile
-zebra_guile_SOURCES = zebra-guile.c zebra-support.c guile-bgp.c
-noinst_HEADERS = zebra-guile.h
-zebra_guile_LDADD = @GUILE_LDFLAGS@ ../bgpd/libbgp.a ../lib/libzebra.la
diff --git a/guile/Makefile.in b/guile/Makefile.in
deleted file mode 100644
index 2773029b..00000000
--- a/guile/Makefile.in
+++ /dev/null
@@ -1,299 +0,0 @@
-# Makefile.in generated automatically by automake 1.4 from Makefile.am
-
-# Copyright (C) 1994, 1995-8, 1999 Free Software Foundation, Inc.
-# This Makefile.in is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
-# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
-# PARTICULAR PURPOSE.
-
-
-SHELL = @SHELL@
-
-srcdir = @srcdir@
-top_srcdir = @top_srcdir@
-VPATH = @srcdir@
-prefix = @prefix@
-exec_prefix = @exec_prefix@
-
-bindir = @bindir@
-sbindir = @sbindir@
-libexecdir = @libexecdir@
-datadir = @datadir@
-sysconfdir = @sysconfdir@
-sharedstatedir = @sharedstatedir@
-localstatedir = @localstatedir@
-libdir = @libdir@
-infodir = @infodir@
-mandir = @mandir@
-includedir = @includedir@
-oldincludedir = /usr/include
-
-DESTDIR =
-
-pkgdatadir = $(datadir)/@PACKAGE@
-pkglibdir = $(libdir)/@PACKAGE@
-pkgincludedir = $(includedir)/@PACKAGE@
-
-top_builddir = ..
-
-ACLOCAL = @ACLOCAL@
-AUTOCONF = @AUTOCONF@
-AUTOMAKE = @AUTOMAKE@
-AUTOHEADER = @AUTOHEADER@
-
-INSTALL = @INSTALL@
-INSTALL_PROGRAM = @INSTALL_PROGRAM@ $(AM_INSTALL_PROGRAM_FLAGS)
-INSTALL_DATA = @INSTALL_DATA@
-INSTALL_SCRIPT = @INSTALL_SCRIPT@
-transform = @program_transform_name@
-
-NORMAL_INSTALL = :
-PRE_INSTALL = :
-POST_INSTALL = :
-NORMAL_UNINSTALL = :
-PRE_UNINSTALL = :
-POST_UNINSTALL = :
-host_alias = @host_alias@
-host_triplet = @host@
-AR = @AR@
-BGPD = @BGPD@
-CC = @CC@
-CPP = @CPP@
-CURSES = @CURSES@
-IF_METHOD = @IF_METHOD@
-IF_PROC = @IF_PROC@
-IPFORWARD = @IPFORWARD@
-KERNEL_METHOD = @KERNEL_METHOD@
-LIBPAM = @LIBPAM@
-LIB_IPV6 = @LIB_IPV6@
-LIB_REGEX = @LIB_REGEX@
-MAKEINFO = @MAKEINFO@
-MULTIPATH_NUM = @MULTIPATH_NUM@
-OSPF6D = @OSPF6D@
-OSPFD = @OSPFD@
-OTHER_METHOD = @OTHER_METHOD@
-PACKAGE = @PACKAGE@
-RANLIB = @RANLIB@
-RIPD = @RIPD@
-RIPNGD = @RIPNGD@
-RTREAD_METHOD = @RTREAD_METHOD@
-RT_METHOD = @RT_METHOD@
-VERSION = @VERSION@
-VTYSH = @VTYSH@
-ZEBRA = @ZEBRA@
-
-INCLUDES = @GUILE_CFLAGS@ -I.. -I$(top_srcdir) -I$(top_srcdir)/lib
-DEFS = @DEFS@ -I. -I$(srcdir)
-
-bin_PROGRAMS = zebra-guile
-zebra_guile_SOURCES = zebra-guile.c zebra-support.c guile-bgp.c
-noinst_HEADERS = zebra-guile.h
-zebra_guile_LDADD = @GUILE_LDFLAGS@ ../bgpd/libbgp.a ../lib/libzebra.a
-mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs
-CONFIG_HEADER = ../config.h
-CONFIG_CLEAN_FILES =
-PROGRAMS = $(bin_PROGRAMS)
-
-CPPFLAGS = @CPPFLAGS@
-LDFLAGS = @LDFLAGS@
-LIBS = @LIBS@
-zebra_guile_OBJECTS = zebra-guile.o zebra-support.o guile-bgp.o
-zebra_guile_DEPENDENCIES = ../bgpd/libbgp.a ../lib/libzebra.a
-zebra_guile_LDFLAGS =
-CFLAGS = @CFLAGS@
-COMPILE = $(CC) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS)
-CCLD = $(CC)
-LINK = $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(LDFLAGS) -o $@
-HEADERS = $(noinst_HEADERS)
-
-DIST_COMMON = README ChangeLog Makefile.am Makefile.in
-
-
-DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST)
-
-TAR = tar
-GZIP_ENV = --best
-SOURCES = $(zebra_guile_SOURCES)
-OBJECTS = $(zebra_guile_OBJECTS)
-
-all: all-redirect
-.SUFFIXES:
-.SUFFIXES: .S .c .o .s
-$(srcdir)/Makefile.in: Makefile.am $(top_srcdir)/configure.in $(ACLOCAL_M4)
- cd $(top_srcdir) && $(AUTOMAKE) --foreign --include-deps guile/Makefile
-
-Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
- cd $(top_builddir) \
- && CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status
-
-
-mostlyclean-binPROGRAMS:
-
-clean-binPROGRAMS:
- -test -z "$(bin_PROGRAMS)" || rm -f $(bin_PROGRAMS)
-
-distclean-binPROGRAMS:
-
-maintainer-clean-binPROGRAMS:
-
-install-binPROGRAMS: $(bin_PROGRAMS)
- @$(NORMAL_INSTALL)
- $(mkinstalldirs) $(DESTDIR)$(bindir)
- @list='$(bin_PROGRAMS)'; for p in $$list; do \
- if test -f $$p; then \
- echo " $(INSTALL_PROGRAM) $$p $(DESTDIR)$(bindir)/`echo $$p|sed 's/$(EXEEXT)$$//'|sed '$(transform)'|sed 's/$$/$(EXEEXT)/'`"; \
- $(INSTALL_PROGRAM) $$p $(DESTDIR)$(bindir)/`echo $$p|sed 's/$(EXEEXT)$$//'|sed '$(transform)'|sed 's/$$/$(EXEEXT)/'`; \
- else :; fi; \
- done
-
-uninstall-binPROGRAMS:
- @$(NORMAL_UNINSTALL)
- list='$(bin_PROGRAMS)'; for p in $$list; do \
- rm -f $(DESTDIR)$(bindir)/`echo $$p|sed 's/$(EXEEXT)$$//'|sed '$(transform)'|sed 's/$$/$(EXEEXT)/'`; \
- done
-
-.c.o:
- $(COMPILE) -c $<
-
-.s.o:
- $(COMPILE) -c $<
-
-.S.o:
- $(COMPILE) -c $<
-
-mostlyclean-compile:
- -rm -f *.o core *.core
-
-clean-compile:
-
-distclean-compile:
- -rm -f *.tab.c
-
-maintainer-clean-compile:
-
-zebra-guile: $(zebra_guile_OBJECTS) $(zebra_guile_DEPENDENCIES)
- @rm -f zebra-guile
- $(LINK) $(zebra_guile_LDFLAGS) $(zebra_guile_OBJECTS) $(zebra_guile_LDADD) $(LIBS)
-
-tags: TAGS
-
-ID: $(HEADERS) $(SOURCES) $(LISP)
- list='$(SOURCES) $(HEADERS)'; \
- unique=`for i in $$list; do echo $$i; done | \
- awk ' { files[$$0] = 1; } \
- END { for (i in files) print i; }'`; \
- here=`pwd` && cd $(srcdir) \
- && mkid -f$$here/ID $$unique $(LISP)
-
-TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) $(LISP)
- tags=; \
- here=`pwd`; \
- list='$(SOURCES) $(HEADERS)'; \
- unique=`for i in $$list; do echo $$i; done | \
- awk ' { files[$$0] = 1; } \
- END { for (i in files) print i; }'`; \
- test -z "$(ETAGS_ARGS)$$unique$(LISP)$$tags" \
- || (cd $(srcdir) && etags $(ETAGS_ARGS) $$tags $$unique $(LISP) -o $$here/TAGS)
-
-mostlyclean-tags:
-
-clean-tags:
-
-distclean-tags:
- -rm -f TAGS ID
-
-maintainer-clean-tags:
-
-distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir)
-
-subdir = guile
-
-distdir: $(DISTFILES)
- @for file in $(DISTFILES); do \
- d=$(srcdir); \
- if test -d $$d/$$file; then \
- cp -pr $$/$$file $(distdir)/$$file; \
- else \
- test -f $(distdir)/$$file \
- || ln $$d/$$file $(distdir)/$$file 2> /dev/null \
- || cp -p $$d/$$file $(distdir)/$$file || :; \
- fi; \
- done
-info-am:
-info: info-am
-dvi-am:
-dvi: dvi-am
-check-am: all-am
-check: check-am
-installcheck-am:
-installcheck: installcheck-am
-install-exec-am: install-binPROGRAMS
-install-exec: install-exec-am
-
-install-data-am:
-install-data: install-data-am
-
-install-am: all-am
- @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
-install: install-am
-uninstall-am: uninstall-binPROGRAMS
-uninstall: uninstall-am
-all-am: Makefile $(PROGRAMS) $(HEADERS)
-all-redirect: all-am
-install-strip:
- $(MAKE) $(AM_MAKEFLAGS) AM_INSTALL_PROGRAM_FLAGS=-s install
-installdirs:
- $(mkinstalldirs) $(DESTDIR)$(bindir)
-
-
-mostlyclean-generic:
-
-clean-generic:
-
-distclean-generic:
- -rm -f Makefile $(CONFIG_CLEAN_FILES)
- -rm -f config.cache config.log stamp-h stamp-h[0-9]*
-
-maintainer-clean-generic:
-mostlyclean-am: mostlyclean-binPROGRAMS mostlyclean-compile \
- mostlyclean-tags mostlyclean-generic
-
-mostlyclean: mostlyclean-am
-
-clean-am: clean-binPROGRAMS clean-compile clean-tags clean-generic \
- mostlyclean-am
-
-clean: clean-am
-
-distclean-am: distclean-binPROGRAMS distclean-compile distclean-tags \
- distclean-generic clean-am
-
-distclean: distclean-am
-
-maintainer-clean-am: maintainer-clean-binPROGRAMS \
- maintainer-clean-compile maintainer-clean-tags \
- maintainer-clean-generic distclean-am
- @echo "This command is intended for maintainers to use;"
- @echo "it deletes files that may require special tools to rebuild."
-
-maintainer-clean: maintainer-clean-am
-
-.PHONY: mostlyclean-binPROGRAMS distclean-binPROGRAMS clean-binPROGRAMS \
-maintainer-clean-binPROGRAMS uninstall-binPROGRAMS install-binPROGRAMS \
-mostlyclean-compile distclean-compile clean-compile \
-maintainer-clean-compile tags mostlyclean-tags distclean-tags \
-clean-tags maintainer-clean-tags distdir info-am info dvi-am dvi check \
-check-am installcheck-am installcheck install-exec-am install-exec \
-install-data-am install-data install-am install uninstall-am uninstall \
-all-redirect all-am all installdirs mostlyclean-generic \
-distclean-generic clean-generic maintainer-clean-generic clean \
-mostlyclean distclean maintainer-clean
-
-
-# Tell versions [3.59,3.63) of GNU make to not export all variables.
-# Otherwise a system limit (for SysV at least) may be exceeded.
-.NOEXPORT:
diff --git a/guile/README b/guile/README
deleted file mode 100644
index 8e18fae5..00000000
--- a/guile/README
+++ /dev/null
@@ -1,17 +0,0 @@
-
- zebra-guile
-
- Kunihiro Ishiguro
- 1999
-
-1. What is zebra-guile
-
-zebra-guile is GNU Zebra which linked with guile. Almost zebra's
-command can be called from guile interpreter. So you can use guile as
-a routing scripting language.
-
-2. How to use it.
-
-(define bgp (router-bgp 7675))
-
-3.
diff --git a/guile/guile-bgp.c b/guile/guile-bgp.c
deleted file mode 100644
index fbd01ba0..00000000
--- a/guile/guile-bgp.c
+++ /dev/null
@@ -1,117 +0,0 @@
-/* Guile bgp interface.
- Copyright (C) 1999 Kunihiro Ishiguro
-
-This file is part of GNU Zebra.
-
-GNU Zebra is free software; you can redistribute it and/or modify it
-under the terms of the GNU General Public License as published by the
-Free Software Foundation; either version 2, or (at your option) any
-later version.
-
-GNU Zebra is distributed in the hope that it will be useful, but
-WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with GNU Zebra; see the file COPYING. If not, write to the Free
-Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
-02111-1307, USA. */
-
-#include <zebra.h>
-#include <guile/gh.h>
-
-#include "log.h"
-#include "bgpd/bgpd.h"
-
-/* static SCM scm_mark_bgp (SCM obj); */
-static size_t scm_free_bgp (SCM vect);
-static int scm_print_bgp (SCM vect, SCM port, scm_print_state *pstate);
-static SCM scm_equalp_bgp (SCM a, SCM b);
-
-/* Tag of scheme type of bgp. */
-long scm_tag_bgp;
-
-static scm_smobfuns bgp_funs =
-{
- scm_mark0, scm_free_bgp, scm_print_bgp, scm_equalp_bgp
-};
-
-static int
-scm_print_bgp (SCM vect, SCM port, scm_print_state *pstate)
-{
- unsigned short num;
- struct bgp *bgp;
-
- num = 0;
- bgp = (struct bgp *) SCM_CDR (vect);
- num = bgp->as;
- scm_puts ("#<bgp ", port);
- scm_intprint (num, 10, port);
- scm_putc ('>', port);
- return 1;
-}
-
-static size_t
-scm_free_bgp (SCM obj)
-{
- /* dummy function. */
- return 10;
-}
-
-static SCM
-scm_equalp_bgp (SCM a, SCM b)
-{
-
- return SCM_BOOL_F;
-}
-
-/* Make bgp instance. */
-SCM
-scm_router_bgp (SCM as_number)
-{
- SCM cell;
- long num;
- struct bgp *bgp;
- struct bgp *bgp_create ();
-
- SCM_ASSERT (SCM_INUMP (as_number), as_number, SCM_ARG1, "router-bgp");
-
- SCM_DEFER_INTS;
-
- num = gh_scm2long (as_number);
-
- /* Make new bgp object. */
- bgp = bgp_create ();
- bgp->as = num;
-
- SCM_NEWCELL (cell);
- SCM_SETCAR (cell, scm_tag_bgp);
- SCM_SETCDR (cell, bgp);
-
- SCM_ALLOW_INTS;
-
- return cell;
-}
-
-#if 0
-SCM
-scm_router_bgp_list ()
-{
- return NULL;
-}
-#endif
-
-void
-init_bgp ()
-{
- void bgp_init ();
-
- bgp_init ();
-
- /* Initi types. */
- scm_tag_bgp = scm_newsmob (&bgp_funs);
-
- gh_new_procedure ("router-bgp", scm_router_bgp, 1, 0, 0);
- /* gh_new_procedure ("router-bgp-list", scm_router_bgp_list, 0, 0, 0); */
-}
diff --git a/guile/zebra-guile.c b/guile/zebra-guile.c
deleted file mode 100644
index f618dbc5..00000000
--- a/guile/zebra-guile.c
+++ /dev/null
@@ -1,71 +0,0 @@
-/* Zebra guile interface.
- Copyright (C) 1998, 99 Kunihiro Ishiguro
-
-This file is part of GNU Zebra.
-
-GNU Zebra is free software; you can redistribute it and/or modify it
-under the terms of the GNU General Public License as published by the
-Free Software Foundation; either version 2, or (at your option) any
-later version.
-
-GNU Zebra is distributed in the hope that it will be useful, but
-WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with GNU Zebra; see the file COPYING. If not, write to the Free
-Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
-02111-1307, USA. */
-
-#include <libguile.h>
-#include "zebra-guile.h"
-
-#include "zebra.h"
-#include "thread.h"
-
-struct thread *master;
-
-static void
-init_libzebra ()
-{
- void cmd_init();
- void vty_init();
- void memory_init();
-
- cmd_init (1);
- vty_init ();
- memory_init ();
-}
-
-/* Install scheme procudures. */
-void
-init_zebra_guile ()
-{
- init_libzebra ();
-
- init_bgp ();
-
-#if 0
- init_zebra ();
- init_rip ();
- init_ospf ();
-#endif /* 0 */
-}
-
-static void
-inner_main (void *closure, int argc, char **argv)
-{
- /* Install zebra related scheme procedures. */
- init_zebra_guile ();
-
- /* Invoke interpreter. */
- scm_shell (argc, argv);
-}
-
-int
-main (int argc, char **argv)
-{
- scm_boot_guile (argc, argv, inner_main, 0);
- return 0; /* Not reached */
-}
diff --git a/guile/zebra-guile.h b/guile/zebra-guile.h
deleted file mode 100644
index f43e287d..00000000
--- a/guile/zebra-guile.h
+++ /dev/null
@@ -1,21 +0,0 @@
-/* Zebra guile header.
- Copyright (C) 1999 Kunihiro Ishiguro
-
-This file is part of GNU Zebra.
-
-GNU Zebra is free software; you can redistribute it and/or modify it
-under the terms of the GNU General Public License as published by the
-Free Software Foundation; either version 2, or (at your option) any
-later version.
-
-GNU Zebra is distributed in the hope that it will be useful, but
-WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with GNU Zebra; see the file COPYING. If not, write to the Free
-Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
-02111-1307, USA. */
-
-void init_bgp ();
diff --git a/guile/zebra-support.c b/guile/zebra-support.c
deleted file mode 100644
index 9a6ef814..00000000
--- a/guile/zebra-support.c
+++ /dev/null
@@ -1,19 +0,0 @@
-/* Zebra guile interface support.
- Copyright (C) 1999 Kunihiro Ishiguro
-
-This file is part of GNU Zebra.
-
-GNU Zebra is free software; you can redistribute it and/or modify it
-under the terms of the GNU General Public License as published by the
-Free Software Foundation; either version 2, or (at your option) any
-later version.
-
-GNU Zebra is distributed in the hope that it will be useful, but
-WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with GNU Zebra; see the file COPYING. If not, write to the Free
-Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
-02111-1307, USA. */