Add unicode diagram printer for parsed-program instances

quil-lang · Apr 2, 2024 · 12839b6 · 12839b6
1 parent 967c9ff
commit 12839b6
Show file tree

Hide file tree

Showing 3 changed files with 389 additions and 2 deletions.
diff --git a/cl-quil.asd b/cl-quil.asd
@@ -351,7 +351,8 @@
                       (funcall compile)))
   :pathname "src/tools/"
   :serial t
-  :components ((:file "package")
+  :components ((:file "unicode-diagram")
+               (:file "package")
                (:file "hasse-schedule")
                (:file "circuit-diagram")))
 

diff --git a/src/tools/package.lisp b/src/tools/package.lisp
@@ -11,6 +11,7 @@
 (defpackage #:cl-quil.tools
   (:nicknames #:tools)
   (:use #:cl)
+  (:import-from #:cl-quil.tools.unicode-diagram #:print-program-diagram)
   #+(or sbcl ecl ccl)
   (:local-nicknames (:a :alexandria))
 
@@ -22,4 +23,7 @@
   ;; circuit-diagram.lisp
   (:export
    #:plot-circuit)
-  )
+
+  ;; unicode-digram.lisp
+  (:export
+   #:print-program-diagram))