Megatest

Check-in [ffe0a27e42]
Login
Overview
Comment:Fixed bunch of build issues with autoload and dbi
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v2.001
Files: files | file ages | folders
SHA1: ffe0a27e42406705ad32a20efee14380d0de6bdf
User & Date: matt on 2021-12-08 21:40:23
Other Links: branch diff | manifest | tags
Context
2021-12-13
19:56
Fixed bunch of issues with main.db server startup. check-in: c423bc098e user: matt tags: v2.001
2021-12-08
21:40
Fixed bunch of build issues with autoload and dbi check-in: ffe0a27e42 user: matt tags: v2.001
2021-12-06
20:10
Start adding tab for sys check-in: ca23e278c6 user: matt tags: v2.001
Changes

Modified dashboard.scm from [133a1c7e9e] to [955f1d46eb].

40
41
42
43
44
45
46

47
48
49
50
51
52
53
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54







+







(declare (uses runsmod))
(declare (uses rmtmod))
(declare (uses subrunmod))
(declare (uses tree))
(declare (uses vgmod))
(declare (uses testsmod))
(declare (uses tasksmod))
(declare (uses dbi))

;; needed for configf scripts, scheme etc.
;; (declare (uses apimod.import))
;; (declare (uses debugprint.import))
;; (declare (uses mtargs.import))
;; (declare (uses commonmod.import))
;; (declare (uses configfmod.import))
87
88
89
90
91
92
93

94
95
96
97
98
99
100
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102







+







	chicken.time
	chicken.time.posix

	(prefix iup iup:)
	canvas-draw
	canvas-draw-iup
	(prefix sqlite3 sqlite3:)
	(prefix dbi dbi:)
	srfi-1
	regex regex-case srfi-69
	typed-records
	sparse-vectors
	format
	srfi-4
	srfi-14

Modified dbi.scm from [3f996117f2] to [b3324417ec].

15
16
17
18
19
20
21

22
23
15
16
17
18
19
20
21
22
23
24







+


;; 
;;     You should have received a copy of the GNU General Public License
;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.

;;======================================================================

(declare (unit dbi))
(declare (uses autoload))

(include "dbi/dbi.scm")

Modified stml2.scm from [6f0ee137b2] to [c7394e5219].

16
17
18
19
20
21
22


23
24
25
16
17
18
19
20
21
22
23
24
25
26
27







+
+



;;     You should have received a copy of the GNU General Public License
;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.

;;======================================================================

(declare (unit stml2))
(declare (uses cookie))
(declare (uses dbi))
(declare (uses autoload))

(include "stml2/stml2.scm")

Modified stml2/formdat.scm from [f4b16c20f8] to [0f3102ec8c].

8
9
10
11
12
13
14
15

16
17
18
19


20
21
8
9
10
11
12
13
14

15

16


17
18
19
20







-
+
-

-
-
+
+


;;  PURPOSE.

;; (declare (unit formdat))

(module formdat
    *

(import chicken scheme data-structures extras srfi-13 ports )
(import chicken scheme data-structures extras srfi-13 ports html-filter)
(use html-filter)

(use regex)
(require-extension srfi-69)
(import regex)
(import srfi-69)

)

Modified stml2/html-filter.scm from [55ec64cff2] to [a2ae004691].

9
10
11
12
13
14
15
16

17
18

19
20
21
9
10
11
12
13
14
15

16
17

18
19
20
21







-
+

-
+




;; (declare (unit html-filter))

(module html-filter
    *

(import chicken scheme data-structures extras srfi-13 ports )
(use misc-stml)
(import misc-stml)

(require-extension regex)
(import regex)

;; 
)

Modified stml2/misc-stml.scm from [30ba5d90bf] to [8660d67355].

14
15
16
17
18
19
20
21
22


23
24
14
15
16
17
18
19
20


21
22

23







-
-
+
+
-

;; (declare (unit misc-stml))

(module misc-stml
  *

(import chicken scheme data-structures extras srfi-13 ports posix)
  
(use regex (prefix dbi dbi:))
(use (prefix crypt c:))
(import regex (prefix dbi dbi:))
(import (prefix crypt c:))
(use (prefix dbi dbi:))
)

Modified stml2/rollup-pages.scm from [b24bc2e231] to [37b97898ac].

1

2
3
4
5
6
7
8

1
2
3
4
5
6
7
8
-
+







(use regex posix srfi-69 srfi-1)
(import regex posix srfi-69 srfi-1)

(define extract-rx (regexp "pages\\/(.*)_(view|ctrl).scm"))

