Artifact
59881055f94f261c14518f85babd3b7e9fa830f1
File
webgate.setup
— part of check-in
[72a7ba057e]
at
2015-05-04 09:15:36
on branch trunk
— Moved suspension module into separate compilation unit, isolating disabled interrupts
(user:
murphy
size: 1306)
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 6d 70 69 6c eme; -*-.(compil
0020: 65 20 2d 73 20 2d 4f 32 20 2d 64 31 20 22 73 75 e -s -O2 -d1 "su
0030: 73 70 65 6e 73 69 6f 6e 2e 73 63 6d 22 20 2d 4a spension.scm" -J
0040: 29 0a 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f ).(compile -s -O
0050: 32 20 2d 64 31 20 22 77 65 62 67 61 74 65 2e 73 2 -d1 "webgate.s
0060: 63 6d 22 20 2d 4a 29 0a 28 63 6f 6d 70 69 6c 65 cm" -J).(compile
0070: 20 2d 73 20 2d 4f 32 20 2d 64 31 20 22 61 74 2d -s -O2 -d1 "at-
0080: 65 78 70 72 2e 73 63 6d 22 29 0a 0a 28 63 6f 6e expr.scm")..(con
0090: 64 2d 65 78 70 61 6e 64 0a 20 28 65 6e 61 62 6c d-expand. (enabl
00a0: 65 2d 73 74 61 74 69 63 0a 20 20 28 63 6f 6d 70 e-static. (comp
00b0: 69 6c 65 20 2d 63 20 2d 4f 32 20 2d 64 31 20 22 ile -c -O2 -d1 "
00c0: 73 75 73 70 65 6e 73 69 6f 6e 2e 73 63 6d 22 0a suspension.scm".
00d0: 09 20 20 20 2d 75 6e 69 74 20 73 75 73 70 65 6e . -unit suspen
00e0: 73 69 6f 6e 29 0a 20 20 28 63 6f 6d 70 69 6c 65 sion). (compile
00f0: 20 2d 63 20 2d 4f 32 20 2d 64 31 20 22 77 65 62 -c -O2 -d1 "web
0100: 67 61 74 65 2e 73 63 6d 22 0a 09 20 20 20 2d 75 gate.scm".. -u
0110: 6e 69 74 20 77 65 62 67 61 74 65 29 29 0a 20 28 nit webgate)). (
0120: 65 6c 73 65 0a 20 20 29 29 0a 0a 28 63 6f 6d 70 else. ))..(comp
0130: 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 30 20 22 ile -s -O2 -d0 "
0140: 73 75 73 70 65 6e 73 69 6f 6e 2e 69 6d 70 6f 72 suspension.impor
0150: 74 2e 73 63 6d 22 29 0a 28 63 6f 6d 70 69 6c 65 t.scm").(compile
0160: 20 2d 73 20 2d 4f 32 20 2d 64 30 20 22 77 65 62 -s -O2 -d0 "web
0170: 67 61 74 65 2e 69 6d 70 6f 72 74 2e 73 63 6d 22 gate.import.scm"
0180: 29 0a 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f ).(compile -s -O
0190: 32 20 2d 64 30 20 22 77 65 62 67 61 74 65 2d 75 2 -d0 "webgate-u
01a0: 74 69 6c 73 2e 69 6d 70 6f 72 74 2e 73 63 6d 22 tils.import.scm"
01b0: 29 0a 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f ).(compile -s -O
01c0: 32 20 2d 64 30 20 22 77 65 62 67 61 74 65 2d 63 2 -d0 "webgate-c
01d0: 6f 72 65 2e 69 6d 70 6f 72 74 2e 73 63 6d 22 29 ore.import.scm")
01e0: 0a 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 .(compile -s -O2
01f0: 20 2d 64 30 20 22 77 65 62 67 61 74 65 2d 73 75 -d0 "webgate-su
0200: 73 70 65 6e 64 2e 69 6d 70 6f 72 74 2e 73 63 6d spend.import.scm
0210: 22 29 0a 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d ").(compile -s -
0220: 4f 32 20 2d 64 30 20 22 77 65 62 67 61 74 65 2d O2 -d0 "webgate-
0230: 63 67 69 2e 69 6d 70 6f 72 74 2e 73 63 6d 22 29 cgi.import.scm")
0240: 0a 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 .(compile -s -O2
0250: 20 2d 64 30 20 22 77 65 62 67 61 74 65 2d 73 63 -d0 "webgate-sc
0260: 67 69 2e 69 6d 70 6f 72 74 2e 73 63 6d 22 29 0a gi.import.scm").
0270: 28 63 6f 6e 64 2d 65 78 70 61 6e 64 0a 20 28 65 (cond-expand. (e
0280: 6e 61 62 6c 65 2d 73 6f 75 70 0a 20 20 28 63 6f nable-soup. (co
0290: 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 30 mpile -s -O2 -d0
02a0: 20 22 77 65 62 67 61 74 65 2d 73 6f 75 70 2e 69 "webgate-soup.i
02b0: 6d 70 6f 72 74 2e 73 63 6d 22 29 29 0a 20 28 65 mport.scm")). (e
02c0: 6c 73 65 0a 20 20 29 29 0a 0a 28 69 6e 73 74 61 lse. ))..(insta
02d0: 6c 6c 2d 65 78 74 65 6e 73 69 6f 6e 0a 20 27 77 ll-extension. 'w
02e0: 65 62 67 61 74 65 0a 20 60 28 22 73 75 73 70 65 ebgate. `("suspe
02f0: 6e 73 69 6f 6e 2e 73 6f 22 0a 20 20 20 22 77 65 nsion.so". "we
0300: 62 67 61 74 65 2e 73 6f 22 0a 20 20 20 22 61 74 bgate.so". "at
0310: 2d 65 78 70 72 2e 73 6f 22 0a 20 20 20 2c 40 28 -expr.so". ,@(
0320: 63 6f 6e 64 2d 65 78 70 61 6e 64 0a 20 20 20 20 cond-expand.
0330: 20 20 28 65 6e 61 62 6c 65 2d 73 74 61 74 69 63 (enable-static
0340: 0a 20 20 20 20 20 20 20 27 28 22 73 75 73 70 65 . '("suspe
0350: 6e 73 69 6f 6e 2e 6f 22 20 22 77 65 62 67 61 74 nsion.o" "webgat
0360: 65 2e 6f 22 29 29 0a 20 20 20 20 20 20 28 65 6c e.o")). (el
0370: 73 65 0a 20 20 20 20 20 20 20 27 28 29 29 29 0a se. '())).
0380: 20 20 20 22 73 75 73 70 65 6e 73 69 6f 6e 2e 69 "suspension.i
0390: 6d 70 6f 72 74 2e 73 6f 22 0a 20 20 20 22 77 65 mport.so". "we
03a0: 62 67 61 74 65 2e 69 6d 70 6f 72 74 2e 73 6f 22 bgate.import.so"
03b0: 0a 20 20 20 22 77 65 62 67 61 74 65 2d 75 74 69 . "webgate-uti
03c0: 6c 73 2e 69 6d 70 6f 72 74 2e 73 6f 22 0a 20 20 ls.import.so".
03d0: 20 22 77 65 62 67 61 74 65 2d 63 6f 72 65 2e 69 "webgate-core.i
03e0: 6d 70 6f 72 74 2e 73 6f 22 0a 20 20 20 22 77 65 mport.so". "we
03f0: 62 67 61 74 65 2d 73 75 73 70 65 6e 64 2e 69 6d bgate-suspend.im
0400: 70 6f 72 74 2e 73 6f 22 0a 20 20 20 22 77 65 62 port.so". "web
0410: 67 61 74 65 2d 63 67 69 2e 69 6d 70 6f 72 74 2e gate-cgi.import.
0420: 73 6f 22 0a 20 20 20 22 77 65 62 67 61 74 65 2d so". "webgate-
0430: 73 63 67 69 2e 69 6d 70 6f 72 74 2e 73 6f 22 0a scgi.import.so".
0440: 20 20 20 2c 40 28 63 6f 6e 64 2d 65 78 70 61 6e ,@(cond-expan
0450: 64 0a 20 20 20 20 20 20 28 65 6e 61 62 6c 65 2d d. (enable-
0460: 73 6f 75 70 0a 20 20 20 20 20 20 20 27 28 22 77 soup. '("w
0470: 65 62 67 61 74 65 2d 73 6f 75 70 2e 69 6d 70 6f ebgate-soup.impo
0480: 72 74 2e 73 6f 22 29 29 0a 20 20 20 20 20 20 28 rt.so")). (
0490: 65 6c 73 65 0a 20 20 20 20 20 20 20 27 28 29 29 else. '())
04a0: 29 29 0a 20 60 28 28 76 65 72 73 69 6f 6e 20 22 )). `((version "
04b0: 32 2e 30 2e 30 22 29 0a 20 20 20 2c 40 28 63 6f 2.0.0"). ,@(co
04c0: 6e 64 2d 65 78 70 61 6e 64 0a 20 20 20 20 20 20 nd-expand.
04d0: 28 65 6e 61 62 6c 65 2d 73 74 61 74 69 63 0a 20 (enable-static.
04e0: 20 20 20 20 20 20 27 28 28 73 74 61 74 69 63 20 '((static
04f0: 22 77 65 62 67 61 74 65 2e 6f 22 29 29 29 0a 20 "webgate.o"))).
0500: 20 20 20 20 20 28 65 6c 73 65 0a 20 20 20 20 20 (else.
0510: 20 20 27 28 29 29 29 29 29 0a '())))).