Artifact
54bbd223c3360747a7a7e143c9bfea637ed4c39f:
0000: 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 32 30 30 ;; Copyright 200
0010: 37 2d 32 30 31 30 2c 20 4d 61 74 74 68 65 77 20 7-2010, Matthew
0020: 57 65 6c 6c 61 6e 64 2e 0a 3b 3b 0a 3b 3b 20 20 Welland..;;.;;
0030: 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 This program is
0040: 6d 61 64 65 20 61 76 61 69 6c 61 62 6c 65 20 75 made available u
0050: 6e 64 65 72 20 74 68 65 20 47 4e 55 20 47 50 4c nder the GNU GPL
0060: 20 76 65 72 73 69 6f 6e 20 32 2e 30 20 6f 72 0a version 2.0 or.
0070: 3b 3b 20 20 67 72 65 61 74 65 72 2e 20 53 65 65 ;; greater. See
0080: 20 74 68 65 20 61 63 63 6f 6d 70 61 6e 79 69 6e the accompanyin
0090: 67 20 66 69 6c 65 20 43 4f 50 59 49 4e 47 20 66 g file COPYING f
00a0: 6f 72 20 64 65 74 61 69 6c 73 2e 0a 3b 3b 0a 3b or details..;;.;
00b0: 3b 20 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 ; This program
00c0: 69 73 20 64 69 73 74 72 69 62 75 74 65 64 20 57 is distributed W
00d0: 49 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 ITHOUT ANY WARRA
00e0: 4e 54 59 3b 20 77 69 74 68 6f 75 74 20 65 76 65 NTY; without eve
00f0: 6e 20 74 68 65 0a 3b 3b 20 20 69 6d 70 6c 69 65 n the.;; implie
0100: 64 20 77 61 72 72 61 6e 74 79 20 6f 66 20 4d 45 d warranty of ME
0110: 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 RCHANTABILITY or
0120: 20 46 49 54 4e 6c 6d 45 53 53 20 46 4f 52 20 41 FITNlmESS FOR A
0130: 20 50 41 52 54 49 43 55 4c 41 52 0a 3b 3b 20 20 PARTICULAR.;;
0140: 50 55 52 50 4f 53 45 2e 0a 0a 3b 3b 3b 3b 20 6d PURPOSE...;;;; m
0150: 61 72 67 73 2e 73 65 74 75 70 0a 0a 3b 3b 20 63 args.setup..;; c
0160: 6f 6d 70 69 6c 65 20 74 68 65 20 63 6f 64 65 20 ompile the code
0170: 69 6e 74 6f 20 61 20 64 79 6e 61 6d 69 63 61 6c into a dynamical
0180: 6c 79 20 6c 6f 61 64 61 62 6c 65 20 73 68 61 72 ly loadable shar
0190: 65 64 20 6f 62 6a 65 63 74 0a 3b 3b 20 28 77 69 ed object.;; (wi
01a0: 6c 6c 20 67 65 6e 65 72 61 74 65 20 6d 61 72 67 ll generate marg
01b0: 73 2e 73 6f 29 0a 3b 3b 20 28 63 6f 6d 70 69 6c s.so).;; (compil
01c0: 65 20 2d 73 20 6d 61 72 67 73 2e 73 63 6d 29 0a e -s margs.scm).
01d0: 0a 3b 3b 20 49 6e 73 74 61 6c 6c 20 61 73 20 65 .;; Install as e
01e0: 78 74 65 6e 73 69 6f 6e 20 6c 69 62 72 61 72 79 xtension library
01f0: 0a 0a 3b 3b 20 68 61 6e 64 6c 65 20 63 6f 6f 6b ..;; handle cook
0200: 69 65 73 0a 28 73 74 61 6e 64 61 72 64 2d 65 78 ies.(standard-ex
0210: 74 65 6e 73 69 6f 6e 20 27 63 6f 6f 6b 69 65 20 tension 'cookie
0220: 20 20 20 20 20 20 22 30 2e 35 22 29 0a 3b 3b 20 "0.5").;;
0230: 28 73 74 61 6e 64 61 72 64 2d 65 78 74 65 6e 73 (standard-extens
0240: 69 6f 6e 20 27 73 74 6d 6c 63 6f 6d 6d 6f 6e 20 ion 'stmlcommon
0250: 20 20 22 30 2e 35 22 29 0a 28 73 74 61 6e 64 61 "0.5").(standa
0260: 72 64 2d 65 78 74 65 6e 73 69 6f 6e 20 27 73 74 rd-extension 'st
0270: 6d 6c 32 20 20 20 20 20 20 20 20 22 30 2e 35 22 ml2 "0.5"
0280: 29 0a 0a 3b 3b 20 28 73 74 61 6e 64 61 72 64 2d )..;; (standard-
0290: 65 78 74 65 6e 73 69 6f 6e 20 27 73 65 73 73 69 extension 'sessi
02a0: 6f 6e 20 20 20 20 20 20 22 30 2e 35 22 29 0a 3b on "0.5").;
02b0: 3b 20 28 73 74 61 6e 64 61 72 64 2d 65 78 74 65 ; (standard-exte
02c0: 6e 73 69 6f 6e 20 27 6d 69 73 63 2d 73 74 6d 6c nsion 'misc-stml
02d0: 20 20 20 20 22 30 2e 35 22 29 20 3b 3b 20 6d 6f "0.5") ;; mo
02e0: 76 65 64 20 74 6f 20 73 74 6d 6c 63 6f 6d 6d 6f ved to stmlcommo
02f0: 6e 2e 73 63 6d 0a 3b 3b 20 28 73 74 61 6e 64 61 n.scm.;; (standa
0300: 72 64 2d 65 78 74 65 6e 73 69 6f 6e 20 27 68 74 rd-extension 'ht
0310: 6d 6c 2d 66 69 6c 74 65 72 20 20 22 30 2e 35 22 ml-filter "0.5"
0320: 29 20 3b 3b 20 6d 6f 76 65 64 20 74 6f 20 73 74 ) ;; moved to st
0330: 6d 6c 63 6f 6d 6d 6f 6e 2e 73 63 6d 0a 3b 3b 20 mlcommon.scm.;;
0340: 28 73 74 61 6e 64 61 72 64 2d 65 78 74 65 6e 73 (standard-extens
0350: 69 6f 6e 20 27 66 6f 72 6d 64 61 74 20 20 20 20 ion 'formdat
0360: 20 20 22 30 2e 35 22 29 20 3b 3b 20 6d 6f 76 65 "0.5") ;; move
0370: 64 20 69 6e 74 6f 20 73 74 6d 6c 63 6f 6d 6d 6f d into stmlcommo
0380: 6e 2e 73 63 6d 0a 3b 3b 20 28 73 74 61 6e 64 61 n.scm.;; (standa
0390: 72 64 2d 65 78 74 65 6e 73 69 6f 6e 20 27 73 65 rd-extension 'se
03a0: 74 75 70 20 20 20 20 20 20 20 20 22 30 2e 35 22 tup "0.5"
03b0: 29 20 3b 3b 20 6d 6f 76 65 64 20 69 6e 74 6f 20 ) ;; moved into
03c0: 73 74 6d 6c 63 6f 6d 6d 6f 6e 2e 73 63 6d 0a 3b stmlcommon.scm.;
03d0: 3b 20 28 73 74 61 6e 64 61 72 64 2d 65 78 74 65 ; (standard-exte
03e0: 6e 73 69 6f 6e 20 27 6b 65 79 73 74 6f 72 65 20 nsion 'keystore
03f0: 20 20 20 20 22 30 2e 35 22 29 20 3b 3b 20 6d 6f "0.5") ;; mo
0400: 76 65 64 20 69 6e 74 6f 20 73 74 6d 6c 63 6f 6d ved into stmlcom
0410: 6d 6f 6e 2e 73 63 6d 0a 3b 3b 20 28 73 74 61 6e mon.scm.;; (stan
0420: 64 61 72 64 2d 65 78 74 65 6e 73 69 6f 6e 20 27 dard-extension '
0430: 73 71 6c 74 62 6c 20 20 20 20 20 20 20 22 30 2e sqltbl "0.
0440: 35 22 29 20 3b 3b 20 65 6c 69 6d 69 6e 61 74 65 5") ;; eliminate
0450: 64 0a 0a 3b 3b 20 28 69 6e 73 74 61 6c 6c 2d 65 d..;; (install-e
0460: 78 74 65 6e 73 69 6f 6e 20 27 73 74 6d 6c 20 22 xtension 'stml "
0470: 73 74 6d 6c 2e 73 6f 22 29 0a 0a stml.so")..