Restructure and add bgpview.

There's one package, BGP-LOGGER, defined in src/package.lisp.

There are two systems, BGPSTORE and BGPVIEW, defined in bgpstore.asd
and bgpview.asd respectively.

The package exports START-BGPSTORE, START-BGPVIEW and their STOP-
counterparts.

1 files changed, 0 insertions, 31 deletions

diff --git a/src/bgpstore.lisp b/src/bgpstore.lisp
deleted file mode 100644
index 16cd696..0000000
--- a/src/bgpstore.lisp
+++ /dev/null
@@ -1,31 +0,0 @@
-;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
-
-(defparameter *db-spec* '("bgpstore" "bgpstore" "bgpstore" "localhost" ))
-
-(defun marker (mark)
-  (format t mark)
-  (force-output))
-
-(defun start-bgpstore (host port)
-  (with-connection *db-spec* 
-    (let ((reader (new-reader host port))
-	  (count 0))
-      (marker (format nil "~A: bgpstore started "
-		      (iso-date (get-universal-time) t)))
-      (do ((e (next-xml-blurb reader "BGP_MESSAGE")
-	      (next-xml-blurb reader "BGP_MESSAGE")))
-	  ((null e))
-	(dolist (obj (new-entries (xml-top-elem-from-octets e)))
-	  (insert-dao obj)
-	  (incf count)
-	  (if (= 0 (mod count 10000))
-	      (marker (format nil "~%~A: ~A "
-			      (iso-date (get-universal-time) t)
-			      count))
-	      (if (= 0 (mod count 1000))
-		  (marker "*")
-		  (if (= 0 (mod count 100))
-		      (marker "."))))))
-      (close-reader))))
-
-(defun stop-bgpstore ())