picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

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:
Mdoc/ref.html | 4++--
Mlib/form.js | 16++++++++++------
Mlib/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)