Artifact
b0f23bc746801d06ce921c978dd37a1b3f53ccf1:
0000: 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 32 30 30 ;; Copyright 200
0010: 37 2d 32 30 30 38 2c 20 4d 61 74 74 68 65 77 20 7-2008, Matthew
0020: 57 65 6c 6c 61 6e 64 2e 20 6d 61 74 74 40 6b 69 Welland. matt@ki
0030: 61 74 6f 61 2e 63 6f 6d 20 41 6c 6c 20 72 69 67 atoa.com All rig
0040: 68 74 73 20 72 65 73 65 72 76 65 64 2e 0a 3b 3b hts reserved..;;
0050: 20 0a 3b 3b 20 6d 61 69 6e 74 2f 63 6f 6e 74 72 .;; maint/contr
0060: 6f 6c 2e 73 63 6d 0a 3b 3b 0a 28 73 3a 6c 6f 61 ol.scm.;;.(s:loa
0070: 64 2d 6d 6f 64 65 6c 20 22 6d 61 69 6e 74 22 29 d-model "maint")
0080: 0a 0a 3b 3b 20 72 65 6d 65 6d 62 65 72 20 74 68 ..;; remember th
0090: 61 74 20 74 68 65 20 73 79 73 74 65 6d 20 77 69 at the system wi
00a0: 6c 6c 20 63 61 6c 6c 20 74 68 65 20 66 75 6e 63 ll call the func
00b0: 74 69 6f 6e 20 3c 70 61 67 65 6e 61 6d 65 3e 2d tion <pagename>-
00c0: 61 63 74 69 6f 6e 20 77 69 74 68 20 74 68 65 20 action with the
00d0: 61 63 74 69 6f 6e 20 61 73 20 61 20 70 61 72 61 action as a para
00e0: 6d 65 74 65 72 0a 28 64 65 66 69 6e 65 20 28 6d meter.(define (m
00f0: 61 69 6e 74 2d 61 63 74 69 6f 6e 20 61 63 74 69 aint-action acti
0100: 6f 6e 29 0a 20 20 28 6c 65 74 20 28 28 61 73 79 on). (let ((asy
0110: 6d 20 28 73 74 72 69 6e 67 2d 3e 73 79 6d 62 6f m (string->symbo
0120: 6c 20 61 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 l action))).
0130: 28 73 3a 6c 6f 67 20 22 44 6f 69 6e 67 20 61 63 (s:log "Doing ac
0140: 74 69 6f 6e 21 20 22 20 61 63 74 69 6f 6e 29 0a tion! " action).
0150: 20 20 20 20 28 63 61 73 65 20 61 73 79 6d 0a 20 (case asym.
0160: 20 20 20 20 20 28 27 75 70 64 61 74 65 5f 74 61 ('update_ta
0170: 62 6c 65 73 0a 20 20 20 20 20 20 20 28 6d 61 69 bles. (mai
0180: 6e 74 3a 75 70 64 61 74 65 2d 74 61 62 6c 65 73 nt:update-tables
0190: 29 29 29 29 29 0a ))))).