Artifact
bb38b5c628a8188272f8e6fcb00845a2c8a4e7df:
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 64 62 73 74 ========.;; dbst
0050: 72 75 63 74 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d ruct.;;=========
0060: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0070: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0080: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0090: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 3b =============..;
00a0: 3b 0a 3b 3b 20 2d 70 61 74 68 2d 7c 2d 6d 65 67 ;.;; -path-|-meg
00b0: 61 74 65 73 74 2e 64 62 0a 3b 3b 20 20 20 20 20 atest.db.;;
00c0: 20 20 7c 2d 64 62 2d 7c 2d 6d 61 69 6e 2e 64 62 |-db-|-main.db
00d0: 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 7c .;; |
00e0: 2d 6d 6f 6e 69 74 6f 72 2e 64 62 0a 3b 3b 20 20 -monitor.db.;;
00f0: 20 20 20 20 20 20 20 20 20 20 7c 2d 73 64 62 2e |-sdb.
0100: 64 62 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 db.;;
0110: 20 7c 2d 66 64 62 2e 64 62 0a 3b 3b 20 20 20 20 |-fdb.db.;;
0120: 20 20 20 20 20 20 20 20 7c 2d 31 2e 64 62 0a 3b |-1.db.;
0130: 3b 20 20 20 20 20 20 20 20 20 20 20 20 7c 2d 3c ; |-<
0140: 4e 3e 2e 64 62 0a 3b 3b 0a 3b 3b 0a 3b 3b 20 41 N>.db.;;.;;.;; A
0150: 63 63 65 73 73 6f 72 73 20 66 6f 72 20 61 20 64 ccessors for a d
0160: 62 73 74 72 75 63 74 0a 3b 3b 0a 0a 3b 3b 20 28 bstruct.;;..;; (
0170: 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 define-inline (d
0180: 62 72 3a 64 62 73 74 72 75 63 74 2d 6d 61 69 6e br:dbstruct-main
0190: 20 20 20 20 76 65 63 29 20 20 20 20 28 76 65 63 vec) (vec
01a0: 74 6f 72 2d 72 65 66 20 20 76 65 63 20 30 29 29 tor-ref vec 0))
01b0: 20 3b 3b 20 28 20 64 62 20 70 61 74 68 20 29 0a ;; ( db path ).
01c0: 3b 3b 20 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e ;; (define-inlin
01d0: 65 20 28 64 62 72 3a 64 62 73 74 72 75 63 74 2d e (dbr:dbstruct-
01e0: 73 74 72 64 62 20 20 20 76 65 63 29 20 20 20 20 strdb vec)
01f0: 28 76 65 63 74 6f 72 2d 72 65 66 20 20 76 65 63 (vector-ref vec
0200: 20 31 29 29 20 3b 3b 20 28 20 64 62 20 70 61 74 1)) ;; ( db pat
0210: 68 20 29 0a 3b 3b 20 28 64 65 66 69 6e 65 2d 69 h ).;; (define-i
0220: 6e 6c 69 6e 65 20 28 64 62 72 3a 64 62 73 74 72 nline (dbr:dbstr
0230: 75 63 74 2d 70 61 74 68 20 20 20 20 76 65 63 29 uct-path vec)
0240: 20 20 20 20 28 76 65 63 74 6f 72 2d 72 65 66 20 (vector-ref
0250: 20 76 65 63 20 32 29 29 20 0a 3b 3b 20 28 64 65 vec 2)) .;; (de
0260: 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 72 fine-inline (dbr
0270: 3a 64 62 73 74 72 75 63 74 2d 6c 6f 63 61 6c 20 :dbstruct-local
0280: 20 20 76 65 63 29 20 20 20 20 28 76 65 63 74 6f vec) (vecto
0290: 72 2d 72 65 66 20 20 76 65 63 20 33 29 29 0a 3b r-ref vec 3)).;
02a0: 3b 20 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 ; (define-inline
02b0: 20 28 64 62 72 3a 64 62 73 74 72 75 63 74 2d 72 (dbr:dbstruct-r
02c0: 75 6e 64 62 20 20 20 76 65 63 29 20 20 20 20 28 undb vec) (
02d0: 76 65 63 74 6f 72 2d 72 65 66 20 20 76 65 63 20 vector-ref vec
02e0: 34 29 29 20 3b 3b 20 28 20 64 62 20 70 61 74 68 4)) ;; ( db path
02f0: 20 29 0a 3b 3b 20 28 64 65 66 69 6e 65 2d 69 6e ).;; (define-in
0300: 6c 69 6e 65 20 28 64 62 72 3a 64 62 73 74 72 75 line (dbr:dbstru
0310: 63 74 2d 69 6e 6d 65 6d 20 20 20 76 65 63 29 20 ct-inmem vec)
0320: 20 20 20 28 76 65 63 74 6f 72 2d 72 65 66 20 20 (vector-ref
0330: 76 65 63 20 35 29 29 20 3b 3b 20 28 20 64 62 20 vec 5)) ;; ( db
0340: 23 66 20 29 0a 3b 3b 20 28 64 65 66 69 6e 65 2d #f ).;; (define-
0350: 69 6e 6c 69 6e 65 20 28 64 62 72 3a 64 62 73 74 inline (dbr:dbst
0360: 72 75 63 74 2d 6d 74 69 6d 65 20 20 20 76 65 63 ruct-mtime vec
0370: 29 20 20 20 20 28 76 65 63 74 6f 72 2d 72 65 66 ) (vector-ref
0380: 20 20 76 65 63 20 36 29 29 0a 3b 3b 20 28 64 65 vec 6)).;; (de
0390: 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 72 fine-inline (dbr
03a0: 3a 64 62 73 74 72 75 63 74 2d 72 74 69 6d 65 20 :dbstruct-rtime
03b0: 20 20 76 65 63 29 20 20 20 20 28 76 65 63 74 6f vec) (vecto
03c0: 72 2d 72 65 66 20 20 76 65 63 20 37 29 29 0a 3b r-ref vec 7)).;
03d0: 3b 20 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 ; (define-inline
03e0: 20 28 64 62 72 3a 64 62 73 74 72 75 63 74 2d 73 (dbr:dbstruct-s
03f0: 74 69 6d 65 20 20 20 76 65 63 29 20 20 20 20 28 time vec) (
0400: 76 65 63 74 6f 72 2d 72 65 66 20 20 76 65 63 20 vector-ref vec
0410: 38 29 29 0a 3b 3b 20 28 64 65 66 69 6e 65 2d 69 8)).;; (define-i
0420: 6e 6c 69 6e 65 20 28 64 62 72 3a 64 62 73 74 72 nline (dbr:dbstr
0430: 75 63 74 2d 69 6e 75 73 65 20 20 20 76 65 63 29 uct-inuse vec)
0440: 20 20 20 20 28 76 65 63 74 6f 72 2d 72 65 66 20 (vector-ref
0450: 20 76 65 63 20 39 29 29 0a 3b 3b 20 28 64 65 66 vec 9)).;; (def
0460: 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 72 3a ine-inline (dbr:
0470: 64 62 73 74 72 75 63 74 2d 72 65 66 64 62 20 20 dbstruct-refdb
0480: 20 76 65 63 29 20 20 20 20 28 76 65 63 74 6f 72 vec) (vector
0490: 2d 72 65 66 20 20 76 65 63 20 31 30 29 29 20 3b -ref vec 10)) ;
04a0: 3b 20 28 20 64 62 20 70 61 74 68 20 29 0a 3b 3b ; ( db path ).;;
04b0: 20 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 (define-inline
04c0: 28 64 62 72 3a 64 62 73 74 72 75 63 74 2d 6c 6f (dbr:dbstruct-lo
04d0: 63 64 62 73 20 20 76 65 63 29 20 20 20 20 28 76 cdbs vec) (v
04e0: 65 63 74 6f 72 2d 72 65 66 20 20 76 65 63 20 31 ector-ref vec 1
04f0: 31 29 29 0a 3b 3b 20 28 64 65 66 69 6e 65 2d 69 1)).;; (define-i
0500: 6e 6c 69 6e 65 20 28 64 62 72 3a 64 62 73 74 72 nline (dbr:dbstr
0510: 75 63 74 2d 6f 6c 64 64 62 20 20 20 76 65 63 29 uct-olddb vec)
0520: 20 20 20 20 28 76 65 63 74 6f 72 2d 72 65 66 20 (vector-ref
0530: 20 76 65 63 20 31 32 29 29 20 3b 3b 20 28 20 64 vec 12)) ;; ( d
0540: 62 20 70 61 74 68 20 29 0a 3b 3b 20 3b 3b 20 28 b path ).;; ;; (
0550: 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 define-inline (d
0560: 62 72 3a 64 62 73 74 72 75 63 74 2d 6d 61 69 6e br:dbstruct-main
0570: 2d 70 61 74 68 20 76 65 63 29 20 20 28 76 65 63 -path vec) (vec
0580: 74 6f 72 2d 72 65 66 20 20 76 65 63 20 31 33 29 tor-ref vec 13)
0590: 29 0a 3b 3b 20 3b 3b 20 28 64 65 66 69 6e 65 2d ).;; ;; (define-
05a0: 69 6e 6c 69 6e 65 20 28 64 62 72 3a 64 62 73 74 inline (dbr:dbst
05b0: 72 75 63 74 2d 72 75 6e 64 62 2d 70 61 74 68 20 ruct-rundb-path
05c0: 76 65 63 29 20 28 76 65 63 74 6f 72 2d 72 65 66 vec) (vector-ref
05d0: 20 20 76 65 63 20 31 34 29 29 0a 3b 3b 20 3b 3b vec 14)).;; ;;
05e0: 20 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 (define-inline
05f0: 28 64 62 72 3a 64 62 73 74 72 75 63 74 2d 72 75 (dbr:dbstruct-ru
0600: 6e 2d 69 64 20 20 76 65 63 29 20 20 20 20 28 76 n-id vec) (v
0610: 65 63 74 6f 72 2d 72 65 66 20 20 76 65 63 20 31 ector-ref vec 1
0620: 33 29 29 0a 3b 3b 20 0a 3b 3b 20 28 64 65 66 69 3)).;; .;; (defi
0630: 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 72 3a 64 ne-inline (dbr:d
0640: 62 73 74 72 75 63 74 2d 6d 61 69 6e 2d 73 65 74 bstruct-main-set
0650: 21 20 20 20 76 65 63 20 76 61 6c 29 28 76 65 63 ! vec val)(vec
0660: 74 6f 72 2d 73 65 74 21 20 76 65 63 20 30 20 76 tor-set! vec 0 v
0670: 61 6c 29 29 0a 3b 3b 20 28 64 65 66 69 6e 65 2d al)).;; (define-
0680: 69 6e 6c 69 6e 65 20 28 64 62 72 3a 64 62 73 74 inline (dbr:dbst
0690: 72 75 63 74 2d 73 74 72 64 62 2d 73 65 74 21 20 ruct-strdb-set!
06a0: 20 76 65 63 20 76 61 6c 29 28 76 65 63 74 6f 72 vec val)(vector
06b0: 2d 73 65 74 21 20 76 65 63 20 31 20 76 61 6c 29 -set! vec 1 val)
06c0: 29 0a 3b 3b 20 28 64 65 66 69 6e 65 2d 69 6e 6c ).;; (define-inl
06d0: 69 6e 65 20 28 64 62 72 3a 64 62 73 74 72 75 63 ine (dbr:dbstruc
06e0: 74 2d 70 61 74 68 2d 73 65 74 21 20 20 20 76 65 t-path-set! ve
06f0: 63 20 76 61 6c 29 28 76 65 63 74 6f 72 2d 73 65 c val)(vector-se
0700: 74 21 20 76 65 63 20 32 20 76 61 6c 29 29 0a 3b t! vec 2 val)).;
0710: 3b 20 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 ; (define-inline
0720: 20 28 64 62 72 3a 64 62 73 74 72 75 63 74 2d 6c (dbr:dbstruct-l
0730: 6f 63 61 6c 2d 73 65 74 21 20 20 76 65 63 20 76 ocal-set! vec v
0740: 61 6c 29 28 76 65 63 74 6f 72 2d 73 65 74 21 20 al)(vector-set!
0750: 76 65 63 20 33 20 76 61 6c 29 29 0a 3b 3b 20 28 vec 3 val)).;; (
0760: 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 define-inline (d
0770: 62 72 3a 64 62 73 74 72 75 63 74 2d 72 75 6e 64 br:dbstruct-rund
0780: 62 2d 73 65 74 21 20 20 76 65 63 20 76 61 6c 29 b-set! vec val)
0790: 28 76 65 63 74 6f 72 2d 73 65 74 21 20 76 65 63 (vector-set! vec
07a0: 20 34 20 76 61 6c 29 29 0a 3b 3b 20 28 64 65 66 4 val)).;; (def
07b0: 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 72 3a ine-inline (dbr:
07c0: 64 62 73 74 72 75 63 74 2d 69 6e 6d 65 6d 2d 73 dbstruct-inmem-s
07d0: 65 74 21 20 20 76 65 63 20 76 61 6c 29 28 76 65 et! vec val)(ve
07e0: 63 74 6f 72 2d 73 65 74 21 20 76 65 63 20 35 20 ctor-set! vec 5
07f0: 76 61 6c 29 29 0a 3b 3b 20 28 64 65 66 69 6e 65 val)).;; (define
0800: 2d 69 6e 6c 69 6e 65 20 28 64 62 72 3a 64 62 73 -inline (dbr:dbs
0810: 74 72 75 63 74 2d 6d 74 69 6d 65 2d 73 65 74 21 truct-mtime-set!
0820: 20 20 76 65 63 20 76 61 6c 29 28 76 65 63 74 6f vec val)(vecto
0830: 72 2d 73 65 74 21 20 76 65 63 20 36 20 76 61 6c r-set! vec 6 val
0840: 29 29 0a 3b 3b 20 28 64 65 66 69 6e 65 2d 69 6e )).;; (define-in
0850: 6c 69 6e 65 20 28 64 62 72 3a 64 62 73 74 72 75 line (dbr:dbstru
0860: 63 74 2d 72 74 69 6d 65 2d 73 65 74 21 20 20 76 ct-rtime-set! v
0870: 65 63 20 76 61 6c 29 28 76 65 63 74 6f 72 2d 73 ec val)(vector-s
0880: 65 74 21 20 76 65 63 20 37 20 76 61 6c 29 29 0a et! vec 7 val)).
0890: 3b 3b 20 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e ;; (define-inlin
08a0: 65 20 28 64 62 72 3a 64 62 73 74 72 75 63 74 2d e (dbr:dbstruct-
08b0: 73 74 69 6d 65 2d 73 65 74 21 20 20 76 65 63 20 stime-set! vec
08c0: 76 61 6c 29 28 76 65 63 74 6f 72 2d 73 65 74 21 val)(vector-set!
08d0: 20 76 65 63 20 38 20 76 61 6c 29 29 0a 3b 3b 20 vec 8 val)).;;
08e0: 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 (define-inline (
08f0: 64 62 72 3a 64 62 73 74 72 75 63 74 2d 69 6e 75 dbr:dbstruct-inu
0900: 73 65 2d 73 65 74 21 20 20 76 65 63 20 76 61 6c se-set! vec val
0910: 29 28 76 65 63 74 6f 72 2d 73 65 74 21 20 76 65 )(vector-set! ve
0920: 63 20 39 20 76 61 6c 29 29 0a 3b 3b 20 28 64 65 c 9 val)).;; (de
0930: 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 72 fine-inline (dbr
0940: 3a 64 62 73 74 72 75 63 74 2d 72 65 66 64 62 2d :dbstruct-refdb-
0950: 73 65 74 21 20 20 76 65 63 20 76 61 6c 29 28 76 set! vec val)(v
0960: 65 63 74 6f 72 2d 73 65 74 21 20 76 65 63 20 31 ector-set! vec 1
0970: 30 20 76 61 6c 29 29 0a 3b 3b 20 28 64 65 66 69 0 val)).;; (defi
0980: 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 72 3a 64 ne-inline (dbr:d
0990: 62 73 74 72 75 63 74 2d 6c 6f 63 64 62 73 2d 73 bstruct-locdbs-s
09a0: 65 74 21 20 76 65 63 20 76 61 6c 29 28 76 65 63 et! vec val)(vec
09b0: 74 6f 72 2d 73 65 74 21 20 76 65 63 20 31 31 20 tor-set! vec 11
09c0: 76 61 6c 29 29 0a 3b 3b 20 28 64 65 66 69 6e 65 val)).;; (define
09d0: 2d 69 6e 6c 69 6e 65 20 28 64 62 72 3a 64 62 73 -inline (dbr:dbs
09e0: 74 72 75 63 74 2d 6f 6c 64 64 62 2d 73 65 74 21 truct-olddb-set!
09f0: 20 20 76 65 63 20 76 61 6c 29 28 76 65 63 74 6f vec val)(vecto
0a00: 72 2d 73 65 74 21 20 76 65 63 20 31 32 20 76 61 r-set! vec 12 va
0a10: 6c 29 29 0a 3b 3b 20 28 64 65 66 69 6e 65 2d 69 l)).;; (define-i
0a20: 6e 6c 69 6e 65 20 28 64 62 72 3a 64 62 73 74 72 nline (dbr:dbstr
0a30: 75 63 74 2d 6d 61 69 6e 2d 70 61 74 68 2d 73 65 uct-main-path-se
0a40: 74 21 20 76 65 63 20 76 61 6c 29 28 76 65 63 74 t! vec val)(vect
0a50: 6f 72 2d 73 65 74 21 20 76 65 63 20 31 33 20 76 or-set! vec 13 v
0a60: 61 6c 29 29 0a 3b 3b 20 28 64 65 66 69 6e 65 2d al)).;; (define-
0a70: 69 6e 6c 69 6e 65 20 28 64 62 72 3a 64 62 73 74 inline (dbr:dbst
0a80: 72 75 63 74 2d 72 75 6e 64 62 2d 70 61 74 68 2d ruct-rundb-path-
0a90: 73 65 74 21 20 76 65 63 20 76 61 6c 29 28 76 65 set! vec val)(ve
0aa0: 63 74 6f 72 2d 73 65 74 21 20 76 65 63 20 31 34 ctor-set! vec 14
0ab0: 20 76 61 6c 29 29 0a 3b 3b 20 0a 3b 20 28 64 65 val)).;; .; (de
0ac0: 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 72 fine-inline (dbr
0ad0: 3a 64 62 73 74 72 75 63 74 2d 72 75 6e 2d 69 64 :dbstruct-run-id
0ae0: 2d 73 65 74 21 20 76 65 63 20 76 61 6c 29 28 76 -set! vec val)(v
0af0: 65 63 74 6f 72 2d 73 65 74 21 20 76 65 63 20 31 ector-set! vec 1
0b00: 33 20 76 61 6c 29 29 0a 0a 3b 3b 20 63 6f 6e 73 3 val))..;; cons
0b10: 74 72 75 63 74 6f 72 20 66 6f 72 20 64 62 73 74 tructor for dbst
0b20: 72 75 63 74 0a 3b 3b 0a 3b 3b 20 28 64 65 66 69 ruct.;;.;; (defi
0b30: 6e 65 20 28 6d 61 6b 65 2d 64 62 72 3a 64 62 73 ne (make-dbr:dbs
0b40: 74 72 75 63 74 20 23 21 6b 65 79 20 28 70 61 74 truct #!key (pat
0b50: 68 20 23 66 29 28 6c 6f 63 61 6c 20 23 66 29 29 h #f)(local #f))
0b60: 0a 3b 3b 20 20 20 28 6c 65 74 20 28 28 76 20 28 .;; (let ((v (
0b70: 6d 61 6b 65 2d 76 65 63 74 6f 72 20 31 35 20 23 make-vector 15 #
0b80: 66 29 29 29 0a 3b 3b 20 20 20 20 20 28 64 62 72 f))).;; (dbr
0b90: 3a 64 62 73 74 72 75 63 74 2d 70 61 74 68 2d 73 :dbstruct-path-s
0ba0: 65 74 21 20 76 20 70 61 74 68 29 0a 3b 3b 20 20 et! v path).;;
0bb0: 20 20 20 28 64 62 72 3a 64 62 73 74 72 75 63 74 (dbr:dbstruct
0bc0: 2d 6c 6f 63 61 6c 2d 73 65 74 21 20 76 20 6c 6f -local-set! v lo
0bd0: 63 61 6c 29 0a 3b 3b 20 20 20 20 20 28 64 62 72 cal).;; (dbr
0be0: 3a 64 62 73 74 72 75 63 74 2d 6c 6f 63 64 62 73 :dbstruct-locdbs
0bf0: 2d 73 65 74 21 20 76 20 28 6d 61 6b 65 2d 68 61 -set! v (make-ha
0c00: 73 68 2d 74 61 62 6c 65 29 29 0a 3b 3b 20 20 20 sh-table)).;;
0c10: 20 20 76 29 29 0a 0a 3b 3b 20 52 65 74 75 72 6e v))..;; Return
0c20: 73 20 74 68 65 20 64 61 74 61 62 61 73 65 20 66 s the database f
0c30: 6f 72 20 61 20 70 61 72 74 69 63 75 6c 61 72 20 or a particular
0c40: 72 75 6e 2d 69 64 20 66 72 6f 6e 20 74 68 65 20 run-id fron the
0c50: 64 62 73 74 72 75 63 74 3a 6c 6f 63 61 6c 64 62 dbstruct:localdb
0c60: 73 0a 3b 3b 0a 28 64 65 66 69 6e 65 20 28 64 62 s.;;.(define (db
0c70: 72 3a 64 62 73 74 72 75 63 74 2d 6c 6f 63 61 6c r:dbstruct-local
0c80: 64 62 20 76 20 72 75 6e 2d 69 64 29 0a 20 20 28 db v run-id). (
0c90: 68 61 73 68 2d 74 61 62 6c 65 2d 72 65 66 2f 64 hash-table-ref/d
0ca0: 65 66 61 75 6c 74 20 28 64 62 72 3a 64 62 73 74 efault (dbr:dbst
0cb0: 72 75 63 74 2d 6c 6f 63 64 62 73 20 76 29 20 72 ruct-locdbs v) r
0cc0: 75 6e 2d 69 64 20 23 66 29 29 0a 0a 28 64 65 66 un-id #f))..(def
0cd0: 69 6e 65 20 28 64 62 72 3a 64 62 73 74 72 75 63 ine (dbr:dbstruc
0ce0: 74 2d 6c 6f 63 61 6c 64 62 2d 73 65 74 21 20 76 t-localdb-set! v
0cf0: 20 72 75 6e 2d 69 64 20 64 62 29 0a 20 20 28 68 run-id db). (h
0d00: 61 73 68 2d 74 61 62 6c 65 2d 73 65 74 21 20 28 ash-table-set! (
0d10: 64 62 72 3a 64 62 73 74 72 75 63 74 2d 6c 6f 63 dbr:dbstruct-loc
0d20: 64 62 73 20 76 29 20 72 75 6e 2d 69 64 20 64 62 dbs v) run-id db
0d30: 29 29 0a 0a 28 72 65 71 75 69 72 65 2d 65 78 74 ))..(require-ext
0d40: 65 6e 73 69 6f 6e 20 74 79 70 65 64 2d 72 65 63 ension typed-rec
0d50: 6f 72 64 73 29 0a 28 64 65 66 73 74 72 75 63 74 ords).(defstruct
0d60: 20 64 62 3a 74 65 73 74 2d 72 65 63 20 28 28 69 db:test-rec ((i
0d70: 64 20 2d 31 29 20 3a 20 6e 75 6d 62 65 72 29 0a d -1) : number).
0d80: 09 09 09 09 09 28 28 72 75 6e 5f 69 64 20 2d 31 .....((run_id -1
0d90: 29 20 3a 20 6e 75 6d 62 65 72 29 20 0a 09 09 09 ) : number) ....
0da0: 09 09 28 28 74 65 73 74 6e 61 6d 65 20 22 22 29 ..((testname "")
0db0: 20 3a 20 73 74 72 69 6e 67 29 0a 09 09 09 09 09 : string)......
0dc0: 28 28 73 74 61 74 65 20 22 22 29 20 3a 20 73 74 ((state "") : st
0dd0: 72 69 6e 67 29 0a 09 09 09 09 09 28 28 73 74 61 ring)......((sta
0de0: 74 75 73 20 22 22 29 20 3a 20 73 74 72 69 6e 67 tus "") : string
0df0: 29 0a 09 09 09 09 09 28 28 65 76 65 6e 74 5f 74 )......((event_t
0e00: 69 6d 65 20 2d 31 29 20 3a 20 6e 75 6d 62 65 72 ime -1) : number
0e10: 29 0a 09 09 09 09 09 28 28 68 6f 73 74 20 22 22 )......((host ""
0e20: 29 20 3a 20 73 74 72 69 6e 67 29 0a 09 09 09 09 ) : string).....
0e30: 09 28 28 63 70 75 6c 6f 61 64 20 2d 31 29 20 3a .((cpuload -1) :
0e40: 20 6e 75 6d 62 65 72 29 0a 09 09 09 09 09 28 28 number)......((
0e50: 64 69 73 6b 66 72 65 65 20 2d 31 29 20 3a 20 6e diskfree -1) : n
0e60: 75 6d 62 65 72 29 0a 09 09 09 09 09 28 28 75 6e umber)......((un
0e70: 61 6d 65 20 22 22 29 20 3a 20 73 74 72 69 6e 67 ame "") : string
0e80: 29 0a 09 09 09 09 09 28 28 72 75 6e 64 69 72 20 )......((rundir
0e90: 22 22 29 20 3a 20 73 74 72 69 6e 67 29 0a 09 09 "") : string)...
0ea0: 09 09 09 28 28 69 74 65 6d 5f 70 61 74 68 20 22 ...((item_path "
0eb0: 22 29 20 3a 20 73 74 72 69 6e 67 29 0a 09 09 09 ") : string)....
0ec0: 09 09 28 28 72 75 6e 5f 64 75 72 61 74 69 6f 6e ..((run_duration
0ed0: 20 2d 31 29 20 3a 20 6e 75 6d 62 65 72 29 0a 09 -1) : number)..
0ee0: 09 09 09 09 28 28 66 69 6e 61 6c 5f 6c 6f 67 66 ....((final_logf
0ef0: 20 22 22 29 20 3a 20 73 74 72 69 6e 67 29 0a 09 "") : string)..
0f00: 09 09 09 09 28 28 63 6f 6d 6d 65 6e 74 20 22 22 ....((comment ""
0f10: 29 20 3a 20 73 74 72 69 6e 67 29 0a 09 09 09 09 ) : string).....
0f20: 09 28 28 70 72 6f 63 65 73 73 2d 69 64 20 2d 31 .((process-id -1
0f30: 29 20 3a 20 6e 75 6d 62 65 72 29 0a 09 09 09 09 ) : number).....
0f40: 09 28 28 61 72 63 68 69 76 65 64 20 2d 31 29 20 .((archived -1)
0f50: 3a 20 6e 75 6d 62 65 72 29 0a 09 09 09 09 09 28 : number)......(
0f60: 28 73 68 6f 72 74 64 69 72 20 2d 31 29 20 3a 20 (shortdir -1) :
0f70: 6e 75 6d 62 65 72 29 0a 09 09 09 09 09 28 28 61 number)......((a
0f80: 74 74 65 6d 70 74 6e 75 6d 20 2d 31 29 20 3a 20 ttemptnum -1) :
0f90: 6e 75 6d 62 65 72 29 29 0a 0a 22 69 64 22 20 20 number)).."id"
0fa0: 20 20 20 20 20 20 20 20 20 22 72 75 6e 5f 69 64 "run_id
0fb0: 22 20 20 20 20 20 20 20 20 22 74 65 73 74 6e 61 " "testna
0fc0: 6d 65 22 20 20 22 73 74 61 74 65 22 20 20 20 20 me" "state"
0fd0: 20 20 22 73 74 61 74 75 73 22 20 20 20 20 20 20 "status"
0fe0: 22 65 76 65 6e 74 5f 74 69 6d 65 22 0a 09 09 09 "event_time"....
0ff0: 09 22 68 6f 73 74 22 20 20 20 20 20 20 20 20 20 ."host"
1000: 22 63 70 75 6c 6f 61 64 22 20 20 20 20 20 20 20 "cpuload"
1010: 22 64 69 73 6b 66 72 65 65 22 20 20 22 75 6e 61 "diskfree" "una
1020: 6d 65 22 20 20 20 20 20 20 22 72 75 6e 64 69 72 me" "rundir
1030: 22 20 20 20 20 20 20 22 69 74 65 6d 5f 70 61 74 " "item_pat
1040: 68 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 h".
1050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1060: 20 20 20 22 72 75 6e 5f 64 75 72 61 74 69 6f 6e "run_duration
1070: 22 20 22 66 69 6e 61 6c 5f 6c 6f 67 66 22 20 20 " "final_logf"
1080: 20 20 22 63 6f 6d 6d 65 6e 74 22 20 20 20 22 73 "comment" "s
1090: 68 6f 72 74 64 69 72 22 20 20 20 22 61 74 74 65 hortdir" "atte
10a0: 6d 70 74 6e 75 6d 22 20 20 22 61 72 63 68 69 76 mptnum" "archiv
10b0: 65 64 22 0a 0a 28 64 65 66 69 6e 65 20 28 64 62 ed"..(define (db
10c0: 3a 71 72 79 2d 67 65 6e 2d 61 6c 69 73 74 20 71 :qry-gen-alist q
10d0: 72 79 73 74 72 20 6c 69 73 74 76 61 6c 73 29 0a rystr listvals).
10e0: 09 28 64 65 66 69 6e 65 20 6c 69 73 74 71 72 79 .(define listqry
10f0: 20 28 73 74 72 69 6e 67 2d 73 70 6c 69 74 20 71 (string-split q
1100: 72 79 73 74 72 20 22 2c 22 29 29 0a 09 28 69 66 rystr ","))..(if
1110: 20 28 6e 75 6c 6c 3f 20 6c 69 73 74 71 72 79 29 (null? listqry)
1120: 0a 09 20 20 20 20 20 20 27 28 29 0a 09 20 20 20 .. '()..
1130: 20 20 20 28 6c 65 74 20 6c 6f 6f 70 20 28 28 73 (let loop ((s
1140: 74 72 68 65 61 64 20 28 63 61 72 20 6c 69 73 74 trhead (car list
1150: 71 72 79 29 29 0a 09 09 09 20 28 73 74 72 74 61 qry)).... (strta
1160: 69 6c 20 28 63 64 72 20 6c 69 73 74 71 72 79 29 il (cdr listqry)
1170: 29 0a 09 09 09 20 28 76 61 6c 68 65 61 64 20 28 ).... (valhead (
1180: 63 61 72 20 6c 69 73 74 76 61 6c 73 29 29 0a 09 car listvals))..
1190: 09 09 20 28 76 61 6c 74 61 69 6c 20 28 63 64 72 .. (valtail (cdr
11a0: 20 6c 69 73 74 76 61 6c 73 29 29 0a 09 09 09 20 listvals))....
11b0: 28 72 65 73 20 27 28 29 29 29 0a 09 09 28 6c 65 (res '()))...(le
11c0: 74 2a 20 28 28 73 6c 6f 74 2d 76 61 6c 2d 70 61 t* ((slot-val-pa
11d0: 69 72 20 28 63 6f 6e 73 20 28 73 74 72 69 6e 67 ir (cons (string
11e0: 2d 3e 73 79 6d 62 6f 6c 20 73 74 72 68 65 61 64 ->symbol strhead
11f0: 29 20 76 61 6c 68 65 61 64 29 29 29 0a 09 09 20 ) valhead)))...
1200: 20 28 69 66 20 28 6f 72 20 28 6e 75 6c 6c 3f 20 (if (or (null?
1210: 73 74 72 74 61 69 6c 29 0a 09 09 20 20 09 09 28 strtail)... ..(
1220: 6e 75 6c 6c 3f 20 76 61 6c 74 61 69 6c 29 29 0a null? valtail)).
1230: 09 09 20 20 20 20 20 20 28 63 6f 6e 73 20 73 6c .. (cons sl
1240: 6f 74 2d 76 61 6c 2d 70 61 69 72 20 72 65 73 29 ot-val-pair res)
1250: 3b 3b 28 70 72 69 6e 74 20 73 74 72 68 65 61 64 ;;(print strhead
1260: 20 76 61 6c 68 65 61 64 29 29 3b 3b 28 63 6f 6e valhead));;(con
1270: 73 20 28 63 6f 6e 73 20 28 73 74 72 69 6e 67 2d s (cons (string-
1280: 3e 73 79 6d 62 6f 6c 20 73 74 72 68 65 61 64 29 >symbol strhead)
1290: 20 76 61 6c 68 65 61 64 29 20 72 65 73 29 29 0a valhead) res)).
12a0: 09 09 20 20 20 20 20 20 28 6c 6f 6f 70 20 28 63 .. (loop (c
12b0: 61 72 20 73 74 72 74 61 69 6c 29 28 63 64 72 20 ar strtail)(cdr
12c0: 73 74 72 74 61 69 6c 29 28 63 61 72 20 76 61 6c strtail)(car val
12d0: 74 61 69 6c 29 28 63 64 72 20 76 61 6c 74 61 69 tail)(cdr valtai
12e0: 6c 29 28 63 6f 6e 73 20 73 6c 6f 74 2d 76 61 6c l)(cons slot-val
12f0: 2d 70 61 69 72 20 72 65 73 29 29 29 29 29 29 29 -pair res)))))))
1300: 0a 0a 28 64 65 66 69 6e 65 20 28 64 62 3a 74 65 ..(define (db:te
1310: 73 74 2d 67 65 74 2d 69 64 09 09 09 74 79 70 65 st-get-id...type
1320: 64 2d 72 65 63 29 20 20 20 28 64 62 3a 74 65 73 d-rec) (db:tes
1330: 74 2d 72 65 63 2d 69 64 20 09 09 74 79 70 65 64 t-rec-id ..typed
1340: 2d 72 65 63 29 29 0a 28 64 65 66 69 6e 65 20 28 -rec)).(define (
1350: 64 62 3a 74 65 73 74 2d 67 65 74 2d 72 75 6e 5f db:test-get-run_
1360: 69 64 20 09 74 79 70 65 64 2d 72 65 63 29 09 20 id .typed-rec).
1370: 28 64 62 3a 74 65 73 74 2d 72 65 63 2d 72 75 6e (db:test-rec-run
1380: 5f 69 64 20 09 74 79 70 65 64 2d 72 65 63 29 29 _id .typed-rec))
1390: 0a 28 64 65 66 69 6e 65 20 28 64 62 3a 74 65 73 .(define (db:tes
13a0: 74 2d 67 65 74 2d 74 65 73 74 6e 61 6d 65 20 20 t-get-testname
13b0: 20 74 79 70 65 64 2d 72 65 63 29 20 20 20 28 64 typed-rec) (d
13c0: 62 3a 74 65 73 74 2d 72 65 63 2d 74 65 73 74 6e b:test-rec-testn
13d0: 61 6d 65 20 74 79 70 65 64 2d 72 65 63 29 29 0a ame typed-rec)).
13e0: 28 64 65 66 69 6e 65 20 28 64 62 3a 74 65 73 74 (define (db:test
13f0: 2d 67 65 74 2d 73 74 61 74 65 20 20 20 20 20 20 -get-state
1400: 74 79 70 65 64 2d 72 65 63 29 20 20 20 28 64 62 typed-rec) (db
1410: 3a 74 65 73 74 2d 72 65 63 2d 73 74 61 74 65 20 :test-rec-state
1420: 09 74 79 70 65 64 2d 72 65 63 29 29 0a 28 64 65 .typed-rec)).(de
1430: 66 69 6e 65 20 28 64 62 3a 74 65 73 74 2d 67 65 fine (db:test-ge
1440: 74 2d 73 74 61 74 75 73 20 20 20 20 20 74 79 70 t-status typ
1450: 65 64 2d 72 65 63 29 20 20 20 28 64 62 3a 74 65 ed-rec) (db:te
1460: 73 74 2d 72 65 63 2d 73 74 61 74 75 73 20 09 74 st-rec-status .t
1470: 79 70 65 64 2d 72 65 63 29 29 0a 28 64 65 66 69 yped-rec)).(defi
1480: 6e 65 20 28 64 62 3a 74 65 73 74 2d 67 65 74 2d ne (db:test-get-
1490: 65 76 65 6e 74 5f 74 69 6d 65 20 74 79 70 65 64 event_time typed
14a0: 2d 72 65 63 29 20 20 20 28 64 62 3a 74 65 73 74 -rec) (db:test
14b0: 2d 72 65 63 2d 65 76 65 6e 74 5f 74 69 6d 65 20 -rec-event_time
14c0: 74 79 70 65 64 2d 72 65 63 29 29 0a 28 64 65 66 typed-rec)).(def
14d0: 69 6e 65 20 28 64 62 3a 74 65 73 74 2d 67 65 74 ine (db:test-get
14e0: 2d 68 6f 73 74 20 20 20 20 20 20 20 74 79 70 65 -host type
14f0: 64 2d 72 65 63 29 20 20 20 28 64 62 3a 74 65 73 d-rec) (db:tes
1500: 74 2d 72 65 63 2d 68 6f 73 74 20 09 09 74 79 70 t-rec-host ..typ
1510: 65 64 2d 72 65 63 29 29 0a 28 64 65 66 69 6e 65 ed-rec)).(define
1520: 20 28 64 62 3a 74 65 73 74 2d 67 65 74 2d 63 70 (db:test-get-cp
1530: 75 6c 6f 61 64 20 20 20 20 74 79 70 65 64 2d 72 uload typed-r
1540: 65 63 29 20 20 20 28 64 62 3a 74 65 73 74 2d 72 ec) (db:test-r
1550: 65 63 2d 63 70 75 6c 6f 61 64 20 09 74 79 70 65 ec-cpuload .type
1560: 64 2d 72 65 63 29 29 0a 28 64 65 66 69 6e 65 20 d-rec)).(define
1570: 28 64 62 3a 74 65 73 74 2d 67 65 74 2d 64 69 73 (db:test-get-dis
1580: 6b 66 72 65 65 20 20 20 74 79 70 65 64 2d 72 65 kfree typed-re
1590: 63 29 20 20 20 28 64 62 3a 74 65 73 74 2d 72 65 c) (db:test-re
15a0: 63 2d 64 69 73 6b 66 72 65 65 20 09 74 79 70 65 c-diskfree .type
15b0: 64 2d 72 65 63 29 29 0a 28 64 65 66 69 6e 65 20 d-rec)).(define
15c0: 28 64 62 3a 74 65 73 74 2d 67 65 74 2d 75 6e 61 (db:test-get-una
15d0: 6d 65 20 20 20 20 20 20 74 79 70 65 64 2d 72 65 me typed-re
15e0: 63 29 20 20 20 28 64 62 3a 74 65 73 74 2d 72 65 c) (db:test-re
15f0: 63 2d 75 6e 61 6d 65 20 09 74 79 70 65 64 2d 72 c-uname .typed-r
1600: 65 63 29 29 0a 28 64 65 66 69 6e 65 20 28 64 62 ec)).(define (db
1610: 3a 74 65 73 74 2d 67 65 74 2d 72 75 6e 64 69 72 :test-get-rundir
1620: 20 20 20 20 20 74 79 70 65 64 2d 72 65 63 29 20 typed-rec)
1630: 20 20 28 64 62 3a 74 65 73 74 2d 72 65 63 2d 72 (db:test-rec-r
1640: 75 6e 64 69 72 20 09 74 79 70 65 64 2d 72 65 63 undir .typed-rec
1650: 29 29 0a 28 64 65 66 69 6e 65 20 28 64 62 3a 74 )).(define (db:t
1660: 65 73 74 2d 67 65 74 2d 69 74 65 6d 2d 70 61 74 est-get-item-pat
1670: 68 20 20 74 79 70 65 64 2d 72 65 63 29 20 20 20 h typed-rec)
1680: 28 64 62 3a 74 65 73 74 2d 72 65 63 2d 69 74 65 (db:test-rec-ite
1690: 6d 5f 70 61 74 68 20 74 79 70 65 64 2d 72 65 63 m_path typed-rec
16a0: 29 29 0a 28 64 65 66 69 6e 65 20 28 64 62 3a 74 )).(define (db:t
16b0: 65 73 74 2d 67 65 74 2d 72 75 6e 5f 64 75 72 61 est-get-run_dura
16c0: 74 69 6f 6e 20 74 79 70 65 64 2d 72 65 63 29 20 tion typed-rec)
16d0: 20 28 64 62 3a 74 65 73 74 2d 72 65 63 2d 72 75 (db:test-rec-ru
16e0: 6e 5f 64 75 72 61 74 69 6f 6e 20 74 79 70 65 64 n_duration typed
16f0: 2d 72 65 63 29 29 0a 28 64 65 66 69 6e 65 20 28 -rec)).(define (
1700: 64 62 3a 74 65 73 74 2d 67 65 74 2d 66 69 6e 61 db:test-get-fina
1710: 6c 5f 6c 6f 67 66 20 74 79 70 65 64 2d 72 65 63 l_logf typed-rec
1720: 29 20 20 20 28 64 62 3a 74 65 73 74 2d 72 65 63 ) (db:test-rec
1730: 2d 66 69 6e 61 6c 5f 6c 6f 67 66 20 74 79 70 65 -final_logf type
1740: 64 2d 72 65 63 29 29 0a 28 64 65 66 69 6e 65 20 d-rec)).(define
1750: 28 64 62 3a 74 65 73 74 2d 67 65 74 2d 63 6f 6d (db:test-get-com
1760: 6d 65 6e 74 20 20 20 20 74 79 70 65 64 2d 72 65 ment typed-re
1770: 63 29 20 20 20 28 64 62 3a 74 65 73 74 2d 72 65 c) (db:test-re
1780: 63 2d 63 6f 6d 6d 65 6e 74 20 09 74 79 70 65 64 c-comment .typed
1790: 2d 72 65 63 29 29 0a 28 64 65 66 69 6e 65 20 28 -rec)).(define (
17a0: 64 62 3a 74 65 73 74 2d 67 65 74 2d 70 72 6f 63 db:test-get-proc
17b0: 65 73 73 5f 69 64 20 74 79 70 65 64 2d 72 65 63 ess_id typed-rec
17c0: 29 20 20 20 28 64 62 3a 74 65 73 74 2d 72 65 63 ) (db:test-rec
17d0: 2d 70 72 6f 63 65 73 73 2d 69 64 20 74 79 70 65 -process-id type
17e0: 64 2d 72 65 63 29 29 0a 28 64 65 66 69 6e 65 20 d-rec)).(define
17f0: 28 64 62 3a 74 65 73 74 2d 67 65 74 2d 61 72 63 (db:test-get-arc
1800: 68 69 76 65 64 20 20 20 74 79 70 65 64 2d 72 65 hived typed-re
1810: 63 29 20 20 20 28 64 62 3a 74 65 73 74 2d 72 65 c) (db:test-re
1820: 63 2d 61 72 63 68 69 76 65 64 20 09 74 79 70 65 c-archived .type
1830: 64 2d 72 65 63 29 29 0a 0a 3b 3b 20 28 64 65 66 d-rec))..;; (def
1840: 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 74 ine-inline (db:t
1850: 65 73 74 2d 67 65 74 2d 70 61 73 73 5f 63 6f 75 est-get-pass_cou
1860: 6e 74 20 20 20 76 65 63 29 20 28 76 65 63 74 6f nt vec) (vecto
1870: 72 2d 72 65 66 20 76 65 63 20 31 35 29 29 0a 3b r-ref vec 15)).;
1880: 3b 20 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 ; (define-inline
1890: 20 28 64 62 3a 74 65 73 74 2d 67 65 74 2d 66 61 (db:test-get-fa
18a0: 69 6c 5f 63 6f 75 6e 74 20 20 20 76 65 63 29 20 il_count vec)
18b0: 28 76 65 63 74 6f 72 2d 72 65 66 20 76 65 63 20 (vector-ref vec
18c0: 31 36 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 16)).(define-inl
18d0: 69 6e 65 20 28 64 62 3a 74 65 73 74 2d 67 65 74 ine (db:test-get
18e0: 2d 66 75 6c 6c 6e 61 6d 65 20 20 20 20 20 76 65 -fullname ve
18f0: 63 29 0a 20 20 28 63 6f 6e 63 20 28 64 62 3a 74 c). (conc (db:t
1900: 65 73 74 2d 67 65 74 2d 74 65 73 74 6e 61 6d 65 est-get-testname
1910: 20 76 65 63 29 20 22 2f 22 20 28 64 62 3a 74 65 vec) "/" (db:te
1920: 73 74 2d 67 65 74 2d 69 74 65 6d 2d 70 61 74 68 st-get-item-path
1930: 20 76 65 63 29 29 29 0a 0a 3b 3b 20 72 65 70 6c vec)))..;; repl
1940: 61 63 65 20 72 75 6e 73 3a 6d 61 6b 65 2d 66 75 ace runs:make-fu
1950: 6c 6c 2d 74 65 73 74 2d 6e 61 6d 65 20 77 69 74 ll-test-name wit
1960: 68 20 74 68 69 73 20 72 6f 75 74 69 6e 65 0a 28 h this routine.(
1970: 64 65 66 69 6e 65 20 28 64 62 3a 74 65 73 74 2d define (db:test-
1980: 6d 61 6b 65 2d 66 75 6c 6c 2d 6e 61 6d 65 20 74 make-full-name t
1990: 65 73 74 6e 61 6d 65 20 69 74 65 6d 70 61 74 68 estname itempath
19a0: 29 0a 20 20 28 69 66 20 28 65 71 75 61 6c 3f 20 ). (if (equal?
19b0: 69 74 65 6d 70 61 74 68 20 22 22 29 20 74 65 73 itempath "") tes
19c0: 74 6e 61 6d 65 20 28 63 6f 6e 63 20 74 65 73 74 tname (conc test
19d0: 6e 61 6d 65 20 22 2f 22 20 69 74 65 6d 70 61 74 name "/" itempat
19e0: 68 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 69 6e h)))..(define-in
19f0: 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 2d 67 65 line (db:test-ge
1a00: 74 2d 66 69 72 73 74 5f 65 72 72 20 20 20 20 76 t-first_err v
1a10: 65 63 29 20 28 70 72 69 6e 74 61 62 6c 65 20 28 ec) (printable (
1a20: 76 65 63 74 6f 72 2d 72 65 66 20 76 65 63 20 31 vector-ref vec 1
1a30: 35 29 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 5))).(define-inl
1a40: 69 6e 65 20 28 64 62 3a 74 65 73 74 2d 67 65 74 ine (db:test-get
1a50: 2d 66 69 72 73 74 5f 77 61 72 6e 20 20 20 76 65 -first_warn ve
1a60: 63 29 20 28 70 72 69 6e 74 61 62 6c 65 20 28 76 c) (printable (v
1a70: 65 63 74 6f 72 2d 72 65 66 20 76 65 63 20 31 36 ector-ref vec 16
1a80: 29 29 29 20 3b 3b 20 52 41 44 54 20 3d 3e 20 72 ))) ;; RADT => r
1a90: 65 66 65 72 65 6e 63 65 20 31 36 20 69 73 20 72 eference 16 is r
1aa0: 65 70 65 61 74 65 64 0a 0a 28 64 65 66 69 6e 65 epeated..(define
1ab0: 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 -inline (db:test
1ac0: 2d 73 65 74 2d 63 70 75 6c 6f 61 64 21 20 20 76 -set-cpuload! v
1ad0: 65 63 20 76 61 6c 29 09 09 28 64 62 3a 74 65 73 ec val)..(db:tes
1ae0: 74 2d 72 65 63 2d 63 70 75 6c 6f 61 64 2d 73 65 t-rec-cpuload-se
1af0: 74 21 20 76 65 63 20 76 61 6c 29 29 0a 28 64 65 t! vec val)).(de
1b00: 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a fine-inline (db:
1b10: 74 65 73 74 2d 73 65 74 2d 64 69 73 6b 66 72 65 test-set-diskfre
1b20: 65 21 20 76 65 63 20 76 61 6c 29 09 09 28 64 62 e! vec val)..(db
1b30: 3a 74 65 73 74 2d 72 65 63 2d 64 69 73 6b 66 72 :test-rec-diskfr
1b40: 65 65 2d 73 65 74 21 20 76 65 63 20 76 61 6c 29 ee-set! vec val)
1b50: 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 ).(define-inline
1b60: 20 28 64 62 3a 74 65 73 74 2d 73 65 74 2d 74 65 (db:test-set-te
1b70: 73 74 6e 61 6d 65 21 20 76 65 63 20 76 61 6c 29 stname! vec val)
1b80: 09 09 28 64 62 3a 74 65 73 74 2d 72 65 63 2d 74 ..(db:test-rec-t
1b90: 65 73 74 6e 61 6d 65 2d 73 65 74 21 20 76 65 63 estname-set! vec
1ba0: 20 76 61 6c 29 29 0a 28 64 65 66 69 6e 65 2d 69 val)).(define-i
1bb0: 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 2d 73 nline (db:test-s
1bc0: 65 74 2d 73 74 61 74 65 21 20 20 20 20 76 65 63 et-state! vec
1bd0: 20 76 61 6c 29 09 09 28 64 62 3a 74 65 73 74 2d val)..(db:test-
1be0: 72 65 63 2d 73 74 61 74 65 2d 73 65 74 21 20 76 rec-state-set! v
1bf0: 65 63 20 76 61 6c 29 29 0a 28 64 65 66 69 6e 65 ec val)).(define
1c00: 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 -inline (db:test
1c10: 2d 73 65 74 2d 73 74 61 74 75 73 21 20 20 20 76 -set-status! v
1c20: 65 63 20 76 61 6c 29 09 09 28 64 62 3a 74 65 73 ec val)..(db:tes
1c30: 74 2d 72 65 63 2d 73 74 61 74 75 73 2d 73 65 74 t-rec-status-set
1c40: 21 20 76 65 63 20 76 61 6c 29 29 0a 28 64 65 66 ! vec val)).(def
1c50: 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 74 ine-inline (db:t
1c60: 65 73 74 2d 73 65 74 2d 72 75 6e 5f 64 75 72 61 est-set-run_dura
1c70: 74 69 6f 6e 21 20 76 65 63 20 76 61 6c 29 09 28 tion! vec val).(
1c80: 64 62 3a 74 65 73 74 2d 72 65 63 2d 72 75 6e 5f db:test-rec-run_
1c90: 64 75 72 61 74 69 6f 6e 2d 73 65 74 21 20 76 65 duration-set! ve
1ca0: 63 20 76 61 6c 29 29 0a 28 64 65 66 69 6e 65 2d c val)).(define-
1cb0: 69 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 2d inline (db:test-
1cc0: 73 65 74 2d 66 69 6e 61 6c 5f 6c 6f 67 66 21 20 set-final_logf!
1cd0: 76 65 63 20 76 61 6c 29 09 28 64 62 3a 74 65 73 vec val).(db:tes
1ce0: 74 2d 72 65 63 2d 66 69 6e 61 6c 5f 6c 6f 67 66 t-rec-final_logf
1cf0: 2d 73 65 74 21 20 76 65 63 20 76 61 6c 29 29 0a -set! vec val)).
1d00: 0a 3b 3b 20 54 65 73 74 20 72 65 63 6f 72 64 20 .;; Test record
1d10: 75 74 69 6c 69 74 79 20 66 75 6e 63 74 69 6f 6e utility function
1d20: 73 0a 0a 3b 3b 20 49 73 20 61 20 74 65 73 74 20 s..;; Is a test
1d30: 61 20 74 6f 70 6c 65 76 65 6c 3f 0a 3b 3b 0a 28 a toplevel?.;;.(
1d40: 64 65 66 69 6e 65 20 28 64 62 3a 74 65 73 74 2d define (db:test-
1d50: 67 65 74 2d 69 73 2d 74 6f 70 6c 65 76 65 6c 20 get-is-toplevel
1d60: 76 65 63 29 0a 20 20 28 61 6e 64 20 28 65 71 75 vec). (and (equ
1d70: 61 6c 3f 20 28 64 62 3a 74 65 73 74 2d 67 65 74 al? (db:test-get
1d80: 2d 69 74 65 6d 2d 70 61 74 68 20 76 65 63 29 20 -item-path vec)
1d90: 22 22 29 20 20 20 20 20 20 3b 3b 20 74 65 73 74 "") ;; test
1da0: 20 69 73 20 6e 6f 74 20 61 6e 20 69 74 65 6d 0a is not an item.
1db0: 20 20 20 20 20 20 20 28 65 71 75 61 6c 3f 20 28 (equal? (
1dc0: 64 62 3a 74 65 73 74 2d 67 65 74 2d 75 6e 61 6d db:test-get-unam
1dd0: 65 20 76 65 63 29 20 20 20 20 20 22 6e 2f 61 22 e vec) "n/a"
1de0: 29 29 29 20 3b 3b 20 74 65 73 74 20 68 61 73 20 ))) ;; test has
1df0: 6e 65 76 65 72 20 62 65 65 6e 20 72 75 6e 0a 0a never been run..
1e00: 3b 3b 20 6d 61 6b 65 2d 76 65 63 74 6f 72 2d 72 ;; make-vector-r
1e10: 65 63 6f 72 64 20 22 22 20 64 62 20 6d 69 6e 74 ecord "" db mint
1e20: 65 73 74 20 69 64 20 72 75 6e 5f 69 64 20 74 65 est id run_id te
1e30: 73 74 6e 61 6d 65 20 73 74 61 74 65 20 73 74 61 stname state sta
1e40: 74 75 73 20 65 76 65 6e 74 5f 74 69 6d 65 20 69 tus event_time i
1e50: 74 65 6d 5f 70 61 74 68 0a 3b 3b 20 52 41 44 54 tem_path.;; RADT
1e60: 20 3d 3e 20 70 75 72 70 6f 73 65 20 6f 66 20 6d => purpose of m
1e70: 69 6e 74 65 73 74 3f 3f 0a 3b 3b 0a 28 64 65 66 intest??.;;.(def
1e80: 69 6e 65 20 28 6d 61 6b 65 2d 64 62 3a 6d 69 6e ine (make-db:min
1e90: 74 65 73 74 29 28 6d 61 6b 65 2d 76 65 63 74 6f test)(make-vecto
1ea0: 72 20 37 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e r 7)).(define-in
1eb0: 6c 69 6e 65 20 28 64 62 3a 6d 69 6e 74 65 73 74 line (db:mintest
1ec0: 2d 67 65 74 2d 69 64 20 20 20 20 20 20 20 20 20 -get-id
1ed0: 20 20 76 65 63 29 20 20 20 20 28 76 65 63 74 6f vec) (vecto
1ee0: 72 2d 72 65 66 20 20 76 65 63 20 30 29 29 0a 28 r-ref vec 0)).(
1ef0: 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 define-inline (d
1f00: 62 3a 6d 69 6e 74 65 73 74 2d 67 65 74 2d 72 75 b:mintest-get-ru
1f10: 6e 5f 69 64 20 20 20 20 20 20 20 76 65 63 29 20 n_id vec)
1f20: 20 20 20 28 76 65 63 74 6f 72 2d 72 65 66 20 20 (vector-ref
1f30: 76 65 63 20 31 29 29 0a 28 64 65 66 69 6e 65 2d vec 1)).(define-
1f40: 69 6e 6c 69 6e 65 20 28 64 62 3a 6d 69 6e 74 65 inline (db:minte
1f50: 73 74 2d 67 65 74 2d 74 65 73 74 6e 61 6d 65 20 st-get-testname
1f60: 20 20 20 20 76 65 63 29 20 20 20 20 28 76 65 63 vec) (vec
1f70: 74 6f 72 2d 72 65 66 20 20 76 65 63 20 32 29 29 tor-ref vec 2))
1f80: 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 .(define-inline
1f90: 28 64 62 3a 6d 69 6e 74 65 73 74 2d 67 65 74 2d (db:mintest-get-
1fa0: 73 74 61 74 65 20 20 20 20 20 20 20 20 76 65 63 state vec
1fb0: 29 20 20 20 20 28 76 65 63 74 6f 72 2d 72 65 66 ) (vector-ref
1fc0: 20 20 76 65 63 20 33 29 29 0a 28 64 65 66 69 6e vec 3)).(defin
1fd0: 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 6d 69 6e e-inline (db:min
1fe0: 74 65 73 74 2d 67 65 74 2d 73 74 61 74 75 73 20 test-get-status
1ff0: 20 20 20 20 20 20 76 65 63 29 20 20 20 20 28 76 vec) (v
2000: 65 63 74 6f 72 2d 72 65 66 20 20 76 65 63 20 34 ector-ref vec 4
2010: 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e )).(define-inlin
2020: 65 20 28 64 62 3a 6d 69 6e 74 65 73 74 2d 67 65 e (db:mintest-ge
2030: 74 2d 65 76 65 6e 74 5f 74 69 6d 65 20 20 20 76 t-event_time v
2040: 65 63 29 20 20 20 20 28 76 65 63 74 6f 72 2d 72 ec) (vector-r
2050: 65 66 20 20 76 65 63 20 35 29 29 0a 28 64 65 66 ef vec 5)).(def
2060: 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 6d ine-inline (db:m
2070: 69 6e 74 65 73 74 2d 67 65 74 2d 69 74 65 6d 5f intest-get-item_
2080: 70 61 74 68 20 20 20 20 76 65 63 29 20 20 20 20 path vec)
2090: 28 76 65 63 74 6f 72 2d 72 65 66 20 20 76 65 63 (vector-ref vec
20a0: 20 36 29 29 0a 0a 3b 3b 20 6d 61 6b 65 2d 76 65 6))..;; make-ve
20b0: 63 74 6f 72 2d 72 65 63 6f 72 64 20 64 62 20 74 ctor-record db t
20c0: 65 73 74 6d 65 74 61 20 69 64 20 74 65 73 74 6e estmeta id testn
20d0: 61 6d 65 20 61 75 74 68 6f 72 20 6f 77 6e 65 72 ame author owner
20e0: 20 64 65 73 63 72 69 70 74 69 6f 6e 20 72 65 76 description rev
20f0: 69 65 77 65 64 20 69 74 65 72 61 74 65 64 20 61 iewed iterated a
2100: 76 67 5f 72 75 6e 74 69 6d 65 20 61 76 67 5f 64 vg_runtime avg_d
2110: 69 73 6b 0a 28 64 65 66 69 6e 65 20 28 6d 61 6b isk.(define (mak
2120: 65 2d 64 62 3a 74 65 73 74 6d 65 74 61 29 28 6d e-db:testmeta)(m
2130: 61 6b 65 2d 76 65 63 74 6f 72 20 31 30 20 22 22 ake-vector 10 ""
2140: 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e )).(define-inlin
2150: 65 20 28 64 62 3a 74 65 73 74 6d 65 74 61 2d 67 e (db:testmeta-g
2160: 65 74 2d 69 64 20 20 20 20 20 20 20 20 20 20 20 et-id
2170: 20 76 65 63 29 20 20 20 20 28 76 65 63 74 6f 72 vec) (vector
2180: 2d 72 65 66 20 20 76 65 63 20 30 29 29 0a 28 64 -ref vec 0)).(d
2190: 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 efine-inline (db
21a0: 3a 74 65 73 74 6d 65 74 61 2d 67 65 74 2d 74 65 :testmeta-get-te
21b0: 73 74 6e 61 6d 65 20 20 20 20 20 20 76 65 63 29 stname vec)
21c0: 20 20 20 20 28 76 65 63 74 6f 72 2d 72 65 66 20 (vector-ref
21d0: 20 76 65 63 20 31 29 29 0a 28 64 65 66 69 6e 65 vec 1)).(define
21e0: 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 -inline (db:test
21f0: 6d 65 74 61 2d 67 65 74 2d 61 75 74 68 6f 72 20 meta-get-author
2200: 20 20 20 20 20 20 20 76 65 63 29 20 20 20 20 28 vec) (
2210: 76 65 63 74 6f 72 2d 72 65 66 20 20 76 65 63 20 vector-ref vec
2220: 32 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 2)).(define-inli
2230: 6e 65 20 28 64 62 3a 74 65 73 74 6d 65 74 61 2d ne (db:testmeta-
2240: 67 65 74 2d 6f 77 6e 65 72 20 20 20 20 20 20 20 get-owner
2250: 20 20 76 65 63 29 20 20 20 20 28 76 65 63 74 6f vec) (vecto
2260: 72 2d 72 65 66 20 20 76 65 63 20 33 29 29 0a 28 r-ref vec 3)).(
2270: 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 define-inline (d
2280: 62 3a 74 65 73 74 6d 65 74 61 2d 67 65 74 2d 64 b:testmeta-get-d
2290: 65 73 63 72 69 70 74 69 6f 6e 20 20 20 76 65 63 escription vec
22a0: 29 20 20 20 20 28 76 65 63 74 6f 72 2d 72 65 66 ) (vector-ref
22b0: 20 20 76 65 63 20 34 29 29 0a 28 64 65 66 69 6e vec 4)).(defin
22c0: 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 e-inline (db:tes
22d0: 74 6d 65 74 61 2d 67 65 74 2d 72 65 76 69 65 77 tmeta-get-review
22e0: 65 64 20 20 20 20 20 20 76 65 63 29 20 20 20 20 ed vec)
22f0: 28 76 65 63 74 6f 72 2d 72 65 66 20 20 76 65 63 (vector-ref vec
2300: 20 35 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 5)).(define-inl
2310: 69 6e 65 20 28 64 62 3a 74 65 73 74 6d 65 74 61 ine (db:testmeta
2320: 2d 67 65 74 2d 69 74 65 72 61 74 65 64 20 20 20 -get-iterated
2330: 20 20 20 76 65 63 29 20 20 20 20 28 76 65 63 74 vec) (vect
2340: 6f 72 2d 72 65 66 20 20 76 65 63 20 36 29 29 0a or-ref vec 6)).
2350: 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 (define-inline (
2360: 64 62 3a 74 65 73 74 6d 65 74 61 2d 67 65 74 2d db:testmeta-get-
2370: 61 76 67 5f 72 75 6e 74 69 6d 65 20 20 20 76 65 avg_runtime ve
2380: 63 29 20 20 20 20 28 76 65 63 74 6f 72 2d 72 65 c) (vector-re
2390: 66 20 20 76 65 63 20 37 29 29 0a 28 64 65 66 69 f vec 7)).(defi
23a0: 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 74 65 ne-inline (db:te
23b0: 73 74 6d 65 74 61 2d 67 65 74 2d 61 76 67 5f 64 stmeta-get-avg_d
23c0: 69 73 6b 20 20 20 20 20 20 76 65 63 29 20 20 20 isk vec)
23d0: 20 28 76 65 63 74 6f 72 2d 72 65 66 20 20 76 65 (vector-ref ve
23e0: 63 20 38 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e c 8)).(define-in
23f0: 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 6d 65 74 line (db:testmet
2400: 61 2d 67 65 74 2d 74 61 67 73 20 20 20 20 20 20 a-get-tags
2410: 20 20 20 20 76 65 63 29 20 20 20 20 28 76 65 63 vec) (vec
2420: 74 6f 72 2d 72 65 66 20 20 76 65 63 20 39 29 29 tor-ref vec 9))
2430: 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 .(define-inline
2440: 28 64 62 3a 74 65 73 74 6d 65 74 61 2d 73 65 74 (db:testmeta-set
2450: 2d 69 64 21 20 20 20 20 20 20 20 20 20 20 20 76 -id! v
2460: 65 63 20 76 61 6c 29 28 76 65 63 74 6f 72 2d 73 ec val)(vector-s
2470: 65 74 21 20 76 65 63 20 30 20 76 61 6c 29 29 0a et! vec 0 val)).
2480: 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 (define-inline (
2490: 64 62 3a 74 65 73 74 6d 65 74 61 2d 73 65 74 2d db:testmeta-set-
24a0: 74 65 73 74 6e 61 6d 65 21 20 20 20 20 20 76 65 testname! ve
24b0: 63 20 76 61 6c 29 28 76 65 63 74 6f 72 2d 73 65 c val)(vector-se
24c0: 74 21 20 76 65 63 20 31 20 76 61 6c 29 29 0a 28 t! vec 1 val)).(
24d0: 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 define-inline (d
24e0: 62 3a 74 65 73 74 6d 65 74 61 2d 73 65 74 2d 61 b:testmeta-set-a
24f0: 75 74 68 6f 72 21 20 20 20 20 20 20 20 76 65 63 uthor! vec
2500: 20 76 61 6c 29 28 76 65 63 74 6f 72 2d 73 65 74 val)(vector-set
2510: 21 20 76 65 63 20 32 20 76 61 6c 29 29 0a 28 64 ! vec 2 val)).(d
2520: 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 efine-inline (db
2530: 3a 74 65 73 74 6d 65 74 61 2d 73 65 74 2d 6f 77 :testmeta-set-ow
2540: 6e 65 72 21 20 20 20 20 20 20 20 20 76 65 63 20 ner! vec
2550: 76 61 6c 29 28 76 65 63 74 6f 72 2d 73 65 74 21 val)(vector-set!
2560: 20 76 65 63 20 33 20 76 61 6c 29 29 0a 28 64 65 vec 3 val)).(de
2570: 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a fine-inline (db:
2580: 74 65 73 74 6d 65 74 61 2d 73 65 74 2d 64 65 73 testmeta-set-des
2590: 63 72 69 70 74 69 6f 6e 21 20 20 76 65 63 20 76 cription! vec v
25a0: 61 6c 29 28 76 65 63 74 6f 72 2d 73 65 74 21 20 al)(vector-set!
25b0: 76 65 63 20 34 20 76 61 6c 29 29 0a 28 64 65 66 vec 4 val)).(def
25c0: 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 74 ine-inline (db:t
25d0: 65 73 74 6d 65 74 61 2d 73 65 74 2d 72 65 76 69 estmeta-set-revi
25e0: 65 77 65 64 21 20 20 20 20 20 76 65 63 20 76 61 ewed! vec va
25f0: 6c 29 28 76 65 63 74 6f 72 2d 73 65 74 21 20 76 l)(vector-set! v
2600: 65 63 20 35 20 76 61 6c 29 29 0a 28 64 65 66 69 ec 5 val)).(defi
2610: 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 74 65 ne-inline (db:te
2620: 73 74 6d 65 74 61 2d 73 65 74 2d 69 74 65 72 61 stmeta-set-itera
2630: 74 65 64 21 20 20 20 20 20 76 65 63 20 76 61 6c ted! vec val
2640: 29 28 76 65 63 74 6f 72 2d 73 65 74 21 20 76 65 )(vector-set! ve
2650: 63 20 36 20 76 61 6c 29 29 0a 28 64 65 66 69 6e c 6 val)).(defin
2660: 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 e-inline (db:tes
2670: 74 6d 65 74 61 2d 73 65 74 2d 61 76 67 5f 72 75 tmeta-set-avg_ru
2680: 6e 74 69 6d 65 21 20 20 76 65 63 20 76 61 6c 29 ntime! vec val)
2690: 28 76 65 63 74 6f 72 2d 73 65 74 21 20 76 65 63 (vector-set! vec
26a0: 20 37 20 76 61 6c 29 29 0a 28 64 65 66 69 6e 65 7 val)).(define
26b0: 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 -inline (db:test
26c0: 6d 65 74 61 2d 73 65 74 2d 61 76 67 5f 64 69 73 meta-set-avg_dis
26d0: 6b 21 20 20 20 20 20 76 65 63 20 76 61 6c 29 28 k! vec val)(
26e0: 76 65 63 74 6f 72 2d 73 65 74 21 20 76 65 63 20 vector-set! vec
26f0: 38 20 76 61 6c 29 29 0a 0a 3b 3b 3d 3d 3d 3d 3d 8 val))..;;=====
2700: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2710: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2720: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2730: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2740: 3d 0a 3b 3b 20 54 20 45 20 53 20 54 20 20 20 44 =.;; T E S T D
2750: 20 41 20 54 20 41 20 0a 3b 3b 3d 3d 3d 3d 3d 3d A T A .;;======
2760: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2770: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2780: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2790: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
27a0: 0a 28 64 65 66 69 6e 65 20 28 6d 61 6b 65 2d 64 .(define (make-d
27b0: 62 3a 74 65 73 74 2d 64 61 74 61 29 28 6d 61 6b b:test-data)(mak
27c0: 65 2d 76 65 63 74 6f 72 20 31 30 29 29 0a 28 64 e-vector 10)).(d
27d0: 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 efine-inline (db
27e0: 3a 74 65 73 74 2d 64 61 74 61 2d 67 65 74 2d 69 :test-data-get-i
27f0: 64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 d
2800: 76 65 63 29 20 20 20 20 28 76 65 63 74 6f 72 2d vec) (vector-
2810: 72 65 66 20 20 76 65 63 20 30 29 29 0a 28 64 65 ref vec 0)).(de
2820: 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a fine-inline (db:
2830: 74 65 73 74 2d 64 61 74 61 2d 67 65 74 2d 74 65 test-data-get-te
2840: 73 74 5f 69 64 20 20 20 20 20 20 20 20 20 20 76 st_id v
2850: 65 63 29 20 20 20 20 28 76 65 63 74 6f 72 2d 72 ec) (vector-r
2860: 65 66 20 20 76 65 63 20 31 29 29 0a 28 64 65 66 ef vec 1)).(def
2870: 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 74 ine-inline (db:t
2880: 65 73 74 2d 64 61 74 61 2d 67 65 74 2d 63 61 74 est-data-get-cat
2890: 65 67 6f 72 79 20 20 20 20 20 20 20 20 20 76 65 egory ve
28a0: 63 29 20 20 20 20 28 76 65 63 74 6f 72 2d 72 65 c) (vector-re
28b0: 66 20 20 76 65 63 20 32 29 29 0a 28 64 65 66 69 f vec 2)).(defi
28c0: 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 74 65 ne-inline (db:te
28d0: 73 74 2d 64 61 74 61 2d 67 65 74 2d 76 61 72 69 st-data-get-vari
28e0: 61 62 6c 65 20 20 20 20 20 20 20 20 20 76 65 63 able vec
28f0: 29 20 20 20 20 28 76 65 63 74 6f 72 2d 72 65 66 ) (vector-ref
2900: 20 20 76 65 63 20 33 29 29 0a 28 64 65 66 69 6e vec 3)).(defin
2910: 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 e-inline (db:tes
2920: 74 2d 64 61 74 61 2d 67 65 74 2d 76 61 6c 75 65 t-data-get-value
2930: 20 20 20 20 20 20 20 20 20 20 20 20 76 65 63 29 vec)
2940: 20 20 20 20 28 76 65 63 74 6f 72 2d 72 65 66 20 (vector-ref
2950: 20 76 65 63 20 34 29 29 0a 28 64 65 66 69 6e 65 vec 4)).(define
2960: 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 -inline (db:test
2970: 2d 64 61 74 61 2d 67 65 74 2d 65 78 70 65 63 74 -data-get-expect
2980: 65 64 20 20 20 20 20 20 20 20 20 76 65 63 29 20 ed vec)
2990: 20 20 20 28 76 65 63 74 6f 72 2d 72 65 66 20 20 (vector-ref
29a0: 76 65 63 20 35 29 29 0a 28 64 65 66 69 6e 65 2d vec 5)).(define-
29b0: 69 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 2d inline (db:test-
29c0: 64 61 74 61 2d 67 65 74 2d 74 6f 6c 20 20 20 20 data-get-tol
29d0: 20 20 20 20 20 20 20 20 20 20 76 65 63 29 20 20 vec)
29e0: 20 20 28 76 65 63 74 6f 72 2d 72 65 66 20 20 76 (vector-ref v
29f0: 65 63 20 36 29 29 0a 28 64 65 66 69 6e 65 2d 69 ec 6)).(define-i
2a00: 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 2d 64 nline (db:test-d
2a10: 61 74 61 2d 67 65 74 2d 75 6e 69 74 73 20 20 20 ata-get-units
2a20: 20 20 20 20 20 20 20 20 20 76 65 63 29 20 20 20 vec)
2a30: 20 28 76 65 63 74 6f 72 2d 72 65 66 20 20 76 65 (vector-ref ve
2a40: 63 20 37 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e c 7)).(define-in
2a50: 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 2d 64 61 line (db:test-da
2a60: 74 61 2d 67 65 74 2d 63 6f 6d 6d 65 6e 74 20 20 ta-get-comment
2a70: 20 20 20 20 20 20 20 20 76 65 63 29 20 20 20 20 vec)
2a80: 28 76 65 63 74 6f 72 2d 72 65 66 20 20 76 65 63 (vector-ref vec
2a90: 20 38 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 8)).(define-inl
2aa0: 69 6e 65 20 28 64 62 3a 74 65 73 74 2d 64 61 74 ine (db:test-dat
2ab0: 61 2d 67 65 74 2d 73 74 61 74 75 73 20 20 20 20 a-get-status
2ac0: 20 20 20 20 20 20 20 76 65 63 29 20 20 20 20 28 vec) (
2ad0: 76 65 63 74 6f 72 2d 72 65 66 20 20 76 65 63 20 vector-ref vec
2ae0: 39 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 9)).(define-inli
2af0: 6e 65 20 28 64 62 3a 74 65 73 74 2d 64 61 74 61 ne (db:test-data
2b00: 2d 67 65 74 2d 74 79 70 65 20 20 20 20 20 20 20 -get-type
2b10: 20 20 20 20 20 20 76 65 63 29 20 20 20 20 28 76 vec) (v
2b20: 65 63 74 6f 72 2d 72 65 66 20 20 76 65 63 20 31 ector-ref vec 1
2b30: 30 29 29 0a 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 0))..(define-inl
2b40: 69 6e 65 20 28 64 62 3a 74 65 73 74 2d 64 61 74 ine (db:test-dat
2b50: 61 2d 73 65 74 2d 69 64 21 20 20 20 20 20 20 20 a-set-id!
2b60: 20 20 20 20 20 20 20 76 65 63 20 76 61 6c 29 28 vec val)(
2b70: 76 65 63 74 6f 72 2d 73 65 74 21 20 20 76 65 63 vector-set! vec
2b80: 20 30 20 20 76 61 6c 29 29 0a 28 64 65 66 69 6e 0 val)).(defin
2b90: 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 e-inline (db:tes
2ba0: 74 2d 64 61 74 61 2d 73 65 74 2d 74 65 73 74 5f t-data-set-test_
2bb0: 69 64 21 20 20 20 20 20 20 20 20 20 76 65 63 20 id! vec
2bc0: 76 61 6c 29 28 76 65 63 74 6f 72 2d 73 65 74 21 val)(vector-set!
2bd0: 20 20 76 65 63 20 31 20 20 76 61 6c 29 29 0a 28 vec 1 val)).(
2be0: 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 define-inline (d
2bf0: 62 3a 74 65 73 74 2d 64 61 74 61 2d 73 65 74 2d b:test-data-set-
2c00: 63 61 74 65 67 6f 72 79 21 20 20 20 20 20 20 20 category!
2c10: 20 76 65 63 20 76 61 6c 29 28 76 65 63 74 6f 72 vec val)(vector
2c20: 2d 73 65 74 21 20 20 76 65 63 20 32 20 20 76 61 -set! vec 2 va
2c30: 6c 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 l)).(define-inli
2c40: 6e 65 20 28 64 62 3a 74 65 73 74 2d 64 61 74 61 ne (db:test-data
2c50: 2d 73 65 74 2d 76 61 72 69 61 62 6c 65 21 20 20 -set-variable!
2c60: 20 20 20 20 20 20 76 65 63 20 76 61 6c 29 28 76 vec val)(v
2c70: 65 63 74 6f 72 2d 73 65 74 21 20 20 76 65 63 20 ector-set! vec
2c80: 33 20 20 76 61 6c 29 29 0a 28 64 65 66 69 6e 65 3 val)).(define
2c90: 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 -inline (db:test
2ca0: 2d 64 61 74 61 2d 73 65 74 2d 76 61 6c 75 65 21 -data-set-value!
2cb0: 20 20 20 20 20 20 20 20 20 20 20 76 65 63 20 76 vec v
2cc0: 61 6c 29 28 76 65 63 74 6f 72 2d 73 65 74 21 20 al)(vector-set!
2cd0: 20 76 65 63 20 34 20 20 76 61 6c 29 29 0a 28 64 vec 4 val)).(d
2ce0: 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 efine-inline (db
2cf0: 3a 74 65 73 74 2d 64 61 74 61 2d 73 65 74 2d 65 :test-data-set-e
2d00: 78 70 65 63 74 65 64 21 20 20 20 20 20 20 20 20 xpected!
2d10: 76 65 63 20 76 61 6c 29 28 76 65 63 74 6f 72 2d vec val)(vector-
2d20: 73 65 74 21 20 20 76 65 63 20 35 20 20 76 61 6c set! vec 5 val
2d30: 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e )).(define-inlin
2d40: 65 20 28 64 62 3a 74 65 73 74 2d 64 61 74 61 2d e (db:test-data-
2d50: 73 65 74 2d 74 6f 6c 21 20 20 20 20 20 20 20 20 set-tol!
2d60: 20 20 20 20 20 76 65 63 20 76 61 6c 29 28 76 65 vec val)(ve
2d70: 63 74 6f 72 2d 73 65 74 21 20 20 76 65 63 20 36 ctor-set! vec 6
2d80: 20 20 76 61 6c 29 29 0a 28 64 65 66 69 6e 65 2d val)).(define-
2d90: 69 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 2d inline (db:test-
2da0: 64 61 74 61 2d 73 65 74 2d 75 6e 69 74 73 21 20 data-set-units!
2db0: 20 20 20 20 20 20 20 20 20 20 76 65 63 20 76 61 vec va
2dc0: 6c 29 28 76 65 63 74 6f 72 2d 73 65 74 21 20 20 l)(vector-set!
2dd0: 76 65 63 20 37 20 20 76 61 6c 29 29 0a 28 64 65 vec 7 val)).(de
2de0: 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a fine-inline (db:
2df0: 74 65 73 74 2d 64 61 74 61 2d 73 65 74 2d 63 6f test-data-set-co
2e00: 6d 6d 65 6e 74 21 20 20 20 20 20 20 20 20 20 76 mment! v
2e10: 65 63 20 76 61 6c 29 28 76 65 63 74 6f 72 2d 73 ec val)(vector-s
2e20: 65 74 21 20 20 76 65 63 20 38 20 20 76 61 6c 29 et! vec 8 val)
2e30: 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 ).(define-inline
2e40: 20 28 64 62 3a 74 65 73 74 2d 64 61 74 61 2d 73 (db:test-data-s
2e50: 65 74 2d 73 74 61 74 75 73 21 20 20 20 20 20 20 et-status!
2e60: 20 20 20 20 76 65 63 20 76 61 6c 29 28 76 65 63 vec val)(vec
2e70: 74 6f 72 2d 73 65 74 21 20 20 76 65 63 20 39 20 tor-set! vec 9
2e80: 20 76 61 6c 29 29 0a 28 64 65 66 69 6e 65 2d 69 val)).(define-i
2e90: 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 2d 64 nline (db:test-d
2ea0: 61 74 61 2d 73 65 74 2d 74 79 70 65 21 20 20 20 ata-set-type!
2eb0: 20 20 20 20 20 20 20 20 20 76 65 63 20 76 61 6c vec val
2ec0: 29 28 76 65 63 74 6f 72 2d 73 65 74 21 20 20 76 )(vector-set! v
2ed0: 65 63 20 31 30 20 76 61 6c 29 29 0a 0a 3b 3b 3d ec 10 val))..;;=
2ee0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2ef0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2f00: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2f10: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2f20: 3d 3d 3d 3d 3d 0a 3b 3b 20 53 20 54 20 45 20 50 =====.;; S T E P
2f30: 20 53 20 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d S .;;==========
2f40: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2f50: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2f60: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2f70: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 3b 3b 20 ============.;;
2f80: 52 75 6e 20 73 74 65 70 73 0a 3b 3b 20 6d 61 6b Run steps.;; mak
2f90: 65 2d 76 65 63 74 6f 72 2d 72 65 63 6f 72 64 20 e-vector-record
2fa0: 22 52 75 6e 20 73 74 65 70 73 22 20 64 62 20 73 "Run steps" db s
2fb0: 74 65 70 20 69 64 20 74 65 73 74 5f 69 64 20 73 tep id test_id s
2fc0: 74 65 70 6e 61 6d 65 20 73 74 65 70 5f 63 6f 6d tepname step_com
2fd0: 70 6c 65 74 65 20 73 74 65 70 5f 70 61 73 73 20 plete step_pass
2fe0: 65 76 65 6e 74 5f 74 69 6d 65 20 20 20 20 0a 28 event_time .(
2ff0: 64 65 66 69 6e 65 20 28 6d 61 6b 65 2d 64 62 3a define (make-db:
3000: 73 74 65 70 29 28 6d 61 6b 65 2d 76 65 63 74 6f step)(make-vecto
3010: 72 20 37 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e r 7)).(define-in
3020: 6c 69 6e 65 20 28 74 64 62 3a 73 74 65 70 2d 67 line (tdb:step-g
3030: 65 74 2d 69 64 20 20 20 20 20 20 20 20 20 20 20 et-id
3040: 20 20 20 76 65 63 29 20 20 20 20 28 76 65 63 74 vec) (vect
3050: 6f 72 2d 72 65 66 20 20 76 65 63 20 30 29 29 0a or-ref vec 0)).
3060: 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 (define-inline (
3070: 74 64 62 3a 73 74 65 70 2d 67 65 74 2d 74 65 73 tdb:step-get-tes
3080: 74 5f 69 64 20 20 20 20 20 20 20 20 20 76 65 63 t_id vec
3090: 29 20 20 20 20 28 76 65 63 74 6f 72 2d 72 65 66 ) (vector-ref
30a0: 20 20 76 65 63 20 31 29 29 0a 28 64 65 66 69 6e vec 1)).(defin
30b0: 65 2d 69 6e 6c 69 6e 65 20 28 74 64 62 3a 73 74 e-inline (tdb:st
30c0: 65 70 2d 67 65 74 2d 73 74 65 70 6e 61 6d 65 20 ep-get-stepname
30d0: 20 20 20 20 20 20 20 76 65 63 29 20 20 20 20 28 vec) (
30e0: 76 65 63 74 6f 72 2d 72 65 66 20 20 76 65 63 20 vector-ref vec
30f0: 32 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 2)).(define-inli
3100: 6e 65 20 28 74 64 62 3a 73 74 65 70 2d 67 65 74 ne (tdb:step-get
3110: 2d 73 74 61 74 65 20 20 20 20 20 20 20 20 20 20 -state
3120: 20 76 65 63 29 20 20 20 20 28 76 65 63 74 6f 72 vec) (vector
3130: 2d 72 65 66 20 20 76 65 63 20 33 29 29 0a 28 64 -ref vec 3)).(d
3140: 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 74 64 efine-inline (td
3150: 62 3a 73 74 65 70 2d 67 65 74 2d 73 74 61 74 75 b:step-get-statu
3160: 73 20 20 20 20 20 20 20 20 20 20 76 65 63 29 20 s vec)
3170: 20 20 20 28 76 65 63 74 6f 72 2d 72 65 66 20 20 (vector-ref
3180: 76 65 63 20 34 29 29 0a 28 64 65 66 69 6e 65 2d vec 4)).(define-
3190: 69 6e 6c 69 6e 65 20 28 74 64 62 3a 73 74 65 70 inline (tdb:step
31a0: 2d 67 65 74 2d 65 76 65 6e 74 5f 74 69 6d 65 20 -get-event_time
31b0: 20 20 20 20 20 76 65 63 29 20 20 20 20 28 76 65 vec) (ve
31c0: 63 74 6f 72 2d 72 65 66 20 20 76 65 63 20 35 29 ctor-ref vec 5)
31d0: 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 ).(define-inline
31e0: 20 28 74 64 62 3a 73 74 65 70 2d 67 65 74 2d 6c (tdb:step-get-l
31f0: 6f 67 66 69 6c 65 20 20 20 20 20 20 20 20 20 76 ogfile v
3200: 65 63 29 20 20 20 20 28 76 65 63 74 6f 72 2d 72 ec) (vector-r
3210: 65 66 20 20 76 65 63 20 36 29 29 0a 28 64 65 66 ef vec 6)).(def
3220: 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 74 64 62 3a ine-inline (tdb:
3230: 73 74 65 70 2d 67 65 74 2d 63 6f 6d 6d 65 6e 74 step-get-comment
3240: 20 20 20 20 20 20 20 20 20 76 65 63 29 20 20 20 vec)
3250: 20 28 76 65 63 74 6f 72 2d 72 65 66 20 20 76 65 (vector-ref ve
3260: 63 20 37 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e c 7)).(define-in
3270: 6c 69 6e 65 20 28 74 64 62 3a 73 74 65 70 2d 73 line (tdb:step-s
3280: 65 74 2d 69 64 21 20 20 20 20 20 20 20 20 20 20 et-id!
3290: 20 20 20 76 65 63 20 76 61 6c 29 28 76 65 63 74 vec val)(vect
32a0: 6f 72 2d 73 65 74 21 20 76 65 63 20 30 20 76 61 or-set! vec 0 va
32b0: 6c 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 l)).(define-inli
32c0: 6e 65 20 28 74 64 62 3a 73 74 65 70 2d 73 65 74 ne (tdb:step-set
32d0: 2d 74 65 73 74 5f 69 64 21 20 20 20 20 20 20 20 -test_id!
32e0: 20 76 65 63 20 76 61 6c 29 28 76 65 63 74 6f 72 vec val)(vector
32f0: 2d 73 65 74 21 20 76 65 63 20 31 20 76 61 6c 29 -set! vec 1 val)
3300: 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 ).(define-inline
3310: 20 28 74 64 62 3a 73 74 65 70 2d 73 65 74 2d 73 (tdb:step-set-s
3320: 74 65 70 6e 61 6d 65 21 20 20 20 20 20 20 20 76 tepname! v
3330: 65 63 20 76 61 6c 29 28 76 65 63 74 6f 72 2d 73 ec val)(vector-s
3340: 65 74 21 20 76 65 63 20 32 20 76 61 6c 29 29 0a et! vec 2 val)).
3350: 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 (define-inline (
3360: 74 64 62 3a 73 74 65 70 2d 73 65 74 2d 73 74 61 tdb:step-set-sta
3370: 74 65 21 20 20 20 20 20 20 20 20 20 20 76 65 63 te! vec
3380: 20 76 61 6c 29 28 76 65 63 74 6f 72 2d 73 65 74 val)(vector-set
3390: 21 20 76 65 63 20 33 20 76 61 6c 29 29 0a 28 64 ! vec 3 val)).(d
33a0: 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 74 64 efine-inline (td
33b0: 62 3a 73 74 65 70 2d 73 65 74 2d 73 74 61 74 75 b:step-set-statu
33c0: 73 21 20 20 20 20 20 20 20 20 20 76 65 63 20 76 s! vec v
33d0: 61 6c 29 28 76 65 63 74 6f 72 2d 73 65 74 21 20 al)(vector-set!
33e0: 76 65 63 20 34 20 76 61 6c 29 29 0a 28 64 65 66 vec 4 val)).(def
33f0: 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 74 64 62 3a ine-inline (tdb:
3400: 73 74 65 70 2d 73 65 74 2d 65 76 65 6e 74 5f 74 step-set-event_t
3410: 69 6d 65 21 20 20 20 20 20 76 65 63 20 76 61 6c ime! vec val
3420: 29 28 76 65 63 74 6f 72 2d 73 65 74 21 20 76 65 )(vector-set! ve
3430: 63 20 35 20 76 61 6c 29 29 0a 28 64 65 66 69 6e c 5 val)).(defin
3440: 65 2d 69 6e 6c 69 6e 65 20 28 74 64 62 3a 73 74 e-inline (tdb:st
3450: 65 70 2d 73 65 74 2d 6c 6f 67 66 69 6c 65 21 20 ep-set-logfile!
3460: 20 20 20 20 20 20 20 76 65 63 20 76 61 6c 29 28 vec val)(
3470: 76 65 63 74 6f 72 2d 73 65 74 21 20 76 65 63 20 vector-set! vec
3480: 36 20 76 61 6c 29 29 0a 28 64 65 66 69 6e 65 2d 6 val)).(define-
3490: 69 6e 6c 69 6e 65 20 28 74 64 62 3a 73 74 65 70 inline (tdb:step
34a0: 2d 73 65 74 2d 63 6f 6d 6d 65 6e 74 21 20 20 20 -set-comment!
34b0: 20 20 20 20 20 76 65 63 20 76 61 6b 29 28 76 65 vec vak)(ve
34c0: 63 74 6f 72 2d 73 65 74 21 20 76 65 63 20 37 20 ctor-set! vec 7
34d0: 76 61 6c 29 29 0a 0a 0a 3b 3b 20 54 68 65 20 73 val))...;; The s
34e0: 74 65 70 73 20 74 61 62 6c 65 0a 28 64 65 66 69 teps table.(defi
34f0: 6e 65 20 28 6d 61 6b 65 2d 64 62 3a 73 74 65 70 ne (make-db:step
3500: 73 2d 74 61 62 6c 65 29 28 6d 61 6b 65 2d 76 65 s-table)(make-ve
3510: 63 74 6f 72 20 35 29 29 0a 28 64 65 66 69 6e 65 ctor 5)).(define
3520: 2d 69 6e 6c 69 6e 65 20 28 74 64 62 3a 73 74 65 -inline (tdb:ste
3530: 70 73 2d 74 61 62 6c 65 2d 67 65 74 2d 73 74 65 ps-table-get-ste
3540: 70 6e 61 6d 65 20 20 20 76 65 63 29 20 20 20 20 pname vec)
3550: 28 76 65 63 74 6f 72 2d 72 65 66 20 20 76 65 63 (vector-ref vec
3560: 20 30 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 0)).(define-inl
3570: 69 6e 65 20 28 74 64 62 3a 73 74 65 70 73 2d 74 ine (tdb:steps-t
3580: 61 62 6c 65 2d 67 65 74 2d 73 74 61 72 74 20 20 able-get-start
3590: 20 20 20 20 76 65 63 29 20 20 20 20 28 76 65 63 vec) (vec
35a0: 74 6f 72 2d 72 65 66 20 20 76 65 63 20 31 29 29 tor-ref vec 1))
35b0: 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 .(define-inline
35c0: 28 74 64 62 3a 73 74 65 70 73 2d 74 61 62 6c 65 (tdb:steps-table
35d0: 2d 67 65 74 2d 65 6e 64 20 20 20 20 20 20 20 20 -get-end
35e0: 76 65 63 29 20 20 20 20 28 76 65 63 74 6f 72 2d vec) (vector-
35f0: 72 65 66 20 20 76 65 63 20 32 29 29 0a 28 64 65 ref vec 2)).(de
3600: 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 74 64 62 fine-inline (tdb
3610: 3a 73 74 65 70 73 2d 74 61 62 6c 65 2d 67 65 74 :steps-table-get
3620: 2d 73 74 61 74 75 73 20 20 20 20 20 76 65 63 29 -status vec)
3630: 20 20 20 20 28 76 65 63 74 6f 72 2d 72 65 66 20 (vector-ref
3640: 20 76 65 63 20 33 29 29 0a 28 64 65 66 69 6e 65 vec 3)).(define
3650: 2d 69 6e 6c 69 6e 65 20 28 74 64 62 3a 73 74 65 -inline (tdb:ste
3660: 70 73 2d 74 61 62 6c 65 2d 67 65 74 2d 72 75 6e ps-table-get-run
3670: 74 69 6d 65 20 20 20 20 76 65 63 29 20 20 20 20 time vec)
3680: 28 76 65 63 74 6f 72 2d 72 65 66 20 20 76 65 63 (vector-ref vec
3690: 20 34 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 4)).(define-inl
36a0: 69 6e 65 20 28 74 64 62 3a 73 74 65 70 73 2d 74 ine (tdb:steps-t
36b0: 61 62 6c 65 2d 67 65 74 2d 6c 6f 67 2d 66 69 6c able-get-log-fil
36c0: 65 20 20 20 76 65 63 29 20 20 20 20 28 76 65 63 e vec) (vec
36d0: 74 6f 72 2d 72 65 66 20 20 76 65 63 20 35 29 29 tor-ref vec 5))
36e0: 0a 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 ..(define-inline
36f0: 20 28 74 64 62 3a 73 74 65 70 2d 73 74 61 62 6c (tdb:step-stabl
3700: 65 2d 73 65 74 2d 73 74 65 70 6e 61 6d 65 21 20 e-set-stepname!
3710: 20 76 65 63 20 76 61 6c 29 28 76 65 63 74 6f 72 vec val)(vector
3720: 2d 73 65 74 21 20 76 65 63 20 30 20 76 61 6c 29 -set! vec 0 val)
3730: 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 ).(define-inline
3740: 20 28 74 64 62 3a 73 74 65 70 2d 73 74 61 62 6c (tdb:step-stabl
3750: 65 2d 73 65 74 2d 73 74 61 72 74 21 20 20 20 20 e-set-start!
3760: 20 76 65 63 20 76 61 6c 29 28 76 65 63 74 6f 72 vec val)(vector
3770: 2d 73 65 74 21 20 76 65 63 20 31 20 76 61 6c 29 -set! vec 1 val)
3780: 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 ).(define-inline
3790: 20 28 74 64 62 3a 73 74 65 70 2d 73 74 61 62 6c (tdb:step-stabl
37a0: 65 2d 73 65 74 2d 65 6e 64 21 20 20 20 20 20 20 e-set-end!
37b0: 20 76 65 63 20 76 61 6c 29 28 76 65 63 74 6f 72 vec val)(vector
37c0: 2d 73 65 74 21 20 76 65 63 20 32 20 76 61 6c 29 -set! vec 2 val)
37d0: 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 ).(define-inline
37e0: 20 28 74 64 62 3a 73 74 65 70 2d 73 74 61 62 6c (tdb:step-stabl
37f0: 65 2d 73 65 74 2d 73 74 61 74 75 73 21 20 20 20 e-set-status!
3800: 20 76 65 63 20 76 61 6c 29 28 76 65 63 74 6f 72 vec val)(vector
3810: 2d 73 65 74 21 20 76 65 63 20 33 20 76 61 6c 29 -set! vec 3 val)
3820: 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 ).(define-inline
3830: 20 28 74 64 62 3a 73 74 65 70 2d 73 74 61 62 6c (tdb:step-stabl
3840: 65 2d 73 65 74 2d 72 75 6e 74 69 6d 65 21 20 20 e-set-runtime!
3850: 20 76 65 63 20 76 61 6c 29 28 76 65 63 74 6f 72 vec val)(vector
3860: 2d 73 65 74 21 20 76 65 63 20 34 20 76 61 6c 29 -set! vec 4 val)
3870: 29 0a 0a 3b 3b 20 54 68 65 20 64 61 74 61 20 73 )..;; The data s
3880: 74 72 75 63 74 75 72 65 20 66 6f 72 20 68 61 6e tructure for han
3890: 64 69 6e 67 20 6f 66 66 20 72 65 71 75 65 73 74 ding off request
38a0: 73 20 76 69 61 20 77 69 72 65 0a 28 64 65 66 69 s via wire.(defi
38b0: 6e 65 20 28 6d 61 6b 65 2d 63 64 62 3a 70 61 63 ne (make-cdb:pac
38c0: 6b 65 74 29 28 6d 61 6b 65 2d 76 65 63 74 6f 72 ket)(make-vector
38d0: 20 36 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 6)).(define-inl
38e0: 69 6e 65 20 28 63 64 62 3a 70 61 63 6b 65 74 2d ine (cdb:packet-
38f0: 67 65 74 2d 63 6c 69 65 6e 74 2d 73 69 67 20 20 get-client-sig
3900: 20 76 65 63 29 20 20 20 20 28 76 65 63 74 6f 72 vec) (vector
3910: 2d 72 65 66 20 20 76 65 63 20 30 29 29 0a 28 64 -ref vec 0)).(d
3920: 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 63 64 efine-inline (cd
3930: 62 3a 70 61 63 6b 65 74 2d 67 65 74 2d 71 74 79 b:packet-get-qty
3940: 70 65 20 20 20 20 20 20 20 20 76 65 63 29 20 20 pe vec)
3950: 20 20 28 76 65 63 74 6f 72 2d 72 65 66 20 20 76 (vector-ref v
3960: 65 63 20 31 29 29 0a 28 64 65 66 69 6e 65 2d 69 ec 1)).(define-i
3970: 6e 6c 69 6e 65 20 28 63 64 62 3a 70 61 63 6b 65 nline (cdb:packe
3980: 74 2d 67 65 74 2d 69 6d 6d 65 64 69 61 74 65 20 t-get-immediate
3990: 20 20 20 76 65 63 29 20 20 20 20 28 76 65 63 74 vec) (vect
39a0: 6f 72 2d 72 65 66 20 20 76 65 63 20 32 29 29 0a or-ref vec 2)).
39b0: 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 (define-inline (
39c0: 63 64 62 3a 70 61 63 6b 65 74 2d 67 65 74 2d 71 cdb:packet-get-q
39d0: 75 65 72 79 2d 73 69 67 20 20 20 20 76 65 63 29 uery-sig vec)
39e0: 20 20 20 20 28 76 65 63 74 6f 72 2d 72 65 66 20 (vector-ref
39f0: 20 76 65 63 20 33 29 29 0a 28 64 65 66 69 6e 65 vec 3)).(define
3a00: 2d 69 6e 6c 69 6e 65 20 28 63 64 62 3a 70 61 63 -inline (cdb:pac
3a10: 6b 65 74 2d 67 65 74 2d 70 61 72 61 6d 73 20 20 ket-get-params
3a20: 20 20 20 20 20 76 65 63 29 20 20 20 20 28 76 65 vec) (ve
3a30: 63 74 6f 72 2d 72 65 66 20 20 76 65 63 20 34 29 ctor-ref vec 4)
3a40: 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 ).(define-inline
3a50: 20 28 63 64 62 3a 70 61 63 6b 65 74 2d 67 65 74 (cdb:packet-get
3a60: 2d 71 74 69 6d 65 20 20 20 20 20 20 20 20 76 65 -qtime ve
3a70: 63 29 20 20 20 20 28 76 65 63 74 6f 72 2d 72 65 c) (vector-re
3a80: 66 20 20 76 65 63 20 35 29 29 0a 28 64 65 66 69 f vec 5)).(defi
3a90: 6e 65 2d 69 6e 6c 69 6e 65 20 28 63 64 62 3a 70 ne-inline (cdb:p
3aa0: 61 63 6b 65 74 2d 73 65 74 2d 63 6c 69 65 6e 74 acket-set-client
3ab0: 2d 73 69 67 21 20 20 76 65 63 20 76 61 6c 29 28 -sig! vec val)(
3ac0: 76 65 63 74 6f 72 2d 73 65 74 21 20 76 65 63 20 vector-set! vec
3ad0: 30 20 76 61 6c 29 29 0a 28 64 65 66 69 6e 65 2d 0 val)).(define-
3ae0: 69 6e 6c 69 6e 65 20 28 63 64 62 3a 70 61 63 6b inline (cdb:pack
3af0: 65 74 2d 73 65 74 2d 71 74 79 70 65 21 20 20 20 et-set-qtype!
3b00: 20 20 20 20 76 65 63 20 76 61 6c 29 28 76 65 63 vec val)(vec
3b10: 74 6f 72 2d 73 65 74 21 20 76 65 63 20 31 20 76 tor-set! vec 1 v
3b20: 61 6c 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c al)).(define-inl
3b30: 69 6e 65 20 28 63 64 62 3a 70 61 63 6b 65 74 2d ine (cdb:packet-
3b40: 73 65 74 2d 69 6d 6d 65 64 69 61 74 65 21 20 20 set-immediate!
3b50: 20 76 65 63 20 76 61 6c 29 28 76 65 63 74 6f 72 vec val)(vector
3b60: 2d 73 65 74 21 20 76 65 63 20 32 20 76 61 6c 29 -set! vec 2 val)
3b70: 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 ).(define-inline
3b80: 20 28 63 64 62 3a 70 61 63 6b 65 74 2d 73 65 74 (cdb:packet-set
3b90: 2d 71 75 65 72 79 2d 73 69 67 21 20 20 20 76 65 -query-sig! ve
3ba0: 63 20 76 61 6c 29 28 76 65 63 74 6f 72 2d 73 65 c val)(vector-se
3bb0: 74 21 20 76 65 63 20 33 20 76 61 6c 29 29 0a 28 t! vec 3 val)).(
3bc0: 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 63 define-inline (c
3bd0: 64 62 3a 70 61 63 6b 65 74 2d 73 65 74 2d 70 61 db:packet-set-pa
3be0: 72 61 6d 73 21 20 20 20 20 20 20 76 65 63 20 76 rams! vec v
3bf0: 61 6c 29 28 76 65 63 74 6f 72 2d 73 65 74 21 20 al)(vector-set!
3c00: 76 65 63 20 34 20 76 61 6c 29 29 0a 28 64 65 66 vec 4 val)).(def
3c10: 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 63 64 62 3a ine-inline (cdb:
3c20: 70 61 63 6b 65 74 2d 73 65 74 2d 71 74 69 6d 65 packet-set-qtime
3c30: 21 20 20 20 20 20 20 20 76 65 63 20 76 61 6c 29 ! vec val)
3c40: 28 76 65 63 74 6f 72 2d 73 65 74 21 20 76 65 63 (vector-set! vec
3c50: 20 35 20 76 61 6c 29 29 0a 5 val)).