picolisp

commit 85552eef205d9a97300f3d63e84719c1713ff9d9
parent e3e0d695574c73421a9f5877928e2e1e2191a0b3
Author: Commit-Bot <unknown>
Date:   Thu, 18 Nov 2010 08:50:26 +0000

Automatic commit from picoLisp.tgz, From: Thu, 18 Nov 2010 08:50:26 GMT
Diffstat:
M
ersatz/README
 | 
8
++++++--
M
ersatz/fun.src
 | 
8
+++++---
M
ersatz/picolisp.jar
 | 
0

M
src64/version.l
 | 
4
++--

4 files changed, 13 insertions(+), 7 deletions(-)
diff --git a/ersatz/README b/ersatz/README
@@ -1,4 +1,4 @@
-17nov10abu
+18nov10abu
 (c) Software Lab. Alexander Burger
 
 
@@ -34,7 +34,11 @@ Ersatz PicoLisp can be started - analog to 'bin/picolisp' - as
    $ ersatz/picolisp
 
 This already includes slighly simplfied versions of the standard libraries as
-loaded by 'dbg' (without database support, but with Pilog and XML support).
+loaded by './dbg' (without database, but with Pilog and XML support).
+
+On non-Unix systems, you might start 'java' directly, e.g.:
+
+   java -DPID=42 -jar picolisp.jar lib.l
 
 
       Building the JAR file
diff --git a/ersatz/fun.src b/ersatz/fun.src
@@ -1,4 +1,4 @@
-# 17nov10abu
+# 18nov10abu
 # (c) Software Lab. Alexander Burger
 
 # Ersatz PicoLisp Functions
@@ -73,8 +73,8 @@ quit (str)
    str = evString(ex = ex.Cdr);
    return err(null, (ex = ex.Cdr) instanceof Cell? ex.Car.eval() : null, str);
 
-# (public 'obj 'any) -> obj
-# (public 'cls 'any) -> obj
+# (public 'obj 'any ['any ..]) -> obj
+# (public 'cls 'any ['any ..]) -> obj
 public (x y z s o)
    y = (x = ex.Cdr).Car.eval();
    z = (x = x.Cdr).Car.eval();
@@ -85,6 +85,8 @@ public (x y z s o)
          java.lang.Class cls = java.lang.Class.forName(s.Name);
          o = cls.getField(z.name()).get(cls);
       }
+      while ((x = x.Cdr) instanceof Cell)
+         o = o.getClass().getField(x.Car.eval().name()).get(o);
       return new Symbol(o);
    }
    catch (Exception e) {return err(ex, null, e.toString());}
diff --git a/ersatz/picolisp.jar b/ersatz/picolisp.jar
Binary files differ.
diff --git a/src64/version.l b/src64/version.l
@@ -1,6 +1,6 @@
-# 17nov10abu
+# 18nov10abu
 # (c) Software Lab. Alexander Burger
 
-(de *Version 3 0 4 10)
+(de *Version 3 0 4 11)
 
 # vi:et:ts=3:sw=3