wip

Author: jcs090218

src/cmds/build.lisp

@@ -26,7 +26,7 @@
   (list
    (clingon:make-option
     :string
-    :description "path to the ASD file"
+    :description "system name"
     :short-name #\n
     :long-name "name"
     :required t
@@ -42,19 +42,18 @@
 (defun handler (cmd)
   "Handler for the `build' command."
   (let* ((name   (clingon:getopt cmd :name))
-         (output (clingon:getopt cmd :output))
-         (name   (qob:load-system name)))
-    (format t "~A" (asdf/system-registry:registered-system name))
-    (format t "~A" output)
-    ;;(setq asdf/system:build-pathname output)
-    ;;(asdf:operate :build-op name)
+         (output (clingon:getopt cmd :output)))
+    ;;(format t "~A" (asdf/system-registry:registered-system name))
+    ;;(format t "~A" output)
+    (qob:setup)
+    (asdf:operate :build-op name)
     ))
 
 (defun command ()
   "Build the executable."
   (clingon:make-command
    :name "build"
    :description "Build the executable"
-   :usage "-n /path/to/file.asd -o /bin/program-name"
+   :usage "-n <name> -o <path>"
    :options (options)
    :handler #'handler))

src/logger.lisp

@@ -34,3 +34,23 @@
 (defun -error (fmt &rest args)
   "TODO: .."
   (apply #'format t fmt args))
+
+(defvar elapsed-time nil
+  "Log with elapsed time.")
+
+(defvar minimum-reported-time 0.1
+  "Minimal load time that will be reported.")
+
+(defmacro with-progress (msg-start body msg-end)
+  "Progress BODY wrapper with prefix (MSG-START) and suffix (MSG-END) messages."
+  (declare (indent 0) (debug t))
+  `(if elapsed-time
+       (let ((now (current-time)))
+         (ignore-errors (-write ,msg-start)) ,body
+         (let ((elapsed (float-time (time-subtract (current-time) now))))
+           (if (< elapsed minimum-reported-time)
+               (ignore-errors (-msg ,msg-end))
+               (ignore-errors (-write ,msg-end))
+               (-msg (ansi-white (format " (%.3fs)" elapsed))))))
+       (ignore-errors (-write ,msg-start)) ,body
+       (ignore-errors (-msg ,msg-end))))

src/utils.lisp

@@ -18,7 +18,7 @@
   (let ((files (asd-files t)))
     (mapc (lambda (file)
             (load-system file)
-            (-info ""))
+            (-info "Load ASD file ~A" file))
           files)))
 
 (defun load-system (filename)