Artifact
24924c0cdac0652386738b7b283b4fcce8282a18:
0000: 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ;;==============
0010: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0020: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0030: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0040: 3d 3d 3d 3d 3d 3d 3d 3d 0a 3b 3b 20 43 6f 70 79 ========.;; Copy
0050: 72 69 67 68 74 20 32 30 30 36 2d 32 30 31 33 2c right 2006-2013,
0060: 20 4d 61 74 74 68 65 77 20 57 65 6c 6c 61 6e 64 Matthew Welland
0070: 2e 0a 3b 3b 20 0a 3b 3b 20 20 54 68 69 73 20 70 ..;; .;; This p
0080: 72 6f 67 72 61 6d 20 69 73 20 6d 61 64 65 20 61 rogram is made a
0090: 76 61 69 6c 61 62 6c 65 20 75 6e 64 65 72 20 74 vailable under t
00a0: 68 65 20 47 4e 55 20 47 50 4c 20 76 65 72 73 69 he GNU GPL versi
00b0: 6f 6e 20 32 2e 30 20 6f 72 0a 3b 3b 20 20 67 72 on 2.0 or.;; gr
00c0: 65 61 74 65 72 2e 20 53 65 65 20 74 68 65 20 61 eater. See the a
00d0: 63 63 6f 6d 70 61 6e 79 69 6e 67 20 66 69 6c 65 ccompanying file
00e0: 20 43 4f 50 59 49 4e 47 20 66 6f 72 20 64 65 74 COPYING for det
00f0: 61 69 6c 73 2e 0a 3b 3b 20 0a 3b 3b 20 20 54 68 ails..;; .;; Th
0100: 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69 is program is di
0110: 73 74 72 69 62 75 74 65 64 20 57 49 54 48 4f 55 stributed WITHOU
0120: 54 20 41 4e 59 20 57 41 52 52 41 4e 54 59 3b 20 T ANY WARRANTY;
0130: 77 69 74 68 6f 75 74 20 65 76 65 6e 20 74 68 65 without even the
0140: 0a 3b 3b 20 20 69 6d 70 6c 69 65 64 20 77 61 72 .;; implied war
0150: 72 61 6e 74 79 20 6f 66 20 4d 45 52 43 48 41 4e ranty of MERCHAN
0160: 54 41 42 49 4c 49 54 59 20 6f 72 20 46 49 54 4e TABILITY or FITN
0170: 45 53 53 20 46 4f 52 20 41 20 50 41 52 54 49 43 ESS FOR A PARTIC
0180: 55 4c 41 52 0a 3b 3b 20 20 50 55 52 50 4f 53 45 ULAR.;; PURPOSE
0190: 2e 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ..;;============
01a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
01b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
01c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
01d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 28 75 73 65 ==========..(use
01e0: 20 66 6f 72 6d 61 74 20 6e 75 6d 62 65 72 73 29 format numbers)
01f0: 0a 28 72 65 71 75 69 72 65 2d 6c 69 62 72 61 72 .(require-librar
0200: 79 20 69 75 70 29 0a 28 69 6d 70 6f 72 74 20 28 y iup).(import (
0210: 70 72 65 66 69 78 20 69 75 70 20 69 75 70 3a 29 prefix iup iup:)
0220: 29 0a 28 75 73 65 20 63 61 6e 76 61 73 2d 64 72 ).(use canvas-dr
0230: 61 77 29 0a 0a 28 75 73 65 20 73 71 6c 69 74 65 aw)..(use sqlite
0240: 33 20 73 72 66 69 2d 31 20 70 6f 73 69 78 20 72 3 srfi-1 posix r
0250: 65 67 65 78 20 72 65 67 65 78 2d 63 61 73 65 20 egex regex-case
0260: 73 72 66 69 2d 36 39 29 0a 28 69 6d 70 6f 72 74 srfi-69).(import
0270: 20 28 70 72 65 66 69 78 20 73 71 6c 69 74 65 33 (prefix sqlite3
0280: 20 73 71 6c 69 74 65 33 3a 29 29 0a 0a 28 64 65 sqlite3:))..(de
0290: 63 6c 61 72 65 20 28 75 73 65 73 20 6d 61 72 67 clare (uses marg
02a0: 73 29 29 0a 28 64 65 63 6c 61 72 65 20 28 75 73 s)).(declare (us
02b0: 65 73 20 6c 61 75 6e 63 68 29 29 0a 28 64 65 63 es launch)).(dec
02c0: 6c 61 72 65 20 28 75 73 65 73 20 6d 65 67 61 74 lare (uses megat
02d0: 65 73 74 2d 76 65 72 73 69 6f 6e 29 29 0a 28 64 est-version)).(d
02e0: 65 63 6c 61 72 65 20 28 75 73 65 73 20 67 75 74 eclare (uses gut
02f0: 69 6c 73 29 29 0a 28 64 65 63 6c 61 72 65 20 28 ils)).(declare (
0300: 75 73 65 73 20 64 62 29 29 0a 28 64 65 63 6c 61 uses db)).(decla
0310: 72 65 20 28 75 73 65 73 20 73 65 72 76 65 72 29 re (uses server)
0320: 29 0a 28 64 65 63 6c 61 72 65 20 28 75 73 65 73 ).(declare (uses
0330: 20 73 79 6e 63 68 61 73 68 29 29 0a 28 64 65 63 synchash)).(dec
0340: 6c 61 72 65 20 28 75 73 65 73 20 64 63 6f 6d 6d lare (uses dcomm
0350: 6f 6e 29 29 0a 28 64 65 63 6c 61 72 65 20 28 75 on)).(declare (u
0360: 73 65 73 20 74 72 65 65 29 29 0a 0a 28 69 6e 63 ses tree))..(inc
0370: 6c 75 64 65 20 22 63 6f 6d 6d 6f 6e 5f 72 65 63 lude "common_rec
0380: 6f 72 64 73 2e 73 63 6d 22 29 0a 28 69 6e 63 6c ords.scm").(incl
0390: 75 64 65 20 22 64 62 5f 72 65 63 6f 72 64 73 2e ude "db_records.
03a0: 73 63 6d 22 29 0a 28 69 6e 63 6c 75 64 65 20 22 scm").(include "
03b0: 6b 65 79 5f 72 65 63 6f 72 64 73 2e 73 63 6d 22 key_records.scm"
03c0: 29 0a 0a 28 64 65 66 69 6e 65 20 68 65 6c 70 20 )..(define help
03d0: 28 63 6f 6e 63 20 0a 22 4d 65 67 61 74 65 73 74 (conc ."Megatest
03e0: 20 44 61 73 68 62 6f 61 72 64 2c 20 64 6f 63 75 Dashboard, docu
03f0: 6d 65 6e 74 61 74 69 6f 6e 20 61 74 20 68 74 74 mentation at htt
0400: 70 3a 2f 2f 77 77 77 2e 6b 69 61 74 6f 61 2e 63 p://www.kiatoa.c
0410: 6f 6d 2f 66 6f 73 73 69 6c 73 2f 6d 65 67 61 74 om/fossils/megat
0420: 65 73 74 0a 20 20 76 65 72 73 69 6f 6e 20 22 20 est. version "
0430: 6d 65 67 61 74 65 73 74 2d 76 65 72 73 69 6f 6e megatest-version
0440: 20 22 0a 20 20 6c 69 63 65 6e 73 65 20 47 50 4c ". license GPL
0450: 2c 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 , Copyright (C)
0460: 4d 61 74 74 20 57 65 6c 6c 61 6e 64 20 32 30 31 Matt Welland 201
0470: 31 0a 0a 55 73 61 67 65 3a 20 64 61 73 68 62 6f 1..Usage: dashbo
0480: 61 72 64 20 5b 6f 70 74 69 6f 6e 73 5d 0a 20 20 ard [options].
0490: 2d 68 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -h
04a0: 20 20 3a 20 74 68 69 73 20 68 65 6c 70 0a 20 20 : this help.
04b0: 2d 73 65 72 76 65 72 20 68 6f 73 74 3a 70 6f 72 -server host:por
04c0: 74 20 3a 20 63 6f 6e 6e 65 63 74 20 74 6f 20 68 t : connect to h
04d0: 6f 73 74 3a 70 6f 72 74 20 69 6e 73 74 65 61 64 ost:port instead
04e0: 20 6f 66 20 64 62 20 61 63 63 65 73 73 0a 20 20 of db access.
04f0: 2d 74 65 73 74 20 74 65 73 74 69 64 20 20 20 20 -test testid
0500: 20 20 3a 20 63 6f 6e 74 72 6f 6c 20 74 65 73 74 : control test
0510: 20 69 64 65 6e 74 69 66 69 65 64 20 62 79 20 74 identified by t
0520: 65 73 74 69 64 0a 20 20 2d 67 75 69 6d 6f 6e 69 estid. -guimoni
0530: 74 6f 72 20 20 20 20 20 20 20 3a 20 63 6f 6e 74 tor : cont
0540: 72 6f 6c 20 70 61 6e 65 6c 20 66 6f 72 20 72 75 rol panel for ru
0550: 6e 73 0a 0a 4d 69 73 63 0a 20 20 2d 72 6f 77 73 ns..Misc. -rows
0560: 20 4e 20 20 20 20 20 20 20 20 20 3a 20 73 65 74 N : set
0570: 20 6e 75 6d 62 65 72 20 6f 66 20 72 6f 77 73 0a number of rows.
0580: 22 29 29 0a 0a 3b 3b 20 70 72 6f 63 65 73 73 20 "))..;; process
0590: 61 72 67 73 0a 28 64 65 66 69 6e 65 20 72 65 6d args.(define rem
05a0: 61 72 67 73 20 28 61 72 67 73 3a 67 65 74 2d 61 args (args:get-a
05b0: 72 67 73 20 0a 09 09 20 28 61 72 67 76 29 0a 09 rgs ... (argv)..
05c0: 09 20 28 6c 69 73 74 20 20 22 2d 72 6f 77 73 22 . (list "-rows"
05d0: 0a 09 09 09 22 2d 72 75 6e 22 0a 09 09 09 22 2d ...."-run"...."-
05e0: 74 65 73 74 22 0a 09 09 09 22 2d 64 65 62 75 67 test"...."-debug
05f0: 22 0a 09 09 09 22 2d 68 6f 73 74 22 20 0a 09 09 "...."-host" ...
0600: 09 29 20 0a 09 09 20 28 6c 69 73 74 20 20 22 2d .) ... (list "-
0610: 68 22 0a 09 09 09 22 2d 67 75 69 6d 6f 6e 69 74 h"...."-guimonit
0620: 6f 72 22 0a 09 09 09 22 2d 6d 61 69 6e 22 0a 09 or"...."-main"..
0630: 09 09 22 2d 76 22 0a 09 09 09 22 2d 71 22 0a 09 .."-v"...."-q"..
0640: 09 20 20 20 20 20 20 20 29 0a 09 09 20 61 72 67 . )... arg
0650: 73 3a 61 72 67 2d 68 61 73 68 0a 09 09 20 30 29 s:arg-hash... 0)
0660: 29 0a 0a 28 69 66 20 28 61 72 67 73 3a 67 65 74 )..(if (args:get
0670: 2d 61 72 67 20 22 2d 68 22 29 0a 20 20 20 20 28 -arg "-h"). (
0680: 62 65 67 69 6e 0a 20 20 20 20 20 20 28 70 72 69 begin. (pri
0690: 6e 74 20 68 65 6c 70 29 0a 20 20 20 20 20 20 28 nt help). (
06a0: 65 78 69 74 29 29 29 0a 0a 28 69 66 20 28 6e 6f exit)))..(if (no
06b0: 74 20 28 6c 61 75 6e 63 68 3a 73 65 74 75 70 2d t (launch:setup-
06c0: 66 6f 72 2d 72 75 6e 29 29 0a 20 20 20 20 28 62 for-run)). (b
06d0: 65 67 69 6e 0a 20 20 20 20 20 20 28 70 72 69 6e egin. (prin
06e0: 74 20 22 46 61 69 6c 65 64 20 74 6f 20 66 69 6e t "Failed to fin
06f0: 64 20 6d 65 67 61 74 65 73 74 2e 63 6f 6e 66 69 d megatest.confi
0700: 67 2c 20 65 78 69 74 69 6e 67 22 29 20 0a 20 20 g, exiting") .
0710: 20 20 20 20 28 65 78 69 74 20 31 29 29 29 0a 0a (exit 1)))..
0720: 3b 3b 20 28 69 66 20 28 61 72 67 73 3a 67 65 74 ;; (if (args:get
0730: 2d 61 72 67 20 22 2d 68 6f 73 74 22 29 0a 3b 3b -arg "-host").;;
0740: 20 20 20 20 20 28 62 65 67 69 6e 0a 3b 3b 20 20 (begin.;;
0750: 20 20 20 20 20 28 73 65 74 21 20 2a 72 75 6e 72 (set! *runr
0760: 65 6d 6f 74 65 2a 20 28 73 74 72 69 6e 67 2d 73 emote* (string-s
0770: 70 6c 69 74 20 28 61 72 67 73 3a 67 65 74 2d 61 plit (args:get-a
0780: 72 67 20 22 2d 68 6f 73 74 22 20 22 3a 22 29 29 rg "-host" ":"))
0790: 29 0a 3b 3b 20 20 20 20 20 20 20 28 63 6c 69 65 ).;; (clie
07a0: 6e 74 3a 6c 61 75 6e 63 68 29 29 0a 3b 3b 20 20 nt:launch)).;;
07b0: 20 20 20 28 63 6c 69 65 6e 74 3a 6c 61 75 6e 63 (client:launc
07c0: 68 29 29 0a 0a 0a 28 64 65 66 69 6e 65 20 2a 64 h))...(define *d
07d0: 62 64 69 72 2a 20 28 63 6f 6e 63 20 28 63 6f 6e bdir* (conc (con
07e0: 66 69 67 66 3a 6c 6f 6f 6b 75 70 20 2a 63 6f 6e figf:lookup *con
07f0: 66 69 67 64 61 74 2a 20 22 73 65 74 75 70 22 20 figdat* "setup"
0800: 22 6c 69 6e 6b 74 72 65 65 22 29 20 22 2f 2e 64 "linktree") "/.d
0810: 62 22 29 29 0a 28 64 65 66 69 6e 65 20 2a 64 62 b")).(define *db
0820: 73 74 72 75 63 74 2d 6c 6f 63 61 6c 2a 20 20 28 struct-local* (
0830: 6d 61 6b 65 2d 64 62 72 3a 64 62 73 74 72 75 63 make-dbr:dbstruc
0840: 74 20 70 61 74 68 3a 20 20 2a 64 62 64 69 72 2a t path: *dbdir*
0850: 0a 09 09 09 09 09 20 20 20 20 20 6c 6f 63 61 6c ...... local
0860: 3a 20 23 74 29 29 0a 28 64 65 66 69 6e 65 20 2a : #t)).(define *
0870: 64 62 2d 66 69 6c 65 2d 70 61 74 68 2a 20 28 64 db-file-path* (d
0880: 62 3a 64 62 66 69 6c 65 2d 70 61 74 68 20 30 29 b:dbfile-path 0)
0890: 29 0a 0a 3b 3b 20 48 41 43 4b 20 41 4c 45 52 54 )..;; HACK ALERT
08a0: 3a 20 74 68 69 73 20 69 73 20 61 20 68 61 63 6b : this is a hack
08b0: 2c 20 70 6c 65 61 73 65 20 66 69 78 2e 0a 28 64 , please fix..(d
08c0: 65 66 69 6e 65 20 2a 72 65 61 64 2d 6f 6e 6c 79 efine *read-only
08d0: 2a 20 28 6e 6f 74 20 28 66 69 6c 65 2d 72 65 61 * (not (file-rea
08e0: 64 2d 61 63 63 65 73 73 3f 20 2a 64 62 2d 66 69 d-access? *db-fi
08f0: 6c 65 2d 70 61 74 68 2a 29 29 29 0a 0a 28 64 65 le-path*)))..(de
0900: 62 75 67 3a 73 65 74 75 70 29 0a 0a 28 64 65 66 bug:setup)..(def
0910: 69 6e 65 20 2a 74 69 6d 2a 20 28 69 75 70 3a 74 ine *tim* (iup:t
0920: 69 6d 65 72 29 29 0a 28 64 65 66 69 6e 65 20 2a imer)).(define *
0930: 6f 72 64 2a 20 23 66 29 0a 0a 28 69 75 70 3a 61 ord* #f)..(iup:a
0940: 74 74 72 69 62 75 74 65 2d 73 65 74 21 20 2a 74 ttribute-set! *t
0950: 69 6d 2a 20 22 54 49 4d 45 22 20 33 30 30 29 0a im* "TIME" 300).
0960: 28 69 75 70 3a 61 74 74 72 69 62 75 74 65 2d 73 (iup:attribute-s
0970: 65 74 21 20 2a 74 69 6d 2a 20 22 52 55 4e 22 20 et! *tim* "RUN"
0980: 22 59 45 53 22 29 0a 0a 28 64 65 66 69 6e 65 20 "YES")..(define
0990: 28 6d 65 73 73 61 67 65 2d 77 69 6e 64 6f 77 20 (message-window
09a0: 6d 73 67 29 0a 20 20 28 69 75 70 3a 73 68 6f 77 msg). (iup:show
09b0: 0a 20 20 20 28 69 75 70 3a 64 69 61 6c 6f 67 0a . (iup:dialog.
09c0: 20 20 20 20 28 69 75 70 3a 76 62 6f 78 20 0a 20 (iup:vbox .
09d0: 20 20 20 20 28 69 75 70 3a 6c 61 62 65 6c 20 6d (iup:label m
09e0: 73 67 20 23 3a 6d 61 72 67 69 6e 20 22 34 30 78 sg #:margin "40x
09f0: 34 30 22 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 40")))))..(defin
0a00: 65 20 28 69 75 70 6c 69 73 74 62 6f 78 2d 66 69 e (iuplistbox-fi
0a10: 6c 6c 2d 6c 69 73 74 20 6c 62 20 69 74 65 6d 73 ll-list lb items
0a20: 20 2e 20 64 65 66 61 75 6c 74 29 0a 20 20 28 6c . default). (l
0a30: 65 74 20 28 28 69 20 31 29 0a 09 28 73 65 6c 65 et ((i 1)..(sele
0a40: 63 74 65 64 2d 69 74 65 6d 20 28 69 66 20 28 6e cted-item (if (n
0a50: 75 6c 6c 3f 20 64 65 66 61 75 6c 74 29 20 23 66 ull? default) #f
0a60: 20 28 63 61 72 20 64 65 66 61 75 6c 74 29 29 29 (car default)))
0a70: 29 0a 20 20 20 20 28 69 75 70 3a 61 74 74 72 69 ). (iup:attri
0a80: 62 75 74 65 2d 73 65 74 21 20 6c 62 20 22 56 41 bute-set! lb "VA
0a90: 4c 55 45 22 20 28 69 66 20 73 65 6c 65 63 74 65 LUE" (if selecte
0aa0: 64 2d 69 74 65 6d 20 73 65 6c 65 63 74 65 64 2d d-item selected-
0ab0: 69 74 65 6d 20 22 22 29 29 0a 20 20 20 20 28 66 item "")). (f
0ac0: 6f 72 2d 65 61 63 68 20 28 6c 61 6d 62 64 61 20 or-each (lambda
0ad0: 28 69 74 65 6d 29 0a 09 09 28 69 75 70 3a 61 74 (item)...(iup:at
0ae0: 74 72 69 62 75 74 65 2d 73 65 74 21 20 6c 62 20 tribute-set! lb
0af0: 28 6e 75 6d 62 65 72 2d 3e 73 74 72 69 6e 67 20 (number->string
0b00: 69 29 20 69 74 65 6d 29 0a 09 09 28 69 66 20 73 i) item)...(if s
0b10: 65 6c 65 63 74 65 64 2d 69 74 65 6d 0a 09 09 20 elected-item...
0b20: 20 20 20 28 69 66 20 28 65 71 75 61 6c 3f 20 73 (if (equal? s
0b30: 65 6c 65 63 74 65 64 2d 69 74 65 6d 20 69 74 65 elected-item ite
0b40: 6d 29 0a 09 09 09 28 69 75 70 3a 61 74 74 72 69 m)....(iup:attri
0b50: 62 75 74 65 2d 73 65 74 21 20 6c 62 20 22 56 41 bute-set! lb "VA
0b60: 4c 55 45 22 20 69 74 65 6d 29 29 29 20 3b 3b 20 LUE" item))) ;;
0b70: 28 6e 75 6d 62 65 72 2d 3e 73 74 72 69 6e 67 20 (number->string
0b80: 69 29 29 29 29 0a 09 09 28 73 65 74 21 20 69 20 i))))...(set! i
0b90: 28 2b 20 69 20 31 29 29 29 0a 09 20 20 20 20 20 (+ i 1)))..
0ba0: 20 69 74 65 6d 73 29 0a 20 20 20 20 69 29 29 0a items). i)).
0bb0: 0a 28 64 65 66 69 6e 65 20 28 70 61 64 2d 6c 69 .(define (pad-li
0bc0: 73 74 20 6c 20 6e 29 28 61 70 70 65 6e 64 20 6c st l n)(append l
0bd0: 20 28 6d 61 6b 65 2d 6c 69 73 74 20 28 2d 20 6e (make-list (- n
0be0: 20 28 6c 65 6e 67 74 68 20 6c 29 29 29 29 29 0a (length l))))).
0bf0: 0a 0a 28 64 65 66 69 6e 65 20 28 6d 6b 73 74 72 ..(define (mkstr
0c00: 20 2e 20 78 29 0a 20 20 28 73 74 72 69 6e 67 2d . x). (string-
0c10: 69 6e 74 65 72 73 70 65 72 73 65 20 28 6d 61 70 intersperse (map
0c20: 20 63 6f 6e 63 20 78 29 20 22 2c 22 29 29 0a 0a conc x) ","))..
0c30: 28 64 65 66 69 6e 65 20 28 75 70 64 61 74 65 2d (define (update-
0c40: 73 65 61 72 63 68 20 78 20 76 61 6c 29 0a 20 20 search x val).
0c50: 28 68 61 73 68 2d 74 61 62 6c 65 2d 73 65 74 21 (hash-table-set!
0c60: 20 2a 73 65 61 72 63 68 70 61 74 74 73 2a 20 78 *searchpatts* x
0c70: 20 76 61 6c 29 29 0a 0a 3b 3b 20 6d 74 65 73 74 val))..;; mtest
0c80: 20 69 73 20 61 63 74 75 61 6c 6c 79 20 74 68 65 is actually the
0c90: 20 6d 65 67 61 74 65 73 74 2e 63 6f 6e 66 69 67 megatest.config
0ca0: 20 66 69 6c 65 0a 3b 3b 0a 28 64 65 66 69 6e 65 file.;;.(define
0cb0: 20 28 6d 74 65 73 74 20 77 69 6e 64 6f 77 2d 69 (mtest window-i
0cc0: 64 29 0a 20 20 28 6c 65 74 2a 20 28 28 63 75 72 d). (let* ((cur
0cd0: 72 2d 72 6f 77 2d 6e 75 6d 20 20 20 20 20 30 29 r-row-num 0)
0ce0: 0a 09 20 28 72 61 77 63 6f 6e 66 69 67 20 20 20 .. (rawconfig
0cf0: 20 20 20 20 20 28 72 65 61 64 2d 63 6f 6e 66 69 (read-confi
0d00: 67 20 28 63 6f 6e 63 20 2a 74 6f 70 70 61 74 68 g (conc *toppath
0d10: 2a 20 22 2f 6d 65 67 61 74 65 73 74 2e 63 6f 6e * "/megatest.con
0d20: 66 69 67 22 29 20 23 66 20 27 72 65 74 75 72 6e fig") #f 'return
0d30: 2d 73 74 72 69 6e 67 29 29 0a 09 20 28 6b 65 79 -string)).. (key
0d40: 73 2d 6d 61 74 72 69 78 20 20 20 20 20 20 28 64 s-matrix (d
0d50: 63 6f 6d 6d 6f 6e 3a 6b 65 79 73 2d 6d 61 74 72 common:keys-matr
0d60: 69 78 20 72 61 77 63 6f 6e 66 69 67 29 29 0a 09 ix rawconfig))..
0d70: 20 28 73 65 74 75 70 2d 6d 61 74 72 69 78 20 20 (setup-matrix
0d80: 20 20 20 28 64 63 6f 6d 6d 6f 6e 3a 73 65 63 74 (dcommon:sect
0d90: 69 6f 6e 2d 6d 61 74 72 69 78 20 72 61 77 63 6f ion-matrix rawco
0da0: 6e 66 69 67 20 22 73 65 74 75 70 22 20 22 56 61 nfig "setup" "Va
0db0: 72 6e 61 6d 65 22 20 22 56 61 6c 75 65 22 29 29 rname" "Value"))
0dc0: 0a 09 20 28 6a 6f 62 74 6f 6f 6c 73 2d 6d 61 74 .. (jobtools-mat
0dd0: 72 69 78 20 20 28 69 75 70 3a 6d 61 74 72 69 78 rix (iup:matrix
0de0: 0a 09 09 09 20 20 20 20 23 3a 65 78 70 61 6e 64 .... #:expand
0df0: 20 22 59 45 53 22 0a 09 09 09 20 20 20 20 23 3a "YES".... #:
0e00: 6e 75 6d 63 6f 6c 20 31 0a 09 09 09 20 20 20 20 numcol 1....
0e10: 23 3a 6e 75 6d 6c 69 6e 20 35 0a 09 09 09 20 20 #:numlin 5....
0e20: 20 20 23 3a 6e 75 6d 63 6f 6c 2d 76 69 73 69 62 #:numcol-visib
0e30: 6c 65 20 31 0a 09 09 09 20 20 20 20 23 3a 6e 75 le 1.... #:nu
0e40: 6d 6c 69 6e 2d 76 69 73 69 62 6c 65 20 33 29 29 mlin-visible 3))
0e50: 0a 09 20 28 76 61 6c 69 64 76 61 6c 73 2d 6d 61 .. (validvals-ma
0e60: 74 72 69 78 20 28 69 75 70 3a 6d 61 74 72 69 78 trix (iup:matrix
0e70: 0a 09 09 09 20 20 20 20 23 3a 65 78 70 61 6e 64 .... #:expand
0e80: 20 22 59 45 53 22 0a 09 09 09 20 20 20 20 23 3a "YES".... #:
0e90: 6e 75 6d 63 6f 6c 20 31 0a 09 09 09 20 20 20 20 numcol 1....
0ea0: 23 3a 6e 75 6d 6c 69 6e 20 32 0a 09 09 09 20 20 #:numlin 2....
0eb0: 20 20 23 3a 6e 75 6d 63 6f 6c 2d 76 69 73 69 62 #:numcol-visib
0ec0: 6c 65 20 31 0a 09 09 09 20 20 20 20 23 3a 6e 75 le 1.... #:nu
0ed0: 6d 6c 69 6e 2d 76 69 73 69 62 6c 65 20 32 29 29 mlin-visible 2))
0ee0: 0a 09 20 28 65 6e 76 6f 76 72 64 2d 6d 61 74 72 .. (envovrd-matr
0ef0: 69 78 20 20 20 28 69 75 70 3a 6d 61 74 72 69 78 ix (iup:matrix
0f00: 0a 09 09 09 20 20 20 20 23 3a 65 78 70 61 6e 64 .... #:expand
0f10: 20 22 59 45 53 22 0a 09 09 09 20 20 20 20 23 3a "YES".... #:
0f20: 6e 75 6d 63 6f 6c 20 31 0a 09 09 09 20 20 20 20 numcol 1....
0f30: 23 3a 6e 75 6d 6c 69 6e 20 32 30 0a 09 09 09 20 #:numlin 20....
0f40: 20 20 20 23 3a 6e 75 6d 63 6f 6c 2d 76 69 73 69 #:numcol-visi
0f50: 62 6c 65 20 31 0a 09 09 09 20 20 20 20 23 3a 6e ble 1.... #:n
0f60: 75 6d 6c 69 6e 2d 76 69 73 69 62 6c 65 20 38 29 umlin-visible 8)
0f70: 29 0a 09 20 28 64 69 73 6b 73 2d 6d 61 74 72 69 ).. (disks-matri
0f80: 78 20 20 20 20 20 28 69 75 70 3a 6d 61 74 72 69 x (iup:matri
0f90: 78 0a 09 09 09 20 20 20 20 23 3a 65 78 70 61 6e x.... #:expan
0fa0: 64 20 22 59 45 53 22 0a 09 09 09 20 20 20 20 23 d "YES".... #
0fb0: 3a 6e 75 6d 63 6f 6c 20 31 0a 09 09 09 20 20 20 :numcol 1....
0fc0: 20 23 3a 6e 75 6d 6c 69 6e 20 32 30 0a 09 09 09 #:numlin 20....
0fd0: 20 20 20 20 23 3a 6e 75 6d 63 6f 6c 2d 76 69 73 #:numcol-vis
0fe0: 69 62 6c 65 20 31 0a 09 09 09 20 20 20 20 23 3a ible 1.... #:
0ff0: 6e 75 6d 6c 69 6e 2d 76 69 73 69 62 6c 65 20 38 numlin-visible 8
1000: 29 29 0a 09 20 29 0a 20 20 20 20 28 69 75 70 3a )).. ). (iup:
1010: 61 74 74 72 69 62 75 74 65 2d 73 65 74 21 20 64 attribute-set! d
1020: 69 73 6b 73 2d 6d 61 74 72 69 78 20 22 30 3a 30 isks-matrix "0:0
1030: 22 20 22 44 69 73 6b 20 4e 61 6d 65 22 29 0a 20 " "Disk Name").
1040: 20 20 20 28 69 75 70 3a 61 74 74 72 69 62 75 74 (iup:attribut
1050: 65 2d 73 65 74 21 20 64 69 73 6b 73 2d 6d 61 74 e-set! disks-mat
1060: 72 69 78 20 22 30 3a 31 22 20 22 44 69 73 6b 20 rix "0:1" "Disk
1070: 50 61 74 68 22 29 0a 20 20 20 20 28 69 75 70 3a Path"). (iup:
1080: 61 74 74 72 69 62 75 74 65 2d 73 65 74 21 20 64 attribute-set! d
1090: 69 73 6b 73 2d 6d 61 74 72 69 78 20 22 57 49 44 isks-matrix "WID
10a0: 54 48 31 22 20 22 31 32 30 22 29 0a 20 20 20 20 TH1" "120").
10b0: 28 69 75 70 3a 61 74 74 72 69 62 75 74 65 2d 73 (iup:attribute-s
10c0: 65 74 21 20 64 69 73 6b 73 2d 6d 61 74 72 69 78 et! disks-matrix
10d0: 20 22 57 49 44 54 48 30 22 20 22 31 30 30 22 29 "WIDTH0" "100")
10e0: 0a 20 20 20 20 28 69 75 70 3a 61 74 74 72 69 62 . (iup:attrib
10f0: 75 74 65 2d 73 65 74 21 20 64 69 73 6b 73 2d 6d ute-set! disks-m
1100: 61 74 72 69 78 20 22 41 4c 49 47 4e 4d 45 4e 54 atrix "ALIGNMENT
1110: 31 22 20 22 41 4c 45 46 54 22 29 0a 20 20 20 20 1" "ALEFT").
1120: 28 69 75 70 3a 61 74 74 72 69 62 75 74 65 2d 73 (iup:attribute-s
1130: 65 74 21 20 64 69 73 6b 73 2d 6d 61 74 72 69 78 et! disks-matrix
1140: 20 22 46 49 58 54 4f 54 45 58 54 22 20 22 43 31 "FIXTOTEXT" "C1
1150: 22 29 0a 20 20 20 20 28 69 75 70 3a 61 74 74 72 "). (iup:attr
1160: 69 62 75 74 65 2d 73 65 74 21 20 64 69 73 6b 73 ibute-set! disks
1170: 2d 6d 61 74 72 69 78 20 22 52 45 53 49 5a 45 4d -matrix "RESIZEM
1180: 41 54 52 49 58 22 20 22 59 45 53 22 29 0a 0a 20 ATRIX" "YES")..
1190: 20 20 20 3b 3b 20 66 69 6c 6c 20 69 6e 20 65 78 ;; fill in ex
11a0: 69 73 74 69 6e 67 20 69 6e 66 6f 0a 20 20 20 20 isting info.
11b0: 28 66 6f 72 2d 65 61 63 68 20 0a 20 20 20 20 20 (for-each .
11c0: 28 6c 61 6d 62 64 61 20 28 6d 61 74 20 66 6e 61 (lambda (mat fna
11d0: 6d 65 29 0a 20 20 20 20 20 20 20 28 73 65 74 21 me). (set!
11e0: 20 63 75 72 72 2d 72 6f 77 2d 6e 75 6d 20 31 29 curr-row-num 1)
11f0: 0a 20 20 20 20 20 20 20 28 66 6f 72 2d 65 61 63 . (for-eac
1200: 68 0a 09 28 6c 61 6d 62 64 61 20 28 76 61 72 29 h..(lambda (var)
1210: 0a 09 20 20 28 69 75 70 3a 61 74 74 72 69 62 75 .. (iup:attribu
1220: 74 65 2d 73 65 74 21 20 6d 61 74 20 28 63 6f 6e te-set! mat (con
1230: 63 20 63 75 72 72 2d 72 6f 77 2d 6e 75 6d 20 22 c curr-row-num "
1240: 3a 30 22 29 20 76 61 72 29 0a 09 20 20 28 69 75 :0") var).. (iu
1250: 70 3a 61 74 74 72 69 62 75 74 65 2d 73 65 74 21 p:attribute-set!
1260: 20 6d 61 74 20 28 63 6f 6e 63 20 63 75 72 72 2d mat (conc curr-
1270: 72 6f 77 2d 6e 75 6d 20 22 3a 31 22 29 20 28 63 row-num ":1") (c
1280: 6f 6e 66 69 67 2d 6c 6f 6f 6b 75 70 20 72 61 77 onfig-lookup raw
1290: 63 6f 6e 66 69 67 20 66 6e 61 6d 65 20 76 61 72 config fname var
12a0: 29 29 0a 09 20 20 28 73 65 74 21 20 63 75 72 72 )).. (set! curr
12b0: 2d 72 6f 77 2d 6e 75 6d 20 28 2b 20 63 75 72 72 -row-num (+ curr
12c0: 2d 72 6f 77 2d 6e 75 6d 20 31 29 29 29 0a 09 28 -row-num 1)))..(
12d0: 63 6f 6e 66 69 67 66 3a 73 65 63 74 69 6f 6e 2d configf:section-
12e0: 76 61 72 73 20 72 61 77 63 6f 6e 66 69 67 20 66 vars rawconfig f
12f0: 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 28 6c 69 name))). (li
1300: 73 74 20 73 65 74 75 70 2d 6d 61 74 72 69 78 20 st setup-matrix
1310: 6a 6f 62 74 6f 6f 6c 73 2d 6d 61 74 72 69 78 20 jobtools-matrix
1320: 76 61 6c 69 64 76 61 6c 73 2d 6d 61 74 72 69 78 validvals-matrix
1330: 20 65 6e 76 6f 76 72 64 2d 6d 61 74 72 69 78 20 envovrd-matrix
1340: 64 69 73 6b 73 2d 6d 61 74 72 69 78 29 0a 20 20 disks-matrix).
1350: 20 20 20 28 6c 69 73 74 20 22 73 65 74 75 70 22 (list "setup"
1360: 20 20 20 20 20 20 22 6a 6f 62 74 6f 6f 6c 73 22 "jobtools"
1370: 20 20 20 20 20 20 22 76 61 6c 69 64 76 61 6c 75 "validvalu
1380: 65 73 22 20 20 20 20 20 20 22 65 6e 76 2d 6f 76 es" "env-ov
1390: 65 72 72 69 64 65 22 20 22 64 69 73 6b 73 22 29 erride" "disks")
13a0: 29 0a 0a 20 20 20 20 28 66 6f 72 2d 65 61 63 68 ).. (for-each
13b0: 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 6d . (lambda (m
13c0: 61 74 29 0a 20 20 20 20 20 20 20 28 69 75 70 3a at). (iup:
13d0: 61 74 74 72 69 62 75 74 65 2d 73 65 74 21 20 6d attribute-set! m
13e0: 61 74 20 22 30 3a 31 22 20 22 56 61 6c 75 65 22 at "0:1" "Value"
13f0: 29 0a 20 20 20 20 20 20 20 28 69 75 70 3a 61 74 ). (iup:at
1400: 74 72 69 62 75 74 65 2d 73 65 74 21 20 6d 61 74 tribute-set! mat
1410: 20 22 30 3a 30 22 20 22 56 61 72 22 29 0a 20 20 "0:0" "Var").
1420: 20 20 20 20 20 28 69 75 70 3a 61 74 74 72 69 62 (iup:attrib
1430: 75 74 65 2d 73 65 74 21 20 6d 61 74 20 22 41 4c ute-set! mat "AL
1440: 49 47 4e 4d 45 4e 54 31 22 20 22 41 4c 45 46 54 IGNMENT1" "ALEFT
1450: 22 29 0a 20 20 20 20 20 20 20 28 69 75 70 3a 61 "). (iup:a
1460: 74 74 72 69 62 75 74 65 2d 73 65 74 21 20 6d 61 ttribute-set! ma
1470: 74 20 22 46 49 58 54 4f 54 45 58 54 22 20 22 43 t "FIXTOTEXT" "C
1480: 31 22 29 0a 20 20 20 20 20 20 20 28 69 75 70 3a 1"). (iup:
1490: 61 74 74 72 69 62 75 74 65 2d 73 65 74 21 20 6d attribute-set! m
14a0: 61 74 20 22 52 45 53 49 5a 45 4d 41 54 52 49 58 at "RESIZEMATRIX
14b0: 22 20 22 59 45 53 22 29 0a 20 20 20 20 20 20 20 " "YES").
14c0: 28 69 75 70 3a 61 74 74 72 69 62 75 74 65 2d 73 (iup:attribute-s
14d0: 65 74 21 20 6d 61 74 20 22 57 49 44 54 48 31 22 et! mat "WIDTH1"
14e0: 20 22 31 32 30 22 29 0a 20 20 20 20 20 20 20 28 "120"). (
14f0: 69 75 70 3a 61 74 74 72 69 62 75 74 65 2d 73 65 iup:attribute-se
1500: 74 21 20 6d 61 74 20 22 57 49 44 54 48 30 22 20 t! mat "WIDTH0"
1510: 22 31 30 30 22 29 0a 20 20 20 20 20 20 20 29 0a "100"). ).
1520: 20 20 20 20 20 28 6c 69 73 74 20 73 65 74 75 70 (list setup
1530: 2d 6d 61 74 72 69 78 20 6a 6f 62 74 6f 6f 6c 73 -matrix jobtools
1540: 2d 6d 61 74 72 69 78 20 76 61 6c 69 64 76 61 6c -matrix validval
1550: 73 2d 6d 61 74 72 69 78 20 65 6e 76 6f 76 72 64 s-matrix envovrd
1560: 2d 6d 61 74 72 69 78 29 29 0a 0a 20 20 20 20 28 -matrix)).. (
1570: 69 75 70 3a 61 74 74 72 69 62 75 74 65 2d 73 65 iup:attribute-se
1580: 74 21 20 76 61 6c 69 64 76 61 6c 73 2d 6d 61 74 t! validvals-mat
1590: 72 69 78 20 22 57 49 44 54 48 31 22 20 22 32 39 rix "WIDTH1" "29
15a0: 30 22 29 0a 20 20 20 20 28 69 75 70 3a 61 74 74 0"). (iup:att
15b0: 72 69 62 75 74 65 2d 73 65 74 21 20 65 6e 76 6f ribute-set! envo
15c0: 76 72 64 2d 6d 61 74 72 69 78 20 20 20 22 57 49 vrd-matrix "WI
15d0: 44 54 48 31 22 20 22 32 39 30 22 29 0a 0a 20 20 DTH1" "290")..
15e0: 20 20 28 69 75 70 3a 76 62 6f 78 0a 20 20 20 20 (iup:vbox.
15f0: 20 28 69 75 70 3a 68 62 6f 78 0a 20 20 20 20 20 (iup:hbox.
1600: 20 20 0a 20 20 20 20 20 20 28 69 75 70 3a 76 62 . (iup:vb
1610: 6f 78 0a 20 20 20 20 20 20 20 28 6c 65 74 20 28 ox. (let (
1620: 28 74 61 62 73 20 28 69 75 70 3a 74 61 62 73 20 (tabs (iup:tabs
1630: 0a 09 09 20 20 20 20 3b 3b 20 54 68 65 20 72 65 ... ;; The re
1640: 71 75 69 72 65 64 20 74 61 62 0a 09 09 20 20 20 quired tab...
1650: 20 28 69 75 70 3a 68 62 6f 78 0a 09 09 20 20 20 (iup:hbox...
1660: 20 20 3b 3b 20 54 68 65 20 6b 65 79 73 0a 09 09 ;; The keys...
1670: 20 20 20 20 20 28 69 75 70 3a 66 72 61 6d 65 20 (iup:frame
1680: 0a 09 09 20 20 20 20 20 20 23 3a 74 69 74 6c 65 ... #:title
1690: 20 22 4b 65 79 73 20 28 72 65 71 75 69 72 65 64 "Keys (required
16a0: 29 22 0a 09 09 20 20 20 20 20 20 28 69 75 70 3a )"... (iup:
16b0: 76 62 6f 78 0a 09 09 20 20 20 20 20 20 20 28 69 vbox... (i
16c0: 75 70 3a 6c 61 62 65 6c 20 28 63 6f 6e 63 20 22 up:label (conc "
16d0: 53 65 74 20 74 68 65 20 66 69 65 6c 64 73 20 66 Set the fields f
16e0: 6f 72 20 6f 72 67 61 6e 69 73 69 6e 67 20 79 6f or organising yo
16f0: 75 72 20 72 75 6e 73 5c 6e 22 0a 09 09 09 09 09 ur runs\n"......
1700: 22 68 65 72 65 2e 20 4e 6f 74 65 3a 20 63 61 6e "here. Note: can
1710: 20 6f 6e 6c 79 20 62 65 20 63 68 61 6e 67 65 64 only be changed
1720: 20 62 65 66 6f 72 65 5c 6e 22 0a 09 09 09 09 09 before\n"......
1730: 22 72 75 6e 6e 69 6e 67 20 74 68 65 20 66 69 72 "running the fir
1740: 73 74 20 72 75 6e 20 77 68 65 6e 20 6d 65 67 61 st run when mega
1750: 74 65 73 74 2e 64 62 5c 6e 22 0a 09 09 09 09 09 test.db\n"......
1760: 22 69 73 20 63 72 65 61 74 65 64 2e 22 29 29 0a "is created.")).
1770: 09 09 20 20 20 20 20 20 20 6b 65 79 73 2d 6d 61 .. keys-ma
1780: 74 72 69 78 29 29 0a 09 09 20 20 20 20 20 28 69 trix))... (i
1790: 75 70 3a 76 62 6f 78 0a 09 09 20 20 20 20 20 20 up:vbox...
17a0: 3b 3b 20 54 68 65 20 73 65 74 75 70 20 73 65 63 ;; The setup sec
17b0: 74 69 6f 6e 0a 09 09 20 20 20 20 20 20 28 69 75 tion... (iu
17c0: 70 3a 66 72 61 6d 65 0a 09 09 20 20 20 20 20 20 p:frame...
17d0: 20 23 3a 74 69 74 6c 65 20 22 53 65 74 75 70 22 #:title "Setup"
17e0: 0a 09 09 20 20 20 20 20 20 20 28 69 75 70 3a 76 ... (iup:v
17f0: 62 6f 78 0a 09 09 09 28 69 75 70 3a 6c 61 62 65 box....(iup:labe
1800: 6c 20 28 63 6f 6e 63 20 22 6d 61 78 5f 63 6f 6e l (conc "max_con
1810: 63 75 72 72 65 6e 74 5f 6a 6f 62 73 20 3a 20 6c current_jobs : l
1820: 69 6d 69 74 73 20 74 6f 74 61 6c 20 63 6f 6e 63 imits total conc
1830: 75 72 72 65 6e 74 20 6a 6f 62 73 20 28 6f 70 74 urrent jobs (opt
1840: 69 6f 6e 61 6c 29 5c 6e 22 0a 09 09 09 09 09 20 ional)\n"......
1850: 22 6c 69 6e 6b 74 72 65 65 20 3a 20 64 69 72 65 "linktree : dire
1860: 63 74 6f 72 79 20 77 68 65 72 65 20 6c 69 6e 6b ctory where link
1870: 74 72 65 65 20 77 69 6c 6c 20 62 65 20 63 72 65 tree will be cre
1880: 61 74 65 64 2e 22 29 29 0a 09 09 09 73 65 74 75 ated."))....setu
1890: 70 2d 6d 61 74 72 69 78 29 29 0a 09 09 20 20 20 p-matrix))...
18a0: 20 20 20 3b 3b 20 54 68 65 20 6a 6f 62 74 6f 6f ;; The jobtoo
18b0: 6c 73 0a 09 09 20 20 20 20 20 20 28 69 75 70 3a ls... (iup:
18c0: 66 72 61 6d 65 0a 09 09 20 20 20 20 20 20 20 23 frame... #
18d0: 3a 74 69 74 6c 65 20 22 4a 6f 62 74 6f 6f 6c 73 :title "Jobtools
18e0: 22 0a 09 09 20 20 20 20 20 20 20 28 69 75 70 3a "... (iup:
18f0: 76 62 6f 78 20 0a 09 09 09 28 69 75 70 3a 6c 61 vbox ....(iup:la
1900: 62 65 6c 20 28 63 6f 6e 63 20 22 6c 61 75 6e 63 bel (conc "launc
1910: 68 65 72 20 3a 20 74 6f 6f 6c 20 6f 72 20 73 63 her : tool or sc
1920: 72 69 70 74 20 74 6f 20 72 75 6e 20 6a 6f 62 73 ript to run jobs
1930: 20 28 74 72 79 20 6e 62 66 61 6b 65 29 5c 6e 22 (try nbfake)\n"
1940: 0a 09 09 09 09 09 20 22 75 73 65 73 68 65 6c 6c ...... "useshell
1950: 20 3a 20 75 73 65 20 73 79 73 74 65 6d 20 74 6f : use system to
1960: 20 72 75 6e 20 79 6f 75 72 20 6c 61 75 6e 63 68 run your launch
1970: 65 72 5c 6e 22 0a 09 09 09 09 09 20 22 77 6f 72 er\n"...... "wor
1980: 6b 68 6f 73 74 73 20 3a 20 73 70 72 65 61 64 20 khosts : spread
1990: 6a 6f 62 73 20 6f 75 74 20 6f 6e 20 74 68 65 73 jobs out on thes
19a0: 65 20 68 6f 73 74 73 22 29 29 0a 09 09 09 6a 6f e hosts"))....jo
19b0: 62 74 6f 6f 6c 73 2d 6d 61 74 72 69 78 29 29 0a btools-matrix)).
19c0: 09 09 20 20 20 20 20 20 3b 3b 20 54 68 65 20 64 .. ;; The d
19d0: 69 73 6b 73 0a 09 09 20 20 20 20 20 20 28 69 75 isks... (iu
19e0: 70 3a 66 72 61 6d 65 0a 09 09 20 20 20 20 20 20 p:frame...
19f0: 20 23 3a 74 69 74 6c 65 20 22 44 69 73 6b 73 22 #:title "Disks"
1a00: 0a 09 09 20 20 20 20 20 20 20 28 69 75 70 3a 76 ... (iup:v
1a10: 62 6f 78 0a 09 09 09 28 69 75 70 3a 6c 61 62 65 box....(iup:labe
1a20: 6c 20 28 63 6f 6e 63 20 22 45 6e 74 65 72 20 6e l (conc "Enter n
1a30: 61 6d 65 73 20 61 6e 64 20 65 78 69 73 74 69 6e ames and existin
1a40: 67 20 70 61 74 68 73 20 6f 66 20 6c 6f 63 61 74 g paths of locat
1a50: 69 6f 6e 73 20 74 6f 20 72 75 6e 20 74 65 73 74 ions to run test
1a60: 73 22 29 29 20 0a 09 09 09 64 69 73 6b 73 2d 6d s")) ....disks-m
1a70: 61 74 72 69 78 29 29 29 29 0a 09 09 20 20 20 20 atrix))))...
1a80: 3b 3b 20 54 68 65 20 6f 70 74 69 6f 6e 61 6c 20 ;; The optional
1a90: 74 61 62 0a 09 09 20 20 20 20 28 69 75 70 3a 76 tab... (iup:v
1aa0: 62 6f 78 0a 09 09 20 20 20 20 20 3b 3b 20 54 68 box... ;; Th
1ab0: 65 20 45 6e 76 69 72 6f 6e 6d 65 6e 74 20 4f 76 e Environment Ov
1ac0: 65 72 72 69 64 65 73 0a 09 09 20 20 20 20 20 28 errides... (
1ad0: 69 75 70 3a 66 72 61 6d 65 20 0a 09 09 20 20 20 iup:frame ...
1ae0: 20 20 20 23 3a 74 69 74 6c 65 20 22 45 6e 76 20 #:title "Env
1af0: 6f 76 65 72 72 69 64 65 22 0a 09 09 20 20 20 20 override"...
1b00: 20 20 65 6e 76 6f 76 72 64 2d 6d 61 74 72 69 78 envovrd-matrix
1b10: 29 0a 09 09 20 20 20 20 20 3b 3b 20 54 68 65 20 )... ;; The
1b20: 76 61 6c 69 64 20 76 61 6c 75 65 73 0a 09 09 20 valid values...
1b30: 20 20 20 20 28 69 75 70 3a 66 72 61 6d 65 0a 09 (iup:frame..
1b40: 09 20 20 20 20 20 20 23 3a 74 69 74 6c 65 20 22 . #:title "
1b50: 56 61 6c 69 64 76 61 6c 75 65 73 22 0a 09 09 20 Validvalues"...
1b60: 20 20 20 20 20 76 61 6c 69 64 76 61 6c 73 2d 6d validvals-m
1b70: 61 74 72 69 78 29 0a 09 09 20 20 20 20 20 29 29 atrix)... ))
1b80: 29 29 0a 09 20 28 69 75 70 3a 61 74 74 72 69 62 )).. (iup:attrib
1b90: 75 74 65 2d 73 65 74 21 20 74 61 62 73 20 22 54 ute-set! tabs "T
1ba0: 41 42 54 49 54 4c 45 30 22 20 22 52 65 71 75 69 ABTITLE0" "Requi
1bb0: 72 65 64 20 73 65 74 74 69 6e 67 73 22 29 0a 09 red settings")..
1bc0: 20 28 69 75 70 3a 61 74 74 72 69 62 75 74 65 2d (iup:attribute-
1bd0: 73 65 74 21 20 74 61 62 73 20 22 54 41 42 54 49 set! tabs "TABTI
1be0: 54 4c 45 31 22 20 22 4f 70 74 69 6f 6e 61 6c 20 TLE1" "Optional
1bf0: 73 65 74 74 69 6e 67 73 22 29 0a 09 20 74 61 62 settings").. tab
1c00: 73 29 29 0a 20 20 20 20 20 20 20 29 29 29 29 0a s)). )))).
1c10: 0a 3b 3b 20 54 68 65 20 72 75 6e 63 6f 6e 66 69 .;; The runconfi
1c20: 67 73 2e 63 6f 6e 66 69 67 20 66 69 6c 65 0a 3b gs.config file.;
1c30: 3b 0a 28 64 65 66 69 6e 65 20 28 72 63 6f 6e 66 ;.(define (rconf
1c40: 69 67 20 77 69 6e 64 6f 77 2d 69 64 29 0a 20 20 ig window-id).
1c50: 28 69 75 70 3a 76 62 6f 78 0a 20 20 20 28 69 75 (iup:vbox. (iu
1c60: 70 3a 66 72 61 6d 65 20 23 3a 74 69 74 6c 65 20 p:frame #:title
1c70: 22 44 65 66 61 75 6c 74 22 29 29 29 0a 0a 3b 3b "Default")))..;;
1c80: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1c90: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1ca0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1cb0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1cc0: 3d 3d 3d 3d 3d 3d 0a 3b 3b 20 54 20 45 20 53 20 ======.;; T E S
1cd0: 54 20 53 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d T S.;;==========
1ce0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1cf0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1d00: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1d10: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 28 64 ============..(d
1d20: 65 66 69 6e 65 20 28 74 72 65 65 2d 70 61 74 68 efine (tree-path
1d30: 2d 3e 74 65 73 74 2d 69 64 20 70 61 74 68 29 0a ->test-id path).
1d40: 20 20 28 69 66 20 28 6e 6f 74 20 28 6e 75 6c 6c (if (not (null
1d50: 3f 20 70 61 74 68 29 29 0a 20 20 20 20 20 20 28 ? path)). (
1d60: 68 61 73 68 2d 74 61 62 6c 65 2d 72 65 66 2f 64 hash-table-ref/d
1d70: 65 66 61 75 6c 74 20 28 64 62 6f 61 72 64 3a 64 efault (dboard:d
1d80: 61 74 61 2d 67 65 74 2d 70 61 74 68 2d 74 65 73 ata-get-path-tes
1d90: 74 2d 69 64 73 20 2a 64 61 74 61 2a 29 20 70 61 t-ids *data*) pa
1da0: 74 68 20 23 66 29 0a 20 20 20 20 20 20 23 66 29 th #f). #f)
1db0: 29 0a 0a 28 64 65 66 69 6e 65 20 28 74 65 73 74 )..(define (test
1dc0: 2d 70 61 6e 65 6c 20 77 69 6e 64 6f 77 2d 69 64 -panel window-id
1dd0: 29 0a 20 20 28 6c 65 74 2a 20 28 28 63 75 72 72 ). (let* ((curr
1de0: 2d 72 6f 77 2d 6e 75 6d 20 30 29 0a 09 20 28 76 -row-num 0).. (v
1df0: 69 65 77 6c 6f 67 20 20 20 20 28 6c 61 6d 62 64 iewlog (lambd
1e00: 61 20 28 78 29 0a 09 09 20 20 20 20 20 20 20 28 a (x)... (
1e10: 69 66 20 28 66 69 6c 65 2d 65 78 69 73 74 73 3f if (file-exists?
1e20: 20 6c 6f 67 66 69 6c 65 29 0a 09 09 09 09 09 3b logfile)......;
1e30: 28 73 79 73 74 65 6d 20 28 63 6f 6e 63 20 22 66 (system (conc "f
1e40: 69 72 65 66 6f 78 20 22 20 6c 6f 67 66 69 6c 65 irefox " logfile
1e50: 20 22 26 22 29 29 0a 09 09 09 20 20 20 28 69 75 "&")).... (iu
1e60: 70 3a 73 65 6e 64 2d 75 72 6c 20 6c 6f 67 66 69 p:send-url logfi
1e70: 6c 65 29 0a 09 09 09 20 20 20 28 6d 65 73 73 61 le).... (messa
1e80: 67 65 2d 77 69 6e 64 6f 77 20 28 63 6f 6e 63 20 ge-window (conc
1e90: 22 46 69 6c 65 20 22 20 6c 6f 67 66 69 6c 65 20 "File " logfile
1ea0: 22 20 6e 6f 74 20 66 6f 75 6e 64 22 29 29 29 29 " not found"))))
1eb0: 29 0a 09 20 28 78 74 65 72 6d 20 20 20 20 20 20 ).. (xterm
1ec0: 28 6c 61 6d 62 64 61 20 28 78 29 0a 09 09 20 20 (lambda (x)...
1ed0: 20 20 20 20 20 28 69 66 20 28 64 69 72 65 63 74 (if (direct
1ee0: 6f 72 79 2d 65 78 69 73 74 73 3f 20 72 75 6e 64 ory-exists? rund
1ef0: 69 72 29 0a 09 09 09 20 20 20 28 6c 65 74 20 28 ir).... (let (
1f00: 28 73 68 65 6c 6c 20 28 69 66 20 28 67 65 74 2d (shell (if (get-
1f10: 65 6e 76 69 72 6f 6e 6d 65 6e 74 2d 76 61 72 69 environment-vari
1f20: 61 62 6c 65 20 22 53 48 45 4c 4c 22 29 20 0a 09 able "SHELL") ..
1f30: 09 09 09 09 20 20 20 20 28 63 6f 6e 63 20 22 2d .... (conc "-
1f40: 65 20 22 20 28 67 65 74 2d 65 6e 76 69 72 6f 6e e " (get-environ
1f50: 6d 65 6e 74 2d 76 61 72 69 61 62 6c 65 20 22 53 ment-variable "S
1f60: 48 45 4c 4c 22 29 29 0a 09 09 09 09 09 20 20 20 HELL"))......
1f70: 20 22 22 29 29 29 0a 09 09 09 20 20 20 20 20 28 ""))).... (
1f80: 73 79 73 74 65 6d 20 28 63 6f 6e 63 20 22 63 64 system (conc "cd
1f90: 20 22 20 72 75 6e 64 69 72 20 0a 09 09 09 09 09 " rundir ......
1fa0: 20 20 20 22 3b 78 74 65 72 6d 20 2d 54 20 5c 22 ";xterm -T \"
1fb0: 22 20 28 73 74 72 69 6e 67 2d 74 72 61 6e 73 6c " (string-transl
1fc0: 61 74 65 20 74 65 73 74 66 75 6c 6c 6e 61 6d 65 ate testfullname
1fd0: 20 22 28 29 22 20 22 20 20 22 29 20 22 5c 22 20 "()" " ") "\"
1fe0: 22 20 73 68 65 6c 6c 20 22 26 22 29 29 29 0a 09 " shell "&")))..
1ff0: 09 09 20 20 20 28 6d 65 73 73 61 67 65 2d 77 69 .. (message-wi
2000: 6e 64 6f 77 20 20 28 63 6f 6e 63 20 22 44 69 72 ndow (conc "Dir
2010: 65 63 74 6f 72 79 20 22 20 72 75 6e 64 69 72 20 ectory " rundir
2020: 22 20 6e 6f 74 20 66 6f 75 6e 64 22 29 29 29 29 " not found"))))
2030: 29 0a 09 20 28 63 6f 6d 6d 61 6e 64 2d 74 65 78 ).. (command-tex
2040: 74 2d 62 6f 78 20 28 69 75 70 3a 74 65 78 74 62 t-box (iup:textb
2050: 6f 78 20 23 3a 65 78 70 61 6e 64 20 22 48 4f 52 ox #:expand "HOR
2060: 49 5a 4f 4e 54 41 4c 22 20 23 3a 66 6f 6e 74 20 IZONTAL" #:font
2070: 22 43 6f 75 72 69 65 72 20 4e 65 77 2c 20 2d 31 "Courier New, -1
2080: 32 22 29 29 0a 09 20 28 63 6f 6d 6d 61 6e 64 2d 2")).. (command-
2090: 6c 61 75 6e 63 68 2d 62 75 74 74 6f 6e 20 28 69 launch-button (i
20a0: 75 70 3a 62 75 74 74 6f 6e 20 22 45 78 65 63 75 up:button "Execu
20b0: 74 65 21 22 20 0a 09 09 09 09 09 20 20 20 20 3b te!" ...... ;
20c0: 3b 20 23 3a 65 78 70 61 6e 64 20 22 48 4f 52 49 ; #:expand "HORI
20d0: 5a 4f 4e 54 41 4c 22 0a 09 09 09 09 09 20 20 20 ZONTAL"......
20e0: 20 23 3a 73 69 7a 65 20 22 35 30 78 22 0a 09 09 #:size "50x"...
20f0: 09 09 09 20 20 20 20 23 3a 61 63 74 69 6f 6e 20 ... #:action
2100: 28 6c 61 6d 62 64 61 20 28 78 29 0a 09 09 09 09 (lambda (x).....
2110: 09 09 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 .. (let ((
2120: 63 6d 64 20 28 69 75 70 3a 61 74 74 72 69 62 75 cmd (iup:attribu
2130: 74 65 20 63 6f 6d 6d 61 6e 64 2d 74 65 78 74 2d te command-text-
2140: 62 6f 78 20 22 56 41 4c 55 45 22 29 29 29 0a 09 box "VALUE")))..
2150: 09 09 09 09 09 09 20 28 73 79 73 74 65 6d 20 28 ...... (system (
2160: 63 6f 6e 63 20 63 6d 64 20 22 20 20 26 22 29 29 conc cmd " &"))
2170: 29 29 29 29 0a 09 20 28 72 75 6e 2d 74 65 73 74 )))).. (run-test
2180: 20 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 09 09 (lambda (x)...
2190: 20 20 20 20 20 20 28 69 75 70 3a 61 74 74 72 69 (iup:attri
21a0: 62 75 74 65 2d 73 65 74 21 20 0a 09 09 20 20 20 bute-set! ...
21b0: 20 20 20 20 63 6f 6d 6d 61 6e 64 2d 74 65 78 74 command-text
21c0: 2d 62 6f 78 20 22 56 41 4c 55 45 22 0a 09 09 20 -box "VALUE"...
21d0: 20 20 20 20 20 20 28 63 6f 6e 63 20 22 78 74 65 (conc "xte
21e0: 72 6d 20 2d 67 65 6f 6d 65 74 72 79 20 31 38 30 rm -geometry 180
21f0: 78 32 30 20 2d 65 20 5c 22 6d 65 67 61 74 65 73 x20 -e \"megates
2200: 74 20 2d 74 61 72 67 65 74 20 22 20 6b 65 79 73 t -target " keys
2210: 74 72 69 6e 67 20 22 20 3a 72 75 6e 6e 61 6d 65 tring " :runname
2220: 20 22 20 72 75 6e 6e 61 6d 65 20 0a 09 09 09 20 " runname ....
2230: 20 20 20 20 22 20 2d 72 75 6e 74 65 73 74 73 20 " -runtests
2240: 22 20 28 63 6f 6e 63 20 74 65 73 74 6e 61 6d 65 " (conc testname
2250: 20 22 2f 22 20 28 69 66 20 28 65 71 75 61 6c 3f "/" (if (equal?
2260: 20 69 74 65 6d 2d 70 61 74 68 20 22 22 29 0a 09 item-path "")..
2270: 09 09 09 09 09 09 09 20 20 22 25 22 20 0a 09 09 ....... "%" ...
2280: 09 09 09 09 09 09 20 20 69 74 65 6d 2d 70 61 74 ...... item-pat
2290: 68 29 29 0a 09 09 09 20 20 20 20 20 22 3b 65 63 h)).... ";ec
22a0: 68 6f 20 50 72 65 73 73 20 61 6e 79 20 6b 65 79 ho Press any key
22b0: 20 74 6f 20 63 6f 6e 74 69 6e 75 65 3b 62 61 73 to continue;bas
22c0: 68 20 2d 63 20 27 72 65 61 64 20 2d 6e 20 31 20 h -c 'read -n 1
22d0: 2d 73 27 5c 22 22 29 29 29 29 0a 09 20 28 72 65 -s'\"")))).. (re
22e0: 6d 6f 76 65 2d 74 65 73 74 20 28 6c 61 6d 62 64 move-test (lambd
22f0: 61 20 28 78 29 0a 09 09 09 28 69 75 70 3a 61 74 a (x)....(iup:at
2300: 74 72 69 62 75 74 65 2d 73 65 74 21 0a 09 09 09 tribute-set!....
2310: 20 63 6f 6d 6d 61 6e 64 2d 74 65 78 74 2d 62 6f command-text-bo
2320: 78 20 22 56 41 4c 55 45 22 0a 09 09 09 20 28 63 x "VALUE".... (c
2330: 6f 6e 63 20 22 78 74 65 72 6d 20 2d 67 65 6f 6d onc "xterm -geom
2340: 65 74 72 79 20 31 38 30 78 32 30 20 2d 65 20 5c etry 180x20 -e \
2350: 22 6d 65 67 61 74 65 73 74 20 2d 72 65 6d 6f 76 "megatest -remov
2360: 65 2d 72 75 6e 73 20 2d 74 61 72 67 65 74 20 22 e-runs -target "
2370: 20 6b 65 79 73 74 72 69 6e 67 20 22 20 3a 72 75 keystring " :ru
2380: 6e 6e 61 6d 65 20 22 20 72 75 6e 6e 61 6d 65 0a nname " runname.
2390: 09 09 09 20 20 20 20 20 20 20 22 20 2d 74 65 73 ... " -tes
23a0: 74 70 61 74 74 20 22 20 28 63 6f 6e 63 20 74 65 tpatt " (conc te
23b0: 73 74 6e 61 6d 65 20 22 2f 22 20 28 69 66 20 28 stname "/" (if (
23c0: 65 71 75 61 6c 3f 20 69 74 65 6d 2d 70 61 74 68 equal? item-path
23d0: 20 22 22 29 0a 09 09 09 09 09 09 09 09 20 20 20 "").........
23e0: 20 22 25 22 0a 09 09 09 09 09 09 09 09 20 20 20 "%".........
23f0: 20 69 74 65 6d 2d 70 61 74 68 29 29 0a 09 09 09 item-path))....
2400: 20 20 20 20 20 20 20 22 20 2d 76 3b 65 63 68 6f " -v;echo
2410: 20 50 72 65 73 73 20 61 6e 79 20 6b 65 79 20 74 Press any key t
2420: 6f 20 63 6f 6e 74 69 6e 75 65 3b 62 61 73 68 20 o continue;bash
2430: 2d 63 20 27 72 65 61 64 20 2d 6e 20 31 20 2d 73 -c 'read -n 1 -s
2440: 27 5c 22 22 29 29 29 29 0a 20 20 20 20 09 20 28 '\"")))). . (
2450: 72 75 6e 2d 69 6e 66 6f 2d 6d 61 74 72 69 78 20 run-info-matrix
2460: 20 28 69 75 70 3a 6d 61 74 72 69 78 20 09 09 20 (iup:matrix ..
2470: 20 20 20 20 20 20 20 20 20 20 20 0a 09 09 09 20 ....
2480: 20 20 20 23 3a 65 78 70 61 6e 64 20 22 59 45 53 #:expand "YES
2490: 22 0a 09 09 09 20 20 20 20 3b 3b 20 23 3a 73 63 ".... ;; #:sc
24a0: 72 6f 6c 6c 62 61 72 20 22 59 45 53 22 0a 09 09 rollbar "YES"...
24b0: 09 20 20 20 20 23 3a 6e 75 6d 63 6f 6c 20 31 0a . #:numcol 1.
24c0: 09 09 09 20 20 20 20 23 3a 6e 75 6d 6c 69 6e 20 ... #:numlin
24d0: 34 0a 09 09 09 20 20 20 20 23 3a 6e 75 6d 63 6f 4.... #:numco
24e0: 6c 2d 76 69 73 69 62 6c 65 20 31 0a 09 09 09 20 l-visible 1....
24f0: 20 20 20 23 3a 6e 75 6d 6c 69 6e 2d 76 69 73 69 #:numlin-visi
2500: 62 6c 65 20 34 0a 09 09 09 20 20 20 20 23 3a 63 ble 4.... #:c
2510: 6c 69 63 6b 2d 63 62 20 28 6c 61 6d 62 64 61 20 lick-cb (lambda
2520: 28 6f 62 6a 20 6c 69 6e 20 63 6f 6c 20 73 74 61 (obj lin col sta
2530: 74 75 73 29 0a 09 09 09 09 09 20 28 70 72 69 6e tus)...... (prin
2540: 74 20 22 6f 62 6a 3a 20 22 20 6f 62 6a 20 22 20 t "obj: " obj "
2550: 6c 69 6e 3a 20 22 20 6c 69 6e 20 22 20 63 6f 6c lin: " lin " col
2560: 3a 20 22 20 63 6f 6c 20 22 20 73 74 61 74 75 73 : " col " status
2570: 3a 20 22 20 73 74 61 74 75 73 29 29 29 29 0a 09 : " status))))..
2580: 20 28 74 65 73 74 2d 69 6e 66 6f 2d 6d 61 74 72 (test-info-matr
2590: 69 78 20 28 69 75 70 3a 6d 61 74 72 69 78 0a 09 ix (iup:matrix..
25a0: 09 20 20 20 20 20 20 20 20 20 20 20 20 23 3a 65 . #:e
25b0: 78 70 61 6e 64 20 22 59 45 53 22 0a 09 09 20 20 xpand "YES"...
25c0: 20 20 20 20 20 20 20 20 20 20 23 3a 6e 75 6d 63 #:numc
25d0: 6f 6c 20 31 0a 09 09 20 20 20 20 20 20 20 20 20 ol 1...
25e0: 20 20 20 23 3a 6e 75 6d 6c 69 6e 20 37 0a 09 09 #:numlin 7...
25f0: 20 20 20 20 20 20 20 20 20 20 20 20 23 3a 6e 75 #:nu
2600: 6d 63 6f 6c 2d 76 69 73 69 62 6c 65 20 31 0a 09 mcol-visible 1..
2610: 09 20 20 20 20 20 20 20 20 20 20 20 20 23 3a 6e . #:n
2620: 75 6d 6c 69 6e 2d 76 69 73 69 62 6c 65 20 37 29 umlin-visible 7)
2630: 29 0a 09 20 28 74 65 73 74 2d 72 75 6e 2d 6d 61 ).. (test-run-ma
2640: 74 72 69 78 20 20 28 69 75 70 3a 6d 61 74 72 69 trix (iup:matri
2650: 78 0a 09 09 09 20 20 20 20 23 3a 65 78 70 61 6e x.... #:expan
2660: 64 20 22 59 45 53 22 0a 09 09 09 20 20 20 20 23 d "YES".... #
2670: 3a 6e 75 6d 63 6f 6c 20 31 0a 09 09 09 20 20 20 :numcol 1....
2680: 20 23 3a 6e 75 6d 6c 69 6e 20 35 0a 09 09 09 20 #:numlin 5....
2690: 20 20 20 23 3a 6e 75 6d 63 6f 6c 2d 76 69 73 69 #:numcol-visi
26a0: 62 6c 65 20 31 0a 09 09 09 20 20 20 20 23 3a 6e ble 1.... #:n
26b0: 75 6d 6c 69 6e 2d 76 69 73 69 62 6c 65 20 35 29 umlin-visible 5)
26c0: 29 0a 09 20 28 6d 65 74 61 2d 64 61 74 2d 6d 61 ).. (meta-dat-ma
26d0: 74 72 69 78 20 20 28 69 75 70 3a 6d 61 74 72 69 trix (iup:matri
26e0: 78 0a 09 09 09 20 20 20 20 23 3a 65 78 70 61 6e x.... #:expan
26f0: 64 20 22 59 45 53 22 0a 09 09 09 20 20 20 20 23 d "YES".... #
2700: 3a 6e 75 6d 63 6f 6c 20 31 0a 09 09 09 20 20 20 :numcol 1....
2710: 20 23 3a 6e 75 6d 6c 69 6e 20 35 0a 09 09 09 20 #:numlin 5....
2720: 20 20 20 23 3a 6e 75 6d 63 6f 6c 2d 76 69 73 69 #:numcol-visi
2730: 62 6c 65 20 31 0a 09 09 09 20 20 20 20 23 3a 6e ble 1.... #:n
2740: 75 6d 6c 69 6e 2d 76 69 73 69 62 6c 65 20 35 29 umlin-visible 5)
2750: 29 0a 09 20 28 73 74 65 70 73 2d 6d 61 74 72 69 ).. (steps-matri
2760: 78 20 20 20 20 20 28 69 75 70 3a 6d 61 74 72 69 x (iup:matri
2770: 78 0a 09 09 09 20 20 20 20 23 3a 65 78 70 61 6e x.... #:expan
2780: 64 20 22 59 45 53 22 0a 09 09 09 20 20 20 20 23 d "YES".... #
2790: 3a 6e 75 6d 63 6f 6c 20 36 0a 09 09 09 20 20 20 :numcol 6....
27a0: 20 23 3a 6e 75 6d 6c 69 6e 20 35 30 0a 09 09 09 #:numlin 50....
27b0: 20 20 20 20 23 3a 6e 75 6d 63 6f 6c 2d 76 69 73 #:numcol-vis
27c0: 69 62 6c 65 20 36 0a 09 09 09 20 20 20 20 23 3a ible 6.... #:
27d0: 6e 75 6d 6c 69 6e 2d 76 69 73 69 62 6c 65 20 38 numlin-visible 8
27e0: 29 29 0a 09 20 28 64 61 74 61 2d 6d 61 74 72 69 )).. (data-matri
27f0: 78 20 20 20 20 20 20 28 69 75 70 3a 6d 61 74 72 x (iup:matr
2800: 69 78 0a 09 09 09 20 20 20 20 23 3a 65 78 70 61 ix.... #:expa
2810: 6e 64 20 22 59 45 53 22 0a 09 09 09 20 20 20 20 nd "YES"....
2820: 23 3a 6e 75 6d 63 6f 6c 20 38 0a 09 09 09 20 20 #:numcol 8....
2830: 20 20 23 3a 6e 75 6d 6c 69 6e 20 35 30 0a 09 09 #:numlin 50...
2840: 09 20 20 20 20 23 3a 6e 75 6d 63 6f 6c 2d 76 69 . #:numcol-vi
2850: 73 69 62 6c 65 20 38 0a 09 09 09 20 20 20 20 23 sible 8.... #
2860: 3a 6e 75 6d 6c 69 6e 2d 76 69 73 69 62 6c 65 20 :numlin-visible
2870: 38 29 29 0a 09 20 28 75 70 64 61 74 65 72 20 20 8)).. (updater
2880: 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 (lambda
2890: 28 74 65 73 74 64 61 74 29 0a 09 09 09 20 20 20 (testdat)....
28a0: 20 20 28 74 65 73 74 2d 75 70 64 61 74 65 20 77 (test-update w
28b0: 69 6e 64 6f 77 2d 69 64 20 74 65 73 74 64 61 74 indow-id testdat
28c0: 20 72 75 6e 2d 69 6e 66 6f 2d 6d 61 74 72 69 78 run-info-matrix
28d0: 20 74 65 73 74 2d 69 6e 66 6f 2d 6d 61 74 72 69 test-info-matri
28e0: 78 20 74 65 73 74 2d 72 75 6e 2d 6d 61 74 72 69 x test-run-matri
28f0: 78 20 6d 65 74 61 2d 64 61 74 2d 6d 61 74 72 69 x meta-dat-matri
2900: 78 20 73 74 65 70 73 2d 6d 61 74 72 69 78 20 64 x steps-matrix d
2910: 61 74 61 2d 6d 61 74 72 69 78 29 29 29 29 0a 0a ata-matrix))))..
2920: 20 20 20 20 3b 3b 20 53 65 74 20 74 68 65 20 75 ;; Set the u
2930: 70 64 61 74 65 72 20 69 6e 20 75 70 64 61 74 65 pdater in update
2940: 72 73 0a 20 20 20 20 28 68 61 73 68 2d 74 61 62 rs. (hash-tab
2950: 6c 65 2d 73 65 74 21 20 28 64 62 6f 61 72 64 3a le-set! (dboard:
2960: 64 61 74 61 2d 67 65 74 2d 75 70 64 61 74 65 72 data-get-updater
2970: 73 20 2a 64 61 74 61 2a 29 20 77 69 6e 64 6f 77 s *data*) window
2980: 2d 69 64 20 75 70 64 61 74 65 72 29 0a 20 20 20 -id updater).
2990: 20 3b 3b 20 0a 20 20 20 20 28 66 6f 72 2d 65 61 ;; . (for-ea
29a0: 63 68 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 ch. (lambda
29b0: 28 6d 61 74 29 0a 20 20 20 20 20 20 20 3b 3b 20 (mat). ;;
29c0: 28 69 75 70 3a 61 74 74 72 69 62 75 74 65 2d 73 (iup:attribute-s
29d0: 65 74 21 20 6d 61 74 20 22 30 3a 31 22 20 22 56 et! mat "0:1" "V
29e0: 61 6c 75 65 22 29 0a 20 20 20 20 20 20 20 3b 3b alue"). ;;
29f0: 20 28 69 75 70 3a 61 74 74 72 69 62 75 74 65 2d (iup:attribute-
2a00: 73 65 74 21 20 6d 61 74 20 22 30 3a 30 22 20 22 set! mat "0:0" "
2a10: 56 61 72 22 29 0a 20 20 20 20 20 20 20 28 69 75 Var"). (iu
2a20: 70 3a 61 74 74 72 69 62 75 74 65 2d 73 65 74 21 p:attribute-set!
2a30: 20 6d 61 74 20 22 48 45 49 47 48 54 30 22 20 30 mat "HEIGHT0" 0
2a40: 29 0a 20 20 20 20 20 20 20 28 69 75 70 3a 61 74 ). (iup:at
2a50: 74 72 69 62 75 74 65 2d 73 65 74 21 20 6d 61 74 tribute-set! mat
2a60: 20 22 41 4c 49 47 4e 4d 45 4e 54 31 22 20 22 41 "ALIGNMENT1" "A
2a70: 4c 45 46 54 22 29 0a 20 20 20 20 20 20 20 3b 3b LEFT"). ;;
2a80: 20 28 69 75 70 3a 61 74 74 72 69 62 75 74 65 2d (iup:attribute-
2a90: 73 65 74 21 20 6d 61 74 20 22 46 49 58 54 4f 54 set! mat "FIXTOT
2aa0: 45 58 54 22 20 22 43 31 22 29 0a 20 20 20 20 20 EXT" "C1").
2ab0: 20 20 28 69 75 70 3a 61 74 74 72 69 62 75 74 65 (iup:attribute
2ac0: 2d 73 65 74 21 20 6d 61 74 20 22 52 45 53 49 5a -set! mat "RESIZ
2ad0: 45 4d 41 54 52 49 58 22 20 22 59 45 53 22 29 29 EMATRIX" "YES"))
2ae0: 0a 20 20 20 20 20 20 20 3b 3b 20 28 69 75 70 3a . ;; (iup:
2af0: 61 74 74 72 69 62 75 74 65 2d 73 65 74 21 20 6d attribute-set! m
2b00: 61 74 20 22 57 49 44 54 48 31 22 20 22 31 32 30 at "WIDTH1" "120
2b10: 22 29 0a 20 20 20 20 20 20 20 3b 3b 20 28 69 75 "). ;; (iu
2b20: 70 3a 61 74 74 72 69 62 75 74 65 2d 73 65 74 21 p:attribute-set!
2b30: 20 6d 61 74 20 22 57 49 44 54 48 30 22 20 22 31 mat "WIDTH0" "1
2b40: 30 30 22 29 29 0a 20 20 20 20 20 28 6c 69 73 74 00")). (list
2b50: 20 72 75 6e 2d 69 6e 66 6f 2d 6d 61 74 72 69 78 run-info-matrix
2b60: 20 74 65 73 74 2d 69 6e 66 6f 2d 6d 61 74 72 69 test-info-matri
2b70: 78 20 74 65 73 74 2d 72 75 6e 2d 6d 61 74 72 69 x test-run-matri
2b80: 78 20 6d 65 74 61 2d 64 61 74 2d 6d 61 74 72 69 x meta-dat-matri
2b90: 78 29 29 0a 0a 20 20 20 20 3b 3b 20 53 74 65 70 x)).. ;; Step
2ba0: 73 20 6d 61 74 72 69 78 0a 20 20 20 20 28 69 75 s matrix. (iu
2bb0: 70 3a 61 74 74 72 69 62 75 74 65 2d 73 65 74 21 p:attribute-set!
2bc0: 20 73 74 65 70 73 2d 6d 61 74 72 69 78 20 22 30 steps-matrix "0
2bd0: 3a 31 22 20 22 53 74 65 70 20 4e 61 6d 65 22 29 :1" "Step Name")
2be0: 0a 20 20 20 20 28 69 75 70 3a 61 74 74 72 69 62 . (iup:attrib
2bf0: 75 74 65 2d 73 65 74 21 20 73 74 65 70 73 2d 6d ute-set! steps-m
2c00: 61 74 72 69 78 20 22 30 3a 32 22 20 22 53 74 61 atrix "0:2" "Sta
2c10: 72 74 22 29 0a 20 20 20 20 28 69 75 70 3a 61 74 rt"). (iup:at
2c20: 74 72 69 62 75 74 65 2d 73 65 74 21 20 73 74 65 tribute-set! ste
2c30: 70 73 2d 6d 61 74 72 69 78 20 22 57 49 44 54 48 ps-matrix "WIDTH
2c40: 32 22 20 22 34 30 22 29 0a 20 20 20 20 28 69 75 2" "40"). (iu
2c50: 70 3a 61 74 74 72 69 62 75 74 65 2d 73 65 74 21 p:attribute-set!
2c60: 20 73 74 65 70 73 2d 6d 61 74 72 69 78 20 22 30 steps-matrix "0
2c70: 3a 33 22 20 22 45 6e 64 22 29 0a 20 20 20 20 28 :3" "End"). (
2c80: 69 75 70 3a 61 74 74 72 69 62 75 74 65 2d 73 65 iup:attribute-se
2c90: 74 21 20 73 74 65 70 73 2d 6d 61 74 72 69 78 20 t! steps-matrix
2ca0: 22 57 49 44 54 48 33 22 20 22 34 30 22 29 0a 20 "WIDTH3" "40").
2cb0: 20 20 20 28 69 75 70 3a 61 74 74 72 69 62 75 74 (iup:attribut
2cc0: 65 2d 73 65 74 21 20 73 74 65 70 73 2d 6d 61 74 e-set! steps-mat
2cd0: 72 69 78 20 22 30 3a 34 22 20 22 53 74 61 74 75 rix "0:4" "Statu
2ce0: 73 22 29 0a 20 20 20 20 28 69 75 70 3a 61 74 74 s"). (iup:att
2cf0: 72 69 62 75 74 65 2d 73 65 74 21 20 73 74 65 70 ribute-set! step
2d00: 73 2d 6d 61 74 72 69 78 20 22 57 49 44 54 48 34 s-matrix "WIDTH4
2d10: 22 20 22 34 30 22 29 0a 20 20 20 20 28 69 75 70 " "40"). (iup
2d20: 3a 61 74 74 72 69 62 75 74 65 2d 73 65 74 21 20 :attribute-set!
2d30: 73 74 65 70 73 2d 6d 61 74 72 69 78 20 22 30 3a steps-matrix "0:
2d40: 35 22 20 22 44 75 72 61 74 69 6f 6e 22 29 0a 20 5" "Duration").
2d50: 20 20 20 28 69 75 70 3a 61 74 74 72 69 62 75 74 (iup:attribut
2d60: 65 2d 73 65 74 21 20 73 74 65 70 73 2d 6d 61 74 e-set! steps-mat
2d70: 72 69 78 20 22 57 49 44 54 48 35 22 20 22 34 30 rix "WIDTH5" "40
2d80: 22 29 0a 20 20 20 20 28 69 75 70 3a 61 74 74 72 "). (iup:attr
2d90: 69 62 75 74 65 2d 73 65 74 21 20 73 74 65 70 73 ibute-set! steps
2da0: 2d 6d 61 74 72 69 78 20 22 30 3a 36 22 20 22 4c -matrix "0:6" "L
2db0: 6f 67 20 46 69 6c 65 22 29 0a 20 20 20 20 28 69 og File"). (i
2dc0: 75 70 3a 61 74 74 72 69 62 75 74 65 2d 73 65 74 up:attribute-set
2dd0: 21 20 73 74 65 70 73 2d 6d 61 74 72 69 78 20 22 ! steps-matrix "
2de0: 41 4c 49 47 4e 4d 45 4e 54 31 22 20 22 41 4c 45 ALIGNMENT1" "ALE
2df0: 46 54 22 29 0a 20 20 20 20 3b 3b 20 28 69 75 70 FT"). ;; (iup
2e00: 3a 61 74 74 72 69 62 75 74 65 2d 73 65 74 21 20 :attribute-set!
2e10: 73 74 65 70 73 2d 6d 61 74 72 69 78 20 22 46 49 steps-matrix "FI
2e20: 58 54 4f 54 45 58 54 22 20 22 43 31 22 29 0a 20 XTOTEXT" "C1").
2e30: 20 20 20 28 69 75 70 3a 61 74 74 72 69 62 75 74 (iup:attribut
2e40: 65 2d 73 65 74 21 20 73 74 65 70 73 2d 6d 61 74 e-set! steps-mat
2e50: 72 69 78 20 22 52 45 53 49 5a 45 4d 41 54 52 49 rix "RESIZEMATRI
2e60: 58 22 20 22 59 45 53 22 29 0a 20 20 20 20 3b 3b X" "YES"). ;;
2e70: 20 28 69 75 70 3a 61 74 74 72 69 62 75 74 65 2d (iup:attribute-
2e80: 73 65 74 21 20 73 74 65 70 73 2d 6d 61 74 72 69 set! steps-matri
2e90: 78 20 22 57 49 44 54 48 31 22 20 22 31 32 30 22 x "WIDTH1" "120"
2ea0: 29 0a 20 20 20 20 3b 3b 20 28 69 75 70 3a 61 74 ). ;; (iup:at
2eb0: 74 72 69 62 75 74 65 2d 73 65 74 21 20 73 74 65 tribute-set! ste
2ec0: 70 73 2d 6d 61 74 72 69 78 20 22 57 49 44 54 48 ps-matrix "WIDTH
2ed0: 30 22 20 22 31 30 30 22 29 0a 0a 20 20 20 20 3b 0" "100").. ;
2ee0: 3b 20 44 61 74 61 20 6d 61 74 72 69 78 0a 20 20 ; Data matrix.
2ef0: 20 20 3b 3b 20 0a 20 20 20 20 28 6c 65 74 20 28 ;; . (let (
2f00: 28 72 6f 77 6e 75 6d 20 31 29 29 0a 20 20 20 20 (rownum 1)).
2f10: 20 20 28 66 6f 72 2d 65 61 63 68 0a 20 20 20 20 (for-each.
2f20: 20 20 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 09 (lambda (x)..
2f30: 20 28 69 75 70 3a 61 74 74 72 69 62 75 74 65 2d (iup:attribute-
2f40: 73 65 74 21 20 64 61 74 61 2d 6d 61 74 72 69 78 set! data-matrix
2f50: 20 28 63 6f 6e 63 20 22 30 3a 22 20 72 6f 77 6e (conc "0:" rown
2f60: 75 6d 29 20 78 29 0a 09 20 28 69 75 70 3a 61 74 um) x).. (iup:at
2f70: 74 72 69 62 75 74 65 2d 73 65 74 21 20 64 61 74 tribute-set! dat
2f80: 61 2d 6d 61 74 72 69 78 20 28 63 6f 6e 63 20 22 a-matrix (conc "
2f90: 57 49 44 54 48 22 20 72 6f 77 6e 75 6d 29 20 22 WIDTH" rownum) "
2fa0: 35 30 22 29 0a 09 20 28 73 65 74 21 20 72 6f 77 50").. (set! row
2fb0: 6e 75 6d 20 28 2b 20 72 6f 77 6e 75 6d 20 31 29 num (+ rownum 1)
2fc0: 29 29 0a 20 20 20 20 20 20 20 28 6c 69 73 74 20 )). (list
2fd0: 22 43 61 74 65 67 6f 72 79 22 20 22 56 61 72 69 "Category" "Vari
2fe0: 61 62 6c 65 22 20 22 56 61 6c 75 65 22 20 22 45 able" "Value" "E
2ff0: 78 70 65 63 74 65 64 22 20 22 54 6f 6c 65 72 61 xpected" "Tolera
3000: 6e 63 65 22 20 20 22 53 74 61 74 75 73 22 20 22 nce" "Status" "
3010: 55 6e 69 74 73 22 20 22 54 79 70 65 22 20 22 43 Units" "Type" "C
3020: 6f 6d 6d 65 6e 74 22 29 29 29 0a 20 20 20 20 28 omment"))). (
3030: 69 75 70 3a 61 74 74 72 69 62 75 74 65 2d 73 65 iup:attribute-se
3040: 74 21 20 64 61 74 61 2d 6d 61 74 72 69 78 20 22 t! data-matrix "
3050: 52 45 44 52 41 57 22 20 22 41 4c 4c 22 29 0a 20 REDRAW" "ALL").
3060: 20 20 20 0a 20 20 20 20 28 66 6f 72 2d 65 61 63 . (for-eac
3070: 68 20 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 h . (lambda
3080: 28 64 61 74 61 29 0a 20 20 20 20 20 20 20 28 6c (data). (l
3090: 65 74 20 28 28 6d 61 74 20 20 20 20 28 63 61 72 et ((mat (car
30a0: 20 64 61 74 61 29 29 0a 09 20 20 20 20 20 28 6b data)).. (k
30b0: 65 79 73 20 20 20 28 63 61 64 72 20 64 61 74 61 eys (cadr data
30c0: 29 29 0a 09 20 20 20 20 20 28 72 6f 77 6e 75 6d )).. (rownum
30d0: 20 31 29 29 0a 09 20 28 66 6f 72 2d 65 61 63 68 1)).. (for-each
30e0: 0a 09 20 20 28 6c 61 6d 62 64 61 20 28 6b 65 79 .. (lambda (key
30f0: 29 0a 09 20 20 20 20 28 69 75 70 3a 61 74 74 72 ).. (iup:attr
3100: 69 62 75 74 65 2d 73 65 74 21 20 6d 61 74 20 28 ibute-set! mat (
3110: 63 6f 6e 63 20 72 6f 77 6e 75 6d 20 22 3a 30 22 conc rownum ":0"
3120: 29 20 6b 65 79 29 0a 09 20 20 20 20 28 73 65 74 ) key).. (set
3130: 21 20 72 6f 77 6e 75 6d 20 28 2b 20 72 6f 77 6e ! rownum (+ rown
3140: 75 6d 20 31 29 29 29 0a 09 20 20 6b 65 79 73 29 um 1))).. keys)
3150: 0a 09 20 28 69 75 70 3a 61 74 74 72 69 62 75 74 .. (iup:attribut
3160: 65 2d 73 65 74 21 20 6d 61 74 20 22 52 45 44 52 e-set! mat "REDR
3170: 41 57 22 20 22 41 4c 4c 22 29 29 29 0a 20 20 20 AW" "ALL"))).
3180: 20 20 28 6c 69 73 74 0a 20 20 20 20 20 20 28 6c (list. (l
3190: 69 73 74 20 72 75 6e 2d 69 6e 66 6f 2d 6d 61 74 ist run-info-mat
31a0: 72 69 78 20 20 27 28 22 52 75 6e 20 49 64 22 20 rix '("Run Id"
31b0: 20 22 54 61 72 67 65 74 22 20 20 20 22 52 75 6e "Target" "Run
31c0: 6e 61 6d 65 22 20 22 52 75 6e 20 53 74 61 72 74 name" "Run Start
31d0: 20 54 69 6d 65 22 20 29 29 0a 20 20 20 20 20 20 Time" )).
31e0: 28 6c 69 73 74 20 74 65 73 74 2d 69 6e 66 6f 2d (list test-info-
31f0: 6d 61 74 72 69 78 20 27 28 22 54 65 73 74 20 49 matrix '("Test I
3200: 64 22 20 22 54 65 73 74 6e 61 6d 65 22 20 22 49 d" "Testname" "I
3210: 74 65 6d 70 61 74 68 22 20 22 53 74 61 74 65 22 tempath" "State"
3220: 20 20 20 22 53 74 61 74 75 73 22 20 22 54 65 73 "Status" "Tes
3230: 74 20 53 74 61 72 74 20 54 69 6d 65 22 20 22 43 t Start Time" "C
3240: 6f 6d 6d 65 6e 74 22 29 29 0a 20 20 20 20 20 20 omment")).
3250: 28 6c 69 73 74 20 74 65 73 74 2d 72 75 6e 2d 6d (list test-run-m
3260: 61 74 72 69 78 20 20 27 28 22 48 6f 73 74 6e 61 atrix '("Hostna
3270: 6d 65 22 20 22 48 6f 73 74 20 69 6e 66 6f 22 20 me" "Host info"
3280: 22 44 69 73 6b 20 46 72 65 65 22 20 22 43 50 55 "Disk Free" "CPU
3290: 20 4c 6f 61 64 22 20 22 52 75 6e 20 44 75 72 61 Load" "Run Dura
32a0: 74 69 6f 6e 22 29 29 0a 20 20 20 20 20 20 28 6c tion")). (l
32b0: 69 73 74 20 6d 65 74 61 2d 64 61 74 2d 6d 61 74 ist meta-dat-mat
32c0: 72 69 78 20 20 27 28 22 41 75 74 68 6f 72 22 20 rix '("Author"
32d0: 20 20 22 4f 77 6e 65 72 22 20 20 20 20 20 22 4c "Owner" "L
32e0: 61 73 74 20 52 65 76 69 65 77 65 64 22 20 22 54 ast Reviewed" "T
32f0: 61 67 73 22 20 22 44 65 73 63 72 69 70 74 69 6f ags" "Descriptio
3300: 6e 22 29 29 29 29 0a 09 20 20 20 20 0a 20 20 20 n")))).. .
3310: 20 28 69 75 70 3a 73 70 6c 69 74 0a 20 20 20 20 (iup:split.
3320: 20 20 23 3a 6f 72 69 65 6e 74 61 74 69 6f 6e 20 #:orientation
3330: 22 48 4f 52 49 5a 4f 4e 54 41 4c 22 0a 20 20 20 "HORIZONTAL".
3340: 20 20 20 28 69 75 70 3a 76 62 6f 78 0a 20 20 20 (iup:vbox.
3350: 20 20 20 20 28 69 75 70 3a 68 62 6f 78 0a 09 28 (iup:hbox..(
3360: 69 75 70 3a 76 62 6f 78 0a 09 20 72 75 6e 2d 69 iup:vbox.. run-i
3370: 6e 66 6f 2d 6d 61 74 72 69 78 0a 09 20 74 65 73 nfo-matrix.. tes
3380: 74 2d 69 6e 66 6f 2d 6d 61 74 72 69 78 29 0a 20 t-info-matrix).
3390: 20 20 20 20 20 20 3b 3b 20 74 65 73 74 2d 69 6e ;; test-in
33a0: 66 6f 2d 6d 61 74 72 69 78 29 0a 09 28 69 75 70 fo-matrix)..(iup
33b0: 3a 76 62 6f 78 0a 09 20 74 65 73 74 2d 72 75 6e :vbox.. test-run
33c0: 2d 6d 61 74 72 69 78 0a 09 20 6d 65 74 61 2d 64 -matrix.. meta-d
33d0: 61 74 2d 6d 61 74 72 69 78 29 29 0a 20 20 20 20 at-matrix)).
33e0: 20 20 20 28 69 75 70 3a 76 62 6f 78 0a 09 28 69 (iup:vbox..(i
33f0: 75 70 3a 76 62 6f 78 0a 09 20 28 69 75 70 3a 68 up:vbox.. (iup:h
3400: 62 6f 78 20 0a 09 20 20 28 69 75 70 3a 62 75 74 box .. (iup:but
3410: 74 6f 6e 20 22 56 69 65 77 20 4c 6f 67 22 20 20 ton "View Log"
3420: 20 20 23 3a 61 63 74 69 6f 6e 20 76 69 65 77 6c #:action viewl
3430: 6f 67 20 20 20 20 20 20 23 3a 73 69 7a 65 20 22 og #:size "
3440: 36 30 78 22 20 29 20 20 20 3b 3b 20 23 3a 73 69 60x" ) ;; #:si
3450: 7a 65 20 22 33 30 78 22 20 0a 09 20 20 28 69 75 ze "30x" .. (iu
3460: 70 3a 62 75 74 74 6f 6e 20 22 53 74 61 72 74 20 p:button "Start
3470: 58 74 65 72 6d 22 20 23 3a 61 63 74 69 6f 6e 20 Xterm" #:action
3480: 78 74 65 72 6d 20 20 20 20 20 20 20 20 23 3a 73 xterm #:s
3490: 69 7a 65 20 22 36 30 78 22 20 29 29 09 20 3b 3b ize "60x" )). ;;
34a0: 20 23 3a 73 69 7a 65 20 22 33 30 78 22 20 0a 09 #:size "30x" ..
34b0: 20 28 69 75 70 3a 68 62 6f 78 0a 09 20 20 20 28 (iup:hbox.. (
34c0: 69 75 70 3a 62 75 74 74 6f 6e 20 22 52 75 6e 20 iup:button "Run
34d0: 54 65 73 74 22 20 20 20 20 23 3a 61 63 74 69 6f Test" #:actio
34e0: 6e 20 72 75 6e 2d 74 65 73 74 20 20 20 20 23 3a n run-test #:
34f0: 73 69 7a 65 20 22 36 30 78 22 20 29 09 20 3b 3b size "60x" ). ;;
3500: 20 23 3a 73 69 7a 65 20 22 33 30 78 22 20 0a 09 #:size "30x" ..
3510: 20 20 20 28 69 75 70 3a 62 75 74 74 6f 6e 20 22 (iup:button "
3520: 43 6c 65 61 6e 20 54 65 73 74 22 20 20 23 3a 61 Clean Test" #:a
3530: 63 74 69 6f 6e 20 72 65 6d 6f 76 65 2d 74 65 73 ction remove-tes
3540: 74 20 23 3a 73 69 7a 65 20 22 36 30 78 22 20 29 t #:size "60x" )
3550: 29 29 09 20 3b 3b 20 23 3a 73 69 7a 65 20 22 33 )). ;; #:size "3
3560: 30 78 22 20 0a 09 28 69 75 70 3a 68 62 6f 78 0a 0x" ..(iup:hbox.
3570: 09 20 3b 3b 20 68 69 75 70 3a 73 70 6c 69 74 20 . ;; hiup:split
3580: 3b 3b 20 68 62 6f 78 0a 09 20 3b 3b 20 23 3a 6f ;; hbox.. ;; #:o
3590: 72 69 65 6e 74 61 74 69 6f 6e 20 22 48 4f 52 49 rientation "HORI
35a0: 5a 4f 4e 54 41 4c 22 0a 09 20 3b 3b 20 23 3a 76 ZONTAL".. ;; #:v
35b0: 61 6c 75 65 20 33 30 30 0a 09 20 63 6f 6d 6d 61 alue 300.. comma
35c0: 6e 64 2d 74 65 78 74 2d 62 6f 78 0a 09 20 63 6f nd-text-box.. co
35d0: 6d 6d 61 6e 64 2d 6c 61 75 6e 63 68 2d 62 75 74 mmand-launch-but
35e0: 74 6f 6e 29 29 29 0a 20 20 20 20 20 20 28 69 75 ton))). (iu
35f0: 70 3a 76 62 6f 78 0a 20 20 20 20 20 20 20 28 6c p:vbox. (l
3600: 65 74 20 28 28 74 61 62 73 20 28 69 75 70 3a 74 et ((tabs (iup:t
3610: 61 62 73 0a 09 09 20 20 20 20 73 74 65 70 73 2d abs... steps-
3620: 6d 61 74 72 69 78 0a 09 09 20 20 20 20 64 61 74 matrix... dat
3630: 61 2d 6d 61 74 72 69 78 29 29 29 0a 09 20 28 69 a-matrix))).. (i
3640: 75 70 3a 61 74 74 72 69 62 75 74 65 2d 73 65 74 up:attribute-set
3650: 21 20 74 61 62 73 20 22 54 41 42 54 49 54 4c 45 ! tabs "TABTITLE
3660: 30 22 20 22 54 65 73 74 20 53 74 65 70 73 22 29 0" "Test Steps")
3670: 0a 09 20 28 69 75 70 3a 61 74 74 72 69 62 75 74 .. (iup:attribut
3680: 65 2d 73 65 74 21 20 74 61 62 73 20 22 54 41 42 e-set! tabs "TAB
3690: 54 49 54 4c 45 31 22 20 22 54 65 73 74 20 44 61 TITLE1" "Test Da
36a0: 74 61 22 29 0a 09 20 74 61 62 73 29 29 29 29 29 ta").. tabs)))))
36b0: 0a 20 20 20 20 20 20 20 0a 3b 3b 20 54 65 73 74 . .;; Test
36c0: 20 62 72 6f 77 73 65 72 0a 28 64 65 66 69 6e 65 browser.(define
36d0: 20 28 74 65 73 74 73 20 77 69 6e 64 6f 77 2d 69 (tests window-i
36e0: 64 29 0a 20 20 28 69 75 70 3a 73 70 6c 69 74 0a d). (iup:split.
36f0: 20 20 20 28 6c 65 74 2a 20 28 28 74 62 20 20 20 (let* ((tb
3700: 20 20 20 28 69 75 70 3a 74 72 65 65 62 6f 78 0a (iup:treebox.
3710: 09 09 20 20 20 20 23 3a 73 65 6c 65 63 74 69 6f .. #:selectio
3720: 6e 2d 63 62 0a 09 09 20 20 20 20 28 6c 61 6d 62 n-cb... (lamb
3730: 64 61 20 28 6f 62 6a 20 69 64 20 73 74 61 74 65 da (obj id state
3740: 29 0a 09 09 20 20 20 20 20 20 3b 3b 20 28 70 72 )... ;; (pr
3750: 69 6e 74 20 22 6f 62 6a 3a 20 22 20 6f 62 6a 20 int "obj: " obj
3760: 22 2c 20 69 64 3a 20 22 20 69 64 20 22 2c 20 73 ", id: " id ", s
3770: 74 61 74 65 3a 20 22 20 73 74 61 74 65 29 0a 09 tate: " state)..
3780: 09 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 72 . (let* ((r
3790: 75 6e 2d 70 61 74 68 20 28 74 72 65 65 3a 6e 6f un-path (tree:no
37a0: 64 65 2d 3e 70 61 74 68 20 6f 62 6a 20 69 64 29 de->path obj id)
37b0: 29 0a 09 09 09 20 20 20 20 20 28 74 65 73 74 2d ).... (test-
37c0: 69 64 20 20 28 74 72 65 65 2d 70 61 74 68 2d 3e id (tree-path->
37d0: 74 65 73 74 2d 69 64 20 28 63 64 72 20 72 75 6e test-id (cdr run
37e0: 2d 70 61 74 68 29 29 29 29 0a 09 09 09 28 69 66 -path))))....(if
37f0: 20 74 65 73 74 2d 69 64 0a 09 09 09 20 20 20 20 test-id....
3800: 28 68 61 73 68 2d 74 61 62 6c 65 2d 73 65 74 21 (hash-table-set!
3810: 20 28 64 62 6f 61 72 64 3a 64 61 74 61 2d 67 65 (dboard:data-ge
3820: 74 2d 63 75 72 72 2d 74 65 73 74 2d 69 64 73 20 t-curr-test-ids
3830: 2a 64 61 74 61 2a 29 0a 09 09 09 09 09 20 20 20 *data*)......
3840: 20 20 77 69 6e 64 6f 77 2d 69 64 20 74 65 73 74 window-id test
3850: 2d 69 64 29 29 0a 09 09 09 28 70 72 69 6e 74 20 -id))....(print
3860: 22 70 61 74 68 3a 20 22 20 28 74 72 65 65 3a 6e "path: " (tree:n
3870: 6f 64 65 2d 3e 70 61 74 68 20 6f 62 6a 20 69 64 ode->path obj id
3880: 29 20 22 20 74 65 73 74 2d 69 64 3a 20 22 20 74 ) " test-id: " t
3890: 65 73 74 2d 69 64 29 29 29 29 29 29 0a 20 20 20 est-id)))))).
38a0: 20 20 28 69 75 70 3a 61 74 74 72 69 62 75 74 65 (iup:attribute
38b0: 2d 73 65 74 21 20 74 62 20 22 56 41 4c 55 45 22 -set! tb "VALUE"
38c0: 20 22 30 22 29 0a 20 20 20 20 20 28 69 75 70 3a "0"). (iup:
38d0: 61 74 74 72 69 62 75 74 65 2d 73 65 74 21 20 74 attribute-set! t
38e0: 62 20 22 4e 41 4d 45 22 20 22 52 75 6e 73 22 29 b "NAME" "Runs")
38f0: 0a 20 20 20 20 20 3b 3b 28 69 75 70 3a 61 74 74 . ;;(iup:att
3900: 72 69 62 75 74 65 2d 73 65 74 21 20 74 62 20 22 ribute-set! tb "
3910: 41 44 44 45 58 50 41 4e 44 45 44 22 20 22 4e 4f ADDEXPANDED" "NO
3920: 22 29 0a 20 20 20 20 20 28 64 62 6f 61 72 64 3a "). (dboard:
3930: 64 61 74 61 2d 73 65 74 2d 74 65 73 74 73 2d 74 data-set-tests-t
3940: 72 65 65 21 20 2a 64 61 74 61 2a 20 74 62 29 0a ree! *data* tb).
3950: 20 20 20 20 20 74 62 29 0a 20 20 20 28 74 65 73 tb). (tes
3960: 74 2d 70 61 6e 65 6c 20 77 69 6e 64 6f 77 2d 69 t-panel window-i
3970: 64 29 29 29 0a 0a 3b 3b 20 54 68 65 20 66 75 6e d)))..;; The fun
3980: 63 74 69 6f 6e 20 74 6f 20 75 70 64 61 74 65 20 ction to update
3990: 74 68 65 20 66 69 65 6c 64 73 20 69 6e 20 74 68 the fields in th
39a0: 65 20 74 65 73 74 20 76 69 65 77 20 70 61 6e 65 e test view pane
39b0: 6c 0a 28 64 65 66 69 6e 65 20 28 74 65 73 74 2d l.(define (test-
39c0: 75 70 64 61 74 65 20 77 69 6e 64 6f 77 2d 69 64 update window-id
39d0: 20 74 65 73 74 64 61 74 20 72 75 6e 2d 69 6e 66 testdat run-inf
39e0: 6f 2d 6d 61 74 72 69 78 20 74 65 73 74 2d 69 6e o-matrix test-in
39f0: 66 6f 2d 6d 61 74 72 69 78 20 74 65 73 74 2d 72 fo-matrix test-r
3a00: 75 6e 2d 6d 61 74 72 69 78 20 6d 65 74 61 2d 64 un-matrix meta-d
3a10: 61 74 2d 6d 61 74 72 69 78 20 73 74 65 70 73 2d at-matrix steps-
3a20: 6d 61 74 72 69 78 20 64 61 74 61 2d 6d 61 74 72 matrix data-matr
3a30: 69 78 29 0a 20 20 3b 3b 20 67 65 74 20 74 65 73 ix). ;; get tes
3a40: 74 2d 69 64 0a 20 20 3b 3b 20 74 68 65 6e 20 67 t-id. ;; then g
3a50: 65 74 20 74 65 73 74 20 72 65 63 6f 72 64 0a 20 et test record.
3a60: 20 28 69 66 20 74 65 73 74 64 61 74 0a 20 20 20 (if testdat.
3a70: 20 20 20 28 6c 65 74 2a 20 28 28 74 65 73 74 2d (let* ((test-
3a80: 69 64 20 20 20 20 20 20 28 68 61 73 68 2d 74 61 id (hash-ta
3a90: 62 6c 65 2d 72 65 66 2f 64 65 66 61 75 6c 74 20 ble-ref/default
3aa0: 28 64 62 6f 61 72 64 3a 64 61 74 61 2d 67 65 74 (dboard:data-get
3ab0: 2d 63 75 72 72 2d 74 65 73 74 2d 69 64 73 20 2a -curr-test-ids *
3ac0: 64 61 74 61 2a 29 20 77 69 6e 64 6f 77 2d 69 64 data*) window-id
3ad0: 20 23 66 29 29 0a 09 20 20 20 20 20 28 74 65 73 #f)).. (tes
3ae0: 74 2d 64 61 74 61 20 20 20 20 28 68 61 73 68 2d t-data (hash-
3af0: 74 61 62 6c 65 2d 72 65 66 2f 64 65 66 61 75 6c table-ref/defaul
3b00: 74 20 74 65 73 74 64 61 74 20 74 65 73 74 2d 69 t testdat test-i
3b10: 64 20 23 66 29 29 0a 09 20 20 20 20 20 28 72 75 d #f)).. (ru
3b20: 6e 2d 69 64 20 20 20 20 20 20 20 28 64 62 3a 74 n-id (db:t
3b30: 65 73 74 2d 67 65 74 2d 72 75 6e 5f 69 64 20 74 est-get-run_id t
3b40: 65 73 74 2d 64 61 74 61 29 29 0a 09 20 20 20 20 est-data))..
3b50: 20 28 74 61 72 67 2f 72 75 6e 6e 61 6d 65 20 28 (targ/runname (
3b60: 68 61 73 68 2d 74 61 62 6c 65 2d 72 65 66 2f 64 hash-table-ref/d
3b70: 65 66 61 75 6c 74 20 28 64 62 6f 61 72 64 3a 64 efault (dboard:d
3b80: 61 74 61 2d 67 65 74 2d 72 75 6e 2d 6b 65 79 73 ata-get-run-keys
3b90: 20 2a 64 61 74 61 2a 29 20 0a 09 09 09 09 09 09 *data*) .......
3ba0: 20 20 20 72 75 6e 2d 69 64 0a 09 09 09 09 09 09 run-id.......
3bb0: 20 20 20 27 28 29 29 29 0a 09 20 20 20 20 20 28 '())).. (
3bc0: 74 61 72 67 65 74 20 20 20 20 20 20 20 28 69 66 target (if
3bd0: 20 28 6e 75 6c 6c 3f 20 74 61 72 67 2f 72 75 6e (null? targ/run
3be0: 6e 61 6d 65 29 20 22 22 20 28 73 74 72 69 6e 67 name) "" (string
3bf0: 2d 69 6e 74 65 72 73 70 65 72 73 65 20 28 72 65 -intersperse (re
3c00: 76 65 72 73 65 20 28 63 64 72 20 28 72 65 76 65 verse (cdr (reve
3c10: 72 73 65 20 74 61 72 67 2f 72 75 6e 6e 61 6d 65 rse targ/runname
3c20: 29 29 29 20 22 2f 22 29 29 29 0a 09 20 20 20 20 ))) "/")))..
3c30: 20 28 72 75 6e 6e 61 6d 65 20 20 20 20 20 20 28 (runname (
3c40: 69 66 20 28 6e 75 6c 6c 3f 20 74 61 72 67 2f 72 if (null? targ/r
3c50: 75 6e 6e 61 6d 65 29 20 22 22 20 28 63 61 72 20 unname) "" (car
3c60: 28 63 64 72 20 74 61 72 67 2f 72 75 6e 6e 61 6d (cdr targ/runnam
3c70: 65 29 29 29 29 0a 09 20 20 20 20 20 28 73 74 65 e)))).. (ste
3c80: 70 73 2d 64 61 74 20 20 20 20 28 64 63 6f 6d 6d ps-dat (dcomm
3c90: 6f 6e 3a 67 65 74 2d 63 6f 6d 70 72 65 73 73 65 on:get-compresse
3ca0: 64 2d 73 74 65 70 73 20 2a 64 62 73 74 72 75 63 d-steps *dbstruc
3cb0: 74 2d 6c 6f 63 61 6c 2a 20 72 75 6e 2d 69 64 20 t-local* run-id
3cc0: 74 65 73 74 2d 69 64 29 29 29 0a 09 09 09 09 0a test-id)))......
3cd0: 09 28 69 66 20 74 65 73 74 2d 64 61 74 61 0a 09 .(if test-data..
3ce0: 20 20 20 20 28 62 65 67 69 6e 0a 09 20 20 20 20 (begin..
3cf0: 20 20 3b 3b 20 0a 09 20 20 20 20 20 20 28 66 6f ;; .. (fo
3d00: 72 2d 65 61 63 68 20 0a 09 20 20 20 20 20 20 20 r-each ..
3d10: 28 6c 61 6d 62 64 61 20 28 64 61 74 61 29 0a 09 (lambda (data)..
3d20: 09 20 28 6c 65 74 20 28 28 6d 61 74 20 20 20 20 . (let ((mat
3d30: 28 63 61 72 20 64 61 74 61 29 29 0a 09 09 20 20 (car data))...
3d40: 20 20 20 20 20 28 76 61 6c 73 20 20 20 28 63 61 (vals (ca
3d50: 64 72 20 64 61 74 61 29 29 0a 09 09 20 20 20 20 dr data))...
3d60: 20 20 20 28 72 6f 77 6e 75 6d 20 31 29 29 0a 09 (rownum 1))..
3d70: 09 20 20 20 28 66 6f 72 2d 65 61 63 68 20 0a 09 . (for-each ..
3d80: 09 20 20 20 20 28 6c 61 6d 62 64 61 20 28 6b 65 . (lambda (ke
3d90: 79 29 0a 09 09 20 20 20 20 20 20 28 6c 65 74 20 y)... (let
3da0: 28 28 63 65 6c 6c 20 20 20 28 63 6f 6e 63 20 72 ((cell (conc r
3db0: 6f 77 6e 75 6d 20 22 3a 31 22 29 29 29 0a 09 09 ownum ":1")))...
3dc0: 09 28 69 66 20 28 6e 6f 74 20 28 65 71 75 61 6c .(if (not (equal
3dd0: 3f 20 28 69 75 70 3a 61 74 74 72 69 62 75 74 65 ? (iup:attribute
3de0: 20 6d 61 74 20 63 65 6c 6c 29 28 63 6f 6e 63 20 mat cell)(conc
3df0: 6b 65 79 29 29 29 0a 09 09 09 20 20 20 20 28 62 key))).... (b
3e00: 65 67 69 6e 0a 09 09 09 20 20 20 20 20 20 3b 3b egin.... ;;
3e10: 20 28 70 72 69 6e 74 20 22 73 65 74 74 69 6e 67 (print "setting
3e20: 20 63 65 6c 6c 20 22 20 63 65 6c 6c 20 22 20 69 cell " cell " i
3e30: 6e 20 6d 61 74 72 69 78 20 22 20 6d 61 74 20 22 n matrix " mat "
3e40: 20 74 6f 20 76 61 6c 75 65 20 22 20 6b 65 79 29 to value " key)
3e50: 0a 09 09 09 20 20 20 20 20 20 28 69 75 70 3a 61 .... (iup:a
3e60: 74 74 72 69 62 75 74 65 2d 73 65 74 21 20 6d 61 ttribute-set! ma
3e70: 74 20 63 65 6c 6c 20 28 63 6f 6e 63 20 6b 65 79 t cell (conc key
3e80: 29 29 0a 09 09 09 20 20 20 20 20 20 28 69 75 70 )).... (iup
3e90: 3a 61 74 74 72 69 62 75 74 65 2d 73 65 74 21 20 :attribute-set!
3ea0: 6d 61 74 20 22 52 45 44 52 41 57 22 20 63 65 6c mat "REDRAW" cel
3eb0: 6c 29 29 29 0a 09 09 09 28 73 65 74 21 20 72 6f l)))....(set! ro
3ec0: 77 6e 75 6d 20 28 2b 20 72 6f 77 6e 75 6d 20 31 wnum (+ rownum 1
3ed0: 29 29 29 29 0a 09 09 20 20 20 20 76 61 6c 73 29 ))))... vals)
3ee0: 29 29 0a 09 20 20 20 20 20 20 20 28 6c 69 73 74 )).. (list
3ef0: 20 0a 09 09 28 6c 69 73 74 20 72 75 6e 2d 69 6e ...(list run-in
3f00: 66 6f 2d 6d 61 74 72 69 78 0a 09 09 20 20 20 20 fo-matrix...
3f10: 20 20 28 69 66 20 74 65 73 74 2d 69 64 0a 09 09 (if test-id...
3f20: 09 20 20 28 6c 69 73 74 20 28 64 62 3a 74 65 73 . (list (db:tes
3f30: 74 2d 67 65 74 2d 72 75 6e 5f 69 64 20 74 65 73 t-get-run_id tes
3f40: 74 2d 64 61 74 61 29 0a 09 09 09 09 74 61 72 67 t-data).....targ
3f50: 65 74 0a 09 09 09 09 72 75 6e 6e 61 6d 65 0a 09 et.....runname..
3f60: 09 09 09 22 6e 2f 61 22 29 0a 09 09 09 20 20 28 ..."n/a").... (
3f70: 6d 61 6b 65 2d 6c 69 73 74 20 34 20 22 22 29 29 make-list 4 ""))
3f80: 29 0a 09 09 28 6c 69 73 74 20 74 65 73 74 2d 69 )...(list test-i
3f90: 6e 66 6f 2d 6d 61 74 72 69 78 0a 09 09 20 20 20 nfo-matrix...
3fa0: 20 20 20 28 69 66 20 74 65 73 74 2d 69 64 0a 09 (if test-id..
3fb0: 09 09 20 20 28 6c 69 73 74 20 74 65 73 74 2d 69 .. (list test-i
3fc0: 64 0a 09 09 09 09 28 64 62 3a 74 65 73 74 2d 67 d.....(db:test-g
3fd0: 65 74 2d 74 65 73 74 6e 61 6d 65 20 74 65 73 74 et-testname test
3fe0: 2d 64 61 74 61 29 0a 09 09 09 09 28 64 62 3a 74 -data).....(db:t
3ff0: 65 73 74 2d 67 65 74 2d 69 74 65 6d 2d 70 61 74 est-get-item-pat
4000: 68 20 74 65 73 74 2d 64 61 74 61 29 0a 09 09 09 h test-data)....
4010: 09 28 64 62 3a 74 65 73 74 2d 67 65 74 2d 73 74 .(db:test-get-st
4020: 61 74 65 20 20 20 20 74 65 73 74 2d 64 61 74 61 ate test-data
4030: 29 0a 09 09 09 09 28 64 62 3a 74 65 73 74 2d 67 ).....(db:test-g
4040: 65 74 2d 73 74 61 74 75 73 20 20 20 74 65 73 74 et-status test
4050: 2d 64 61 74 61 29 0a 09 09 09 09 28 73 65 63 6f -data).....(seco
4060: 6e 64 73 2d 3e 73 74 72 69 6e 67 20 28 64 62 3a nds->string (db:
4070: 74 65 73 74 2d 67 65 74 2d 65 76 65 6e 74 5f 74 test-get-event_t
4080: 69 6d 65 20 74 65 73 74 2d 64 61 74 61 29 29 0a ime test-data)).
4090: 09 09 09 09 28 64 62 3a 74 65 73 74 2d 67 65 74 ....(db:test-get
40a0: 2d 63 6f 6d 6d 65 6e 74 20 20 74 65 73 74 2d 64 -comment test-d
40b0: 61 74 61 29 29 0a 09 09 09 20 20 28 6d 61 6b 65 ata)).... (make
40c0: 2d 6c 69 73 74 20 37 20 22 22 29 29 29 0a 09 09 -list 7 "")))...
40d0: 28 6c 69 73 74 20 74 65 73 74 2d 72 75 6e 2d 6d (list test-run-m
40e0: 61 74 72 69 78 0a 09 09 20 20 20 20 20 20 28 69 atrix... (i
40f0: 66 20 74 65 73 74 2d 69 64 0a 09 09 09 20 20 28 f test-id.... (
4100: 6c 69 73 74 20 28 64 62 3a 74 65 73 74 2d 67 65 list (db:test-ge
4110: 74 2d 68 6f 73 74 20 20 20 20 20 74 65 73 74 2d t-host test-
4120: 64 61 74 61 29 0a 09 09 09 09 28 64 62 3a 74 65 data).....(db:te
4130: 73 74 2d 67 65 74 2d 75 6e 61 6d 65 20 20 20 20 st-get-uname
4140: 74 65 73 74 2d 64 61 74 61 29 0a 09 09 09 09 28 test-data).....(
4150: 64 62 3a 74 65 73 74 2d 67 65 74 2d 64 69 73 6b db:test-get-disk
4160: 66 72 65 65 20 74 65 73 74 2d 64 61 74 61 29 0a free test-data).
4170: 09 09 09 09 28 64 62 3a 74 65 73 74 2d 67 65 74 ....(db:test-get
4180: 2d 63 70 75 6c 6f 61 64 20 20 74 65 73 74 2d 64 -cpuload test-d
4190: 61 74 61 29 0a 09 09 09 09 28 73 65 63 6f 6e 64 ata).....(second
41a0: 73 2d 3e 68 72 2d 6d 69 6e 2d 73 65 63 20 28 64 s->hr-min-sec (d
41b0: 62 3a 74 65 73 74 2d 67 65 74 2d 72 75 6e 5f 64 b:test-get-run_d
41c0: 75 72 61 74 69 6f 6e 20 74 65 73 74 2d 64 61 74 uration test-dat
41d0: 61 29 29 29 0a 09 09 09 20 20 28 6d 61 6b 65 2d a))).... (make-
41e0: 6c 69 73 74 20 35 20 22 22 29 29 29 0a 09 09 29 list 5 "")))...)
41f0: 29 0a 09 20 20 20 20 20 20 28 64 63 6f 6d 6d 6f ).. (dcommo
4200: 6e 3a 70 6f 70 75 6c 61 74 65 2d 73 74 65 70 73 n:populate-steps
4210: 20 73 74 65 70 73 2d 64 61 74 20 73 74 65 70 73 steps-dat steps
4220: 2d 6d 61 74 72 69 78 29 29 29 29 29 29 0a 09 09 -matrix))))))...
4230: 3b 3b 28 6c 69 73 74 20 6d 65 74 61 2d 64 61 74 ;;(list meta-dat
4240: 2d 6d 61 74 72 69 78 0a 09 09 3b 3b 20 20 20 20 -matrix...;;
4250: 20 20 28 69 66 20 74 65 73 74 2d 69 64 0a 09 09 (if test-id...
4260: 3b 3b 09 20 20 28 6c 69 73 74 20 28 0a 0a 20 20 ;;. (list (..
4270: 0a 3b 3b 20 64 62 3a 74 65 73 74 2d 67 65 74 2d .;; db:test-get-
4280: 69 64 20 20 20 20 20 20 20 20 20 20 20 0a 3b 3b id .;;
4290: 20 64 62 3a 74 65 73 74 2d 67 65 74 2d 72 75 6e db:test-get-run
42a0: 5f 69 64 20 20 20 20 20 20 20 0a 3b 3b 20 64 62 _id .;; db
42b0: 3a 74 65 73 74 2d 67 65 74 2d 74 65 73 74 6e 61 :test-get-testna
42c0: 6d 65 20 20 20 20 20 0a 3b 3b 20 64 62 3a 74 65 me .;; db:te
42d0: 73 74 2d 67 65 74 2d 73 74 61 74 65 20 20 20 20 st-get-state
42e0: 20 20 20 20 0a 3b 3b 20 64 62 3a 74 65 73 74 2d .;; db:test-
42f0: 67 65 74 2d 73 74 61 74 75 73 20 20 20 20 20 20 get-status
4300: 20 0a 3b 3b 20 64 62 3a 74 65 73 74 2d 67 65 74 .;; db:test-get
4310: 2d 65 76 65 6e 74 5f 74 69 6d 65 20 20 20 0a 3b -event_time .;
4320: 3b 20 64 62 3a 74 65 73 74 2d 67 65 74 2d 68 6f ; db:test-get-ho
4330: 73 74 20 20 20 20 20 20 20 20 20 0a 3b 3b 20 64 st .;; d
4340: 62 3a 74 65 73 74 2d 67 65 74 2d 63 70 75 6c 6f b:test-get-cpulo
4350: 61 64 20 20 20 20 20 20 0a 3b 3b 20 64 62 3a 74 ad .;; db:t
4360: 65 73 74 2d 67 65 74 2d 64 69 73 6b 66 72 65 65 est-get-diskfree
4370: 20 20 20 20 20 0a 3b 3b 20 64 62 3a 74 65 73 74 .;; db:test
4380: 2d 67 65 74 2d 75 6e 61 6d 65 20 20 20 20 20 20 -get-uname
4390: 20 20 0a 3b 3b 20 64 62 3a 74 65 73 74 2d 67 65 .;; db:test-ge
43a0: 74 2d 72 75 6e 64 69 72 20 20 20 20 20 20 20 0a t-rundir .
43b0: 3b 3b 20 64 62 3a 74 65 73 74 2d 67 65 74 2d 69 ;; db:test-get-i
43c0: 74 65 6d 2d 70 61 74 68 20 20 20 20 0a 3b 3b 20 tem-path .;;
43d0: 64 62 3a 74 65 73 74 2d 67 65 74 2d 72 75 6e 5f db:test-get-run_
43e0: 64 75 72 61 74 69 6f 6e 20 0a 3b 3b 20 64 62 3a duration .;; db:
43f0: 74 65 73 74 2d 67 65 74 2d 66 69 6e 61 6c 5f 6c test-get-final_l
4400: 6f 67 66 20 20 20 0a 3b 3b 20 64 62 3a 74 65 73 ogf .;; db:tes
4410: 74 2d 67 65 74 2d 63 6f 6d 6d 65 6e 74 20 20 20 t-get-comment
4420: 20 20 20 0a 3b 3b 20 64 62 3a 74 65 73 74 2d 67 .;; db:test-g
4430: 65 74 2d 66 75 6c 6c 6e 61 6d 65 20 20 20 20 20 et-fullname
4440: 09 20 20 0a 0a 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d . ...;;========
4450: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4460: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4470: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4480: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 3b ==============.;
4490: 3b 20 52 20 55 20 4e 20 20 20 43 20 4f 20 4e 20 ; R U N C O N
44a0: 54 20 52 20 4f 20 4c 0a 3b 3b 3d 3d 3d 3d 3d 3d T R O L.;;======
44b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
44c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
44d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
44e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
44f0: 0a 0a 3b 3b 20 4f 76 65 72 61 6c 6c 20 72 75 6e ..;; Overall run
4500: 73 20 62 72 6f 77 73 65 72 0a 3b 3b 0a 28 64 65 s browser.;;.(de
4510: 66 69 6e 65 20 28 72 75 6e 73 20 77 69 6e 64 6f fine (runs windo
4520: 77 2d 69 64 29 0a 20 20 28 6c 65 74 2a 20 28 28 w-id). (let* ((
4530: 72 75 6e 73 2d 6d 61 74 72 69 78 20 20 20 20 20 runs-matrix
4540: 28 69 75 70 3a 6d 61 74 72 69 78 0a 09 09 09 20 (iup:matrix....
4550: 20 20 23 3a 65 78 70 61 6e 64 20 22 59 45 53 22 #:expand "YES"
4560: 0a 09 09 09 20 20 20 3b 3b 20 23 3a 66 69 74 74 .... ;; #:fitt
4570: 6f 73 69 7a 65 20 22 59 45 53 22 0a 09 09 09 20 osize "YES"....
4580: 20 20 23 3a 73 63 72 6f 6c 6c 62 61 72 20 22 59 #:scrollbar "Y
4590: 45 53 22 0a 09 09 09 20 20 20 23 3a 6e 75 6d 63 ES".... #:numc
45a0: 6f 6c 20 31 30 30 0a 09 09 09 20 20 20 23 3a 6e ol 100.... #:n
45b0: 75 6d 6c 69 6e 20 31 30 30 0a 09 09 09 20 20 20 umlin 100....
45c0: 23 3a 6e 75 6d 63 6f 6c 2d 76 69 73 69 62 6c 65 #:numcol-visible
45d0: 20 37 0a 09 09 09 20 20 20 23 3a 6e 75 6d 6c 69 7.... #:numli
45e0: 6e 2d 76 69 73 69 62 6c 65 20 37 0a 09 09 09 20 n-visible 7....
45f0: 20 20 23 3a 63 6c 69 63 6b 2d 63 62 20 28 6c 61 #:click-cb (la
4600: 6d 62 64 61 20 28 6f 62 6a 20 6c 69 6e 20 63 6f mbda (obj lin co
4610: 6c 20 73 74 61 74 75 73 29 0a 09 09 09 09 09 28 l status)......(
4620: 70 72 69 6e 74 20 22 6f 62 6a 3a 20 22 20 6f 62 print "obj: " ob
4630: 6a 20 22 20 6c 69 6e 3a 20 22 20 6c 69 6e 20 22 j " lin: " lin "
4640: 20 63 6f 6c 3a 20 22 20 63 6f 6c 20 22 20 73 74 col: " col " st
4650: 61 74 75 73 3a 20 22 20 73 74 61 74 75 73 29 29 atus: " status))
4660: 29 29 29 0a 0a 20 20 20 20 28 69 75 70 3a 61 74 ))).. (iup:at
4670: 74 72 69 62 75 74 65 2d 73 65 74 21 20 72 75 6e tribute-set! run
4680: 73 2d 6d 61 74 72 69 78 20 22 52 45 53 49 5a 45 s-matrix "RESIZE
4690: 4d 41 54 52 49 58 22 20 22 59 45 53 22 29 0a 20 MATRIX" "YES").
46a0: 20 20 20 28 69 75 70 3a 61 74 74 72 69 62 75 74 (iup:attribut
46b0: 65 2d 73 65 74 21 20 72 75 6e 73 2d 6d 61 74 72 e-set! runs-matr
46c0: 69 78 20 22 57 49 44 54 48 30 22 20 22 31 30 30 ix "WIDTH0" "100
46d0: 22 29 0a 0a 20 20 20 20 28 64 62 6f 61 72 64 3a ").. (dboard:
46e0: 64 61 74 61 2d 73 65 74 2d 72 75 6e 73 2d 6d 61 data-set-runs-ma
46f0: 74 72 69 78 21 20 2a 64 61 74 61 2a 20 72 75 6e trix! *data* run
4700: 73 2d 6d 61 74 72 69 78 29 0a 20 20 20 20 28 69 s-matrix). (i
4710: 75 70 3a 68 62 6f 78 0a 20 20 20 20 20 28 69 75 up:hbox. (iu
4720: 70 3a 66 72 61 6d 65 20 0a 20 20 20 20 20 20 23 p:frame . #
4730: 3a 74 69 74 6c 65 20 22 52 75 6e 73 20 62 72 6f :title "Runs bro
4740: 77 73 65 72 22 0a 20 20 20 20 20 20 28 69 75 70 wser". (iup
4750: 3a 76 62 6f 78 0a 20 20 20 20 20 20 20 72 75 6e :vbox. run
4760: 73 2d 6d 61 74 72 69 78 29 29 29 29 29 0a 0a 3b s-matrix)))))..;
4770: 3b 20 42 72 6f 77 73 65 20 61 6e 64 20 63 6f 6e ; Browse and con
4780: 74 72 6f 6c 20 61 20 73 69 6e 67 6c 65 20 72 75 trol a single ru
4790: 6e 0a 3b 3b 0a 28 64 65 66 69 6e 65 20 28 72 75 n.;;.(define (ru
47a0: 6e 63 6f 6e 74 72 6f 6c 20 77 69 6e 64 6f 77 2d ncontrol window-
47b0: 69 64 29 0a 20 20 28 69 75 70 3a 68 62 6f 78 29 id). (iup:hbox)
47c0: 29 0a 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d )..;;===========
47d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
47e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
47f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4800: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 3b 3b 20 44 ===========.;; D
4810: 20 41 20 53 20 48 20 42 20 4f 20 41 20 52 20 44 A S H B O A R D
4820: 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d .;;=============
4830: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4840: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4850: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4860: 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 3b 3b 20 4d 61 =========..;; Ma
4870: 69 6e 20 50 61 6e 65 6c 0a 28 64 65 66 69 6e 65 in Panel.(define
4880: 20 28 6d 61 69 6e 2d 70 61 6e 65 6c 20 77 69 6e (main-panel win
4890: 64 6f 77 2d 69 64 29 0a 20 20 28 69 75 70 3a 64 dow-id). (iup:d
48a0: 69 61 6c 6f 67 0a 20 20 20 23 3a 74 69 74 6c 65 ialog. #:title
48b0: 20 22 4d 65 67 61 74 65 73 74 20 43 6f 6e 74 72 "Megatest Contr
48c0: 6f 6c 20 50 61 6e 65 6c 22 0a 20 20 20 23 3a 6d ol Panel". #:m
48d0: 65 6e 75 20 28 64 63 6f 6d 6d 6f 6e 3a 6d 61 69 enu (dcommon:mai
48e0: 6e 2d 6d 65 6e 75 29 0a 20 20 20 23 3a 73 68 72 n-menu). #:shr
48f0: 69 6e 6b 20 22 59 45 53 22 0a 20 20 20 28 6c 65 ink "YES". (le
4900: 74 20 28 28 74 61 62 74 6f 70 20 28 69 75 70 3a t ((tabtop (iup:
4910: 74 61 62 73 20 0a 09 09 20 20 28 72 75 6e 73 20 tabs ... (runs
4920: 77 69 6e 64 6f 77 2d 69 64 29 0a 09 09 20 20 28 window-id)... (
4930: 74 65 73 74 73 20 77 69 6e 64 6f 77 2d 69 64 29 tests window-id)
4940: 0a 09 09 20 20 28 72 75 6e 63 6f 6e 74 72 6f 6c ... (runcontrol
4950: 20 77 69 6e 64 6f 77 2d 69 64 29 0a 09 09 20 20 window-id)...
4960: 28 6d 74 65 73 74 20 77 69 6e 64 6f 77 2d 69 64 (mtest window-id
4970: 29 20 0a 09 09 20 20 28 72 63 6f 6e 66 69 67 20 ) ... (rconfig
4980: 77 69 6e 64 6f 77 2d 69 64 29 0a 09 09 20 20 29 window-id)... )
4990: 29 29 0a 20 20 20 20 20 28 69 75 70 3a 61 74 74 )). (iup:att
49a0: 72 69 62 75 74 65 2d 73 65 74 21 20 74 61 62 74 ribute-set! tabt
49b0: 6f 70 20 22 54 41 42 54 49 54 4c 45 30 22 20 22 op "TABTITLE0" "
49c0: 52 75 6e 73 22 29 0a 20 20 20 20 20 28 69 75 70 Runs"). (iup
49d0: 3a 61 74 74 72 69 62 75 74 65 2d 73 65 74 21 20 :attribute-set!
49e0: 74 61 62 74 6f 70 20 22 54 41 42 54 49 54 4c 45 tabtop "TABTITLE
49f0: 31 22 20 22 54 65 73 74 73 22 29 0a 20 20 20 20 1" "Tests").
4a00: 20 28 69 75 70 3a 61 74 74 72 69 62 75 74 65 2d (iup:attribute-
4a10: 73 65 74 21 20 74 61 62 74 6f 70 20 22 54 41 42 set! tabtop "TAB
4a20: 54 49 54 4c 45 32 22 20 22 52 75 6e 20 43 6f 6e TITLE2" "Run Con
4a30: 74 72 6f 6c 22 29 0a 20 20 20 20 20 28 69 75 70 trol"). (iup
4a40: 3a 61 74 74 72 69 62 75 74 65 2d 73 65 74 21 20 :attribute-set!
4a50: 74 61 62 74 6f 70 20 22 54 41 42 54 49 54 4c 45 tabtop "TABTITLE
4a60: 33 22 20 22 6d 65 67 61 74 65 73 74 2e 63 6f 6e 3" "megatest.con
4a70: 66 69 67 22 29 20 0a 20 20 20 20 20 28 69 75 70 fig") . (iup
4a80: 3a 61 74 74 72 69 62 75 74 65 2d 73 65 74 21 20 :attribute-set!
4a90: 74 61 62 74 6f 70 20 22 54 41 42 54 49 54 4c 45 tabtop "TABTITLE
4aa0: 34 22 20 22 72 75 6e 63 6f 6e 66 69 67 73 2e 63 4" "runconfigs.c
4ab0: 6f 6e 66 69 67 22 29 0a 20 20 20 20 20 74 61 62 onfig"). tab
4ac0: 74 6f 70 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 top)))..(define
4ad0: 2a 63 75 72 72 65 6e 74 2d 77 69 6e 64 6f 77 2d *current-window-
4ae0: 69 64 2a 20 30 29 0a 0a 28 64 65 66 69 6e 65 20 id* 0)..(define
4af0: 28 6e 65 77 64 61 73 68 62 6f 61 72 64 20 64 62 (newdashboard db
4b00: 73 74 72 75 63 74 29 0a 20 20 28 6c 65 74 2a 20 struct). (let*
4b10: 28 28 64 61 74 61 20 20 20 20 20 28 6d 61 6b 65 ((data (make
4b20: 2d 68 61 73 68 2d 74 61 62 6c 65 29 29 0a 09 20 -hash-table))..
4b30: 28 6b 65 79 73 20 20 20 20 20 28 64 62 3a 67 65 (keys (db:ge
4b40: 74 2d 6b 65 79 73 20 64 62 73 74 72 75 63 74 29 t-keys dbstruct)
4b50: 29 0a 09 20 28 72 75 6e 6e 61 6d 65 20 20 22 25 ).. (runname "%
4b60: 22 29 0a 09 20 28 74 65 73 74 70 61 74 74 20 22 ").. (testpatt "
4b70: 25 22 29 0a 09 20 28 6b 65 79 70 61 74 74 73 20 %").. (keypatts
4b80: 28 6d 61 70 20 28 6c 61 6d 62 64 61 20 28 6b 29 (map (lambda (k)
4b90: 28 6c 69 73 74 20 6b 20 22 25 22 29 29 20 6b 65 (list k "%")) ke
4ba0: 79 73 29 29 0a 09 20 28 73 74 61 74 65 73 20 20 ys)).. (states
4bb0: 20 27 28 29 29 0a 09 20 28 73 74 61 74 75 73 65 '()).. (statuse
4bc0: 73 20 27 28 29 29 0a 09 20 28 6e 65 78 74 6d 69 s '()).. (nextmi
4bd0: 6e 74 69 6d 65 20 28 63 75 72 72 65 6e 74 2d 6d ntime (current-m
4be0: 69 6c 6c 69 73 65 63 6f 6e 64 73 29 29 0a 09 20 illiseconds))..
4bf0: 28 6d 79 2d 77 69 6e 64 6f 77 2d 69 64 20 2a 63 (my-window-id *c
4c00: 75 72 72 65 6e 74 2d 77 69 6e 64 6f 77 2d 69 64 urrent-window-id
4c10: 2a 29 29 0a 20 20 20 20 28 73 65 74 21 20 2a 63 *)). (set! *c
4c20: 75 72 72 65 6e 74 2d 77 69 6e 64 6f 77 2d 69 64 urrent-window-id
4c30: 2a 20 28 2b 20 31 20 2a 63 75 72 72 65 6e 74 2d * (+ 1 *current-
4c40: 77 69 6e 64 6f 77 2d 69 64 2a 29 29 0a 20 20 20 window-id*)).
4c50: 20 28 64 62 6f 61 72 64 3a 64 61 74 61 2d 73 65 (dboard:data-se
4c60: 74 2d 72 75 6e 73 21 20 2a 64 61 74 61 2a 20 64 t-runs! *data* d
4c70: 61 74 61 29 20 3b 3b 20 6d 61 6b 65 20 74 68 69 ata) ;; make thi
4c80: 73 20 64 61 74 61 20 61 76 61 69 6c 61 62 6c 65 s data available
4c90: 20 74 6f 20 74 68 65 20 72 65 73 74 20 6f 66 20 to the rest of
4ca0: 74 68 65 20 61 70 70 6c 69 63 61 74 69 6f 6e 0a the application.
4cb0: 20 20 20 20 28 69 75 70 3a 73 68 6f 77 20 28 6d (iup:show (m
4cc0: 61 69 6e 2d 70 61 6e 65 6c 20 6d 79 2d 77 69 6e ain-panel my-win
4cd0: 64 6f 77 2d 69 64 29 29 0a 20 20 20 20 3b 3b 20 dow-id)). ;;
4ce0: 59 65 73 2c 20 72 75 6e 6e 69 6e 67 20 69 75 70 Yes, running iup
4cf0: 3a 73 68 6f 77 20 77 69 6c 6c 20 70 6f 70 20 75 :show will pop u
4d00: 70 20 61 20 6e 65 77 20 70 61 6e 65 6c 0a 20 20 p a new panel.
4d10: 20 20 3b 3b 20 28 69 75 70 3a 73 68 6f 77 20 28 ;; (iup:show (
4d20: 6d 61 69 6e 2d 70 61 6e 65 6c 20 6d 79 2d 77 69 main-panel my-wi
4d30: 6e 64 6f 77 2d 69 64 29 29 0a 20 20 20 20 28 69 ndow-id)). (i
4d40: 75 70 3a 63 61 6c 6c 62 61 63 6b 2d 73 65 74 21 up:callback-set!
4d50: 20 2a 74 69 6d 2a 0a 09 09 20 20 20 20 20 20 20 *tim*...
4d60: 22 41 43 54 49 4f 4e 5f 43 42 22 0a 09 09 20 20 "ACTION_CB"...
4d70: 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 78 29 (lambda (x)
4d80: 0a 09 09 09 20 3b 3b 20 57 61 6e 74 20 74 6f 20 .... ;; Want to
4d90: 64 65 64 69 63 61 74 65 20 6e 6f 20 6d 6f 72 65 dedicate no more
4da0: 20 74 68 61 6e 20 35 30 25 20 6f 66 20 74 68 65 than 50% of the
4db0: 20 74 69 6d 65 20 74 6f 20 74 68 69 73 20 73 6f time to this so
4dc0: 20 73 6b 69 70 20 69 66 0a 09 09 09 20 3b 3b 20 skip if.... ;;
4dd0: 32 78 20 64 65 6c 74 61 20 74 69 6d 65 20 68 61 2x delta time ha
4de0: 73 20 6e 6f 74 20 70 61 73 73 65 64 20 73 69 6e s not passed sin
4df0: 63 65 20 6c 61 73 74 20 71 75 65 72 79 0a 09 09 ce last query...
4e00: 09 20 28 69 66 20 28 3c 20 6e 65 78 74 6d 69 6e . (if (< nextmin
4e10: 74 69 6d 65 20 28 63 75 72 72 65 6e 74 2d 6d 69 time (current-mi
4e20: 6c 6c 69 73 65 63 6f 6e 64 73 29 29 0a 09 09 09 lliseconds))....
4e30: 20 20 20 20 20 28 6c 65 74 2a 20 28 28 73 74 61 (let* ((sta
4e40: 72 74 74 69 6d 65 20 28 63 75 72 72 65 6e 74 2d rttime (current-
4e50: 6d 69 6c 6c 69 73 65 63 6f 6e 64 73 29 29 0a 09 milliseconds))..
4e60: 09 09 09 20 20 20 20 28 63 68 61 6e 67 65 73 20 ... (changes
4e70: 20 20 28 64 63 6f 6d 6d 6f 6e 3a 72 75 6e 2d 75 (dcommon:run-u
4e80: 70 64 61 74 65 20 6b 65 79 73 20 64 61 74 61 20 pdate keys data
4e90: 72 75 6e 6e 61 6d 65 20 6b 65 79 70 61 74 74 73 runname keypatts
4ea0: 20 74 65 73 74 70 61 74 74 20 73 74 61 74 65 73 testpatt states
4eb0: 20 73 74 61 74 75 73 65 73 20 27 66 75 6c 6c 20 statuses 'full
4ec0: 6d 79 2d 77 69 6e 64 6f 77 2d 69 64 29 29 0a 09 my-window-id))..
4ed0: 09 09 09 20 20 20 20 28 65 6e 64 74 69 6d 65 20 ... (endtime
4ee0: 20 20 28 63 75 72 72 65 6e 74 2d 6d 69 6c 6c 69 (current-milli
4ef0: 73 65 63 6f 6e 64 73 29 29 29 0a 09 09 09 20 20 seconds)))....
4f00: 20 20 20 20 20 28 73 65 74 21 20 6e 65 78 74 6d (set! nextm
4f10: 69 6e 74 69 6d 65 20 28 2b 20 65 6e 64 74 69 6d intime (+ endtim
4f20: 65 20 28 2a 20 32 20 28 2d 20 65 6e 64 74 69 6d e (* 2 (- endtim
4f30: 65 20 73 74 61 72 74 74 69 6d 65 29 29 29 29 0a e starttime)))).
4f40: 09 09 09 20 20 20 20 20 20 20 28 64 65 62 75 67 ... (debug
4f50: 3a 70 72 69 6e 74 20 31 31 20 22 43 48 41 4e 47 :print 11 "CHANG
4f60: 45 28 53 29 3a 20 22 20 28 63 61 72 20 63 68 61 E(S): " (car cha
4f70: 6e 67 65 73 29 20 22 2e 2e 2e 22 29 29 0a 09 09 nges) "..."))...
4f80: 09 20 20 20 20 20 28 64 65 62 75 67 3a 70 72 69 . (debug:pri
4f90: 6e 74 2d 69 6e 66 6f 20 31 31 20 22 53 65 72 76 nt-info 11 "Serv
4fa0: 65 72 20 6f 76 65 72 6c 6f 61 64 65 64 22 29 29 er overloaded"))
4fb0: 29 29 29 29 0a 0a 28 64 62 6f 61 72 64 3a 64 61 ))))..(dboard:da
4fc0: 74 61 2d 73 65 74 2d 75 70 64 61 74 65 72 73 21 ta-set-updaters!
4fd0: 20 2a 64 61 74 61 2a 20 28 6d 61 6b 65 2d 68 61 *data* (make-ha
4fe0: 73 68 2d 74 61 62 6c 65 29 29 0a 28 6e 65 77 64 sh-table)).(newd
4ff0: 61 73 68 62 6f 61 72 64 20 2a 64 62 73 74 72 75 ashboard *dbstru
5000: 63 74 2d 6c 6f 63 61 6c 2a 29 20 20 20 20 0a 28 ct-local*) .(
5010: 69 75 70 3a 6d 61 69 6e 2d 6c 6f 6f 70 29 0a iup:main-loop).