(eval-when (:compile-toplevel :load-toplevel :execute)
  (load "~/quicklisp/setup.lisp")
  (ql:quickload '(:yason :alexandria :serapeum :fwoar.lisputils :osicat))
  (osicat-posix:setenv "CC" "/usr/bin/gcc")
  (ql:quickload :net.didierverna.clon))

(defpackage :json-to-table
  (:use :cl :alexandria :serapeum :fw.lu))
(in-package :json-to-table)

(defun hash-table-alist-rec (h-t)
  (map-tree 
   (op (typecase _1
	 (hash-table (hash-table-alist _1))
	 (t _1)))
   (hash-table-alist h-t)))

(defun get-all-keys (lis-ht &key (test 'equal))
  (reduce (op (union _ _ :test test))
	  lis-ht
	  :key #'hash-table-keys))

(defun tabulate (lis-ht stream)
  (let ((keys (get-all-keys lis-ht)))
    (format stream "~&~{~a~}~%~{~{~a~}~%~}"
	    (intersperse #\tab keys)
	    (mapcar (op (intersperse #\tab (pick keys _)))
		    lis-ht))))

(net.didierverna.clon:defsynopsis (:postfix "FILE")
  (text :contents "Read in a json array and print a table"))

(defun main ()
  (net.didierverna.clon:make-context)
  (let ((rem (net.didierverna.clon:remainder)))
    (if (null (cdr rem))
	(with-input-from-file (s (car rem))
	  (tabulate (yason:parse s) t))
	(error "only one arg allowed"))))


(defun build ()
  (net.didierverna.clon:dump "json-tabulator" main))