support csv output format in form performance report

qi-sdk/info.rkt

@@ -9,6 +9,7 @@
                "math-lib"
                "collections-lib"
                "relation-lib"
+               "csv-writing"
                "cover"
                "cover-coveralls"))
 (define build-deps '())

qi-sdk/profile/report.rkt

@@ -71,6 +71,7 @@
          relation
          qi
          json
+         csv-writing
          (only-in "util.rkt"
                   only-if
                   for/call))
@@ -149,6 +150,22 @@
  (usage (~a "Report on the performance of all of the forms "
             "of the language, in JSON format.")))
 
+(flag (output-format #:param [output-format "json"] fmt)
+  ("-f" "--format" "Output format to use, either 'json' or 'csv'")
+  (output-format fmt))
+
+(define (write-csv data)
+  (~> (data)
+      △
+      (>< (~> (-< (hash-ref 'name)
+                  (hash-ref 'unit)
+                  (hash-ref 'value))
+              ▽))
+      (-< '(name unit value)
+          _)
+      ▽
+      display-table))
+
 (program (main)
   ;; TODO: could use try-order? with hash-keys if support is dropped for Racket 8.3
   (define fs (~>> (env) hash-keys (sort <)))
@@ -158,6 +175,13 @@
   (define require-data (list (hash 'name "(require qi)"
                                    'unit "ms"
                                    'value (time-module-ms "qi"))))
-  (write-json (append forms-data require-data)))
+  (let ([output (append forms-data require-data)])
+    ;; Note: this is a case where declaring "constraints" on the CLI args
+    ;; would be useful, instead of using the ad hoc fallback `else` check here
+    ;; https://github.com/countvajhula/cli/issues/6
+    (cond
+      [(equal? (output-format) "json") (write-json output)]
+      [(equal? (output-format) "csv") (write-csv output)]
+      [else (error "Unrecognized format!")])))
 
 (run main)