mirror of
https://git.proxmox.com/git/mirror_frr
synced 2025-08-09 03:47:47 +00:00
guile: remove
This commit is contained in:
David Lamparter
parent
fa75585d3c
commit
44a86a0278
@ -49,10 +49,6 @@ use to turn off IPv6 support, to disable the compilation of specific
|
|||||||
daemons, and to enable SNMP support.
|
daemons, and to enable SNMP support.
|
||||||
|
|
||||||
@table @option
|
@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
|
@item --disable-ipv6
|
||||||
Turn off IPv6 related features and daemons. Quagga configure script
|
Turn off IPv6 related features and daemons. Quagga configure script
|
||||||
automatically detects IPv6 stack. But sometimes you might want to
|
automatically detects IPv6 stack. But sometimes you might want to
|
||||||
|
|||||||
10
guile/.gitignore
vendored
10
guile/.gitignore
vendored
@ -1,10 +0,0 @@
|
|||||||
Makefile
|
|
||||||
*.o
|
|
||||||
zebra-guile
|
|
||||||
Makefile.in
|
|
||||||
.nfs*
|
|
||||||
.arch-inventory
|
|
||||||
.arch-ids
|
|
||||||
*~
|
|
||||||
*.loT
|
|
||||||
|
|
||||||
@ -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
|
|
||||||
@ -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:
|
|
||||||
17
guile/README
17
guile/README
@ -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.
|
|
||||||
@ -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); */
|
|
||||||
}
|
|
||||||
@ -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 */
|
|
||||||
}
|
|
||||||
@ -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 ();
|
|
||||||
@ -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. */
|
|
||||||
Loading…
Reference in New Issue
Block a user