Artifact
3b20c6cd4bdf818175612038591a17cc68713ff3:
0000: 27 3b 3b 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 3d 0a 3b 3b 20 43 6f 70 =========.;; Cop
0050: 79 72 69 67 68 74 20 32 30 30 36 2d 32 30 31 32 yright 2006-2012
0060: 2c 20 4d 61 74 74 68 65 77 20 57 65 6c 6c 61 6e , Matthew Wellan
0070: 64 2e 0a 3b 3b 20 0a 3b 3b 20 54 68 69 73 20 66 d..;; .;; This f
0080: 69 6c 65 20 69 73 20 70 61 72 74 20 6f 66 20 4d ile is part of M
0090: 65 67 61 74 65 73 74 2e 0a 3b 3b 20 0a 3b 3b 20 egatest..;; .;;
00a0: 20 20 20 20 4d 65 67 61 74 65 73 74 20 69 73 20 Megatest is
00b0: 66 72 65 65 20 73 6f 66 74 77 61 72 65 3a 20 79 free software: y
00c0: 6f 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 ou can redistrib
00d0: 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 20 6d 6f ute it and/or mo
00e0: 64 69 66 79 0a 3b 3b 20 20 20 20 20 69 74 20 75 dify.;; it u
00f0: 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f nder the terms o
0100: 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 f the GNU Genera
0110: 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 l Public License
0120: 20 61 73 20 70 75 62 6c 69 73 68 65 64 20 62 79 as published by
0130: 0a 3b 3b 20 20 20 20 20 74 68 65 20 46 72 65 65 .;; the Free
0140: 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 61 Software Founda
0150: 74 69 6f 6e 2c 20 65 69 74 68 65 72 20 76 65 72 tion, either ver
0160: 73 69 6f 6e 20 33 20 6f 66 20 74 68 65 20 4c 69 sion 3 of the Li
0170: 63 65 6e 73 65 2c 20 6f 72 0a 3b 3b 20 20 20 20 cense, or.;;
0180: 20 28 61 74 20 79 6f 75 72 20 6f 70 74 69 6f 6e (at your option
0190: 29 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73 ) any later vers
01a0: 69 6f 6e 2e 0a 3b 3b 20 0a 3b 3b 20 20 20 20 20 ion..;; .;;
01b0: 4d 65 67 61 74 65 73 74 20 69 73 20 64 69 73 74 Megatest is dist
01c0: 72 69 62 75 74 65 64 20 69 6e 20 74 68 65 20 68 ributed in the h
01d0: 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c ope that it will
01e0: 20 62 65 20 75 73 65 66 75 6c 2c 0a 3b 3b 20 20 be useful,.;;
01f0: 20 20 20 62 75 74 20 57 49 54 48 4f 55 54 20 41 but WITHOUT A
0200: 4e 59 20 57 41 52 52 41 4e 54 59 3b 20 77 69 74 NY WARRANTY; wit
0210: 68 6f 75 74 20 65 76 65 6e 20 74 68 65 20 69 6d hout even the im
0220: 70 6c 69 65 64 20 77 61 72 72 61 6e 74 79 20 6f plied warranty o
0230: 66 0a 3b 3b 20 20 20 20 20 4d 45 52 43 48 41 4e f.;; MERCHAN
0240: 54 41 42 49 4c 49 54 59 20 6f 72 20 46 49 54 4e TABILITY or FITN
0250: 45 53 53 20 46 4f 52 20 41 20 50 41 52 54 49 43 ESS FOR A PARTIC
0260: 55 4c 41 52 20 50 55 52 50 4f 53 45 2e 20 20 53 ULAR PURPOSE. S
0270: 65 65 20 74 68 65 0a 3b 3b 20 20 20 20 20 47 4e ee the.;; GN
0280: 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 U General Public
0290: 20 4c 69 63 65 6e 73 65 20 66 6f 72 20 6d 6f 72 License for mor
02a0: 65 20 64 65 74 61 69 6c 73 2e 0a 3b 3b 20 0a 3b e details..;; .;
02b0: 3b 20 20 20 20 20 59 6f 75 20 73 68 6f 75 6c 64 ; You should
02c0: 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 61 have received a
02d0: 20 63 6f 70 79 20 6f 66 20 74 68 65 20 47 4e 55 copy of the GNU
02e0: 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 General Public
02f0: 4c 69 63 65 6e 73 65 0a 3b 3b 20 20 20 20 20 61 License.;; a
0300: 6c 6f 6e 67 20 77 69 74 68 20 4d 65 67 61 74 65 long with Megate
0310: 73 74 2e 20 20 49 66 20 6e 6f 74 2c 20 73 65 65 st. If not, see
0320: 20 3c 68 74 74 70 3a 2f 2f 77 77 77 2e 67 6e 75 <http://www.gnu
0330: 2e 6f 72 67 2f 6c 69 63 65 6e 73 65 73 2f 3e 2e .org/licenses/>.
0340: 0a 3b 3b 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d .;;.;;==========
0350: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0360: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0370: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0380: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 28 64 ============..(d
0390: 65 63 6c 61 72 65 20 28 75 6e 69 74 20 67 75 74 eclare (unit gut
03a0: 69 6c 73 29 29 0a 0a 28 6d 6f 64 75 6c 65 20 67 ils))..(module g
03b0: 75 74 69 6c 73 0a 09 2a 0a 09 0a 28 69 6d 70 6f utils..*...(impo
03c0: 72 74 20 28 70 72 65 66 69 78 20 69 75 70 20 69 rt (prefix iup i
03d0: 75 70 3a 29 0a 09 63 61 6e 76 61 73 2d 64 72 61 up:)..canvas-dra
03e0: 77 29 0a 0a 28 69 6d 70 6f 72 74 20 73 63 68 65 w)..(import sche
03f0: 6d 65 0a 09 20 63 68 69 63 6b 65 6e 2e 62 61 73 me.. chicken.bas
0400: 65 0a 09 20 63 68 69 63 6b 65 6e 2e 63 6f 6e 64 e.. chicken.cond
0410: 69 74 69 6f 6e 0a 09 20 63 68 69 63 6b 65 6e 2e ition.. chicken.
0420: 73 74 72 69 6e 67 0a 09 20 63 68 69 63 6b 65 6e string.. chicken
0430: 2e 70 72 65 74 74 79 2d 70 72 69 6e 74 0a 09 20 .pretty-print..
0440: 63 68 69 63 6b 65 6e 2e 73 6f 72 74 0a 09 20 63 chicken.sort.. c
0450: 68 69 63 6b 65 6e 2e 74 69 6d 65 0a 09 20 0a 09 hicken.time.. ..
0460: 20 63 68 69 63 6b 65 6e 2e 66 69 6c 65 0a 09 20 chicken.file..
0470: 63 68 69 63 6b 65 6e 2e 66 69 6c 65 2e 70 6f 73 chicken.file.pos
0480: 69 78 0a 09 20 63 68 69 63 6b 65 6e 2e 70 72 6f ix.. chicken.pro
0490: 63 65 73 73 0a 09 20 63 68 69 63 6b 65 6e 2e 70 cess.. chicken.p
04a0: 72 6f 63 65 73 73 2d 63 6f 6e 74 65 78 74 0a 09 rocess-context..
04b0: 20 63 68 69 63 6b 65 6e 2e 70 72 6f 63 65 73 73 chicken.process
04c0: 2d 63 6f 6e 74 65 78 74 2e 70 6f 73 69 78 29 0a -context.posix).
04d0: 0a 09 20 0a 28 69 6d 70 6f 72 74 20 73 72 66 69 .. .(import srfi
04e0: 2d 31 20 72 65 67 65 78 20 72 65 67 65 78 2d 63 -1 regex regex-c
04f0: 61 73 65 20 73 72 66 69 2d 36 39 29 0a 0a 28 64 ase srfi-69)..(d
0500: 65 66 69 6e 65 20 28 69 75 70 6c 69 73 74 62 6f efine (iuplistbo
0510: 78 2d 66 69 6c 6c 2d 6c 69 73 74 20 6c 62 20 69 x-fill-list lb i
0520: 74 65 6d 73 20 23 21 6b 65 79 20 28 73 65 6c 65 tems #!key (sele
0530: 63 74 65 64 2d 69 74 65 6d 20 23 66 29 29 0a 20 cted-item #f)).
0540: 20 28 6c 65 74 20 28 28 69 20 31 29 29 0a 20 20 (let ((i 1)).
0550: 20 20 28 66 6f 72 2d 65 61 63 68 20 28 6c 61 6d (for-each (lam
0560: 62 64 61 20 28 69 74 65 6d 29 0a 09 09 28 69 75 bda (item)...(iu
0570: 70 3a 61 74 74 72 69 62 75 74 65 2d 73 65 74 21 p:attribute-set!
0580: 20 6c 62 20 28 6e 75 6d 62 65 72 2d 3e 73 74 72 lb (number->str
0590: 69 6e 67 20 69 29 20 69 74 65 6d 29 0a 09 09 28 ing i) item)...(
05a0: 69 66 20 73 65 6c 65 63 74 65 64 2d 69 74 65 6d if selected-item
05b0: 0a 09 09 20 20 20 20 28 69 66 20 28 65 71 75 61 ... (if (equa
05c0: 6c 3f 20 73 65 6c 65 63 74 65 64 2d 69 74 65 6d l? selected-item
05d0: 20 69 74 65 6d 29 0a 09 09 09 28 69 75 70 3a 61 item)....(iup:a
05e0: 74 74 72 69 62 75 74 65 2d 73 65 74 21 20 6c 62 ttribute-set! lb
05f0: 20 22 56 41 4c 55 45 22 20 69 29 29 29 20 3b 3b "VALUE" i))) ;;
0600: 20 28 6e 75 6d 62 65 72 2d 3e 73 74 72 69 6e 67 (number->string
0610: 20 69 29 29 29 29 0a 09 09 28 73 65 74 21 20 69 i))))...(set! i
0620: 20 28 2b 20 69 20 31 29 29 29 0a 09 20 20 20 20 (+ i 1)))..
0630: 20 20 69 74 65 6d 73 29 0a 20 20 20 20 3b 3b 20 items). ;;
0640: 28 69 75 70 3a 61 74 74 72 69 62 75 74 65 2d 73 (iup:attribute-s
0650: 65 74 21 20 6c 62 20 22 56 41 4c 55 45 22 20 28 et! lb "VALUE" (
0660: 69 66 20 73 65 6c 65 63 74 65 64 2d 69 74 65 6d if selected-item
0670: 20 73 65 6c 65 63 74 65 64 2d 69 74 65 6d 20 22 selected-item "
0680: 22 29 29 0a 20 20 20 20 69 29 29 0a 0a 28 64 65 ")). i))..(de
0690: 66 69 6e 65 20 28 6d 65 73 73 61 67 65 2d 77 69 fine (message-wi
06a0: 6e 64 6f 77 20 6d 73 67 29 0a 20 20 28 69 75 70 ndow msg). (iup
06b0: 3a 73 68 6f 77 0a 20 20 20 28 69 75 70 3a 64 69 :show. (iup:di
06c0: 61 6c 6f 67 0a 20 20 20 20 28 69 75 70 3a 76 62 alog. (iup:vb
06d0: 6f 78 20 0a 20 20 20 20 20 28 69 75 70 3a 6c 61 ox . (iup:la
06e0: 62 65 6c 20 6d 73 67 20 23 3a 6d 61 72 67 69 6e bel msg #:margin
06f0: 20 22 34 30 78 34 30 22 29 29 29 29 29 0a 0a 3b "40x40")))))..;
0700: 3b 20 4e 4f 54 45 3a 20 54 68 65 73 65 20 66 75 ; NOTE: These fu
0710: 6e 63 74 69 6f 6e 73 20 77 69 6c 6c 20 6d 6f 76 nctions will mov
0720: 65 20 74 6f 20 69 75 70 75 74 69 6c 73 0a 0a 28 e to iuputils..(
0730: 64 65 66 69 6e 65 20 28 67 75 74 69 6c 73 3a 63 define (gutils:c
0740: 6f 6c 6f 72 73 2d 73 69 6d 69 6c 61 72 3f 20 63 olors-similar? c
0750: 6f 6c 6f 72 31 20 63 6f 6c 6f 72 32 29 0a 20 20 olor1 color2).
0760: 28 6c 65 74 2a 20 28 28 63 31 20 28 6d 61 70 20 (let* ((c1 (map
0770: 73 74 72 69 6e 67 2d 3e 6e 75 6d 62 65 72 20 28 string->number (
0780: 73 74 72 69 6e 67 2d 73 70 6c 69 74 20 63 6f 6c string-split col
0790: 6f 72 31 29 29 29 0a 09 20 28 63 32 20 28 6d 61 or1))).. (c2 (ma
07a0: 70 20 73 74 72 69 6e 67 2d 3e 6e 75 6d 62 65 72 p string->number
07b0: 20 28 73 74 72 69 6e 67 2d 73 70 6c 69 74 20 63 (string-split c
07c0: 6f 6c 6f 72 32 29 29 29 0a 09 20 28 64 65 6c 74 olor2))).. (delt
07d0: 61 20 28 6d 61 70 20 28 6c 61 6d 62 64 61 20 28 a (map (lambda (
07e0: 61 20 62 29 28 61 62 73 20 28 2d 20 61 20 62 29 a b)(abs (- a b)
07f0: 29 29 20 63 31 20 63 32 29 29 29 0a 20 20 20 20 )) c1 c2))).
0800: 28 6e 75 6c 6c 3f 20 28 66 69 6c 74 65 72 20 28 (null? (filter (
0810: 6c 61 6d 62 64 61 20 28 78 29 28 3e 20 78 20 33 lambda (x)(> x 3
0820: 29 29 20 64 65 6c 74 61 29 29 29 29 0a 0a 28 64 )) delta))))..(d
0830: 65 66 69 6e 65 20 67 75 74 69 6c 73 3a 63 6f 6c efine gutils:col
0840: 6f 72 73 0a 20 20 27 28 28 50 41 53 53 20 2e 20 ors. '((PASS .
0850: 22 37 30 20 32 34 39 20 37 33 22 29 0a 20 20 20 "70 249 73").
0860: 20 28 46 41 49 4c 20 2e 20 22 32 35 33 20 33 33 (FAIL . "253 33
0870: 20 34 39 22 29 0a 20 20 20 20 28 53 4b 49 50 20 49"). (SKIP
0880: 2e 20 22 32 33 30 20 32 33 30 20 30 22 29 29 29 . "230 230 0")))
0890: 0a 0a 28 64 65 66 69 6e 65 20 28 67 75 74 69 6c ..(define (gutil
08a0: 73 3a 67 65 74 2d 63 6f 6c 6f 72 2d 73 70 65 63 s:get-color-spec
08b0: 20 65 66 66 65 63 74 69 76 65 2d 73 74 61 74 65 effective-state
08c0: 29 0a 20 20 28 6f 72 20 28 61 6c 69 73 74 2d 72 ). (or (alist-r
08d0: 65 66 20 65 66 66 65 63 74 69 76 65 2d 73 74 61 ef effective-sta
08e0: 74 65 20 67 75 74 69 6c 73 3a 63 6f 6c 6f 72 73 te gutils:colors
08f0: 29 0a 20 20 20 20 20 20 28 61 6c 69 73 74 2d 72 ). (alist-r
0900: 65 66 20 27 46 41 49 4c 20 67 75 74 69 6c 73 3a ef 'FAIL gutils:
0910: 63 6f 6c 6f 72 73 29 29 29 0a 0a 3b 3b 20 42 42 colors)))..;; BB
0920: 6e 6f 74 65 20 2d 20 73 74 61 74 65 20 73 74 61 note - state sta
0930: 74 75 73 20 64 61 73 68 62 6f 61 72 64 20 62 75 tus dashboard bu
0940: 74 74 6f 6e 20 63 6f 6c 6f 72 20 2f 20 74 65 78 tton color / tex
0950: 74 20 64 65 66 69 6e 65 64 20 68 65 72 65 0a 28 t defined here.(
0960: 64 65 66 69 6e 65 20 28 67 75 74 69 6c 73 3a 67 define (gutils:g
0970: 65 74 2d 63 6f 6c 6f 72 2d 66 6f 72 2d 73 74 61 et-color-for-sta
0980: 74 65 2d 73 74 61 74 75 73 20 73 74 61 74 65 20 te-status state
0990: 73 74 61 74 75 73 29 3b 3b 20 23 21 6b 65 79 20 status);; #!key
09a0: 28 67 65 74 2d 6c 61 62 65 6c 20 23 66 29 29 0a (get-label #f)).
09b0: 20 20 3b 3b 20 28 28 69 66 20 67 65 74 2d 6c 61 ;; ((if get-la
09c0: 62 65 6c 20 63 61 64 72 20 63 61 72 29 0a 20 20 bel cadr car).
09d0: 28 63 61 73 65 20 28 73 74 72 69 6e 67 2d 3e 73 (case (string->s
09e0: 79 6d 62 6f 6c 20 73 74 61 74 65 29 0a 20 20 20 ymbol state).
09f0: 20 28 28 43 4f 4d 50 4c 45 54 45 44 29 20 3b 3b ((COMPLETED) ;;
0a00: 20 41 52 43 48 49 56 45 44 29 0a 20 20 20 20 20 ARCHIVED).
0a10: 28 63 61 73 65 20 28 73 74 72 69 6e 67 2d 3e 73 (case (string->s
0a20: 79 6d 62 6f 6c 20 73 74 61 74 75 73 29 0a 20 20 ymbol status).
0a30: 20 20 20 20 20 28 28 50 41 53 53 29 20 20 20 20 ((PASS)
0a40: 20 20 20 20 28 6c 69 73 74 20 22 37 30 20 20 32 (list "70 2
0a50: 34 39 20 37 33 22 20 73 74 61 74 75 73 29 29 0a 49 73" status)).
0a60: 20 20 20 20 20 20 20 28 28 50 52 45 51 5f 46 41 ((PREQ_FA
0a70: 49 4c 20 50 52 45 51 5f 44 49 53 43 41 52 44 45 IL PREQ_DISCARDE
0a80: 44 29 20 28 6c 69 73 74 20 22 32 35 35 20 31 32 D) (list "255 12
0a90: 37 20 31 32 37 22 20 73 74 61 74 75 73 29 29 0a 7 127" status)).
0aa0: 20 20 20 20 20 20 20 28 28 57 41 52 4e 20 57 41 ((WARN WA
0ab0: 49 56 45 44 29 20 28 6c 69 73 74 20 22 32 35 35 IVED) (list "255
0ac0: 20 31 37 32 20 31 33 22 20 73 74 61 74 75 73 29 172 13" status)
0ad0: 29 0a 20 20 20 20 20 20 20 28 28 53 4b 49 50 29 ). ((SKIP)
0ae0: 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 67 (list (g
0af0: 75 74 69 6c 73 3a 67 65 74 2d 63 6f 6c 6f 72 2d utils:get-color-
0b00: 73 70 65 63 20 27 53 4b 49 50 29 20 73 74 61 74 spec 'SKIP) stat
0b10: 75 73 29 29 0a 20 20 20 20 20 20 20 28 28 41 42 us)). ((AB
0b20: 4f 52 54 29 20 20 20 20 20 20 20 28 6c 69 73 74 ORT) (list
0b30: 20 22 31 39 38 20 33 36 20 31 36 36 22 20 73 74 "198 36 166" st
0b40: 61 74 75 73 29 29 0a 20 20 20 20 20 20 20 28 65 atus)). (e
0b50: 6c 73 65 20 28 6c 69 73 74 20 22 32 35 33 20 33 lse (list "253 3
0b60: 33 20 34 39 22 20 73 74 61 74 75 73 29 29 29 29 3 49" status))))
0b70: 0a 20 20 20 20 28 28 41 52 43 48 49 56 45 44 29 . ((ARCHIVED)
0b80: 0a 20 20 20 20 20 28 63 61 73 65 20 28 73 74 72 . (case (str
0b90: 69 6e 67 2d 3e 73 79 6d 62 6f 6c 20 73 74 61 74 ing->symbol stat
0ba0: 75 73 29 0a 20 20 20 20 20 20 20 28 28 50 41 53 us). ((PAS
0bb0: 53 29 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 S) (list
0bc0: 22 37 30 20 20 31 37 30 20 37 33 22 20 73 74 61 "70 170 73" sta
0bd0: 74 75 73 29 29 0a 20 20 20 20 20 20 20 28 28 57 tus)). ((W
0be0: 41 52 4e 20 57 41 49 56 45 44 29 20 28 6c 69 73 ARN WAIVED) (lis
0bf0: 74 20 22 32 30 30 20 31 33 30 20 31 33 22 20 73 t "200 130 13" s
0c00: 74 61 74 75 73 29 29 0a 20 20 20 20 20 20 20 28 tatus)). (
0c10: 28 53 4b 49 50 29 20 20 20 20 20 20 20 20 28 6c (SKIP) (l
0c20: 69 73 74 20 28 67 75 74 69 6c 73 3a 67 65 74 2d ist (gutils:get-
0c30: 63 6f 6c 6f 72 2d 73 70 65 63 20 27 53 4b 49 50 color-spec 'SKIP
0c40: 29 20 73 74 61 74 75 73 29 29 0a 20 20 20 20 20 ) status)).
0c50: 20 20 28 65 6c 73 65 20 28 6c 69 73 74 20 22 31 (else (list "1
0c60: 38 30 20 33 33 20 34 39 22 20 73 74 61 74 75 73 80 33 49" status
0c70: 29 29 29 29 0a 20 20 20 20 3b 3b 20 20 20 20 20 )))). ;;
0c80: 20 28 69 66 20 28 65 71 75 61 6c 3f 20 73 74 61 (if (equal? sta
0c90: 74 75 73 20 22 50 41 53 53 22 29 0a 20 20 20 20 tus "PASS").
0ca0: 3b 3b 09 20 20 27 28 22 37 30 20 32 34 39 20 37 ;;. '("70 249 7
0cb0: 33 22 20 22 50 41 53 53 22 29 0a 20 20 20 20 3b 3" "PASS"). ;
0cc0: 3b 09 20 20 28 69 66 20 28 6f 72 20 28 65 71 75 ;. (if (or (equ
0cd0: 61 6c 3f 20 73 74 61 74 75 73 20 22 57 41 52 4e al? status "WARN
0ce0: 22 29 0a 20 20 20 20 3b 3b 09 09 20 20 28 65 71 "). ;;.. (eq
0cf0: 75 61 6c 3f 20 73 74 61 74 75 73 20 22 57 41 49 ual? status "WAI
0d00: 56 45 44 22 29 29 0a 20 20 20 20 3b 3b 09 20 20 VED")). ;;.
0d10: 20 20 20 20 28 6c 69 73 74 20 22 32 35 35 20 31 (list "255 1
0d20: 37 32 20 31 33 22 20 73 74 61 74 75 73 29 0a 20 72 13" status).
0d30: 20 20 20 3b 3b 09 20 20 20 20 20 20 28 6c 69 73 ;;. (lis
0d40: 74 20 22 32 32 33 20 33 33 20 34 39 22 20 20 73 t "223 33 49" s
0d50: 74 61 74 75 73 29 29 29 29 20 3b 3b 20 67 72 65 tatus)))) ;; gre
0d60: 65 6e 69 73 68 20 6f 72 61 6e 67 65 69 73 68 20 enish orangeish
0d70: 72 65 64 69 73 68 0a 20 20 20 20 28 28 4c 41 55 redish. ((LAU
0d80: 4e 43 48 45 44 29 20 20 20 20 20 20 20 20 20 28 NCHED) (
0d90: 6c 69 73 74 20 22 31 30 31 20 31 32 33 20 31 34 list "101 123 14
0da0: 32 22 20 20 73 74 61 74 65 29 29 0a 20 20 20 20 2" state)).
0db0: 28 28 43 48 45 43 4b 29 20 20 20 20 20 20 20 20 ((CHECK)
0dc0: 20 20 20 20 28 6c 69 73 74 20 22 32 35 35 20 31 (list "255 1
0dd0: 30 30 20 35 30 22 20 20 20 73 74 61 74 65 29 29 00 50" state))
0de0: 0a 20 20 20 20 28 28 52 45 4d 4f 54 45 48 4f 53 . ((REMOTEHOS
0df0: 54 53 54 41 52 54 29 20 20 28 6c 69 73 74 20 22 TSTART) (list "
0e00: 35 30 20 31 33 30 20 31 39 35 22 20 20 20 73 74 50 130 195" st
0e10: 61 74 65 29 29 0a 20 20 20 20 28 28 52 55 4e 4e ate)). ((RUNN
0e20: 49 4e 47 20 53 54 41 52 54 45 44 29 20 20 20 20 ING STARTED)
0e30: 20 20 20 20 20 20 28 6c 69 73 74 20 22 39 20 31 (list "9 1
0e40: 33 31 20 32 33 32 22 20 20 20 20 73 74 61 74 65 31 232" state
0e50: 29 29 0a 20 20 20 20 28 28 4b 49 4c 4c 52 45 51 )). ((KILLREQ
0e60: 29 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 ) (list
0e70: 20 22 33 39 20 38 32 20 32 30 36 22 20 20 20 20 "39 82 206"
0e80: 73 74 61 74 65 29 29 0a 20 20 20 20 28 28 4b 49 state)). ((KI
0e90: 4c 4c 45 44 29 20 20 20 20 20 20 20 20 20 20 20 LLED)
0ea0: 28 6c 69 73 74 20 22 32 33 34 20 31 30 31 20 31 (list "234 101 1
0eb0: 37 22 20 20 20 73 74 61 74 65 29 29 0a 20 20 20 7" state)).
0ec0: 20 28 28 4e 4f 54 5f 53 54 41 52 54 45 44 29 20 ((NOT_STARTED)
0ed0: 20 20 20 20 20 28 63 61 73 65 20 28 73 74 72 69 (case (stri
0ee0: 6e 67 2d 3e 73 79 6d 62 6f 6c 20 73 74 61 74 75 ng->symbol statu
0ef0: 73 29 0a 09 09 09 20 20 28 28 43 48 45 43 4b 20 s).... ((CHECK
0f00: 53 54 41 52 54 45 44 29 28 6c 69 73 74 20 28 67 STARTED)(list (g
0f10: 75 74 69 6c 73 3a 67 65 74 2d 63 6f 6c 6f 72 2d utils:get-color-
0f20: 73 70 65 63 20 27 53 4b 49 50 29 20 73 74 61 74 spec 'SKIP) stat
0f30: 65 29 29 0a 09 09 09 20 20 28 65 6c 73 65 20 20 e)).... (else
0f40: 20 28 6c 69 73 74 20 22 32 34 30 20 32 34 30 20 (list "240 240
0f50: 32 34 30 22 20 20 20 20 20 20 20 20 20 20 20 20 240"
0f60: 20 20 20 20 20 73 74 61 74 65 29 29 29 29 0a 20 state)))).
0f70: 20 20 20 3b 3b 20 66 6f 72 20 78 6f 72 20 6d 6f ;; for xor mo
0f80: 64 65 20 62 65 6c 6f 77 0a 20 20 20 20 3b 3b 0a de below. ;;.
0f90: 20 20 20 20 28 28 43 4c 45 41 4e 29 0a 20 20 20 ((CLEAN).
0fa0: 20 20 28 63 61 73 65 20 28 73 74 72 69 6e 67 2d (case (string-
0fb0: 3e 73 79 6d 62 6f 6c 20 73 74 61 74 75 73 29 0a >symbol status).
0fc0: 20 20 20 20 20 20 20 28 28 43 4c 45 41 4e 2d 46 ((CLEAN-F
0fd0: 41 49 4c 20 43 4c 45 41 4e 2d 43 48 45 43 4b 20 AIL CLEAN-CHECK
0fe0: 43 4c 45 41 4e 2d 41 42 4f 52 54 29 20 20 28 6c CLEAN-ABORT) (l
0ff0: 69 73 74 20 22 32 30 30 20 31 33 30 20 31 33 22 ist "200 130 13"
1000: 20 73 74 61 74 75 73 29 29 20 3b 3b 20 6f 72 61 status)) ;; ora
1010: 6e 67 65 20 72 65 71 75 65 73 74 65 64 20 66 6f nge requested fo
1020: 72 20 74 68 65 73 65 0a 20 20 20 20 20 20 20 28 r these. (
1030: 65 6c 73 65 20 20 28 6c 69 73 74 20 22 36 30 20 else (list "60
1040: 20 32 33 35 20 36 33 22 20 73 74 61 74 75 73 29 235 63" status)
1050: 29 29 29 0a 20 20 20 20 28 28 44 49 52 54 59 2d ))). ((DIRTY-
1060: 42 45 54 54 45 52 29 20 20 20 20 20 28 6c 69 73 BETTER) (lis
1070: 74 20 22 31 36 30 20 20 32 35 35 20 31 35 33 22 t "160 255 153"
1080: 20 73 74 61 74 75 73 29 29 0a 20 20 20 20 28 28 status)). ((
1090: 44 49 52 54 59 2d 57 4f 52 53 45 29 20 20 20 20 DIRTY-WORSE)
10a0: 20 20 28 6c 69 73 74 20 22 31 36 35 20 34 32 20 (list "165 42
10b0: 20 34 32 22 20 73 74 61 74 75 73 29 29 0a 20 20 42" status)).
10c0: 20 20 28 28 42 4f 54 48 2d 42 41 44 29 20 20 20 ((BOTH-BAD)
10d0: 20 20 20 20 20 20 28 6c 69 73 74 20 22 31 38 30 (list "180
10e0: 20 33 33 20 34 39 22 20 73 74 61 74 75 73 29 29 33 49" status))
10f0: 0a 0a 20 20 20 20 28 65 6c 73 65 20 20 20 20 20 .. (else
1100: 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 0a (list.
1110: 09 09 09 20 3b 3b 20 22 31 39 32 20 31 39 32 20 ... ;; "192 192
1120: 31 39 32 22 0a 09 09 09 20 22 32 32 32 20 32 32 192".... "222 22
1130: 32 20 32 32 31 22 0a 09 09 09 20 73 74 61 74 65 2 221".... state
1140: 29 29 29 29 0a 0a 29 0a ))))..).