picolisp

commit 3d25c269920d9108898ce2fb3696092ecf29f548
parent 5b600aa2619b05f0f02449d55d578d577ec083b9
Author: Commit-Bot <unknown>
Date:   Fri, 25 Jun 2010 15:58:55 +0000

Automatic commit from picoLisp.tgz, From: Fri, 25 Jun 2010 15:58:55 GMT
Diffstat:
M
lib/form.l
 | 
10
++++++----
M
lib/http.l
 | 
8
++++----
M
src64/version.l
 | 
2
+-

3 files changed, 11 insertions(+), 9 deletions(-)
diff --git a/lib/form.l b/lib/form.l
@@ -1,4 +1,4 @@
-# 21apr10abu
+# 25jun10abu
 # (c) Software Lab. Alexander Burger
 
 # *PRG *Top *Gui *Btn *Get *Got *Form *Evt *Lock *Spans
@@ -110,7 +110,7 @@
    (and Flg (=: able)) )
 
 # Handle form actions
-(de action Prg
+(de action "Prg"
    (off "*Foc")
    (or *PRG "*Post2" (off "*Err"))
    (catch "stop"
@@ -118,7 +118,9 @@
          (*Post
             (unless (and *PRG (= *Form (car *Got)) (= *Get (cadr *Got)))
                (pushForm (cons)) )
-            (_doForm)
+            (if *Get1
+               (let *JS NIL (_doForm))
+               (_doForm) )
             (off *PRG *Got) )
          (*PRG
             (with (postForm)
@@ -144,7 +146,7 @@
 
 (de _doForm ()
    (one *Form)
-   (run Prg 2)
+   (run "Prg")
    (setq "*Stat"
       (cons
          (pair "*Err")
diff --git a/lib/http.l b/lib/http.l
@@ -1,9 +1,9 @@
-# 21jun10abu
+# 25jun10abu
 # (c) Software Lab. Alexander Burger
 
 # *Home *Gate *Host *Port *Port1 *Http1 *Chunked
 # *Sock *Agent *ContLen *MPartLim *MPartEnd "*HtSet"
-# *Post *Url *Timeout *SesId *ConId
+# *Get1 *Post *Url *Timeout *SesId *ConId
 # *Referer *Cookies "*Cookies"
 
 (default
@@ -90,7 +90,7 @@
       (NIL (fork) (close P))
       (close *Sock) )
    (task *Sock (http @))
-   (http *Sock)
+   (http *Sock T)
    (or *SesId (bye))
    (task *Sock
       (when (accept *Sock)
@@ -132,7 +132,7 @@
       (push '"*Cookies" (cons (arg) (rest))) ) )
 
 # Handle HTTP-Transaction
-(de http (S)
+(de http (S *Get1)
    (use (*Post L @U @H @X)
       (off *Post *ContLen *Cookies "*Cookies" "*HtSet")
       (catch "http"
diff --git a/src64/version.l b/src64/version.l
@@ -1,6 +1,6 @@
 # 25jun10abu
 # (c) Software Lab. Alexander Burger
 
-(de *Version 3 0 2 34)
+(de *Version 3 0 2 35)
 
 # vi:et:ts=3:sw=3