picolisp

commit dc435d520dd38b2d8068f02be5819a8a1cf82155
parent 97d8fc34d82fc569c17f87b466baec8b8776f505
Author: Alexander Burger <abu@software-lab.de>
Date:   Mon, 25 Apr 2011 12:19:15 +0200

Make suitable for global and local installation
Diffstat:
M
CHANGES
 | 
1
+
M
ReleaseNotes
 | 
8
++++++--
M
app/main.l
 | 
6
+++---
M
doc/family.l
 | 
4
++--
M
misc/bigtest
 | 
4
++--
A
pil
 | 
2
++

6 files changed, 16 insertions(+), 9 deletions(-)
diff --git a/CHANGES b/CHANGES
@@ -1,4 +1,5 @@
 * XXjun11 picoLisp-3.0.7
+   Local 'pil' startup script
    64-bit version for PowerPC (ppc64)
    Bug in 'replace' (64-bit)
    Moved temporary directories to ~/.pil/tmp/
diff --git a/ReleaseNotes b/ReleaseNotes
@@ -1,4 +1,4 @@
-24apr11abu
+25apr11abu
 (c) Software Lab. Alexander Burger
 
 
@@ -16,6 +16,10 @@
    Temporary directories (with the PID as name) were created in a "tmp/"
    directory in the current working directory. They are now in "~/.pil/tmp/".
 
-2. A preliminary implementation of the 64-bit version for PowerPC (ppc64).
+2. A local startup script 'pil' was introduced, analog to the global
+   "/usr/bin/pil" script. In the long term, './p' will be replaced with './pil',
+   and './dbg' will be replaced with './pil +'.
+
+3. A preliminary implementation of the 64-bit version for PowerPC (ppc64).
    Floating point support for 'native' is still missing. And code generation
    must be optimized.
diff --git a/app/main.l b/app/main.l
@@ -1,10 +1,10 @@
-# 15nov10abu
+# 25apr11abu
 # (c) Software Lab. Alexander Burger
 
-(allowed ("app/" "img/")
+(allowed ("app/" "@img/")
    "@start" "@stop" "favicon.ico" "lib.css" "@psh" )
 
-(load "lib/http.l" "lib/xhtml.l" "lib/form.l" "lib/ps.l" "lib/adm.l")
+(load "@lib/http.l" "@lib/xhtml.l" "@lib/form.l" "@lib/ps.l" "@lib/adm.l")
 
 (setq
    *Scl 2
diff --git a/doc/family.l b/doc/family.l
@@ -1,7 +1,7 @@
-# 04feb10abu
+# 25apr11abu
 # (c) Software Lab. Alexander Burger
 
-(load "lib/http.l" "lib/xhtml.l" "lib/form.l" "lib/ps.l")
+(load "@lib/http.l" "@lib/xhtml.l" "@lib/form.l" "@lib/ps.l")
 
 ### DB ###
 (class +Person +Entity)
diff --git a/misc/bigtest b/misc/bigtest
@@ -1,8 +1,8 @@
 #!bin/picolisp lib.l
-# 23jan10abu
+# 25apr11abu
 # misc/bigtest <seed>
 
-(load "lib/misc.l")
+(load "@lib/misc.l")
 
 (seed (car (argv)))
 
diff --git a/pil b/pil
@@ -0,0 +1,2 @@
+#!bin/picolisp lib.l
+(load "lib/misc.l" "lib/btree.l" "lib/db.l" "lib/pilog.l")