(define (print-page-wrapper lookup page)
  (print "(define (pages:" page " session db shared)")
  (if (hash-table-ref/default lookup (conc page "_ctrl") #f)
      (print "(include \"pages/" page "_ctrl.scm\")"))

Modified stml2/session.scm from [300e7014a0] to [32b68ce58f].

9
10
11
12
13
14
15
16

17
18

19
20
9
10
11
12
13
14
15

16


17
18
19







-
+
-
-
+



;; (declare (unit session))
(module session
    *
  
(import chicken scheme data-structures extras srfi-13 ports posix files srfi-1)

(use (prefix dbi dbi:) srfi-69)
(import (prefix dbi dbi:) srfi-69 regex)
(require-extension regex)
(use cookie stmlcommon) ;; (declare (uses cookie))
(import cookie stmlcommon) ;; (declare (uses cookie))

)

Modified stml2/setup.scm from [27fec5f813] to [6248624979].

1
2
3
4
5
6
7
8
9
10
11
12
13
14

15
16
17

18
19
20
21
1
2
3
4
5
6
7
8
9
10
11
12
13

14
15
16

17

18
19
20













-
+


-
+
-



;; Copyright 2007-2011, Matthew Welland.
;; 
;;  This program is made available under the GNU GPL version 2.0 or
;;  greater. See the accompanying file COPYING for details.
;; 
;;  This program is distributed WITHOUT ANY WARRANTY; without even the
;;  implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
;;  PURPOSE.

(module setup
    *
(import chicken scheme data-structures extras srfi-13 ports posix)

(uses session misc-stml)
(import session misc-stml)
;; (declare (unit setup))se
;; (declare (uses session))
(require-extension srfi-69)
(import srfi-69 regex)
(require-extension regex)


)

Modified stml2/spiffyserver.scm from [0953505b2d] to [36a130548d].

1
2
3

4
5
6
7
8
9
10
1
2

3
4
5
6
7
8
9
10


-
+







;; This doesn't work yet
;;
(use spiffy cgi-handler)
(import spiffy cgi-handler)

(spiffy-debug-mode #t)

(spiffy-file-ext-handlers 
 `(("drcdb" . ,(cgi-handler* "/path/to/drcdb"))))

(spiffy-root-path "/path/to/web")

Modified stml2/sqlite3.scm from [935dbe7787] to [b0bb736749].

1
2
3
4
5
6
7
8
9
10
11
12
13
14

15
16
17
18
19
20
21
1
2
3
4
5
6
7
8
9
10
11
12
13

14
15
16
17
18
19
20
21













-
+







;; Copyright 2007-2011, Matthew Welland.
;; 
;;  This program is made available under the GNU GPL version 2.0 or
;;  greater. See the accompanying file COPYING for details.
;; 
;;  This program is distributed WITHOUT ANY WARRANTY; without even the
;;  implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
;;  PURPOSE.
;;

;; I used this to get a simple interactive sqlite editor on the nokia n800
;; since I couldn't get sqlite3 to install (for reasons I can't remember).

(use sqlite3)
(import sqlite3)

(define args (argv))
(define num-args (length args))

(define dbname #f)
(define cmd    #f)

Modified stml2/stmlcommon.scm from [d0639f2742] to [ba756fc30d].

11
12
13
14
15
16
17
18

19
20
11
12
13
14
15
16
17

18
19
20







-
+


;; (declare (run-time-macros))

(module stmlcommon
    *

(import  chicken scheme data-structures extras srfi-13 ports posix)

(use (prefix dbi dbi:) regex (prefix crypt c:) srfi-69)
(import (prefix dbi dbi:) regex (prefix crypt c:) srfi-69)

)

Modified stml2/stmlrun.scm from [a5be661fee] to [4939b15c7b].

9
10
11
12
13
14
15
16

17
18
19
9
10
11
12
13
14
15

16
17
18
19







-
+



;;  implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
;;  PURPOSE.

;; (require-extension syntax-case)
;; (declare (run-time-macros))

;; (include "stmlcommon.scm")
(require-library stml)
(import stml)


(stml:main #f)

Modified stml2/test.scm from [62a996e095] to [6d65a60d4d].

1

2
3
4
5
6
7
8
9
10

1
2

3
4
5
6
7
8
9
-
+

-







(use test md5)
(import test md5)

(require-extension sqlite3)
(import (prefix sqlite3 sqlite3:))

(require-library dbi)

;; (declare (uses stml))

(include "requirements.scm")

Modified testsmod.scm from [13d6172d0b] to [1d551a945a].

24
25
26
27
28
29
30

31
32
33
34
35
36
37
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38







+







(declare (uses commonmod))
(declare (uses configfmod))
(declare (uses itemsmod))
(declare (uses rmtmod))
(declare (uses stml2))
(declare (uses dbmod))
(declare (uses tasksmod))
(declare (uses dbi))

(module testsmod
	*
	
(import scheme

	chicken.base