diff -Nru picolisp-16.12/app/loc/fr picolisp-17.6/app/loc/fr
--- picolisp-16.12/app/loc/fr 1970-01-01 00:00:00.000000000 +0000
+++ picolisp-17.6/app/loc/fr 2017-03-03 11:08:16.000000000 +0000
@@ -0,0 +1,79 @@
+# 02mar17abu
+# Raman Gopalan
+
+"(@1 Positions)" "(@1 Situations)"
+
+"Address" "Adresse"
+
+"Can't print order" "Impossible d'imprimer la commande"
+"Change" "Changer"
+"City" "Ville"
+"Contact" "Contact"
+"Continued on page @1" "Suite à la page @1"
+"Country" "Pays"
+"Customer" "Client"
+"Customer/Supplier" "Client/Fournisseur"
+"Customers/Suppliers" "Clients/Fournisseurs"
+
+"Data" "Données"
+"Date" "Date"
+"Dear Sir or Madam," "Cher Monsieur/Chère Madame,"
+"Description" "Description"
+
+"EMail" "Courriel "
+
+"Fax" "Fax"
+
+"Greeting" "Salutation"
+
+"Home" "Accueil"
+
+"Incomplete customer address" "Adresse du client incomplète"
+"Install" "Installer"
+"Inventory" "Inventaire"
+"Item" "Article"
+"Items" "Articles"
+
+"Memo" "Note"
+"Mobile" "Portable"
+
+"Name 2" "Nom 2"
+"No customer" "Aucun client"
+"No customer name" "Aucun nom de client"
+"No customer number" "Aucun numéro de client"
+"No item description" "Aucune description d'article"
+"No item number" "Aucun numéro d'article"
+"No order date" "Aucune date de commande"
+"No order number" "Aucun numéro de commande"
+"No positions" "Pas de situation"
+"Number" "Nombre"
+
+"Order" "Commande"
+"Orders" "Commandes"
+
+"Page @1" "Page @1"
+"PDF-Print" "Impression PDF"
+"Picture" "Photo"
+"Position without item" "Situation sans article"
+"Position without price" "Situation sans prix"
+"Position without quantity" "Situation sans quantité"
+"Price" "Prix"
+
+"Quantity" "Quantité"
+
+"Report" "Rapport"
+
+"Sales" "Ventes"
+"Salutation" "Salutation"
+"Salutations" "Salutations"
+"Sex" "Sexe"
+"Street" "Rue"
+"Supplier" "Fournisseur"
+"System" "Système"
+
+"Total" "Total"
+
+"Uninstall" "Désinstaller"
+"Uninstall Picture?" "Désinstaller l'image?"
+
+"Zip" "Code postal"
diff -Nru picolisp-16.12/app/main.l picolisp-17.6/app/main.l
--- picolisp-16.12/app/main.l 2016-08-29 09:46:37.000000000 +0000
+++ picolisp-17.6/app/main.l 2017-03-02 18:14:13.000000000 +0000
@@ -1,4 +1,4 @@
-# 29aug16abu
+# 02mar17abu
# (c) Software Lab. Alexander Burger
(allowed ("app/")
@@ -35,6 +35,7 @@
("Deutsch (CH)" "CH" . "ch")
("Español (AR)" "AR" . "ar")
("Español (ES)" "ES" . "es")
+ ("Français (FR)" "FR" . "fr")
("λληνικά (GR)" "GR" . "gr")
("Norsk" "NO" . "no")
("Русский" "RU" . "ru")
diff -Nru picolisp-16.12/bin/pilIndent picolisp-17.6/bin/pilIndent
--- picolisp-16.12/bin/pilIndent 2016-11-24 10:55:37.000000000 +0000
+++ picolisp-17.6/bin/pilIndent 2017-01-24 15:48:33.000000000 +0000
@@ -1,5 +1,5 @@
#!/usr/bin/picolisp /usr/lib/picolisp/lib.l
-# 24nov16abu
+# 24jan17abu
(let Lst
(mapcar
@@ -18,7 +18,7 @@
("\\" (++ L))
("\"" (onOff Str))
("#" (or Str (= "{" (cadr L)) (off L)))
- ("}" (and (= "#" (cadr L)) (setq L (cddr L))))
+ ("}" (and (= "#" (cadr L)) (++ L)))
("(" (or Str (inc 'N 3)))
(")" (or Str (dec 'N 3)))
("["
diff -Nru picolisp-16.12/CHANGES picolisp-17.6/CHANGES
--- picolisp-16.12/CHANGES 2016-12-08 09:13:42.000000000 +0000
+++ picolisp-17.6/CHANGES 2017-06-29 05:16:23.000000000 +0000
@@ -1,3 +1,19 @@
+* 29jun17 picoLisp-17.6
+ 'ssl' and 'download' functions
+ '+TreeChart' GUI class
+ 'step' stores the key in '@@'
+ Optional 'flg' argument for 'delete', 'delq' and 'del'
+ Bug in 'ssl', needs SSL_clear()
+ Bug in case conversions for TOP character
+ "Edit" button in 'repl'
+ Added "lib/gis.l" and "lib/android.l"
+ Namespace chaining instead of merging
+ Disable '+Focus' on touch devices
+ Incorrect usage of 'ctl' in 'rc' and 'acquire'
+ Bug in 'port' in pil64
+ 'tzo' function
+ 'expDat' accepts "." and "+/-" for "today"
+
* 08dec16 picoLisp-16.12
'T' result specification for 'native'
'++' function
diff -Nru picolisp-16.12/debian/changelog picolisp-17.6/debian/changelog
--- picolisp-16.12/debian/changelog 2016-12-11 07:31:05.000000000 +0000
+++ picolisp-17.6/debian/changelog 2017-07-11 23:15:16.000000000 +0000
@@ -1,3 +1,12 @@
+picolisp (17.6-1) unstable; urgency=medium
+
+ * New upstream version 17.6
+ * Refresh patches
+ * debian/control: Bump Standards-Version to 4.0.0.
+ Updated copyright-format url. No other changes needed.
+
+ -- Kan-Ru Chen (陳侃如) Wed, 12 Jul 2017 07:15:16 +0800
+
picolisp (16.12-1) unstable; urgency=medium
* New upstream version 16.12
diff -Nru picolisp-16.12/debian/control picolisp-17.6/debian/control
--- picolisp-16.12/debian/control 2016-12-11 07:09:25.000000000 +0000
+++ picolisp-17.6/debian/control 2017-07-11 23:02:56.000000000 +0000
@@ -3,7 +3,7 @@
Priority: optional
Maintainer: Kan-Ru Chen (陳侃如)
Build-Depends: debhelper (>= 7.0.50~), dpkg-dev (>= 1.18.11~), libssl-dev, default-jdk
-Standards-Version: 3.9.8
+Standards-Version: 4.0.0
Homepage: http://picolisp.com/
Vcs-Git: git://anonscm.debian.org/collab-maint/picolisp.git
Vcs-Browser: http://anonscm.debian.org/gitweb/?p=collab-maint/picolisp.git;a=summary
diff -Nru picolisp-16.12/debian/copyright picolisp-17.6/debian/copyright
--- picolisp-16.12/debian/copyright 2016-12-11 07:09:25.000000000 +0000
+++ picolisp-17.6/debian/copyright 2017-07-11 23:06:47.000000000 +0000
@@ -1,4 +1,4 @@
-Format: http://www.debian.org/doc/packaging-manuals/copyright-format/1.0/
+Format: https://www.debian.org/doc/packaging-manuals/copyright-format/1.0/
Upstream-Name: picolisp
Source: http://software-lab.de/down.html
diff -Nru picolisp-16.12/debian/patches/0001-picolisp_build_on_multi_cpu.patch picolisp-17.6/debian/patches/0001-picolisp_build_on_multi_cpu.patch
--- picolisp-16.12/debian/patches/0001-picolisp_build_on_multi_cpu.patch 2016-12-11 07:09:25.000000000 +0000
+++ picolisp-17.6/debian/patches/0001-picolisp_build_on_multi_cpu.patch 2017-07-11 22:59:48.000000000 +0000
@@ -103,10 +103,10 @@
diff --git a/src64/Makefile b/src64/Makefile
-index 53d2ac9..2da2354 100644
+index 7b4a436..229e8ba 100644
--- a/src64/Makefile
+++ b/src64/Makefile
-@@ -46,6 +46,50 @@ FMT = .c
+@@ -47,6 +47,50 @@ FMT = .c
ARCH = emu
STRIP = :
@@ -157,7 +157,7 @@
ifeq ($(UNAME), Linux)
OS = Linux
ifeq ($(MACHINE), arm64)
-@@ -106,6 +150,8 @@ else
+@@ -110,6 +154,8 @@ else
endif
endif
@@ -166,7 +166,7 @@
baseFiles = version.l glob.l main.l \
gc.l apply.l flow.l sym.l subr.l big.l io.l db.l net.l err.l
-@@ -145,7 +191,7 @@ $(lib)/ht: $(ARCH)$(SYS).ht.o
+@@ -149,7 +195,7 @@ $(lib)/ht: $(ARCH)$(SYS).ht.o
### Compile ###
sysdefs: sysdefs.c
diff -Nru picolisp-16.12/debian/patches/0002-picolisp_fix_shbang_path.patch picolisp-17.6/debian/patches/0002-picolisp_fix_shbang_path.patch
--- picolisp-16.12/debian/patches/0002-picolisp_fix_shbang_path.patch 2016-12-11 07:09:25.000000000 +0000
+++ picolisp-17.6/debian/patches/0002-picolisp_fix_shbang_path.patch 2017-07-11 22:59:48.000000000 +0000
@@ -64,13 +64,13 @@
# *Port *Sock *Name
diff --git a/misc/mailing b/misc/mailing
-index 1c71e3c..500df55 100755
+index 3311aff..8b4cc15 100755
--- a/misc/mailing
+++ b/misc/mailing
@@ -1,4 +1,4 @@
-#!bin/picolisp lib.l
+#!/usr/bin/picolisp /usr/lib/picolisp/lib.l
- # 17jul14abu
+ # 19apr17abu
# (c) Software Lab. Alexander Burger
diff --git a/src/mkVers b/src/mkVers
diff -Nru picolisp-16.12/debian/patches/0003-picolisp_reproducible_build.patch picolisp-17.6/debian/patches/0003-picolisp_reproducible_build.patch
--- picolisp-16.12/debian/patches/0003-picolisp_reproducible_build.patch 2016-12-11 07:09:25.000000000 +0000
+++ picolisp-17.6/debian/patches/0003-picolisp_reproducible_build.patch 2017-07-11 22:59:48.000000000 +0000
@@ -8,7 +8,7 @@
1 file changed, 1 deletion(-)
diff --git a/src64/lib/asm.l b/src64/lib/asm.l
-index 38f3a45..aba0d29 100644
+index 1d4a772..b106872 100644
--- a/src64/lib/asm.l
+++ b/src64/lib/asm.l
@@ -52,7 +52,6 @@
diff -Nru picolisp-16.12/debian/patches/0006-dont_use_system_picolisp_to_bootstrap.patch picolisp-17.6/debian/patches/0006-dont_use_system_picolisp_to_bootstrap.patch
--- picolisp-16.12/debian/patches/0006-dont_use_system_picolisp_to_bootstrap.patch 2016-12-11 07:09:25.000000000 +0000
+++ picolisp-17.6/debian/patches/0006-dont_use_system_picolisp_to_bootstrap.patch 2017-07-11 22:59:48.000000000 +0000
@@ -4,16 +4,16 @@
Subject: dont_use_system_picolisp_to_bootstrap
---
- src64/mkAsm | 10 +---------
- 1 file changed, 1 insertion(+), 9 deletions(-)
+ src64/mkAsm | 13 +------------
+ 1 file changed, 1 insertion(+), 12 deletions(-)
diff --git a/src64/mkAsm b/src64/mkAsm
-index 53b81c7..288a5af 100755
+index 422d218..67c1de8 100755
--- a/src64/mkAsm
+++ b/src64/mkAsm
-@@ -1,14 +1,6 @@
+@@ -1,17 +1,6 @@
#!/bin/sh
- # 08jun11abu
+ # 14dec16abu
-if test -x /usr/bin/picolisp
-then
@@ -21,8 +21,11 @@
-elif test -x ../bin/picolisp
-then
- ../pil mkAsm.l "$@"
--else
+-elif which java >/dev/null
+-then
- ../ersatz/pil mkAsm.l "$@"
+-else
+- echo "No PicoLisp binary found for bootstrapping"
-fi
+../ersatz/pil mkAsm.l "$@"
diff -Nru picolisp-16.12/doc/app.html picolisp-17.6/doc/app.html
--- picolisp-16.12/doc/app.html 2016-02-27 10:34:31.000000000 +0000
+++ picolisp-17.6/doc/app.html 2017-01-23 11:23:22.000000000 +0000
@@ -6,7 +6,7 @@
- abu@software-lab.de
+ abu@software-lab.de
mattias.sun@gmail.com
PicoLisp Application Development
@@ -2205,7 +2205,7 @@
dialog popped up, it will fall back, and the form will be POSTed in the normal
way.
-Thus it makes no sense to use the Thus it makes no sense to use the +JS
prefix for buttons that cause a change
of the HTML code, open a dialog, or jump to another page. In such cases, overall
performance will even be worse, because the XMLHttpRequest is tried first (but
@@ -2555,7 +2555,7 @@
########################################################################
(de choCuSu (Dst)
(diaform '(Dst)
- ( "--.-.-."
+ (<grid> "--.-.-."
# Form components
... )
(gui 'query '(+QueryChart) (cho)
@@ -2565,11 +2565,11 @@
(<table> 'chart (choTtl ,"Customers/Suppliers" 'nr '+CuSu)
# Table headers
(do (cho)
- ( (alternating)
+ (<row> (alternating)
(gui 1 '(+DstButton) Dst)
...
(gui 9 '(+TelField)) ) ) )
- (
+ (<spread>
(scroll (cho))
(newButton T Dst '(+CuSu) ...)
(cancelButton) ) ) )
diff -Nru picolisp-16.12/doc/ChangeLog picolisp-17.6/doc/ChangeLog
--- picolisp-16.12/doc/ChangeLog 2016-12-05 12:13:10.000000000 +0000
+++ picolisp-17.6/doc/ChangeLog 2017-06-28 04:59:13.000000000 +0000
@@ -1,3 +1,460 @@
+28jun17
+ Avoid "push S"
+ src64/big.l
+ pilos/src/big.l
+
+26jun17
+ Minor register size change
+ src64/arch/arm64.l
+
+24jun17
+ Call shell in 'repl'
+ lib/form.l
+ Minor initialization changes
+ lib/android.l
+
+23jun17
+ Unlink pipes before creation
+ lib/android.l
+
+22jun17
+ Minor local declaration
+ lib/android.l
+
+20jun17
+ Added 'zxing?' checking for QR-Code scanner
+ lib/android.l
+ Document volatile properties
+ doc/ref.html
+ "Call" button in 'repl'
+ lib/form.l
+
+18jun17
+ 'ssl' and 'download' functions
+ lib/misc.l
+ doc/refD.html
+ doc/refS.html
+
+16jun17
+ Minor ref fixes for 'pool', 'dbSync' and 'lock'
+ doc/refP.html
+ doc/refD.html
+ doc/refL.html
+
+15jun17
+ 'update', 'update?' and 'location?' functions
+ Renamed 'hasCamera' to 'camera?'
+ lib/android.l
+
+13jun17
+ Added a note in the reference of 'later' about 'rd' and 'pr', in response to
+ https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=857277
+ doc/refL.html
+
+06jun17
+ 'lat' and 'lon' functions
+ lib/gis.l
+ Minor fix to 'idForm', needs (fin "Var")
+ lib/form.l
+
+03jun17
+ "See also" link to 'swap'
+ doc/refS.html
+
+01jun17
+ '+TreeChart' GUI class
+ lib/form.l
+
+31may17
+ 'step' stores the key in '@@'
+ lib/btree.l
+ doc/refS.html
+
+30may17
+ Rename 'val' property in '+Radio' to 'rad'
+ lib/form.l
+
+26may17
+ "name=" optional in 'mail'
+ lib/misc.l
+
+16may17
+ Wrong charset in "Saint-Exupéry"
+ doc/form/form.html
+
+14may17
+ Typos in reference (Nehal Singhal)
+ doc/form/form.html
+ doc/form/refC.html
+ doc/form/refD.html
+ doc/form/refF.html
+ doc/form/refI.html
+ doc/form/refO.html
+ doc/form/refQ.html
+ doc/form/refR.html
+ doc/form/refS.html
+
+11may17
+ Minor typo
+ doc/refA.html
+
+06may17
+ Missing line
+ loc/es
+
+04may17
+ Omit "./" in "src64/tags"
+ src64/lib/asm.l
+
+02may17
+ Removed 'cut>' and 'paste>' from '+Chart'
+ lib/form.l
+
+01may17
+ Hint filename in 'repl'
+ lib/form.l
+
+30apr17
+ Wrong '@' value in 'repl'
+ lib/form.l
+
+28apr17
+ Fix hook for '+ObjVal'
+ lib/form.l
+
+24apr17
+ Handle hook for '+ObjVal', and for 'Fld' in 'choDlg'
+ lib/form.l
+
+21apr17
+ Pass hook to 'panel'
+ lib/form.l
+
+20apr17
+ Evaluate 'objHook' in '(hint> . +Obj)'
+ lib/form.l
+
+19apr17
+ Fixes for the mail header parser by Rowan Thorpe
+ misc/mailing
+
+18apr17
+ Add '@' to the '*Run' reference
+ doc/refR.html
+
+12apr17
+ Use "302 Found" instead of "301 Moved Permanently" in 'httpGate'
+ src/httpGate.c
+
+07apr17
+ Simplification of 'delete' etc.
+ {src64,pilos/src}/subr.l
+ {src64,pilos/src}/sym.l
+
+05apr17
+ Optional 'flg' argument also for 'del'
+ {src64,pilos/src}/subr.l
+ {src64,pilos/src}/sym.l
+ {src,mini/src}/subr.c
+ {src,mini/src}/sym.c
+ doc/refD.html
+ test/src/sym.l
+ Revert httpGate (without SSL_shutdown())
+ src/httpGate.c
+
+04apr17
+ Minor fix in 'genKey', make 'ubZval' non-destructive
+ pilos/init/lib/db.l
+ Delete multiple list elements in '(del> . +List)'
+ {lib,mini/lib,pilos/init/lib}/db.l
+ Optional 'flg' argument for 'delete' and 'delq'
+ {src64,pilos/src}/subr.l
+ {src,mini/src}/subr.c
+ ersatz/fun.src
+ doc/refD.html
+ test/src/subr.l
+
+29mar17
+ Missing 'flood' function
+ doc/ref.html
+
+28mar17
+ Conditional "PIE = -no-pie" for x86_64 (Mike Pechkin)
+ src64/Makefile
+ Add SSL_shutdown() to httpGate
+ src/httpGate.c
+ Bug in 'ssl', needs SSL_clear()
+ src/ssl.c
+
+25mar17
+ Bug in case conversions ('fold', 'uppc' etc.) for TOP character
+ {src64,pilos/src}/sym.l
+
+24mar17
+ 'repl' history as '+Hint1'
+ lib/form.l
+ 'repl' eval with environment offset
+ lib/form.l
+
+23mar17
+ Unmark default namespace
+ {src64,pilos/src}/sym.l
+
+21mar17
+ Clear line with ^U
+ lib/led.l
+ Suppress unnecceary "?" in 'url'
+ lib/form.l
+
+18mar17
+ Handle "301 Moved Permanently" in 'httpGate'
+ src/httpGate.c
+ Default "PIE = -no-pie" for x86_64
+ src64/Makefile
+
+17mar17
+ Handle "301 Moved Permanently" in 'httpGate'
+ src/httpGate.c
+ doc/httpGate.html
+
+16mar17
+ Removed legacy version checks
+ src64/arch/emu.l
+ pilos/make.l
+
+15mar17
+ Fix ref example for 'struct' (03nov16: Terminate char arrays on null bytes)
+ doc/refS.html
+ Internal 'Intent' methods in addition to 'putExtra'
+ lib/android.l
+ 'repl' '@@' and '@@@' handling
+ 'file>' method for '+FileField'
+ "Edit" button in 'repl'
+ lib/form.l
+
+11mar17
+ Missing part in '+Joint' example
+ doc/refJ.html
+
+10mar17
+ Still bug in secondary namespace lookup
+ {src64,pilos/src}/sym.l
+ Pass either unit or zoom to
+ lib/svg.l
+ Local renames
+ lib/gis.l
+
+09mar17
+ Bug lookup of long names in secondary namespaces
+ {src64,pilos/src}/sym.l
+ New files
+ lib/gis.l
+ lib/android.l
+ lib/nodroid.l
+ 'all' also for given namespace
+ {src64,pilos/src}/sym.l
+ doc/refA.html
+
+08mar17
+ Minor change (Danilo Kordic)
+ lib/eled.l
+ Bug in 'intern' for namespaces
+ {src64,pilos/src}/sym.l
+ doc/refI.html
+ doc/refN.html
+
+07mar17
+ Minor clean up in 'equ' definitions
+ pilos/src/defs.l
+
+06mar17
+ 'symbols' optional 'prg' for local namespace list
+ {src64,pilos/src}/sym.l
+ lib.l
+ doc/refS.html
+ doc/refL.html
+ Omit 'local' and 'import' from pil32
+ lib.l
+ Bug in namespace chaining
+ {src64,pilos/src}/sym.l
+ Added 'url1>'
+ lib/db.l
+
+04mar17
+ Namespace chaining instead of merging
+ {src64,pilos/src}/glob.l
+ {src64,pilos/src}/main.l
+ {src64,pilos/src}/gc.l
+ {src64,pilos/src}/sym.l
+ {src64,pilos/src}/io.l
+ {src64,pilos/src}/err.l
+ src64/ht.l
+ lib.l
+ lib/debug.l
+ pilos/init/lib.l
+ pilos/init/lib/dbg.l
+ test/src/sym.l
+ doc/ref.html
+ doc/refI.html
+ doc/refL.html
+ doc/refP.html
+ doc/refS.html
+ doc/refZ.html
+
+03mar17
+ French localization
+ loc/FR.l
+ loc/fr
+ app/loc/fr
+ app/main.l
+
+24feb17
+ Input fields without border
+ lib.css
+
+17feb17
+ Minor ref fix
+ doc/ref.html
+
+08feb17
+ idFocus() function and disable '+Focus' on touch devices
+ lib/form.js
+ lib/form.l
+
+07feb17
+ More "See also" entries for flow functions
+ doc/refA.html
+ doc/refC.html
+ doc/refI.html
+ doc/refN.html
+ doc/refO.html
+ doc/refU.html
+ doc/refW.html
+
+05feb17
+ Minor fixes to some 'chk>' methods
+ lib/form.l
+
+30jan17
+ Note 'flush' in the 'out' reference
+ doc/refO.html
+
+27jan17
+ More tag fixes
+ doc/form/refC.html
+
+26jan17
+ More tag fixes
+ doc/form/refA.html
+ doc/form/refC.html
+ doc/form/refD.html
+ doc/form/refF.html
+ doc/form/refI.html
+ doc/form/refJ.html
+ doc/form/refO.html
+ doc/form/refQ.html
+
+25jan17
+ More tag fixes
+ doc/form/refF.html
+ doc/form/refO.html
+ doc/form/refQ.html
+ doc/form/refS.html
+ doc/form/refV.html
+ doc/form/form.html
+
+24jan17
+ Bug in indent script with closing comments '}#'
+ bin/pilIndent
+
+23jan17
+ More typos in docs
+ doc/app.html
+
+22jan17
+ Unmatched tags (Jon / Mattias)
+ doc/form/refC.html
+
+20jan17
+ Incorrect usage of 'ctl' in 'rc' and 'acquire'
+ lib.l
+
+17jan17
+ Bug in 'port', guarantee 16-bit value after ntohs()
+ src64/net.l
+ More ref fixes (Jon / Mattias)
+ doc/form/refQ.html
+
+13jan17
+ Missing '#' in link (Jon / Mattias)
+ doc/form/refP.html
+
+09jan17
+ Make 'tzo' Linux-only
+ src/main.c
+ doc/refT.html
+ test/src/main.l
+ Remove lib/dbase.l from distribution
+ lib/dbase.l
+ Avoid race condition in 'tzo' unit test
+ test/src/main.l
+
+07jan17
+ 'tzo' function
+ src64/sys/arm64.linux.defs.l
+ src64/sys/x86-64.linux.defs.l
+ src64/sys/ppc64.linux.defs.l
+ src64/sys/x86-64.freeBsd.defs.l
+ src64/sys/x86-64.openBsd.defs.l
+ src64/sys/x86-64.sunOs.defs.l
+ src64/sysdefs.c
+ src64/main.l
+ src64/glob.l
+ src/pico.h
+ src/tab.c
+ src/main.c
+ doc/ref.html
+ doc/refT.html
+ test/src/main.l
+
+02jan17
+ One more example for 'fish'
+ doc/refF.html
+
+22dec16
+ Preserve "LayX" in
+ lib/xhtml.l
+
+19dec16
+ Add '+Rid' to 'resetButton'
+ lib/form.l
+
+18dec16
+ 'expDat' accepts "." and "+/-" for "today"
+ lib/misc.l
+ doc/refE.html
+ test/lib/misc.l
+
+16dec16
+ Base64-encode 'mail' subject if necessary
+ lib/misc.l
+ Wrong link to 'mail'
+ doc/refP.html
+
+14dec16
+ Better error diagnostics
+ src64/mkAsm
+
+12dec16
+ Minor typo, duplicated line
+ doc/refR.html
+
+09dec16
+ Reverse bind order (for (pathologically) duplicated symbols)
+ {src64,pilos/src}/main.l
+ {src64,pilos/src}/flow.l
+
+####### 16.12 #######
05dec16
Stub for 'PIE = -no-pie' in Linux/x86_64 (enable in Debian Sid)
src64/Makefile
@@ -341,7 +798,7 @@
java/Reflector.java
20jun16
- httpGate documentation (Mattias Sundblad)
+ 'httpGate' documentation (Mattias Sundblad)
doc/httpGate.html
19jun16
diff -Nru picolisp-16.12/doc/form/form.html picolisp-17.6/doc/form/form.html
--- picolisp-16.12/doc/form/form.html 2016-02-25 12:55:21.000000000 +0000
+++ picolisp-17.6/doc/form/form.html 2017-05-16 13:33:35.000000000 +0000
@@ -52,7 +52,7 @@
The first line checks whether the user has the right permissions to access
this page. After that a call to a function called 'menu' follows. This function
is defined in app/gui.l and creates the menu and basic page layout of this
-application. Nested within the call to 'menu' is our first, direct, encounter
+application. Nested within the call to 'menu' is our first, direct encounter
with a form function. In this case it is a call to 'idForm'. Let us look a
little closer at this call.
@@ -66,7 +66,7 @@
########################################################################
(de choCuSu (Dst)
(diaform '(Dst)
- ( "--.-.-."
+ (<grid> "--.-.-."
# Form components
... )
(gui 'query '(+QueryChart) (cho)
@@ -76,11 +76,11 @@
(<table> 'chart (choTtl ,"Customers/Suppliers" 'nr '+CuSu)
# Table headers
(do (cho)
- ( (alternating)
+ (<row> (alternating)
(gui 1 '(+DstButton) Dst)
...
(gui 9 '(+TelField)) ) ) )
- (
+ (<spread>
(scroll (cho))
(newButton T Dst '(+CuSu) ...)
(cancelButton) ) ) )
@@ -96,7 +96,7 @@
development for a more thorough description of form components.
The grid is followed by another gui component, this time a +QueryChart. The
-chart is an interesting, and very useful, concept. The basic idea is to separate
+chart is an interesting, and very useful concept. The basic idea is to separate
how data is presented in the gui from the internal representation. See charts for more information.
diff -Nru picolisp-16.12/doc/form/refA.html picolisp-17.6/doc/form/refA.html
--- picolisp-16.12/doc/form/refA.html 2016-02-25 13:27:06.000000000 +0000
+++ picolisp-17.6/doc/form/refA.html 2017-01-26 06:27:37.000000000 +0000
@@ -56,7 +56,7 @@
(btn) (align "#") (NIL ,"Description") (NIL ,"Supplier") (NIL
,"City") (align ,"Price") )
(do (cho)
- ( (alternating)
+ (<row> (alternating)
(gui 1 '(+DstButton) Dst) (gui 2 '(+NumField)) (gui 3 '(+ObjView
+TextField) '(: nm)) (gui 4 '(+ObjView +TextField) '(: nm)) (gui 5
'(+TextField)) (gui 6 '(+FixField) 2) ) ) )
diff -Nru picolisp-16.12/doc/form/refC.html picolisp-17.6/doc/form/refC.html
--- picolisp-16.12/doc/form/refC.html 2016-02-25 13:37:40.000000000 +0000
+++ picolisp-17.6/doc/form/refC.html 2017-05-14 06:20:40.000000000 +0000
@@ -27,7 +27,7 @@
should be pressed.
An environment of variable bindings, to be pushed onto - and popped
from - the stacks, and to be used during the un-/redo operations.
- A single 'exe' for *un-doing* in that environment
+ A single 'exe' for *un-doing* in that environment.
And one or several 'exe's (i.e. a 'prg') for *doing* in that
environment.
@@ -79,7 +79,7 @@
- +Chg
+
+Chg
A prefix taking a function argument, which is called when the user
changes the value of a field. That function receives the modified value, and
may modify it again or perform side-effects with it like setting other
@@ -117,12 +117,12 @@
number of rows.
. .
(do (cho)
- ( (alternating)
+ (<row> (alternating)
(gui 1 '(+DstButton) Dst) (gui 2 '(+NumField)) (gui 3 '(+ObjView
+TextField) '(: nm)) (gui 4 '(+TextField)) (gui 5 '(+MailField)) (gui
6 '(+TextField)) (gui 7 '(+TextField)) (gui 8 '(+TelField)) (gui 9
'(+TelField)) ) ) )
- (
+ (<spread>
(scroll (cho)) . .
See also diaform .
@@ -134,7 +134,7 @@
title of a chart in a search dialog. The function combines a transient
symbol, a text string, with the number of objects of a given type in the
database. Here is an example from the demo app included in the PicoLisp
- distribution, in gui.l
+ distribution, in gui.l.
(choTtl ,"Customers/Suppliers" 'nr '+CuSu)
@@ -154,7 +154,7 @@
choDlg
, "choose dialog" creates a dialog
that lets the user select or create an object, to be either jumped to (when
called as a form), or taken into the destination field (when called as a
- dialog, see +DstButton ) The following
+ dialog, see +DstButton ). The following
example comes from the demo app included with the PicoLisp distribution, in
cusu.l. This file implements a form that handles objects of a class called
+CuSu
, "CustomerSupplier". +CuSu
is connected to
@@ -245,11 +245,12 @@
a number:
- (gui (+Chart) 2) (<table> NIL NIL '((NIL "Text")
- (NIL "Number"))
- (do 4
+ (gui (+Chart) 2)
+ (<table> NIL NIL '((NIL "Text") (NIL "Number"))
+ (do 1
(<row> NIL
- (gui 1 '(+TextField) 20) (gui 2 '(+NumField) 10) ) ) )
+ (gui 1 '(+TextField) 20)
+ (gui 2 '(+NumField) 10) ) ) )
This number tells the chart how many columns of data to
@@ -267,13 +268,15 @@
(gui '(+E/R +Chart) '(bin : home obj) 3
- '((This) (list (: nm))) # 'Put'- function '((L D) # 'Get'- function
+ '((This) (list (: nm))) # 'Put'- function
+ '((L D) # 'Get'- function
(and D (put!> D 'nm (car L)))
- D ) )
+ D ) )
(<table> NIL "Binaries" '((NIL "Name"))
(do 6
(<row> NIL
- (gui 1 '(+Able +TextField) '(curr) 30) (gui 2 '(+DelRowButton))
+ (gui 1 '(+Able +TextField) '(curr) 30)
+ (gui 2 '(+DelRowButton))
(gui 3 '(+BubbleButton)) ) ) )
@@ -298,8 +301,8 @@
(<table> 'chart NIL '((NIL "Media"))
(do 3
(<row> (alternating)
- (gui 1 '(+ObjView +TextField) '(: nm)) # Binary name (gui 2
- '(+DelRowButton)) (gui 3 '(+BubbleButton)) ) )
+ (gui 1 '(+ObjView +TextField) '(: nm)) # Binary name
+ (gui 2 '(+DelRowButton)) (gui 3 '(+BubbleButton)) ) )
(<row> NIL (scroll 3 T)) )
@@ -311,8 +314,10 @@
(=: mup
(list
- (and (: obj mup) (in (blob @ 'txt) (till NIL T))) # txt NIL # sum
- NIL # min (: obj mup bin) ) )
+ (and (: obj mup) (in (blob @ 'txt) (till NIL T))) # txt
+ NIL # sum
+ NIL # min
+ (: obj mup bin) ) )
'mup' is a list here, and (: mup -3)
picks
@@ -358,7 +363,7 @@
cloneButton
- This function creates a button used to clone, make a copy of, the object
+ This function creates a button used to clone, make a copy of the object
in the current form. To customise the copy the form object, or it's class,
may override the clone>
- method (inherited from +Entity
).
See also +Rid , +Able ,
@@ -392,7 +397,7 @@
Causes an empty field to display "<Please enter some text
- here>"
+ here>".
@@ -405,7 +410,7 @@
...
(<table> 'chart NIL
'((NIL ,"File") (NIL ,"Delete")) (do 2
- ( NIL
+ (<row> NIL
(gui 1 '(+DocObj +TextField) (curr)) # (gui 2 '(+DelRowButton)) ) )
)
...
diff -Nru picolisp-16.12/doc/form/refD.html picolisp-17.6/doc/form/refD.html
--- picolisp-16.12/doc/form/refD.html 2016-04-08 10:06:05.000000000 +0000
+++ picolisp-17.6/doc/form/refD.html 2017-05-14 06:23:38.000000000 +0000
@@ -19,7 +19,7 @@
This example shows a +TextField
that has been extended with two
classes, +Var
and +DbHint
. +Var
- connects the field to a variable and +DbHint
fetche
+ connects the field to a variable and +DbHint
fetches
autocomplete suggestions from the database. As you can see,
+DbHint
is given the argument '(nam +User)
. This
tells it to fetch the property "nam" from the class "+User". See also
(de choItem (Dst)
(diaform '(Dst)
- ( "--.-."
+ (<grid> "--.-."
...
... )
(gui 'query '(+QueryChart) (cho)
@@ -148,7 +148,7 @@
+DstButton
- +DstButton
,Destination button, has a dual behaviour,
+ +DstButton
, Destination button, has a dual behaviour,
manifesting itself as a button or a plain link. The button is always labeled
as "@", but if +DstButton
is used in a dialog which chooses an
object to be stored in a field of the calling form it manifests as a button.
@@ -156,13 +156,13 @@
field. Otherwise, +DstButton
manifests itself as a plain link
and clicking the link causes a jump to that object. Typical usage is in
choice (search) dialogs, which are used both for jumping to objects and for
- selecting objects in other forms.
+ selecting objects in other forms.
The following example uses a +DstButton
when presenting the
search result in a QueryChart
. Since we are not about to choose
an object to be stored in a field of the calling form, this
+DstButton
will manifest as a link and cause a jump to an
- object. Given the following 'put'- function:
+ object. Given the following 'put'- function:
'((This) (list This This (: pa) (: ma) (: mate) (: job) (: dat)))
@@ -172,7 +172,7 @@
(<table> 'chart NIL
'((btn) (NIL "Name") (NIL "Father") (NIL "Mother") (NIL "Partner") (NIL "Occupation") (NIL "born"))
(do (cho)
- ( (alternating)
+ (<row> (alternating)
(gui 1 '(+DstButton) Dst)
(gui 2 '(+ObjView +TextField) '(: nm))
(gui 3 '(+ObjView +TextField) '(: nm))
@@ -210,7 +210,7 @@
See also +TextField , gui , date and TimeTime & Date
+ href="../app.html#timeDateFields">Time & Date
.
diff -Nru picolisp-16.12/doc/form/refF.html picolisp-17.6/doc/form/refF.html
--- picolisp-16.12/doc/form/refF.html 2016-02-29 08:24:16.000000000 +0000
+++ picolisp-17.6/doc/form/refF.html 2017-05-14 06:26:14.000000000 +0000
@@ -40,15 +40,15 @@
See also +NumField , +TextField and Input fields
+ href="../app.html#inputFields">Input fields.
+FileField
- This field evaluates an 'exe' to find and open/ create a file, then
+ This field evaluates an 'exe' to find and open/create a file, then
loads/modifies/stores the text in that file. See also +TextField
+ href="refT.html#+TextField">+TextField.
@@ -61,7 +61,7 @@
(de choCuSu (Dst)
(diaform '(Dst)
- ( "--.-.-."
+ (<grid> "--.-.-."
,"Number" (gui 'nr '(+Var +NumField) '*CuSuNr 10)
,"Name" (gui 'nm '(+Focus +Var +TextField) '*CuSuNm 30)
,"Phone" (gui 'tel '(+Var +TelField) '*CuSuTel 20)
@@ -98,10 +98,10 @@
See also +Set , +Val , .
+ href="refV.html#+Val">+Val and formatting .
-
+
form
The basic form function. Handles operations common to the concrete form
types in the library. See idForm ,
(menu ,"Item"
(idForm ,"Item" '(choItem) 'nr '+Item T '(may Delete) '((: nr) " -- " (: nm))
- ( 4
+ (<grid> 4
,"Number" NIL (gui '(+E/R +NumField) '(nr : home obj) 10) NIL
,"Description" NIL (gui '(+E/R +Cue +TextField) '(nm : home obj) ,"Item" 30) NIL
,"Supplier" (choCuSu 0)
@@ -37,7 +37,7 @@
(gui '(+View +NumField) '(cnt> (: home obj)) 12)
,"Price" NIL (gui '(+E/R +FixField) '(pr : home obj) 2 12) )
(--)
- ( 2
+ (<grid> 2
,"Memo" (gui '(+BlobField) '(txt : home obj) 60 8)
,"Picture"
(prog
@@ -49,7 +49,7 @@
(ask ,"Uninstall Picture?"
(put!> (: home top 1 obj) 'jpg NIL) ) )
((: drop) (blob! (: home obj) 'jpg @)) ) ) ) )
- ( NIL (editButton T))
+ (<spread> NIL (editButton T))
(gui '(+Upd +Img)
'(and (: home obj jpg) (allow (blob (: home obj) 'jpg)))
,"Picture" ) ) )
@@ -67,7 +67,7 @@
create a heading that is displayed when a single object has been selected.
Our example will use the 'nr' and 'nm' properties of an +Item
object combined with " -- ". The result is something like this: "Item: 2 --
- Spare Part"
See also diaform , See also diaform , form .
diff -Nru picolisp-16.12/doc/form/refJ.html picolisp-17.6/doc/form/refJ.html
--- picolisp-16.12/doc/form/refJ.html 2016-02-25 12:29:24.000000000 +0000
+++ picolisp-17.6/doc/form/refJ.html 2017-01-26 06:28:55.000000000 +0000
@@ -27,7 +27,7 @@
(gui '(+JS +Button) "@img/mapicon.gif" "@img/no.png"
'(set> (: home map) (path> (: home obj) 40)) )
...
- ( '((id . map) (style . "width: 600px; height: 400px"))
+ (<p> '((id . map) (style . "width: 600px; height: 400px"))
(gui 'map '(+JsField) "showMap") )
diff -Nru picolisp-16.12/doc/form/refO.html picolisp-17.6/doc/form/refO.html
--- picolisp-16.12/doc/form/refO.html 2016-02-26 09:53:50.000000000 +0000
+++ picolisp-17.6/doc/form/refO.html 2017-05-14 06:28:57.000000000 +0000
@@ -60,7 +60,7 @@
(<table> 'chart NIL
'((btn) (NIL "Name") (NIL "Father") (NIL "Mother") (NIL "Partner") (NIL "Occupation") (NIL "born"))
(do (cho)
- ( (alternating)
+ (<row> (alternating)
(gui 1 '(+DstButton) Dst)
(gui 2 '(+ObjView +TextField) '(: nm))
(gui 3 '(+ObjView +TextField) '(: nm))
@@ -70,7 +70,7 @@
(gui 7 '(+DateField)) ) ) )
- Columns 2,3 and 4 use +ObjView
to display the name of the 'pa',
+ Columns 2, 3 and 4 use +ObjView
to display the name of the 'pa',
'ma' and 'mate' relations of the current object respectively. See also +Obj , +obj .
@@ -97,6 +97,7 @@
href="http://picolisp.com/wiki/?OnClickButton">good article that
explains +OnClick in depth. See also +Button
and gui .
+
(okButton 'Exe)
diff -Nru picolisp-16.12/doc/form/refP.html picolisp-17.6/doc/form/refP.html
--- picolisp-16.12/doc/form/refP.html 2016-02-25 12:42:58.000000000 +0000
+++ picolisp-17.6/doc/form/refP.html 2017-01-13 13:39:08.000000000 +0000
@@ -41,7 +41,7 @@
This produces a <passwd>
html tag. See also gui , +TextField
+ href="refG.html#gui">gui, +TextField
and input fields .
diff -Nru picolisp-16.12/doc/form/refQ.html picolisp-17.6/doc/form/refQ.html
--- picolisp-16.12/doc/form/refQ.html 2016-02-25 12:45:13.000000000 +0000
+++ picolisp-17.6/doc/form/refQ.html 2017-05-14 06:30:34.000000000 +0000
@@ -17,10 +17,10 @@
dialogs, as the following example from the demo app supplied with the
PicoLisp distribution.
-
+
(de choItem (Dst)
(diaform '(Dst)
- ( "--.-."
+ (<grid> "--.-."
,"Number" (gui 'nr '(+Focus +Var +NumField) '*ItemNr 10)
,"Supplier" (gui 'sup '(+Var +TextField) '*ItemSup 20)
(searchButton '(init> (: home query)))
@@ -51,14 +51,14 @@
(NIL ,"City")
(align ,"Price") )
(do (cho)
- ( (alternating)
+ (<row> (alternating)
(gui 1 '(+DstButton) Dst)
(gui 2 '(+NumField))
(gui 3 '(+ObjView +TextField) '(: nm))
(gui 4 '(+ObjView +TextField) '(: nm))
(gui 5 '(+TextField))
(gui 6 '(+FixField) 2) ) ) )
- (
+ (<spread>
(scroll (cho))
(newButton T Dst '(+Item)
'(nr genKey 'nr '+Item)
@@ -117,10 +117,10 @@
'((This) (list This (: nr) This (: sup) (: sup ort) (: pr)))
-
+
The 'put'- function is applied to each row and places the desired content
- into the GUI. Since this chart is readonly, i.e. contains no input fields,
+ into the GUI. Since this chart is read only, i.e. contains no input fields,
the corresponding 'get'- function can be omitted. Each item in the list
produced by our 'put'- function matches up with a column in the table
presenting the result. The first item, This
, is used to create
@@ -158,9 +158,9 @@
href="refD.html#diaform">diaform, +ObjView , +TextField , +FixField ,charts and the select
- predicate
+ href="refF.html#+FixField">+FixField, charts and the select
+ predicate.