Megatest

Diff
Login

Differences From Artifact [ee4c13898d]:

To Artifact [92f6841088]:


9
10
11
12
13
14
15


























16

17

18
19

20

21
22
23
24
25
26
27
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43

44
45
46
47

48
49
50
51
52
53
54
55







+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+

+
-
+


+
-
+








;; stml is a list of html strings

;; (declare (unit stml))

(module stml2
    *
(cond-expand
 (chicken-4
  (import chicken
	  scheme
	  data-structures
	  extras
	  ports
	  posix
	  files))
 (chicken-5
  (import scheme
	  chicken.base
	  chicken.time.posix
	  chicken.string
	  chicken.format
	  chicken.condition
	  chicken.process-context
	  chicken.blob
	  chicken.io
	  chicken.process-context.posix
	  chicken.port
	  chicken.pathname
	  chicken.file
	  chicken.process
	  chicken.time
	  )))

(import srfi-1 srfi-13 srfi-14 regex
(import chicken scheme data-structures extras srfi-13 ports posix srfi-69 files srfi-1) 
	srfi-69 typed-records) 

(import cookie)

(use (prefix dbi dbi:) (prefix crypt c:) typed-records)
(import (prefix dbi dbi:) (prefix crypt c:) typed-records)

;; (declare (uses misc-stml))
(use regex)

;; The (usually global) sdat contains everything about the session
;;
(defstruct sdat
1148
1149
1150
1151
1152
1153
1154
1155

1156
1157
1158
1159
1160
1161
1162
1176
1177
1178
1179
1180
1181
1182

1183
1184
1185
1186
1187
1188
1189
1190







-
+







	    ;; 		       (munged (s:process-cgi-input datstr)))
	    ;; 		  (print "datstr: " datstr " munged: " munged)
	    (if (and (not (null? alldats))
		     (not (null? (car alldats)))
		     (not (null? (caar alldats))))
		(formdat:load formdat  (s:process-cgi-input (caaar alldats))))) ;; munged))
	;;		    (format debugp "formdat : name: ~A content: ~A\n" name content)
	(if debugp (close-output-port debugp))
	;; (if debugp (close-output-port debugp))
	;; (sdat-formdat-set! s:session formdat)
	formdat))))
		
#|
(define inp (open-input-file "tests/example.post.in"))
(define dat (read-string #f inp))
(define datstr (open-input-string dat))