Megatest

Check-in [587c980e03]
Login
Overview
Comment:More ck5 tweaks
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.80-revolution-ck5
Files: files | file ages | folders
SHA1: 587c980e03c43ea988c3d01bb2a4e2578dc5b46f
User & Date: mrwellan on 2023-12-13 12:45:47
Other Links: branch diff | manifest | tags
Context
2023-12-14
15:50
Merged opportunistic deletion of DELETED tests. check-in: 465e11c224 user: mrwellan tags: v1.80-revolution
08:30
Merged forward changes for ck5 build Leaf check-in: 23b682828e user: mrwellan tags: v1.80-revolution-ck5-2
2023-12-13
12:45
More ck5 tweaks Closed-Leaf check-in: 587c980e03 user: mrwellan tags: v1.80-revolution-ck5
2023-12-12
14:38
More files transitioned to dual build. check-in: 32e5dbb77c user: mrwellan tags: v1.80-revolution-ck5
Changes

Modified tcp-transportmod.scm from [5cef09f36d] to [074453490b].

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
56
57
58
59
60
61
62
63
64
65
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
56
57
58
59
60
61
62
63
64
65
66
67
68
69

70
71



72
73
74


75
76
77
78
79
80
81
82
83
84

85
86
87
88
89
90
91







-
-
+
+
+
+
+

+
+
+
+
+
+

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

+
+
+
+
-
+

-
-
-



-
-










-







(declare (uses portlogger))

(use address-info tcp)

(module tcp-transportmod
	*
	
  (import scheme
	  (prefix sqlite3 sqlite3:)
(import scheme)

(cond-expand
 (chicken-4
  (import (prefix sqlite3 sqlite3:)
	  chicken
	  extras
	  hostinfo

	  ports
	  posix
	  files
	  data-structures
	  tcp
	  ))
 (chicken-5
  (import chicken.base
	  chicken.condition
	  chicken.file
	  chicken.pathname
	  chicken.process-context.posix
	  chicken.process
	  chicken.sort
	  chicken.string
	  chicken.time
	  chicken.tcp
	  chicken.random
	  chicken.file.posix
	  chicken.pretty-print
	  chicken.io
	  chicken.port
	  chicken.process-context

	  system-information)
  (define unsetenv unset-environment-variable!)
  ))
 
	  address-info
 (import  address-info
	  directory-utils
	  extras
	  files
	  hostinfo
	  matchable
	  md5
	  message-digest
	  ports
	  posix
	  regex
	  regex-case
	  s11n
	  srfi-1
	  srfi-18
	  srfi-4
	  srfi-69
	  stack
	  typed-records
	  tcp-server
	  tcp
	  
	  debugprint
	  commonmod
	  dbfile
	  dbmod
	  portlogger
	)