From be72bedb6bd6fc116aa62a285d0355f2fab33db2 Mon Sep 17 00:00:00 2001
From: Helmut Merz <helmutm@cy55.de>
Date: Sat, 1 Jun 2024 22:47:35 +0200
Subject: [PATCH] more on simple demo app

---
 app/demo/build.sh                           |  2 ++
 app/demo/main.lisp                          | 10 ++++++++--
 scopes-demo.asd => app/demo/scopes-demo.asd |  5 +++--
 3 files changed, 13 insertions(+), 4 deletions(-)
 create mode 100755 app/demo/build.sh
 rename scopes-demo.asd => app/demo/scopes-demo.asd (76%)

diff --git a/app/demo/build.sh b/app/demo/build.sh
new file mode 100755
index 0000000..1d28cb8
--- /dev/null
+++ b/app/demo/build.sh
@@ -0,0 +1,2 @@
+
+sbcl --eval '(asdf:make :scopes-demo)' --eval '(quit)'
diff --git a/app/demo/main.lisp b/app/demo/main.lisp
index 5f9d7f3..53bae33 100644
--- a/app/demo/main.lisp
+++ b/app/demo/main.lisp
@@ -2,9 +2,15 @@
 
 (defpackage :scopes/app/demo
   (:use :common-lisp)
-  (:export #:main))
+    (:local-nicknames (:forge :scopes/forge))
+    (:export #:main))
 
 (in-package :scopes/app/demo)
 
 (defun main()
-  (format t "~%Hello World~%"))
+  (format t "~%Hello World.~%relative path: ~a~%system source dir: ~a~%"
+          (asdf:system-relative-pathname :scopes-demo "config")
+          (asdf:system-source-directory :scopes-demo))
+  (setf forge:*forge-env* (forge:forge-env))
+  (forge:setup-builtins)
+  (forge:repl))
diff --git a/scopes-demo.asd b/app/demo/scopes-demo.asd
similarity index 76%
rename from scopes-demo.asd
rename to app/demo/scopes-demo.asd
index 5251f81..664916b 100644
--- a/scopes-demo.asd
+++ b/app/demo/scopes-demo.asd
@@ -6,8 +6,9 @@
   :version "0.0.1"
   :homepage "https://www.cyberconcepts.org"
   :description ""
-  :components ((:file "app/demo/main"))
+  :depends-on (:scopes)
+  :components ((:file "main"))
   :build-operation "program-op"
-  :build-pathname "app/demo/bin/demo"
+  :build-pathname "bin/demo"
   :entry-point "scopes/app/demo:main")