Artifact
b5282235db658ba9ed0785261c13784e4bf87f40:
0000: 3b 20 43 6f 70 79 72 69 67 68 74 20 32 30 30 36 ; Copyright 2006
0010: 2d 32 30 31 37 2c 20 4d 61 74 74 68 65 77 20 57 -2017, Matthew W
0020: 65 6c 6c 61 6e 64 2e 0a 3b 3b 20 0a 3b 3b 20 54 elland..;; .;; T
0030: 68 69 73 20 66 69 6c 65 20 69 73 20 70 61 72 74 his file is part
0040: 20 6f 66 20 4d 65 67 61 74 65 73 74 2e 0a 3b 3b of Megatest..;;
0050: 20 0a 3b 3b 20 20 20 20 20 4d 65 67 61 74 65 73 .;; Megates
0060: 74 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 t is free softwa
0070: 72 65 3a 20 79 6f 75 20 63 61 6e 20 72 65 64 69 re: you can redi
0080: 73 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f stribute it and/
0090: 6f 72 20 6d 6f 64 69 66 79 0a 3b 3b 20 20 20 20 or modify.;;
00a0: 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 it under the te
00b0: 72 6d 73 20 6f 66 20 74 68 65 20 47 4e 55 20 47 rms of the GNU G
00c0: 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 eneral Public Li
00d0: 63 65 6e 73 65 20 61 73 20 70 75 62 6c 69 73 68 cense as publish
00e0: 65 64 20 62 79 0a 3b 3b 20 20 20 20 20 74 68 65 ed by.;; the
00f0: 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 20 46 Free Software F
0100: 6f 75 6e 64 61 74 69 6f 6e 2c 20 65 69 74 68 65 oundation, eithe
0110: 72 20 76 65 72 73 69 6f 6e 20 33 20 6f 66 20 74 r version 3 of t
0120: 68 65 20 4c 69 63 65 6e 73 65 2c 20 6f 72 0a 3b he License, or.;
0130: 3b 20 20 20 20 20 28 61 74 20 79 6f 75 72 20 6f ; (at your o
0140: 70 74 69 6f 6e 29 20 61 6e 79 20 6c 61 74 65 72 ption) any later
0150: 20 76 65 72 73 69 6f 6e 2e 0a 3b 3b 20 0a 3b 3b version..;; .;;
0160: 20 20 20 20 20 4d 65 67 61 74 65 73 74 20 69 73 Megatest is
0170: 20 64 69 73 74 72 69 62 75 74 65 64 20 69 6e 20 distributed in
0180: 74 68 65 20 68 6f 70 65 20 74 68 61 74 20 69 74 the hope that it
0190: 20 77 69 6c 6c 20 62 65 20 75 73 65 66 75 6c 2c will be useful,
01a0: 0a 3b 3b 20 20 20 20 20 62 75 74 20 57 49 54 48 .;; but WITH
01b0: 4f 55 54 20 41 4e 59 20 57 41 52 52 41 4e 54 59 OUT ANY WARRANTY
01c0: 3b 20 77 69 74 68 6f 75 74 20 65 76 65 6e 20 74 ; without even t
01d0: 68 65 20 69 6d 70 6c 69 65 64 20 77 61 72 72 61 he implied warra
01e0: 6e 74 79 20 6f 66 0a 3b 3b 20 20 20 20 20 4d 45 nty of.;; ME
01f0: 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 RCHANTABILITY or
0200: 20 46 49 54 4e 45 53 53 20 46 4f 52 20 41 20 50 FITNESS FOR A P
0210: 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 ARTICULAR PURPOS
0220: 45 2e 20 20 53 65 65 20 74 68 65 0a 3b 3b 20 20 E. See the.;;
0230: 20 20 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 GNU General P
0240: 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 66 6f ublic License fo
0250: 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a r more details..
0260: 3b 3b 20 0a 3b 3b 20 20 20 20 20 59 6f 75 20 73 ;; .;; You s
0270: 68 6f 75 6c 64 20 68 61 76 65 20 72 65 63 65 69 hould have recei
0280: 76 65 64 20 61 20 63 6f 70 79 20 6f 66 20 74 68 ved a copy of th
0290: 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 e GNU General Pu
02a0: 62 6c 69 63 20 4c 69 63 65 6e 73 65 0a 3b 3b 20 blic License.;;
02b0: 20 20 20 20 61 6c 6f 6e 67 20 77 69 74 68 20 4d along with M
02c0: 65 67 61 74 65 73 74 2e 20 20 49 66 20 6e 6f 74 egatest. If not
02d0: 2c 20 73 65 65 20 3c 68 74 74 70 3a 2f 2f 77 77 , see <http://ww
02e0: 77 2e 67 6e 75 2e 6f 72 67 2f 6c 69 63 65 6e 73 w.gnu.org/licens
02f0: 65 73 2f 3e 2e 0a 3b 3b 0a 0a 3b 3b 20 28 69 6e es/>..;;..;; (in
0300: 63 6c 75 64 65 20 22 63 6f 6d 6d 6f 6e 2e 73 63 clude "common.sc
0310: 6d 22 29 0a 3b 3b 20 28 69 6e 63 6c 75 64 65 20 m").;; (include
0320: 22 6d 65 67 61 74 65 73 74 2d 76 65 72 73 69 6f "megatest-versio
0330: 6e 2e 73 63 6d 22 29 0a 0a 3b 3b 20 66 61 6b 65 n.scm")..;; fake
0340: 20 6f 75 74 20 72 65 61 64 6c 69 6e 65 20 75 73 out readline us
0350: 61 67 65 20 6f 66 20 74 6f 70 6c 65 76 65 6c 2d age of toplevel-
0360: 63 6f 6d 6d 61 6e 64 0a 28 64 65 66 69 6e 65 20 command.(define
0370: 28 74 6f 70 6c 65 76 65 6c 2d 63 6f 6d 6d 61 6e (toplevel-comman
0380: 64 20 2e 20 61 29 20 23 66 29 0a 0a 28 75 73 65 d . a) #f)..(use
0390: 20 73 72 66 69 2d 31 20 70 6f 73 69 78 20 73 72 srfi-1 posix sr
03a0: 66 69 2d 36 39 20 72 65 61 64 6c 69 6e 65 20 3b fi-69 readline ;
03b0: 3b 20 20 72 65 67 65 78 20 72 65 67 65 78 2d 63 ; regex regex-c
03c0: 61 73 65 20 73 72 66 69 2d 36 39 20 61 70 72 6f ase srfi-69 apro
03d0: 70 6f 73 20 6a 73 6f 6e 20 68 74 74 70 2d 63 6c pos json http-cl
03e0: 69 65 6e 74 20 64 69 72 65 63 74 6f 72 79 2d 75 ient directory-u
03f0: 74 69 6c 73 20 72 70 63 20 74 79 70 65 64 2d 72 tils rpc typed-r
0400: 65 63 6f 72 64 73 3b 3b 20 28 73 72 66 69 20 31 ecords;; (srfi 1
0410: 38 29 20 65 78 74 72 61 73 29 0a 20 20 20 73 72 8) extras). sr
0420: 66 69 2d 31 39 20 20 73 72 66 69 2d 31 38 20 65 fi-19 srfi-18 e
0430: 78 74 72 61 73 20 66 6f 72 6d 61 74 20 70 6b 74 xtras format pkt
0440: 73 20 72 65 67 65 78 20 72 65 67 65 78 2d 63 61 s regex regex-ca
0450: 73 65 0a 20 20 20 20 20 28 70 72 65 66 69 78 20 se. (prefix
0460: 64 62 69 20 64 62 69 3a 29 0a 20 20 20 20 20 29 dbi dbi:). )
0470: 0a 0a 3b 3b 20 28 64 65 63 6c 61 72 65 20 28 75 ..;; (declare (u
0480: 73 65 73 20 63 6f 6d 6d 6f 6e 29 29 0a 28 64 65 ses common)).(de
0490: 63 6c 61 72 65 20 28 75 73 65 73 20 6d 65 67 61 clare (uses mega
04a0: 74 65 73 74 2d 76 65 72 73 69 6f 6e 29 29 0a 28 test-version)).(
04b0: 64 65 63 6c 61 72 65 20 28 75 73 65 73 20 6d 61 declare (uses ma
04c0: 72 67 73 29 29 0a 3b 3b 20 28 64 65 63 6c 61 72 rgs)).;; (declar
04d0: 65 20 28 75 73 65 73 20 63 6f 6e 66 69 67 66 29 e (uses configf)
04e0: 29 0a 0a 28 64 65 63 6c 61 72 65 20 28 75 73 65 )..(declare (use
04f0: 73 20 6d 65 67 61 6d 6f 64 29 29 0a 28 69 6d 70 s megamod)).(imp
0500: 6f 72 74 20 6d 65 67 61 6d 6f 64 29 0a 0a 3b 3b ort megamod)..;;
0510: 20 28 64 65 63 6c 61 72 65 20 28 75 73 65 73 20 (declare (uses
0520: 72 6d 74 29 29 0a 0a 3b 3b 20 28 75 73 65 20 64 rmt))..;; (use d
0530: 75 63 74 74 61 70 65 2d 6c 69 62 29 0a 0a 28 69 ucttape-lib)..(i
0540: 6e 63 6c 75 64 65 20 22 6d 65 67 61 74 65 73 74 nclude "megatest
0550: 2d 66 6f 73 73 69 6c 2d 68 61 73 68 2e 73 63 6d -fossil-hash.scm
0560: 22 29 0a 0a 3b 3b 20 28 72 65 71 75 69 72 65 2d ")..;; (require-
0570: 6c 69 62 72 61 72 79 20 73 74 6d 6c 29 0a 0a 28 library stml)..(
0580: 64 65 66 69 6e 65 20 68 65 6c 70 20 28 63 6f 6e define help (con
0590: 63 20 22 0a 6d 74 75 74 69 6c 2c 20 70 61 72 74 c ".mtutil, part
05a0: 20 6f 66 20 74 68 65 20 4d 65 67 61 74 65 73 74 of the Megatest
05b0: 20 74 6f 6f 6c 20 73 75 69 74 65 2c 20 64 6f 63 tool suite, doc
05c0: 75 6d 65 6e 74 61 74 69 6f 6e 20 61 74 20 68 74 umentation at ht
05d0: 74 70 3a 2f 2f 77 77 77 2e 6b 69 61 74 6f 61 2e tp://www.kiatoa.
05e0: 63 6f 6d 2f 66 6f 73 73 69 6c 73 2f 6d 65 67 61 com/fossils/mega
05f0: 74 65 73 74 0a 20 20 76 65 72 73 69 6f 6e 20 22 test. version "
0600: 20 6d 65 67 61 74 65 73 74 2d 76 65 72 73 69 6f megatest-versio
0610: 6e 20 22 0a 20 20 6c 69 63 65 6e 73 65 20 47 50 n ". license GP
0620: 4c 2c 20 43 6f 70 79 72 69 67 68 74 20 4d 61 74 L, Copyright Mat
0630: 74 20 57 65 6c 6c 61 6e 64 20 32 30 30 36 2d 32 t Welland 2006-2
0640: 30 31 37 0a 0a 55 73 61 67 65 3a 20 6d 74 75 74 017..Usage: mtut
0650: 69 6c 20 61 63 74 69 6f 6e 20 5b 6f 70 74 69 6f il action [optio
0660: 6e 73 5d 0a 20 20 2d 68 20 20 20 20 20 20 20 20 ns]. -h
0670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0680: 20 3a 20 74 68 69 73 20 68 65 6c 70 0a 20 20 2d : this help. -
0690: 6d 61 6e 75 61 6c 20 20 20 20 20 20 20 20 20 20 manual
06a0: 20 20 20 20 20 20 20 20 20 20 3a 20 73 68 6f 77 : show
06b0: 20 74 68 65 20 4d 65 67 61 74 65 73 74 20 75 73 the Megatest us
06c0: 65 72 20 6d 61 6e 75 61 6c 0a 20 20 2d 76 65 72 er manual. -ver
06d0: 73 69 6f 6e 20 20 20 20 20 20 20 20 20 20 20 20 sion
06e0: 20 20 20 20 20 20 20 3a 20 70 72 69 6e 74 20 6d : print m
06f0: 65 67 61 74 65 73 74 20 76 65 72 73 69 6f 6e 20 egatest version
0700: 28 63 75 72 72 65 6e 74 6c 79 20 22 20 6d 65 67 (currently " meg
0710: 61 74 65 73 74 2d 76 65 72 73 69 6f 6e 20 22 29 atest-version ")
0720: 0a 09 09 09 20 20 20 20 20 0a 51 75 65 72 69 65 .... .Querie
0730: 73 3a 0a 20 20 20 73 68 6f 77 20 5b 61 72 65 61 s:. show [area
0740: 73 7c 63 6f 6e 74 6f 75 72 73 2e 2e 2e 20 5d 20 s|contours... ]
0750: 3a 20 73 68 6f 77 20 61 72 65 61 73 2c 20 63 6f : show areas, co
0760: 6e 74 6f 75 72 73 20 6f 72 20 6f 74 68 65 72 20 ntours or other
0770: 73 65 63 74 69 6f 6e 20 66 72 6f 6d 20 6d 65 67 section from meg
0780: 61 74 65 73 74 2e 63 6f 6e 66 69 67 0a 20 20 20 atest.config.
0790: 67 65 6e 64 6f 74 20 20 20 20 20 20 20 20 20 20 gendot
07a0: 20 20 20 20 20 20 20 20 20 20 3a 20 67 65 6e 65 : gene
07b0: 72 61 74 65 20 61 20 67 72 61 70 68 76 69 7a 20 rate a graphviz
07c0: 64 6f 74 20 66 69 6c 65 20 66 72 6f 6d 20 70 6b dot file from pk
07d0: 74 73 2e 0a 0a 43 6f 6e 74 6f 75 72 20 61 63 74 ts...Contour act
07e0: 69 6f 6e 73 3a 0a 20 20 20 70 72 6f 63 65 73 73 ions:. process
07f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0800: 20 20 20 3a 20 72 75 6e 73 20 69 6d 70 6f 72 74 : runs import
0810: 2c 20 72 75 6e 67 65 6e 20 61 6e 64 20 64 69 73 , rungen and dis
0820: 70 61 74 63 68 20 0a 09 09 09 20 20 20 20 20 0a patch .... .
0830: 54 72 69 67 67 65 72 20 70 72 6f 70 61 67 61 74 Trigger propagat
0840: 69 6f 6e 20 61 63 74 69 6f 6e 73 3a 0a 20 20 20 ion actions:.
0850: 74 73 65 6e 64 20 61 3d 62 2c 63 3d 64 2e 2e 2e tsend a=b,c=d...
0860: 20 20 20 20 20 20 20 20 20 20 3a 20 73 65 6e 64 : send
0870: 20 74 72 69 67 67 65 72 20 69 6e 66 6f 20 74 6f trigger info to
0880: 20 61 6c 6c 20 72 65 63 70 69 65 6e 74 73 20 69 all recpients i
0890: 6e 20 74 68 65 20 5b 6c 69 73 74 65 6e 65 72 73 n the [listeners
08a0: 5d 20 73 65 63 74 69 6f 6e 0a 20 20 20 74 6c 69 ] section. tli
08b0: 73 74 65 6e 20 2d 70 6f 72 74 20 4e 20 20 20 20 sten -port N
08c0: 20 20 20 20 20 20 20 3a 20 6c 69 73 74 65 6e 20 : listen
08d0: 66 6f 72 20 74 72 69 67 67 65 72 20 69 6e 66 6f for trigger info
08e0: 20 6f 6e 20 70 6f 72 74 20 4e 0a 0a 4d 69 73 63 on port N..Misc
08f0: 20 09 09 09 20 20 20 20 20 0a 20 20 2d 73 74 61 ... . -sta
0900: 72 74 2d 64 69 72 20 70 61 74 68 20 20 20 20 20 rt-dir path
0910: 20 20 20 20 20 20 20 3a 20 73 77 69 74 63 68 20 : switch
0920: 74 6f 20 74 68 69 73 20 64 69 72 65 63 74 6f 72 to this director
0930: 79 20 62 65 66 6f 72 65 20 72 75 6e 6e 69 6e 67 y before running
0940: 20 6d 74 75 74 69 6c 0a 20 20 2d 73 65 74 2d 76 mtutil. -set-v
0950: 61 72 73 20 56 31 3d 31 2c 56 32 3d 32 20 20 20 ars V1=1,V2=2
0960: 20 20 20 20 20 3a 20 41 64 64 20 65 6e 76 69 72 : Add envir
0970: 6f 6e 6d 65 6e 74 20 76 61 72 69 61 62 6c 65 73 onment variables
0980: 20 74 6f 20 61 20 72 75 6e 20 4e 42 2f 2f 20 74 to a run NB// t
0990: 68 65 73 65 20 61 72 65 0a 20 20 20 20 20 20 20 hese are.
09a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
09b0: 20 20 20 20 20 20 20 20 20 20 20 20 6f 76 65 72 over
09c0: 77 72 69 74 74 65 6e 20 62 79 20 76 61 6c 75 65 written by value
09d0: 73 20 73 65 74 20 69 6e 20 63 6f 6e 66 69 67 20 s set in config
09e0: 66 69 6c 65 73 2e 0a 20 20 2d 6c 6f 67 20 6c 6f files.. -log lo
09f0: 67 66 69 6c 65 20 20 20 20 20 20 20 20 20 20 20 gfile
0a00: 20 20 20 20 3a 20 73 65 6e 64 20 73 74 64 6f 75 : send stdou
0a10: 74 20 61 6e 64 20 73 74 64 65 72 72 20 74 6f 20 t and stderr to
0a20: 6c 6f 67 66 69 6c 65 0a 20 20 2d 72 65 70 6c 20 logfile. -repl
0a30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0a40: 20 20 20 20 20 3a 20 73 74 61 72 74 20 61 20 72 : start a r
0a50: 65 70 6c 20 28 75 73 65 66 75 6c 20 66 6f 72 20 epl (useful for
0a60: 65 78 74 65 6e 64 69 6e 67 20 6d 65 67 61 74 65 extending megate
0a70: 73 74 29 0a 20 20 2d 6c 6f 61 64 20 66 69 6c 65 st). -load file
0a80: 2e 73 63 6d 20 20 20 20 20 20 20 20 20 20 20 20 .scm
0a90: 20 3a 20 6c 6f 61 64 20 61 6e 64 20 72 75 6e 20 : load and run
0aa0: 66 69 6c 65 2e 73 63 6d 0a 20 20 2d 64 65 62 75 file.scm. -debu
0ab0: 67 20 4e 7c 4e 2c 4d 2c 4f 2e 2e 2e 20 20 20 20 g N|N,M,O...
0ac0: 20 20 20 20 20 20 3a 20 65 6e 61 62 6c 65 20 64 : enable d
0ad0: 65 62 75 67 20 6d 65 73 73 61 67 65 73 20 30 2d ebug messages 0-
0ae0: 4e 20 6f 72 20 4e 20 61 6e 64 20 4d 20 61 6e 64 N or N and M and
0af0: 20 4f 20 2e 2e 2e 0a 20 20 2d 6c 69 73 74 2d 70 O .... -list-p
0b00: 6b 74 2d 6b 65 79 73 20 20 20 20 20 20 20 20 20 kt-keys
0b10: 20 20 20 20 3a 20 6c 69 73 74 20 61 6c 6c 20 70 : list all p
0b20: 6b 74 20 6b 65 79 73 0a 0a 45 78 61 6d 70 6c 65 kt keys..Example
0b30: 73 3a 0a 0a 23 20 53 74 61 72 74 20 61 20 6d 65 s:..# Start a me
0b40: 67 61 74 65 73 74 20 72 75 6e 20 69 6e 20 74 68 gatest run in th
0b50: 65 20 61 72 65 61 20 5c 22 6d 79 74 65 73 74 73 e area \"mytests
0b60: 5c 22 0a 6d 74 75 74 69 6c 20 72 75 6e 20 2d 61 \".mtutil run -a
0b70: 72 65 61 20 6d 79 74 65 73 74 73 20 2d 74 61 72 rea mytests -tar
0b80: 67 65 74 20 76 31 2e 36 33 2f 61 61 33 65 20 2d get v1.63/aa3e -
0b90: 6d 6f 64 65 2d 70 61 74 74 20 4d 59 50 41 54 54 mode-patt MYPATT
0ba0: 20 2d 74 61 67 2d 65 78 70 72 20 71 75 69 63 6b -tag-expr quick
0bb0: 0a 0a 23 20 53 74 61 72 74 20 61 20 63 6f 6e 74 ..# Start a cont
0bc0: 6f 75 72 0a 6d 74 75 74 69 6c 20 72 75 6e 20 2d our.mtutil run -
0bd0: 63 6f 6e 74 6f 75 72 20 71 75 69 63 6b 20 2d 74 contour quick -t
0be0: 61 72 67 65 74 20 76 31 2e 36 33 2f 61 61 33 65 arget v1.63/aa3e
0bf0: 20 0a 0a 43 61 6c 6c 65 64 20 61 73 20 22 20 28 ..Called as " (
0c00: 73 74 72 69 6e 67 2d 69 6e 74 65 72 73 70 65 72 string-intersper
0c10: 73 65 20 28 61 72 67 76 29 20 22 20 22 29 20 22 se (argv) " ") "
0c20: 0a 56 65 72 73 69 6f 6e 20 22 20 6d 65 67 61 74 .Version " megat
0c30: 65 73 74 2d 76 65 72 73 69 6f 6e 20 22 2c 20 62 est-version ", b
0c40: 75 69 6c 74 20 66 72 6f 6d 20 22 20 6d 65 67 61 uilt from " mega
0c50: 74 65 73 74 2d 66 6f 73 73 69 6c 2d 68 61 73 68 test-fossil-hash
0c60: 20 29 29 0a 20 20 3b 3b 20 66 69 72 73 74 20 74 )). ;; first t
0c70: 6f 6b 65 6e 20 69 73 20 6f 75 72 20 61 63 74 69 oken is our acti
0c80: 6f 6e 2c 20 62 75 74 20 6f 6e 6c 79 20 69 66 20 on, but only if
0c90: 6e 6f 20 6c 65 61 64 69 6e 67 20 64 61 73 68 0a no leading dash.
0ca0: 0a 28 64 65 66 69 6e 65 20 2a 61 63 74 69 6f 6e .(define *action
0cb0: 2a 20 28 69 66 20 28 61 6e 64 20 28 3e 20 28 6c * (if (and (> (l
0cc0: 65 6e 67 74 68 20 28 61 72 67 76 29 29 20 31 29 ength (argv)) 1)
0cd0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0ce0: 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 (not
0cf0: 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5e (string-match "^
0d00: 5c 5c 2d 2e 2a 22 20 28 63 61 64 72 20 28 61 72 \\-.*" (cadr (ar
0d10: 67 76 29 29 29 29 29 0a 09 09 20 20 20 20 20 28 gv)))))... (
0d20: 63 61 64 72 20 28 61 72 67 76 29 29 0a 09 09 20 cadr (argv))...
0d30: 20 20 20 20 23 66 29 29 0a 0a 28 64 65 66 69 6e #f))..(defin
0d40: 65 20 2a 72 65 6d 61 72 67 73 2a 0a 20 20 28 61 e *remargs*. (a
0d50: 72 67 73 3a 67 65 74 2d 61 72 67 73 0a 20 28 69 rgs:get-args. (i
0d60: 66 20 2a 61 63 74 69 6f 6e 2a 20 28 63 64 72 20 f *action* (cdr
0d70: 28 61 72 67 76 29 29 20 28 61 72 67 76 29 29 0a (argv)) (argv)).
0d80: 20 27 28 22 2d 6c 6f 67 22 29 0a 20 27 28 22 2d '("-log"). '("-
0d90: 68 22 29 0a 20 61 72 67 73 3a 61 72 67 2d 68 61 h"). args:arg-ha
0da0: 73 68 0a 20 30 29 29 0a 0a 28 69 66 20 28 61 72 sh. 0))..(if (ar
0db0: 67 73 3a 67 65 74 2d 61 72 67 20 22 2d 68 22 29 gs:get-arg "-h")
0dc0: 0a 20 20 20 20 28 62 65 67 69 6e 0a 20 20 20 20 . (begin.
0dd0: 20 20 28 70 72 69 6e 74 20 68 65 6c 70 29 0a 20 (print help).
0de0: 20 20 20 20 20 28 65 78 69 74 29 29 29 0a 0a 28 (exit)))..(
0df0: 69 66 20 28 6f 72 20 28 61 72 67 73 3a 67 65 74 if (or (args:get
0e00: 2d 61 72 67 20 22 2d 72 65 70 6c 22 29 0a 09 28 -arg "-repl")..(
0e10: 61 72 67 73 3a 67 65 74 2d 61 72 67 20 22 2d 6c args:get-arg "-l
0e20: 6f 61 64 22 29 29 0a 20 20 20 20 28 62 65 67 69 oad")). (begi
0e30: 6e 0a 20 20 20 20 20 20 28 69 6d 70 6f 72 74 20 n. (import
0e40: 65 78 74 72 61 73 29 20 3b 3b 20 6d 69 67 68 74 extras) ;; might
0e50: 20 6e 6f 74 20 62 65 20 6e 65 65 64 65 64 0a 20 not be needed.
0e60: 20 20 20 20 20 3b 3b 20 28 69 6d 70 6f 72 74 20 ;; (import
0e70: 63 73 69 29 0a 20 20 20 20 20 20 28 69 6d 70 6f csi). (impo
0e80: 72 74 20 72 65 61 64 6c 69 6e 65 29 0a 20 20 20 rt readline).
0e90: 20 20 20 28 69 6d 70 6f 72 74 20 61 70 72 6f 70 (import aprop
0ea0: 6f 73 29 0a 20 20 20 20 20 20 3b 3b 20 28 69 6d os). ;; (im
0eb0: 70 6f 72 74 20 28 70 72 65 66 69 78 20 73 71 6c port (prefix sql
0ec0: 69 74 65 33 20 73 71 6c 69 74 65 33 3a 29 29 20 ite3 sqlite3:))
0ed0: 3b 3b 20 64 6f 65 73 6e 27 74 20 77 6f 72 6b 20 ;; doesn't work
0ee0: 2e 2e 2e 0a 20 20 20 20 20 20 0a 20 20 20 20 20 .... .
0ef0: 20 28 69 6e 73 74 61 6c 6c 2d 68 69 73 74 6f 72 (install-histor
0f00: 79 2d 66 69 6c 65 20 28 67 65 74 2d 65 6e 76 69 y-file (get-envi
0f10: 72 6f 6e 6d 65 6e 74 2d 76 61 72 69 61 62 6c 65 ronment-variable
0f20: 20 22 48 4f 4d 45 22 29 20 22 2e 6d 74 75 74 69 "HOME") ".mtuti
0f30: 6c 5f 68 69 73 74 6f 72 79 22 29 20 3b 3b 20 20 l_history") ;;
0f40: 5b 68 6f 6d 65 64 69 72 5d 20 5b 66 69 6c 65 6e [homedir] [filen
0f50: 61 6d 65 5d 20 5b 6e 6c 69 6e 65 73 5d 29 0a 20 ame] [nlines]).
0f60: 20 20 20 20 20 28 63 75 72 72 65 6e 74 2d 69 6e (current-in
0f70: 70 75 74 2d 70 6f 72 74 20 28 6d 61 6b 65 2d 72 put-port (make-r
0f80: 65 61 64 6c 69 6e 65 2d 70 6f 72 74 20 22 6d 74 eadline-port "mt
0f90: 75 74 69 6c 3e 20 22 29 29 0a 20 20 20 20 20 20 util> ")).
0fa0: 28 69 66 20 28 61 72 67 73 3a 67 65 74 2d 61 72 (if (args:get-ar
0fb0: 67 20 22 2d 72 65 70 6c 22 29 0a 09 20 20 28 72 g "-repl").. (r
0fc0: 65 70 6c 29 0a 09 20 20 28 6c 6f 61 64 20 28 61 epl).. (load (a
0fd0: 72 67 73 3a 67 65 74 2d 61 72 67 20 22 2d 6c 6f rgs:get-arg "-lo
0fe0: 61 64 22 29 29 29 29 29 0a 0a 23 7c 0a 28 64 65 ad")))))..#|.(de
0ff0: 66 69 6e 65 20 6d 74 63 6f 6e 66 20 28 63 61 72 fine mtconf (car
1000: 20 28 73 69 6d 70 6c 65 2d 73 65 74 75 70 20 23 (simple-setup #
1010: 66 29 29 29 0a 28 64 65 66 69 6e 65 20 64 61 74 f))).(define dat
1020: 20 28 63 6f 6d 6d 6f 6e 3a 77 69 74 68 2d 71 75 (common:with-qu
1030: 65 75 65 2d 64 62 20 6d 74 63 6f 6e 66 20 28 6c eue-db mtconf (l
1040: 61 6d 62 64 61 20 28 63 6f 6e 6e 29 28 67 65 74 ambda (conn)(get
1050: 2d 70 6b 74 73 20 63 6f 6e 6e 20 27 28 29 29 29 -pkts conn '()))
1060: 29 29 0a 28 70 70 20 28 70 6b 74 73 23 66 6c 61 )).(pp (pkts#fla
1070: 74 74 65 6e 2d 61 6c 6c 20 64 61 74 20 27 28 28 tten-all dat '((
1080: 63 6d 64 20 2e 20 28 28 70 61 72 65 6e 74 20 2e cmd . ((parent .
1090: 20 50 29 28 75 72 6c 20 2e 20 4d 29 29 29 28 72 P)(url . M)))(r
10a0: 75 6e 74 79 70 65 20 2e 20 28 28 70 61 72 65 6e untype . ((paren
10b0: 74 20 2e 20 50 29 29 29 29 20 27 69 64 20 27 67 t . P)))) 'id 'g
10c0: 72 6f 75 70 2d 69 64 20 27 75 75 69 64 20 27 70 roup-id 'uuid 'p
10d0: 61 72 65 6e 74 20 27 70 6b 74 2d 74 79 70 65 20 arent 'pkt-type
10e0: 27 70 6b 74 20 27 70 72 6f 63 65 73 73 65 64 29 'pkt 'processed)
10f0: 29 0a 7c 23 0a ).|#.