WebGate

Check-in [d11a75d327]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Allow WebGate to work with the standard suspension egg
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: d11a75d3274d708203bceba75b8bbc4cf8ff6a02
User & Date: murphy 2015-05-04 10:39:54.831
Context
2015-05-04
11:11
Support for REMOTE_ADDR and REMOTE_PORT in the soup adapter check-in: 362eecda51 user: murphy tags: trunk
10:39
Allow WebGate to work with the standard suspension egg check-in: d11a75d327 user: murphy tags: trunk
09:22
Use TweetNaCl instead of Cryptlib for suspension encapsulation check-in: 1c90f0c41c user: murphy tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to webgate.meta.
1
2
3
4
5
6


7
8
9
10
11
12
13
14
;; -*- mode: Scheme; -*-
((category net)
 (license "BSD")
 (author "Thomas Chust")
 (synopsis "(S)CGI web application framework")
 (needs srfi-99 protobuf tweetnacl)


 (files "webgate.scm"
	"at-expr.scm"
	"suspension.scm"
	"webgate-utils.scm"
	"webgate-core.scm"
	"webgate-suspend.scm"
	"webgate-cgi.scm"
	"webgate-scgi.scm"))





|
>
>
|
|
<
|
|
|
|
|
1
2
3
4
5
6
7
8
9
10

11
12
13
14
15
;; -*- mode: Scheme; -*-
((category net)
 (license "BSD")
 (author "Thomas Chust")
 (synopsis "(S)CGI web application framework")
 (needs srfi-99 suspension tweetnacl)
 (files
  "suspension.scm"
  "webgate.scm"
  "at-expr.scm"

  "webgate-utils.scm"
  "webgate-core.scm"
  "webgate-suspend.scm"
  "webgate-cgi.scm"
  "webgate-scgi.scm"))
Changes to webgate.setup.
1


2










3
4
5
6
7
8
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
;; -*- mode: Scheme; -*-


(compile -s -O2 -d1 "suspension.scm" -J)










(compile -s -O2 -d1 "webgate.scm" -J)
(compile -s -O2 -d1 "at-expr.scm")

(cond-expand
 (enable-static
  (compile -c -O2 -d1 "suspension.scm"
	   -unit suspension)
  (compile -c -O2 -d1 "webgate.scm"
	   -unit webgate))
 (else
  ))

(compile -s -O2 -d0 "suspension.import.scm")
(compile -s -O2 -d0 "webgate.import.scm")
(compile -s -O2 -d0 "webgate-utils.import.scm")
(compile -s -O2 -d0 "webgate-core.import.scm")
(compile -s -O2 -d0 "webgate-suspend.import.scm")
(compile -s -O2 -d0 "webgate-cgi.import.scm")
(compile -s -O2 -d0 "webgate-scgi.import.scm")
(cond-expand
 (enable-soup
  (compile -s -O2 -d0 "webgate-soup.import.scm"))
 (else
  ))

(install-extension
 'webgate


 `("suspension.so"








   "webgate.so"
   "at-expr.so"
   ,@(cond-expand
      (enable-static
       '("suspension.o" "webgate.o"))
      (else
       '()))
   "suspension.import.so"
   "webgate.import.so"
   "webgate-utils.import.so"
   "webgate-core.import.so"
   "webgate-suspend.import.so"
   "webgate-cgi.import.so"
   "webgate-scgi.import.so"
   ,@(cond-expand

>
>
|
>
>
>
>
>
>
>
>
>
>





<
<
|
<



<














>
>
|
>
>
>
>
>
>
>
>




|


<







1
2
3
4
5
6
7
8
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

56
57
58
59
60
61
62
;; -*- mode: Scheme; -*-
(cond-expand
 (webgate-internal-suspension
  (compile -s -O2 -d1 "suspension.scm" -j suspension)
  (compile -s -O2 -d0 "suspension.import.scm"))
 (else
  ))

(cond-expand
 ((and webgate-internal-suspension enable-static)
  (compile -c -O2 -d1 "suspension.scm" -unit suspension))
 (else
  ))

(compile -s -O2 -d1 "webgate.scm" -J)
(compile -s -O2 -d1 "at-expr.scm")

(cond-expand
 (enable-static


  (compile -c -O2 -d1 "webgate.scm" -unit webgate))

 (else
  ))


(compile -s -O2 -d0 "webgate.import.scm")
(compile -s -O2 -d0 "webgate-utils.import.scm")
(compile -s -O2 -d0 "webgate-core.import.scm")
(compile -s -O2 -d0 "webgate-suspend.import.scm")
(compile -s -O2 -d0 "webgate-cgi.import.scm")
(compile -s -O2 -d0 "webgate-scgi.import.scm")
(cond-expand
 (enable-soup
  (compile -s -O2 -d0 "webgate-soup.import.scm"))
 (else
  ))

(install-extension
 'webgate
 `(,@(cond-expand
      (webgate-internal-suspension
       '("suspension.so"
	 "suspension.import.so"))
      (else
       '()))
   ,@(cond-expand
      ((and webgate-internal-suspension enable-static)
       '("suspension.o"))
      (else
       '()))
   "webgate.so"
   "at-expr.so"
   ,@(cond-expand
      (enable-static
       '("webgate.o"))
      (else
       '()))

   "webgate.import.so"
   "webgate-utils.import.so"
   "webgate-core.import.so"
   "webgate-suspend.import.so"
   "webgate-cgi.import.so"
   "webgate-scgi.import.so"
   ,@(cond-expand