picolisp

commit ec4be8ed5c674ec8b9bf161d10058d0b345118ca
parent 33ee8d0433864d5a0533976fb7637805448a3c0f
Author: Commit-Bot <unknown>
Date:   Fri, 10 Dec 2010 06:40:38 +0000

Automatic commit from picoLisp.tgz, From: Fri, 10 Dec 2010 06:40:38 GMT
Diffstat:
M
doc/ref.html
 | 
4
++--
M
lib/form.js
 | 
16
++++++++++------
M
lib/http.l
 | 
3
++-

3 files changed, 14 insertions(+), 9 deletions(-)
diff --git a/doc/ref.html b/doc/ref.html
@@ -1010,9 +1010,9 @@ code-pointer directly:
 : *
 -> 67318096
 : ((* 2 33659048) 1 2 3)
--> 1
+-> 6
 : ((quote . 67318096) 1 2 3)
--> 1
+-> 6
 : ((quote . 1234) (1 2 3))    
 Segmentation fault
 </code></pre>
diff --git a/lib/form.js b/lib/form.js
@@ -1,4 +1,4 @@
-/* 13aug10abu
+/* 09dec10abu
  * (c) Software Lab. Alexander Burger
  */
 
@@ -143,7 +143,9 @@ function post(form, file) {
                else if (fld.tagName == "IMG")
                   fld.src = val;
                else {
-                  if (fld.type == "checkbox") {
+                  if (fld.custom != null)
+                     putCustom(fld.custom, val);
+                  else if (fld.type == "checkbox") {
                      fld.checked = val != "";
                      document.getElementsByName(fld.name)[0].value = "";
                   }
@@ -165,9 +167,7 @@ function post(form, file) {
                      fld.scrollTop = fld.scrollHeight;
                   }
                   fld.disabled = false;
-                  if (i == txt.length)
-                     break;
-                  if (txt[i].charAt(0) == "=") {
+                  if (i < txt.length && txt[i].charAt(0) == "=") {
                      if (fld.type == "select-one") {
                         for (j = 0; j < fld.options.length; ++j)
                            if (fld.options[j].text != val)
@@ -178,6 +178,8 @@ function post(form, file) {
                         document.getElementsByName(fld.name)[0].value = "T";
                      ++i;
                   }
+                  if (fld.custom != null)
+                     ableCustom(fld.custom);
                }
                while (i < txt.length && (j = "#*?".indexOf(txt[i].charAt(0))) >= 0) {
                   switch (j) {
@@ -238,7 +240,9 @@ function post(form, file) {
       if (fld.name  &&  fld.type != "submit") {   // "image" won't come :-(
          var val;
 
-         if (fld.type == "checkbox")
+         if (fld.custom != null)
+            val = getCustom(fld.custom);
+         else if (fld.type == "checkbox")
             val = fld.checked? "T" : "";
          else if (fld.type == "select-one")
             val = fld.options[fld.selectedIndex].text;
diff --git a/lib/http.l b/lib/http.l
@@ -1,4 +1,4 @@
-# 24aug10abu
+# 08dec10abu
 # (c) Software Lab. Alexander Burger
 
 # *Home *Gate *Host *Port *Port1 *Port% *Http1 *Chunked
@@ -23,6 +23,7 @@
    (`(chop "bmp") "image/bmp" 3600)
    (`(chop "png") "image/png" 3600)
    (`(chop "jpg") "image/jpeg" 3600)
+   (`(chop "jpeg") "image/jpeg" 3600)
    (`(chop "txt") "text/octet-stream" 1 T)
    (`(chop "csv") "text/csv; charset=utf-8" 1 T)
    (`(chop "css") "text/css" 3600)