summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/bgpstore.lisp19
1 files changed, 12 insertions, 7 deletions
diff --git a/src/bgpstore.lisp b/src/bgpstore.lisp
index 4f36394..7430b8a 100644
--- a/src/bgpstore.lisp
+++ b/src/bgpstore.lisp
@@ -2,23 +2,28 @@
(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))
- (format t "~A: bgpstore started~%" (iso-date (get-universal-time) t))
+ (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 100)) (format t ".")
- (if (= 0 (mod count 1000)) (format t "+")
- (if (= 0 (mod count 10000))
- (format t "~%~A: ~A "
- (iso-date (get-universal-time) t)
- count))))))
+ (when (= 0 (mod count 10)) (marker "."))
+ (when (= 0 (mod count 100)) (marker "+"))
+ (when (= 0 (mod count 1000))
+ (marker (format nil "~%~A: ~A "
+ (iso-date (get-universal-time) t)
+ count)))))
(close-reader))))
(defun stop-bgpstore ())