Artifact
6a19a788aa9579ed715529a3bab8100852fdaa26
File
webgate.setup
— part of check-in
[d11a75d327]
at
2015-05-04 10:39:54
on branch trunk
— Allow WebGate to work with the standard suspension egg
(user:
murphy
size: 1641)
0000: 3b 3b 20 2d 2a 2d 20 6d 6f 64 65 3a 20 53 63 68 ;; -*- mode: Sch
0010: 65 6d 65 3b 20 2d 2a 2d 0a 28 63 6f 6e 64 2d 65 eme; -*-.(cond-e
0020: 78 70 61 6e 64 0a 20 28 77 65 62 67 61 74 65 2d xpand. (webgate-
0030: 69 6e 74 65 72 6e 61 6c 2d 73 75 73 70 65 6e 73 internal-suspens
0040: 69 6f 6e 0a 20 20 28 63 6f 6d 70 69 6c 65 20 2d ion. (compile -
0050: 73 20 2d 4f 32 20 2d 64 31 20 22 73 75 73 70 65 s -O2 -d1 "suspe
0060: 6e 73 69 6f 6e 2e 73 63 6d 22 20 2d 6a 20 73 75 nsion.scm" -j su
0070: 73 70 65 6e 73 69 6f 6e 29 0a 20 20 28 63 6f 6d spension). (com
0080: 70 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 30 20 pile -s -O2 -d0
0090: 22 73 75 73 70 65 6e 73 69 6f 6e 2e 69 6d 70 6f "suspension.impo
00a0: 72 74 2e 73 63 6d 22 29 29 0a 20 28 65 6c 73 65 rt.scm")). (else
00b0: 0a 20 20 29 29 0a 0a 28 63 6f 6e 64 2d 65 78 70 . ))..(cond-exp
00c0: 61 6e 64 0a 20 28 28 61 6e 64 20 77 65 62 67 61 and. ((and webga
00d0: 74 65 2d 69 6e 74 65 72 6e 61 6c 2d 73 75 73 70 te-internal-susp
00e0: 65 6e 73 69 6f 6e 20 65 6e 61 62 6c 65 2d 73 74 ension enable-st
00f0: 61 74 69 63 29 0a 20 20 28 63 6f 6d 70 69 6c 65 atic). (compile
0100: 20 2d 63 20 2d 4f 32 20 2d 64 31 20 22 73 75 73 -c -O2 -d1 "sus
0110: 70 65 6e 73 69 6f 6e 2e 73 63 6d 22 20 2d 75 6e pension.scm" -un
0120: 69 74 20 73 75 73 70 65 6e 73 69 6f 6e 29 29 0a it suspension)).
0130: 20 28 65 6c 73 65 0a 20 20 29 29 0a 0a 28 63 6f (else. ))..(co
0140: 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 31 mpile -s -O2 -d1
0150: 20 22 77 65 62 67 61 74 65 2e 73 63 6d 22 20 2d "webgate.scm" -
0160: 4a 29 0a 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d J).(compile -s -
0170: 4f 32 20 2d 64 31 20 22 61 74 2d 65 78 70 72 2e O2 -d1 "at-expr.
0180: 73 63 6d 22 29 0a 0a 28 63 6f 6e 64 2d 65 78 70 scm")..(cond-exp
0190: 61 6e 64 0a 20 28 65 6e 61 62 6c 65 2d 73 74 61 and. (enable-sta
01a0: 74 69 63 0a 20 20 28 63 6f 6d 70 69 6c 65 20 2d tic. (compile -
01b0: 63 20 2d 4f 32 20 2d 64 31 20 22 77 65 62 67 61 c -O2 -d1 "webga
01c0: 74 65 2e 73 63 6d 22 20 2d 75 6e 69 74 20 77 65 te.scm" -unit we
01d0: 62 67 61 74 65 29 29 0a 20 28 65 6c 73 65 0a 20 bgate)). (else.
01e0: 20 29 29 0a 0a 28 63 6f 6d 70 69 6c 65 20 2d 73 ))..(compile -s
01f0: 20 2d 4f 32 20 2d 64 30 20 22 77 65 62 67 61 74 -O2 -d0 "webgat
0200: 65 2e 69 6d 70 6f 72 74 2e 73 63 6d 22 29 0a 28 e.import.scm").(
0210: 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 20 2d compile -s -O2 -
0220: 64 30 20 22 77 65 62 67 61 74 65 2d 75 74 69 6c d0 "webgate-util
0230: 73 2e 69 6d 70 6f 72 74 2e 73 63 6d 22 29 0a 28 s.import.scm").(
0240: 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 20 2d compile -s -O2 -
0250: 64 30 20 22 77 65 62 67 61 74 65 2d 63 6f 72 65 d0 "webgate-core
0260: 2e 69 6d 70 6f 72 74 2e 73 63 6d 22 29 0a 28 63 .import.scm").(c
0270: 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 ompile -s -O2 -d
0280: 30 20 22 77 65 62 67 61 74 65 2d 73 75 73 70 65 0 "webgate-suspe
0290: 6e 64 2e 69 6d 70 6f 72 74 2e 73 63 6d 22 29 0a nd.import.scm").
02a0: 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 20 (compile -s -O2
02b0: 2d 64 30 20 22 77 65 62 67 61 74 65 2d 63 67 69 -d0 "webgate-cgi
02c0: 2e 69 6d 70 6f 72 74 2e 73 63 6d 22 29 0a 28 63 .import.scm").(c
02d0: 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 ompile -s -O2 -d
02e0: 30 20 22 77 65 62 67 61 74 65 2d 73 63 67 69 2e 0 "webgate-scgi.
02f0: 69 6d 70 6f 72 74 2e 73 63 6d 22 29 0a 28 63 6f import.scm").(co
0300: 6e 64 2d 65 78 70 61 6e 64 0a 20 28 65 6e 61 62 nd-expand. (enab
0310: 6c 65 2d 73 6f 75 70 0a 20 20 28 63 6f 6d 70 69 le-soup. (compi
0320: 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 30 20 22 77 le -s -O2 -d0 "w
0330: 65 62 67 61 74 65 2d 73 6f 75 70 2e 69 6d 70 6f ebgate-soup.impo
0340: 72 74 2e 73 63 6d 22 29 29 0a 20 28 65 6c 73 65 rt.scm")). (else
0350: 0a 20 20 29 29 0a 0a 28 69 6e 73 74 61 6c 6c 2d . ))..(install-
0360: 65 78 74 65 6e 73 69 6f 6e 0a 20 27 77 65 62 67 extension. 'webg
0370: 61 74 65 0a 20 60 28 2c 40 28 63 6f 6e 64 2d 65 ate. `(,@(cond-e
0380: 78 70 61 6e 64 0a 20 20 20 20 20 20 28 77 65 62 xpand. (web
0390: 67 61 74 65 2d 69 6e 74 65 72 6e 61 6c 2d 73 75 gate-internal-su
03a0: 73 70 65 6e 73 69 6f 6e 0a 20 20 20 20 20 20 20 spension.
03b0: 27 28 22 73 75 73 70 65 6e 73 69 6f 6e 2e 73 6f '("suspension.so
03c0: 22 0a 09 20 22 73 75 73 70 65 6e 73 69 6f 6e 2e ".. "suspension.
03d0: 69 6d 70 6f 72 74 2e 73 6f 22 29 29 0a 20 20 20 import.so")).
03e0: 20 20 20 28 65 6c 73 65 0a 20 20 20 20 20 20 20 (else.
03f0: 27 28 29 29 29 0a 20 20 20 2c 40 28 63 6f 6e 64 '())). ,@(cond
0400: 2d 65 78 70 61 6e 64 0a 20 20 20 20 20 20 28 28 -expand. ((
0410: 61 6e 64 20 77 65 62 67 61 74 65 2d 69 6e 74 65 and webgate-inte
0420: 72 6e 61 6c 2d 73 75 73 70 65 6e 73 69 6f 6e 20 rnal-suspension
0430: 65 6e 61 62 6c 65 2d 73 74 61 74 69 63 29 0a 20 enable-static).
0440: 20 20 20 20 20 20 27 28 22 73 75 73 70 65 6e 73 '("suspens
0450: 69 6f 6e 2e 6f 22 29 29 0a 20 20 20 20 20 20 28 ion.o")). (
0460: 65 6c 73 65 0a 20 20 20 20 20 20 20 27 28 29 29 else. '())
0470: 29 0a 20 20 20 22 77 65 62 67 61 74 65 2e 73 6f ). "webgate.so
0480: 22 0a 20 20 20 22 61 74 2d 65 78 70 72 2e 73 6f ". "at-expr.so
0490: 22 0a 20 20 20 2c 40 28 63 6f 6e 64 2d 65 78 70 ". ,@(cond-exp
04a0: 61 6e 64 0a 20 20 20 20 20 20 28 65 6e 61 62 6c and. (enabl
04b0: 65 2d 73 74 61 74 69 63 0a 20 20 20 20 20 20 20 e-static.
04c0: 27 28 22 77 65 62 67 61 74 65 2e 6f 22 29 29 0a '("webgate.o")).
04d0: 20 20 20 20 20 20 28 65 6c 73 65 0a 20 20 20 20 (else.
04e0: 20 20 20 27 28 29 29 29 0a 20 20 20 22 77 65 62 '())). "web
04f0: 67 61 74 65 2e 69 6d 70 6f 72 74 2e 73 6f 22 0a gate.import.so".
0500: 20 20 20 22 77 65 62 67 61 74 65 2d 75 74 69 6c "webgate-util
0510: 73 2e 69 6d 70 6f 72 74 2e 73 6f 22 0a 20 20 20 s.import.so".
0520: 22 77 65 62 67 61 74 65 2d 63 6f 72 65 2e 69 6d "webgate-core.im
0530: 70 6f 72 74 2e 73 6f 22 0a 20 20 20 22 77 65 62 port.so". "web
0540: 67 61 74 65 2d 73 75 73 70 65 6e 64 2e 69 6d 70 gate-suspend.imp
0550: 6f 72 74 2e 73 6f 22 0a 20 20 20 22 77 65 62 67 ort.so". "webg
0560: 61 74 65 2d 63 67 69 2e 69 6d 70 6f 72 74 2e 73 ate-cgi.import.s
0570: 6f 22 0a 20 20 20 22 77 65 62 67 61 74 65 2d 73 o". "webgate-s
0580: 63 67 69 2e 69 6d 70 6f 72 74 2e 73 6f 22 0a 20 cgi.import.so".
0590: 20 20 2c 40 28 63 6f 6e 64 2d 65 78 70 61 6e 64 ,@(cond-expand
05a0: 0a 20 20 20 20 20 20 28 65 6e 61 62 6c 65 2d 73 . (enable-s
05b0: 6f 75 70 0a 20 20 20 20 20 20 20 27 28 22 77 65 oup. '("we
05c0: 62 67 61 74 65 2d 73 6f 75 70 2e 69 6d 70 6f 72 bgate-soup.impor
05d0: 74 2e 73 6f 22 29 29 0a 20 20 20 20 20 20 28 65 t.so")). (e
05e0: 6c 73 65 0a 20 20 20 20 20 20 20 27 28 29 29 29 lse. '()))
05f0: 29 0a 20 60 28 28 76 65 72 73 69 6f 6e 20 22 32 ). `((version "2
0600: 2e 30 2e 30 22 29 0a 20 20 20 2c 40 28 63 6f 6e .0.0"). ,@(con
0610: 64 2d 65 78 70 61 6e 64 0a 20 20 20 20 20 20 28 d-expand. (
0620: 65 6e 61 62 6c 65 2d 73 74 61 74 69 63 0a 20 20 enable-static.
0630: 20 20 20 20 20 27 28 28 73 74 61 74 69 63 20 22 '((static "
0640: 77 65 62 67 61 74 65 2e 6f 22 29 29 29 0a 20 20 webgate.o"))).
0650: 20 20 20 20 28 65 6c 73 65 0a 20 20 20 20 20 20 (else.
0660: 20 27 28 29 29 29 29 29 0a '())))).