From a55ee4e36eb1ce08d59c4a4a1029e08a7305e0b9 Mon Sep 17 00:00:00 2001 From: "Axel K. Reinhold" Date: Sun, 22 Sep 2024 11:21:35 +0200 Subject: [PATCH] fixmakeform --- docs/ContributorGuide.md | 2 +- generate/formax.inp | 65 +++++++++++++++++++++------------------- generate/makeform | 2 +- runform/form.h | 2 +- runform/logger.cpp | 30 ++++++++++--------- 5 files changed, 53 insertions(+), 48 deletions(-) diff --git a/docs/ContributorGuide.md b/docs/ContributorGuide.md index 9a716c6..98979d4 100644 --- a/docs/ContributorGuide.md +++ b/docs/ContributorGuide.md @@ -35,7 +35,7 @@ used for some fundamental values: | d | query result data | Variable | qdata.h | | e | error messages array | Type | rerror.h | | f | current Form object | Variable | runform.h | - | i | loop integer | Variable | | + | i | loop integer j,k | Variable | | | g | logger | Variable | logger.h | | l | fields array | Variable | form.h | | n | query result to_int | Type | qdata.h | diff --git a/generate/formax.inp b/generate/formax.inp index a2e4a7c..7742b17 100644 --- a/generate/formax.inp +++ b/generate/formax.inp @@ -35,17 +35,21 @@ INSERT INTO errors (num, severity, etext) VALUES (403, 1, 'Not yet implemented - CREATE TABLE blocks (id INTEGER PRIMARY KEY NOT NULL, form_id INTEGER NOT NULL DEFAULT 1, - name TEXT NOT NULL DEFAULT 'block0', + name TEXT NOT NULL DEFAULT 'dual', seq INTEGER NOT NULL DEFAULT 1, norec INTEGER NOT NULL DEFAULT 1, prikey TEXT NOT NULL DEFAULT 'id', whereand TEXT NOT NULL DEFAULT '', orderby TEXT NOT NULL DEFAULT '' ); +INSERT INTO blocks (form_id, name, seq) VALUES (0, 'dual', 1); +INSERT INTO blocks (form_id, name, seq) VALUES (0, 'dual2', 2); +INSERT INTO blocks (form_id, name, seq) VALUES (0, 'dual3', 3); +INSERT INTO blocks (form_id, name, seq) VALUES (0, 'dual4', 4); CREATE TABLE fields (id INTEGER PRIMARY KEY NOT NULL, form_id INTEGER NOT NULL DEFAULT 1, - blcn INTEGER NOT NULL DEFAULT 1, + blcn INTEGER NOT NULL DEFAULT 4, pgen INTEGER NOT NULL DEFAULT 1, name TEXT NOT NULL DEFAULT 'field0', seq INTEGER NOT NULL DEFAULT 1, @@ -117,37 +121,36 @@ CREATE TABLE triggers body TEXT NOT NULL DEFAULT '0' ); INSERT INTO triggers (name) VALUES ('enter_the_form'); -INSERT INTO blocks (id, form_id, name) VALUES (0, 1, 'dual'); INSERT INTO forms VALUES(1,'formax','Fields','',''); -INSERT INTO blocks VALUES (null,1,'fields',1,1,'id','',''); +INSERT INTO blocks VALUES (null,1,'fields',50,1,'id','',''); INSERT INTO pages VALUES (null,1,'fields-0',1,'',23,80,1,0,0,1,0); -INSERT INTO fields VALUES (null,1,1,1,'id',10,0,30,2,1,1,'',1,5,1,1,1,1,0,0,'',0,0,0,0,'',''); -INSERT INTO fields VALUES (null,1,1,1,'form_id',20,0,30,2,1,0,'',1,10,1,1,1,1,0,0,'',0,0,0,0,'',''); -INSERT INTO fields VALUES (null,1,1,1,'blcn',30,0,30,2,1,0,'',1,13,1,1,1,1,0,0,'',0,0,0,0,'',''); -INSERT INTO fields VALUES (null,1,1,1,'pgen',40,0,30,2,1,0,'',1,21,1,1,1,1,0,0,'',0,0,0,0,'',''); -INSERT INTO fields VALUES (null,1,1,1,'name',50,0,30,24,1,0,'',1,29,1,1,1,1,0,0,'',0,0,0,0,'',''); -INSERT INTO fields VALUES (null,1,1,1,'seq',60,0,30,3,1,0,'',5,7,1,1,1,1,0,0,'',0,0,0,0,'',''); -INSERT INTO fields VALUES (null,1,1,1,'ftype',70,0,30,2,1,0,'',5,21,1,1,1,1,0,0,'',0,0,0,0,'',''); -INSERT INTO fields VALUES (null,1,1,1,'len',80,0,30,2,1,0,'',6,21,1,1,1,1,0,0,'',0,0,0,0,'',''); -INSERT INTO fields VALUES (null,1,1,1,'dlen',68,0,30,3,1,0,'',8,7,1,1,1,1,0,0,'',0,0,0,0,'',''); -INSERT INTO fields VALUES (null,1,1,1,'btab',100,0,30,1,1,0,'',7,21,1,1,1,1,0,0,'',0,0,0,0,'',''); -INSERT INTO fields VALUES (null,1,1,1,'key',110,0,30,1,1,0,'',7,31,1,1,1,1,0,0,'',0,0,0,0,'',''); -INSERT INTO fields VALUES (null,1,1,1,'dflt',120,0,30,20,1,0,'',8,21,1,1,1,1,0,0,'',0,0,0,0,'',''); -INSERT INTO fields VALUES (null,1,1,1,'line',65,0,30,3,1,0,'',6,7,1,1,1,1,0,0,'',0,0,0,0,'',''); -INSERT INTO fields VALUES (null,1,1,1,'col',66,0,30,3,1,0,'',7,7,1,1,1,1,0,0,'',0,0,0,0,'',''); -INSERT INTO fields VALUES (null,1,1,1,'enter',150,0,30,1,1,0,'',11,13,1,1,1,1,0,0,'',0,0,0,0,'',''); -INSERT INTO fields VALUES (null,1,1,1,'query',160,0,30,1,1,0,'',12,13,1,1,1,1,0,0,'',0,0,0,0,'',''); -INSERT INTO fields VALUES (null,1,1,1,'upd',170,0,30,1,1,0,'',13,13,1,1,1,1,0,0,'',0,0,0,0,'',''); -INSERT INTO fields VALUES (null,1,1,1,'updnul',180,0,30,1,1,0,'',14,13,1,1,1,1,0,0,'',0,0,0,0,'',''); -INSERT INTO fields VALUES (null,1,1,1,'mand',190,0,30,1,1,0,'',15,13,1,1,1,1,0,0,'',0,0,0,0,'',''); -INSERT INTO fields VALUES (null,1,1,1,'upper',200,0,30,1,1,0,'',16,13,1,1,1,1,0,0,'',0,0,0,0,'',''); -INSERT INTO fields VALUES (null,1,1,1,'lovtit',210,0,30,20,1,0,'',17,13,1,1,1,1,0,0,'',0,0,0,0,'',''); -INSERT INTO fields VALUES (null,1,1,1,'lov_id',220,0,30,3,1,0,'',17,36,1,1,1,1,0,0,'',0,0,0,0,'',''); -INSERT INTO fields VALUES (null,1,1,1,'lovi_id',230,0,30,3,1,0,'',17,42,1,1,1,1,0,0,'',0,0,0,0,'',''); -INSERT INTO fields VALUES (null,1,1,1,'low',240,0,30,11,1,0,'',20,13,1,1,1,1,0,0,'',0,0,0,0,'',''); -INSERT INTO fields VALUES (null,1,1,1,'high',250,0,30,11,1,0,'',20,30,1,1,1,1,0,0,'',0,0,0,0,'',''); -INSERT INTO fields VALUES (null,1,1,1,'valpatn',260,0,30,34,1,0,'',21,13,1,1,1,1,0,0,'',0,0,0,0,'',''); -INSERT INTO fields VALUES (null,1,1,1,'help',55,0,30,40,1,0,'',2,13,1,1,1,1,0,0,'',0,0,0,0,'',''); +INSERT INTO fields VALUES (null,1,4,1,'id',10,0,30,2,1,1,'',1,5,1,1,1,1,0,0,'',0,0,0,0,'',''); +INSERT INTO fields VALUES (null,1,4,1,'form_id',20,0,30,2,1,0,'',1,10,1,1,1,1,0,0,'',0,0,0,0,'',''); +INSERT INTO fields VALUES (null,1,4,1,'blcn',30,0,30,2,1,0,'',1,13,1,1,1,1,0,0,'',0,0,0,0,'',''); +INSERT INTO fields VALUES (null,1,4,1,'pgen',40,0,30,2,1,0,'',1,21,1,1,1,1,0,0,'',0,0,0,0,'',''); +INSERT INTO fields VALUES (null,1,4,1,'name',50,0,30,24,1,0,'',1,29,1,1,1,1,0,0,'',0,0,0,0,'',''); +INSERT INTO fields VALUES (null,1,4,1,'seq',60,0,30,3,1,0,'',5,7,1,1,1,1,0,0,'',0,0,0,0,'',''); +INSERT INTO fields VALUES (null,1,4,1,'ftype',70,0,30,2,1,0,'',5,21,1,1,1,1,0,0,'',0,0,0,0,'',''); +INSERT INTO fields VALUES (null,1,4,1,'len',80,0,30,2,1,0,'',6,21,1,1,1,1,0,0,'',0,0,0,0,'',''); +INSERT INTO fields VALUES (null,1,4,1,'dlen',68,0,30,3,1,0,'',8,7,1,1,1,1,0,0,'',0,0,0,0,'',''); +INSERT INTO fields VALUES (null,1,4,1,'btab',100,0,30,1,1,0,'',7,21,1,1,1,1,0,0,'',0,0,0,0,'',''); +INSERT INTO fields VALUES (null,1,4,1,'key',110,0,30,1,1,0,'',7,31,1,1,1,1,0,0,'',0,0,0,0,'',''); +INSERT INTO fields VALUES (null,1,4,1,'dflt',120,0,30,20,1,0,'',8,21,1,1,1,1,0,0,'',0,0,0,0,'',''); +INSERT INTO fields VALUES (null,1,4,1,'line',65,0,30,3,1,0,'',6,7,1,1,1,1,0,0,'',0,0,0,0,'',''); +INSERT INTO fields VALUES (null,1,4,1,'col',66,0,30,3,1,0,'',7,7,1,1,1,1,0,0,'',0,0,0,0,'',''); +INSERT INTO fields VALUES (null,1,4,1,'enter',150,0,30,1,1,0,'',11,13,1,1,1,1,0,0,'',0,0,0,0,'',''); +INSERT INTO fields VALUES (null,1,4,1,'query',160,0,30,1,1,0,'',12,13,1,1,1,1,0,0,'',0,0,0,0,'',''); +INSERT INTO fields VALUES (null,1,4,1,'upd',170,0,30,1,1,0,'',13,13,1,1,1,1,0,0,'',0,0,0,0,'',''); +INSERT INTO fields VALUES (null,1,4,1,'updnul',180,0,30,1,1,0,'',14,13,1,1,1,1,0,0,'',0,0,0,0,'',''); +INSERT INTO fields VALUES (null,1,4,1,'mand',190,0,30,1,1,0,'',15,13,1,1,1,1,0,0,'',0,0,0,0,'',''); +INSERT INTO fields VALUES (null,1,4,1,'upper',200,0,30,1,1,0,'',16,13,1,1,1,1,0,0,'',0,0,0,0,'',''); +INSERT INTO fields VALUES (null,1,4,1,'lovtit',210,0,30,20,1,0,'',17,13,1,1,1,1,0,0,'',0,0,0,0,'',''); +INSERT INTO fields VALUES (null,1,4,1,'lov_id',220,0,30,3,1,0,'',17,36,1,1,1,1,0,0,'',0,0,0,0,'',''); +INSERT INTO fields VALUES (null,1,4,1,'lovi_id',230,0,30,3,1,0,'',17,42,1,1,1,1,0,0,'',0,0,0,0,'',''); +INSERT INTO fields VALUES (null,1,4,1,'low',240,0,30,11,1,0,'',20,13,1,1,1,1,0,0,'',0,0,0,0,'',''); +INSERT INTO fields VALUES (null,1,4,1,'high',250,0,30,11,1,0,'',20,30,1,1,1,1,0,0,'',0,0,0,0,'',''); +INSERT INTO fields VALUES (null,1,4,1,'valpatn',260,0,30,34,1,0,'',21,13,1,1,1,1,0,0,'',0,0,0,0,'',''); +INSERT INTO fields VALUES (null,1,4,1,'help',55,0,30,40,1,0,'',2,13,1,1,1,1,0,0,'',0,0,0,0,'',''); INSERT INTO maps VALUES (null,4,1,' Id $1 / $2 $3 blkn $4 pagn $5______________________'); INSERT INTO maps VALUES (null,4,2,' Help $27_____________________________________'); INSERT INTO maps VALUES (null,4,3,''); diff --git a/generate/makeform b/generate/makeform index 2151eec..5b06f46 100755 --- a/generate/makeform +++ b/generate/makeform @@ -37,7 +37,7 @@ done else sqlite3 $FORM.frm ".dump forms" | sed -n '/INSERT/p' sqlite3 $FORM.frm ".dump blocks" | sed -n '/INSERT/s/([0-9]*/ (null/p' | grep -v dual -sqlite3 $FORM.frm ".dump pages" | sed -n '/INSERT/s/([0-9]*/ (null/p' | grep -v formax +sqlite3 $FORM.frm ".dump pages" | sed -n '/INSERT/s/([0-9]*/ (null/p' | grep -e-0 sqlite3 $FORM.frm ".dump fields" | sed -n '/INSERT/s/([0-9]*/ (null/p' sqlite3 $FORM.frm ".dump maps" | sed -n '/INSERT/s/([0-9]*,4/ (null,4/p' fi diff --git a/runform/form.h b/runform/form.h index 9fc85c5..1cb173b 100644 --- a/runform/form.h +++ b/runform/form.h @@ -11,8 +11,8 @@ class Form: public Record { Block b[NBLOCKS]; Field l[NFIELDS]; Page p[NBLOCKS]; - rMap rmap; Trigger r[NTRIGGERS]; + rMap rmap; int numblock; int numfield; int numpage; diff --git a/runform/logger.cpp b/runform/logger.cpp index 80a3f03..86886b7 100644 --- a/runform/logger.cpp +++ b/runform/logger.cpp @@ -82,37 +82,39 @@ va_end (args); } } /* must escape apostrophes and interpolate the bind variables + * apostrophies in bind strings have to be quad repeated * so that the queries can be executed by cut and paste */ void Logger::logsql(char *sql, char *bnd[]) { -int i, j, k, l, m, n; -char *r; +int i, j, k; +int l1, m1, n1; +char *r1; char apostrophe = '\''; if (*logpath) { -//let(message, sql); -m = (int)sizeof(message) - 8; -i = k = l = 0; +//let(message, sql); /* no handling of apos not acceptable */ +m1 = (int)sizeof(message) - 8; +i = k = l1 = 0; j = -1; -while (sql[i] && k < m) { +while (sql[i] && k < m1) { switch (sql[i]) { case '?': if (j == -1) { j = 0; - r = &apostrophe; - } else if (bnd[l][j]) { - r = bnd[l]+(j++); + r1 = &apostrophe; + } else if (bnd[l1][j]) { + r1 = bnd[l1]+(j++); } else { j = -1; - l++; + l1++; i++; - r = &apostrophe; + r1 = &apostrophe; } break; default: - r = sql+(i++); + r1 = sql+(i++); } - message[k++] = *r; - if (*r == apostrophe) for (n=0; n < (j>0 ? 3 : 1); n++) message[k++] = apostrophe; + message[k++] = *r1; + if (*r1 == apostrophe) for (n1=0; n1 < (j>0 ? 3 : 1); n1++) message[k++] = apostrophe; } message[k++] = '\0'; snprintf (t(sqlquery), INSERTLOG, session, message);