Executable dumping

translator-main.lisp

@@ -0,0 +1,8 @@
+(cl:in-package #:vicon-bag-translator)
+
+(defun main ()
+  (destructuring-bind (input &optional (output (make-pathname
+						:type     "tide"
+						:defaults input)))
+      (uiop:command-line-arguments)
+    (convert input output)))

translator-package.lisp

@@ -7,4 +7,6 @@
    #:load-vicon-proto-file
    #:to-vicon-object
    #:translate
-   #:convert))
+   #:convert
+
+   #:main))

vicon-bag-translator.asd

@@ -8,9 +8,13 @@
   :description "Translating from the parsed VICON file into the RSBag format."
   :serial T
   :components ((:file "translator-package")
-               (:file "bag-translator"))
+               (:file "bag-translator")
+               (:file "translator-main"))
   :depends-on (:cl-rsbag
                :cl-rsb-common
                :rsbag-tidelog
                :rsb-converter-protocol-buffer
-               :vicon-parser))
+               :vicon-parser)
+  :build-operation asdf:program-op
+  :build-pathname "vicon-bag-translator"
+  :entry-point "vicon-bag-translator:main")