From 9f23d6ce58d7d002637654c0f01caa85034b5701 Mon Sep 17 00:00:00 2001 From: Kartik Singh Date: Tue, 2 Jul 2024 17:16:11 -0700 Subject: [PATCH] Remove fasl-libs example --- examples/fasl-libs/generate-libbase.lisp | 8 ------ examples/fasl-libs/generate-libs.lisp | 10 -------- examples/fasl-libs/libbase/README.md | 9 ------- examples/fasl-libs/libbase/libbase.asd | 10 -------- examples/fasl-libs/libbase/libbase.lisp | 8 ------ examples/fasl-libs/libbase/package.lisp | 5 ---- examples/fasl-libs/libminiquilc/README.md | 9 ------- .../fasl-libs/libminiquilc/libminiquilc.asd | 11 -------- .../fasl-libs/libminiquilc/libminiquilc.lisp | 20 --------------- examples/fasl-libs/libminiquilc/package.lisp | 5 ---- examples/fasl-libs/libminiqvm/README.md | 9 ------- examples/fasl-libs/libminiqvm/libminiqvm.asd | 10 -------- examples/fasl-libs/libminiqvm/libminiqvm.lisp | 25 ------------------- examples/fasl-libs/libminiqvm/package.lisp | 5 ---- examples/fasl-libs/run_2q_quil_program.c | 25 ------------------- 15 files changed, 169 deletions(-) delete mode 100644 examples/fasl-libs/generate-libbase.lisp delete mode 100644 examples/fasl-libs/generate-libs.lisp delete mode 100644 examples/fasl-libs/libbase/README.md delete mode 100644 examples/fasl-libs/libbase/libbase.asd delete mode 100644 examples/fasl-libs/libbase/libbase.lisp delete mode 100644 examples/fasl-libs/libbase/package.lisp delete mode 100644 examples/fasl-libs/libminiquilc/README.md delete mode 100644 examples/fasl-libs/libminiquilc/libminiquilc.asd delete mode 100644 examples/fasl-libs/libminiquilc/libminiquilc.lisp delete mode 100644 examples/fasl-libs/libminiquilc/package.lisp delete mode 100644 examples/fasl-libs/libminiqvm/README.md delete mode 100644 examples/fasl-libs/libminiqvm/libminiqvm.asd delete mode 100644 examples/fasl-libs/libminiqvm/libminiqvm.lisp delete mode 100644 examples/fasl-libs/libminiqvm/package.lisp delete mode 100644 examples/fasl-libs/run_2q_quil_program.c diff --git a/examples/fasl-libs/generate-libbase.lisp b/examples/fasl-libs/generate-libbase.lisp deleted file mode 100644 index 89e8f88b..00000000 --- a/examples/fasl-libs/generate-libbase.lisp +++ /dev/null @@ -1,8 +0,0 @@ -(push (uiop:pathname-parent-directory-pathname (uiop:pathname-parent-directory-pathname (uiop:getcwd))) ql:*local-project-directories*) - -(ql:quickload :libbase) -(ql:quickload :sbcl-librarian) - -(ensure-directories-exist "build/libbase/") -(sbcl-librarian:build-bindings libbase:libbase "build/libbase/") -(sbcl-librarian:build-core-and-die libbase:libbase "build/libbase/") \ No newline at end of file diff --git a/examples/fasl-libs/generate-libs.lisp b/examples/fasl-libs/generate-libs.lisp deleted file mode 100644 index af18a9b3..00000000 --- a/examples/fasl-libs/generate-libs.lisp +++ /dev/null @@ -1,10 +0,0 @@ -(push (uiop:pathname-parent-directory-pathname (uiop:pathname-parent-directory-pathname (uiop:getcwd))) ql:*local-project-directories*) - -(ql:quickload :sbcl-librarian) -(ql:quickload :libminiquilc) -(ql:quickload :libminiqvm) - -(sbcl-librarian:create-fasl-library-cmake-project "libminiquilc" libminiquilc:libminiquilc "build/libminiquilc" :base-library-name "base") -(sbcl-librarian:create-fasl-library-cmake-project "libminiqvm" libminiqvm:libminiqvm "build/libminiqvm" :base-library-name "base") - -(uiop:quit) diff --git a/examples/fasl-libs/libbase/README.md b/examples/fasl-libs/libbase/README.md deleted file mode 100644 index a3d6601b..00000000 --- a/examples/fasl-libs/libbase/README.md +++ /dev/null @@ -1,9 +0,0 @@ -# libbase -### _Your Name _ - -This is a project to do ... something. - -## License - -Specify license here - diff --git a/examples/fasl-libs/libbase/libbase.asd b/examples/fasl-libs/libbase/libbase.asd deleted file mode 100644 index 22f5e177..00000000 --- a/examples/fasl-libs/libbase/libbase.asd +++ /dev/null @@ -1,10 +0,0 @@ -;;;; libbase.asd - -(asdf:defsystem #:libbase - :description "A shared library interface for the built-in SBCL-LIBRARIAN APIs." - :author "Kartik Singh " - :depends-on (#:sbcl-librarian - ) - :serial t - :components ((:file "package") - (:file "libbase"))) diff --git a/examples/fasl-libs/libbase/libbase.lisp b/examples/fasl-libs/libbase/libbase.lisp deleted file mode 100644 index 32554a03..00000000 --- a/examples/fasl-libs/libbase/libbase.lisp +++ /dev/null @@ -1,8 +0,0 @@ -;;;; libbase.lisp - -(in-package #:libbase) - -(sbcl-librarian:define-aggregate-library libbase (:function-linkage "BASE_") - sbcl-librarian:environment - sbcl-librarian:handles - sbcl-librarian:loader) diff --git a/examples/fasl-libs/libbase/package.lisp b/examples/fasl-libs/libbase/package.lisp deleted file mode 100644 index 923cd994..00000000 --- a/examples/fasl-libs/libbase/package.lisp +++ /dev/null @@ -1,5 +0,0 @@ -;;;; package.lisp - -(defpackage #:libbase - (:use #:cl) - (:export #:libbase)) diff --git a/examples/fasl-libs/libminiquilc/README.md b/examples/fasl-libs/libminiquilc/README.md deleted file mode 100644 index 6c3d30cf..00000000 --- a/examples/fasl-libs/libminiquilc/README.md +++ /dev/null @@ -1,9 +0,0 @@ -# libminiquilc -### _Your Name _ - -This is a project to do ... something. - -## License - -Specify license here - diff --git a/examples/fasl-libs/libminiquilc/libminiquilc.asd b/examples/fasl-libs/libminiquilc/libminiquilc.asd deleted file mode 100644 index 13492375..00000000 --- a/examples/fasl-libs/libminiquilc/libminiquilc.asd +++ /dev/null @@ -1,11 +0,0 @@ -;;;; libminiquilc.asd - -(asdf:defsystem #:libminiquilc - :description "A simplified shared library interface for QUILC." - :author "Kartik Singh " - :depends-on (#:cl-quil - #:sbcl-librarian - ) - :serial t - :components ((:file "package") - (:file "libminiquilc"))) diff --git a/examples/fasl-libs/libminiquilc/libminiquilc.lisp b/examples/fasl-libs/libminiquilc/libminiquilc.lisp deleted file mode 100644 index 4298916a..00000000 --- a/examples/fasl-libs/libminiquilc/libminiquilc.lisp +++ /dev/null @@ -1,20 +0,0 @@ -;;;; libminiquilc.lisp - -(in-package #:libminiquilc) - -(sbcl-librarian:define-handle-type quil-program-type "quil_program") - -(sbcl-librarian:define-enum-type error-type "miniquilc_err_t" - ("MINIQUILC_ERR_SUCCESS" 0) - ("MINIQUILC_ERR_FAIL" 1)) -(sbcl-librarian:define-error-map error-map error-type 0 - ((t (lambda (condition) - (declare (ignore condition)) - (return-from error-map 1))))) - -(sbcl-librarian:define-library libminiquilc (:error-map error-map - :function-linkage "MINIQUILC_API" - :function-prefix "miniquilc_") - (:type quil-program-type error-type) - (:function - (("parse_quil" cl-quil:safely-parse-quil) quil-program-type ((source :string))))) diff --git a/examples/fasl-libs/libminiquilc/package.lisp b/examples/fasl-libs/libminiquilc/package.lisp deleted file mode 100644 index f968bf43..00000000 --- a/examples/fasl-libs/libminiquilc/package.lisp +++ /dev/null @@ -1,5 +0,0 @@ -;;;; package.lisp - -(defpackage #:libminiquilc - (:use #:cl) - (:export #:libminiquilc)) diff --git a/examples/fasl-libs/libminiqvm/README.md b/examples/fasl-libs/libminiqvm/README.md deleted file mode 100644 index 5944151f..00000000 --- a/examples/fasl-libs/libminiqvm/README.md +++ /dev/null @@ -1,9 +0,0 @@ -# libminiqvm -### _Your Name _ - -This is a project to do ... something. - -## License - -Specify license here - diff --git a/examples/fasl-libs/libminiqvm/libminiqvm.asd b/examples/fasl-libs/libminiqvm/libminiqvm.asd deleted file mode 100644 index c26ddc1c..00000000 --- a/examples/fasl-libs/libminiqvm/libminiqvm.asd +++ /dev/null @@ -1,10 +0,0 @@ -;;;; libminiqvm.asd - -(asdf:defsystem #:libminiqvm - :description "A simplified shared library interface for QVM." - :author "Kartik Singh - -#include "libbase.h" -#include "libminiquilc.h" -#include "libminiqvm.h" - -int main(void) -{ - init("build/libbase/libbase.core"); - libminiquilc_load(); - libminiqvm_load(); - - char source[256]; - char *amplitudes; - quil_program program; - qvm qvm; - - fgets(source, 256, stdin); - miniquilc_parse_quil(source, &program); - miniqvm_run_program(2, program, &qvm); - miniqvm_amplitudes(qvm, &litudes); - printf("%s\n", amplitudes); - - return 0; -}