Megatest

Check-in [231abbcae3]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:I'm pretty sure these two changes were intended for this branch
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | v1.90
Files: files | file ages | folders
SHA1: 231abbcae370bd0d7b5f02d6318067661cfe1b38
User & Date: matt on 2024-12-18 17:36:31
Other Links: branch diff | manifest | tags
Context
2024-12-18
17:36
I'm pretty sure these two changes were intended for this branch Leaf check-in: 231abbcae3 user: matt tags: v1.90
2024-11-07
05:22
pgdb import was the problem, makes no sense

sped up megatest startup and fully modularized. This branch is a good candidate for migrating to chicken 5. NOTE: There are some important changes on v1.81 that should be manually patched in. check-in: c91bfc7aa6 user: matt tags: v1.90

Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified stml2/cookie.scm from [d78a525a3a] to [9902a21e8e].

︙
41
42
43
44
45
46
47
48
49
50
51
52




















53
54
55
56
57
58
59

41
42
43
44
45
46
47





48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74








-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+








;;   <ftp://ftp.isi.edu/in-notes/rfc2964.txt>
;; The parser also supports the old Netscape spec
;;   <http://www.netscape.com/newsref/std/cookie_spec.html>

;; (declare (unit cookie))

(module cookie
    *

(import chicken scheme data-structures extras srfi-13 ports posix)
  
(require-extension srfi-1 srfi-13 srfi-14 regex)
	*
	
(cond-expand
 (chicken-4
  (import chicken
	  scheme
	  data-structures
	  extras
	  ports
	  posix))
 (chicken-5
  (import scheme
	  chicken.base
	  chicken.time.posix
	  chicken.string
	  chicken.format
	  )))

(import srfi-1 srfi-13 srfi-14 regex)

;; (use  srfi-1 srfi-13 srfi-14 regex)
;; (declare (export parse-cookie-string construct-cookie-string))

;; #>
;; #include <time.h>
;; <#
;;
︙

Modified stml2/stml2.scm from [2ad7e0b3e0] to [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
︙

This page was generated in about 0.132s by Fossil 2.24 [452f8e1ffc] 2024-03-26 15:36:00