Artifact 44007a614c0588a8991113a66a8e1b220f8e6821:
- File task_records.scm — part of check-in [98de2c2f8d] at 2011-10-23 20:42:46 on branch trunk — Lots of little bugs fixed related to monitor. Note that now multiple runs must be accomodated from the same launcher (user: matt size: 2062)
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 31 2c right 2006-2011, 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 3b 3b 20 6d ==========..;; m 01e0: 61 6b 65 2d 76 65 63 74 6f 72 2d 72 65 63 6f 72 ake-vector-recor 01f0: 64 20 74 61 73 6b 73 20 74 61 73 6b 20 69 64 20 d tasks task id 0200: 61 63 74 69 6f 6e 20 6f 77 6e 65 72 20 73 74 61 action owner sta 0210: 74 65 20 74 61 72 67 65 74 20 6e 61 6d 65 20 74 te target name t 0220: 65 73 74 20 69 74 65 6d 20 63 72 65 61 74 69 6f est item creatio 0230: 6e 5f 74 69 6d 65 20 65 78 65 63 75 74 69 6f 6e n_time execution 0240: 5f 74 69 6d 65 20 0a 28 64 65 66 69 6e 65 20 28 _time .(define ( 0250: 6d 61 6b 65 2d 74 61 73 6b 73 3a 74 61 73 6b 29 make-tasks:task) 0260: 28 6d 61 6b 65 2d 76 65 63 74 6f 72 20 31 30 29 (make-vector 10) 0270: 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 ).(define-inline 0280: 20 28 74 61 73 6b 73 3a 74 61 73 6b 2d 67 65 74 (tasks:task-get 0290: 2d 69 64 20 20 20 20 20 20 20 20 20 20 20 20 20 -id 02a0: 20 20 76 65 63 29 20 20 20 20 28 76 65 63 74 6f vec) (vecto 02b0: 72 2d 72 65 66 20 20 76 65 63 20 30 29 29 0a 28 r-ref vec 0)).( 02c0: 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 74 define-inline (t 02d0: 61 73 6b 73 3a 74 61 73 6b 2d 67 65 74 2d 61 63 asks:task-get-ac 02e0: 74 69 6f 6e 20 20 20 20 20 20 20 20 20 20 20 76 tion v 02f0: 65 63 29 20 20 20 20 28 76 65 63 74 6f 72 2d 72 ec) (vector-r 0300: 65 66 20 20 76 65 63 20 31 29 29 0a 28 64 65 66 ef vec 1)).(def 0310: 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 74 61 73 6b ine-inline (task 0320: 73 3a 74 61 73 6b 2d 67 65 74 2d 6f 77 6e 65 72 s:task-get-owner 0330: 20 20 20 20 20 20 20 20 20 20 20 20 76 65 63 29 vec) 0340: 20 20 20 20 28 76 65 63 74 6f 72 2d 72 65 66 20 (vector-ref 0350: 20 76 65 63 20 32 29 29 0a 28 64 65 66 69 6e 65 vec 2)).(define 0360: 2d 69 6e 6c 69 6e 65 20 28 74 61 73 6b 73 3a 74 -inline (tasks:t 0370: 61 73 6b 2d 67 65 74 2d 73 74 61 74 65 20 20 20 ask-get-state 0380: 20 20 20 20 20 20 20 20 20 76 65 63 29 20 20 20 vec) 0390: 20 28 76 65 63 74 6f 72 2d 72 65 66 20 20 76 65 (vector-ref ve 03a0: 63 20 33 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e c 3)).(define-in 03b0: 6c 69 6e 65 20 28 74 61 73 6b 73 3a 74 61 73 6b line (tasks:task 03c0: 2d 67 65 74 2d 74 61 72 67 65 74 20 20 20 20 20 -get-target 03d0: 20 20 20 20 20 20 76 65 63 29 20 20 20 20 28 76 vec) (v 03e0: 65 63 74 6f 72 2d 72 65 66 20 20 76 65 63 20 34 ector-ref vec 4 03f0: 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e )).(define-inlin 0400: 65 20 28 74 61 73 6b 73 3a 74 61 73 6b 2d 67 65 e (tasks:task-ge 0410: 74 2d 6e 61 6d 65 20 20 20 20 20 20 20 20 20 20 t-name 0420: 20 20 20 76 65 63 29 20 20 20 20 28 76 65 63 74 vec) (vect 0430: 6f 72 2d 72 65 66 20 20 76 65 63 20 35 29 29 0a or-ref vec 5)). 0440: 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 (define-inline ( 0450: 74 61 73 6b 73 3a 74 61 73 6b 2d 67 65 74 2d 74 tasks:task-get-t 0460: 65 73 74 20 20 20 20 20 20 20 20 20 20 20 20 20 est 0470: 76 65 63 29 20 20 20 20 28 76 65 63 74 6f 72 2d vec) (vector- 0480: 72 65 66 20 20 76 65 63 20 36 29 29 0a 28 64 65 ref vec 6)).(de 0490: 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 74 61 73 fine-inline (tas 04a0: 6b 73 3a 74 61 73 6b 2d 67 65 74 2d 69 74 65 6d ks:task-get-item 04b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 76 65 63 vec 04c0: 29 20 20 20 20 28 76 65 63 74 6f 72 2d 72 65 66 ) (vector-ref 04d0: 20 20 76 65 63 20 37 29 29 0a 28 64 65 66 69 6e vec 7)).(defin 04e0: 65 2d 69 6e 6c 69 6e 65 20 28 74 61 73 6b 73 3a e-inline (tasks: 04f0: 74 61 73 6b 2d 67 65 74 2d 63 72 65 61 74 69 6f task-get-creatio 0500: 6e 5f 74 69 6d 65 20 20 20 20 76 65 63 29 20 20 n_time vec) 0510: 20 20 28 76 65 63 74 6f 72 2d 72 65 66 20 20 76 (vector-ref v 0520: 65 63 20 38 29 29 0a 28 64 65 66 69 6e 65 2d 69 ec 8)).(define-i 0530: 6e 6c 69 6e 65 20 28 74 61 73 6b 73 3a 74 61 73 nline (tasks:tas 0540: 6b 2d 67 65 74 2d 65 78 65 63 75 74 69 6f 6e 5f k-get-execution_ 0550: 74 69 6d 65 20 20 20 76 65 63 29 20 20 20 20 28 time vec) ( 0560: 76 65 63 74 6f 72 2d 72 65 66 20 20 76 65 63 20 vector-ref vec 0570: 39 29 29 0a 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 9))..(define-inl 0580: 69 6e 65 20 28 74 61 73 6b 73 3a 74 61 73 6b 2d ine (tasks:task- 0590: 73 65 74 2d 73 74 61 74 65 21 20 20 76 65 63 20 set-state! vec 05a0: 76 61 6c 29 28 76 65 63 74 6f 72 2d 73 65 74 21 val)(vector-set! 05b0: 20 76 65 63 20 33 20 76 61 6c 29 29 0a 0a 0a 3b vec 3 val))...; 05c0: 3b 20 6d 61 6b 65 2d 76 65 63 74 6f 72 2d 72 65 ; make-vector-re 05d0: 63 6f 72 64 20 74 61 73 6b 73 20 6d 6f 6e 69 74 cord tasks monit 05e0: 6f 72 20 69 64 20 70 69 64 20 73 74 61 72 74 5f or id pid start_ 05f0: 74 69 6d 65 20 6c 61 73 74 5f 75 70 64 61 74 65 time last_update 0600: 20 68 6f 73 74 6e 61 6d 65 20 75 73 65 72 6e 61 hostname userna 0610: 6d 65 0a 28 64 65 66 69 6e 65 20 28 6d 61 6b 65 me.(define (make 0620: 2d 74 61 73 6b 73 3a 6d 6f 6e 69 74 6f 72 29 28 -tasks:monitor)( 0630: 6d 61 6b 65 2d 76 65 63 74 6f 72 20 35 29 29 0a make-vector 5)). 0640: 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 (define-inline ( 0650: 74 61 73 6b 73 3a 6d 6f 6e 69 74 6f 72 2d 67 65 tasks:monitor-ge 0660: 74 2d 69 64 20 20 20 20 20 20 20 20 20 20 20 20 t-id 0670: 76 65 63 29 20 20 20 20 28 76 65 63 74 6f 72 2d vec) (vector- 0680: 72 65 66 20 20 76 65 63 20 30 29 29 0a 28 64 65 ref vec 0)).(de 0690: 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 74 61 73 fine-inline (tas 06a0: 6b 73 3a 6d 6f 6e 69 74 6f 72 2d 67 65 74 2d 70 ks:monitor-get-p 06b0: 69 64 20 20 20 20 20 20 20 20 20 20 20 76 65 63 id vec 06c0: 29 20 20 20 20 28 76 65 63 74 6f 72 2d 72 65 66 ) (vector-ref 06d0: 20 20 76 65 63 20 31 29 29 0a 28 64 65 66 69 6e vec 1)).(defin 06e0: 65 2d 69 6e 6c 69 6e 65 20 28 74 61 73 6b 73 3a e-inline (tasks: 06f0: 6d 6f 6e 69 74 6f 72 2d 67 65 74 2d 73 74 61 72 monitor-get-star 0700: 74 5f 74 69 6d 65 20 20 20 20 76 65 63 29 20 20 t_time vec) 0710: 20 20 28 76 65 63 74 6f 72 2d 72 65 66 20 20 76 (vector-ref v 0720: 65 63 20 32 29 29 0a 28 64 65 66 69 6e 65 2d 69 ec 2)).(define-i 0730: 6e 6c 69 6e 65 20 28 74 61 73 6b 73 3a 6d 6f 6e nline (tasks:mon 0740: 69 74 6f 72 2d 67 65 74 2d 6c 61 73 74 5f 75 70 itor-get-last_up 0750: 64 61 74 65 20 20 20 76 65 63 29 20 20 20 20 28 date vec) ( 0760: 76 65 63 74 6f 72 2d 72 65 66 20 20 76 65 63 20 vector-ref vec 0770: 33 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 3)).(define-inli 0780: 6e 65 20 28 74 61 73 6b 73 3a 6d 6f 6e 69 74 6f ne (tasks:monito 0790: 72 2d 67 65 74 2d 68 6f 73 74 6e 61 6d 65 20 20 r-get-hostname 07a0: 20 20 20 20 76 65 63 29 20 20 20 20 28 76 65 63 vec) (vec 07b0: 74 6f 72 2d 72 65 66 20 20 76 65 63 20 34 29 29 tor-ref vec 4)) 07c0: 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 .(define-inline 07d0: 28 74 61 73 6b 73 3a 6d 6f 6e 69 74 6f 72 2d 67 (tasks:monitor-g 07e0: 65 74 2d 75 73 65 72 6e 61 6d 65 20 20 20 20 20 et-username 07f0: 20 76 65 63 29 20 20 20 20 28 76 65 63 74 6f 72 vec) (vector 0800: 2d 72 65 66 20 20 76 65 63 20 35 29 29 0a -ref vec 5)).