Artifact 8f450896f9a1647bee5962e61ffab3b815c1bfbd:
- File task_records.scm — part of check-in [0a116daff3] at 2012-04-01 23:29:41 on branch trunk — Updated copyrights (user: mrwellan size: 2147)
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 32 2c right 2006-2012, 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 70 61 72 61 6d 73 20 est item params 0230: 63 72 65 61 74 69 6f 6e 5f 74 69 6d 65 20 65 78 creation_time ex 0240: 65 63 75 74 69 6f 6e 5f 74 69 6d 65 20 0a 28 64 ecution_time .(d 0250: 65 66 69 6e 65 20 28 6d 61 6b 65 2d 74 61 73 6b efine (make-task 0260: 73 3a 74 61 73 6b 29 28 6d 61 6b 65 2d 76 65 63 s:task)(make-vec 0270: 74 6f 72 20 31 31 29 29 0a 28 64 65 66 69 6e 65 tor 11)).(define 0280: 2d 69 6e 6c 69 6e 65 20 28 74 61 73 6b 73 3a 74 -inline (tasks:t 0290: 61 73 6b 2d 67 65 74 2d 69 64 20 20 20 20 20 20 ask-get-id 02a0: 20 20 20 20 20 20 20 20 20 76 65 63 29 20 20 20 vec) 02b0: 20 28 76 65 63 74 6f 72 2d 72 65 66 20 20 76 65 (vector-ref ve 02c0: 63 20 30 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e c 0)).(define-in 02d0: 6c 69 6e 65 20 28 74 61 73 6b 73 3a 74 61 73 6b line (tasks:task 02e0: 2d 67 65 74 2d 61 63 74 69 6f 6e 20 20 20 20 20 -get-action 02f0: 20 20 20 20 20 20 76 65 63 29 20 20 20 20 28 76 vec) (v 0300: 65 63 74 6f 72 2d 72 65 66 20 20 76 65 63 20 31 ector-ref vec 1 0310: 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e )).(define-inlin 0320: 65 20 28 74 61 73 6b 73 3a 74 61 73 6b 2d 67 65 e (tasks:task-ge 0330: 74 2d 6f 77 6e 65 72 20 20 20 20 20 20 20 20 20 t-owner 0340: 20 20 20 76 65 63 29 20 20 20 20 28 76 65 63 74 vec) (vect 0350: 6f 72 2d 72 65 66 20 20 76 65 63 20 32 29 29 0a or-ref vec 2)). 0360: 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 (define-inline ( 0370: 74 61 73 6b 73 3a 74 61 73 6b 2d 67 65 74 2d 73 tasks:task-get-s 0380: 74 61 74 65 20 20 20 20 20 20 20 20 20 20 20 20 tate 0390: 76 65 63 29 20 20 20 20 28 76 65 63 74 6f 72 2d vec) (vector- 03a0: 72 65 66 20 20 76 65 63 20 33 29 29 0a 28 64 65 ref vec 3)).(de 03b0: 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 74 61 73 fine-inline (tas 03c0: 6b 73 3a 74 61 73 6b 2d 67 65 74 2d 74 61 72 67 ks:task-get-targ 03d0: 65 74 20 20 20 20 20 20 20 20 20 20 20 76 65 63 et vec 03e0: 29 20 20 20 20 28 76 65 63 74 6f 72 2d 72 65 66 ) (vector-ref 03f0: 20 20 76 65 63 20 34 29 29 0a 28 64 65 66 69 6e vec 4)).(defin 0400: 65 2d 69 6e 6c 69 6e 65 20 28 74 61 73 6b 73 3a e-inline (tasks: 0410: 74 61 73 6b 2d 67 65 74 2d 6e 61 6d 65 20 20 20 task-get-name 0420: 20 20 20 20 20 20 20 20 20 20 76 65 63 29 20 20 vec) 0430: 20 20 28 76 65 63 74 6f 72 2d 72 65 66 20 20 76 (vector-ref v 0440: 65 63 20 35 29 29 0a 28 64 65 66 69 6e 65 2d 69 ec 5)).(define-i 0450: 6e 6c 69 6e 65 20 28 74 61 73 6b 73 3a 74 61 73 nline (tasks:tas 0460: 6b 2d 67 65 74 2d 74 65 73 74 20 20 20 20 20 20 k-get-test 0470: 20 20 20 20 20 20 20 76 65 63 29 20 20 20 20 28 vec) ( 0480: 76 65 63 74 6f 72 2d 72 65 66 20 20 76 65 63 20 vector-ref vec 0490: 36 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6)).(define-inli 04a0: 6e 65 20 28 74 61 73 6b 73 3a 74 61 73 6b 2d 67 ne (tasks:task-g 04b0: 65 74 2d 69 74 65 6d 20 20 20 20 20 20 20 20 20 et-item 04c0: 20 20 20 20 76 65 63 29 20 20 20 20 28 76 65 63 vec) (vec 04d0: 74 6f 72 2d 72 65 66 20 20 76 65 63 20 37 29 29 tor-ref vec 7)) 04e0: 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 .(define-inline 04f0: 28 74 61 73 6b 73 3a 74 61 73 6b 2d 67 65 74 2d (tasks:task-get- 0500: 70 61 72 61 6d 73 20 20 20 20 20 20 20 20 20 20 params 0510: 20 76 65 63 29 20 20 20 20 28 76 65 63 74 6f 72 vec) (vector 0520: 2d 72 65 66 20 20 76 65 63 20 38 29 29 0a 28 64 -ref vec 8)).(d 0530: 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 74 61 efine-inline (ta 0540: 73 6b 73 3a 74 61 73 6b 2d 67 65 74 2d 63 72 65 sks:task-get-cre 0550: 61 74 69 6f 6e 5f 74 69 6d 65 20 20 20 20 76 65 ation_time ve 0560: 63 29 20 20 20 20 28 76 65 63 74 6f 72 2d 72 65 c) (vector-re 0570: 66 20 20 76 65 63 20 39 29 29 0a 28 64 65 66 69 f vec 9)).(defi 0580: 6e 65 2d 69 6e 6c 69 6e 65 20 28 74 61 73 6b 73 ne-inline (tasks 0590: 3a 74 61 73 6b 2d 67 65 74 2d 65 78 65 63 75 74 :task-get-execut 05a0: 69 6f 6e 5f 74 69 6d 65 20 20 20 76 65 63 29 20 ion_time vec) 05b0: 20 20 20 28 76 65 63 74 6f 72 2d 72 65 66 20 20 (vector-ref 05c0: 76 65 63 20 31 30 29 29 0a 0a 28 64 65 66 69 6e vec 10))..(defin 05d0: 65 2d 69 6e 6c 69 6e 65 20 28 74 61 73 6b 73 3a e-inline (tasks: 05e0: 74 61 73 6b 2d 73 65 74 2d 73 74 61 74 65 21 20 task-set-state! 05f0: 20 76 65 63 20 76 61 6c 29 28 76 65 63 74 6f 72 vec val)(vector 0600: 2d 73 65 74 21 20 76 65 63 20 33 20 76 61 6c 29 -set! vec 3 val) 0610: 29 0a 0a 0a 3b 3b 20 6d 61 6b 65 2d 76 65 63 74 )...;; make-vect 0620: 6f 72 2d 72 65 63 6f 72 64 20 74 61 73 6b 73 20 or-record tasks 0630: 6d 6f 6e 69 74 6f 72 20 69 64 20 70 69 64 20 73 monitor id pid s 0640: 74 61 72 74 5f 74 69 6d 65 20 6c 61 73 74 5f 75 tart_time last_u 0650: 70 64 61 74 65 20 68 6f 73 74 6e 61 6d 65 20 75 pdate hostname u 0660: 73 65 72 6e 61 6d 65 0a 28 64 65 66 69 6e 65 20 sername.(define 0670: 28 6d 61 6b 65 2d 74 61 73 6b 73 3a 6d 6f 6e 69 (make-tasks:moni 0680: 74 6f 72 29 28 6d 61 6b 65 2d 76 65 63 74 6f 72 tor)(make-vector 0690: 20 35 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 5)).(define-inl 06a0: 69 6e 65 20 28 74 61 73 6b 73 3a 6d 6f 6e 69 74 ine (tasks:monit 06b0: 6f 72 2d 67 65 74 2d 69 64 20 20 20 20 20 20 20 or-get-id 06c0: 20 20 20 20 20 76 65 63 29 20 20 20 20 28 76 65 vec) (ve 06d0: 63 74 6f 72 2d 72 65 66 20 20 76 65 63 20 30 29 ctor-ref vec 0) 06e0: 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 ).(define-inline 06f0: 20 28 74 61 73 6b 73 3a 6d 6f 6e 69 74 6f 72 2d (tasks:monitor- 0700: 67 65 74 2d 70 69 64 20 20 20 20 20 20 20 20 20 get-pid 0710: 20 20 76 65 63 29 20 20 20 20 28 76 65 63 74 6f vec) (vecto 0720: 72 2d 72 65 66 20 20 76 65 63 20 31 29 29 0a 28 r-ref vec 1)).( 0730: 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 74 define-inline (t 0740: 61 73 6b 73 3a 6d 6f 6e 69 74 6f 72 2d 67 65 74 asks:monitor-get 0750: 2d 73 74 61 72 74 5f 74 69 6d 65 20 20 20 20 76 -start_time v 0760: 65 63 29 20 20 20 20 28 76 65 63 74 6f 72 2d 72 ec) (vector-r 0770: 65 66 20 20 76 65 63 20 32 29 29 0a 28 64 65 66 ef vec 2)).(def 0780: 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 74 61 73 6b ine-inline (task 0790: 73 3a 6d 6f 6e 69 74 6f 72 2d 67 65 74 2d 6c 61 s:monitor-get-la 07a0: 73 74 5f 75 70 64 61 74 65 20 20 20 76 65 63 29 st_update vec) 07b0: 20 20 20 20 28 76 65 63 74 6f 72 2d 72 65 66 20 (vector-ref 07c0: 20 76 65 63 20 33 29 29 0a 28 64 65 66 69 6e 65 vec 3)).(define 07d0: 2d 69 6e 6c 69 6e 65 20 28 74 61 73 6b 73 3a 6d -inline (tasks:m 07e0: 6f 6e 69 74 6f 72 2d 67 65 74 2d 68 6f 73 74 6e onitor-get-hostn 07f0: 61 6d 65 20 20 20 20 20 20 76 65 63 29 20 20 20 ame vec) 0800: 20 28 76 65 63 74 6f 72 2d 72 65 66 20 20 76 65 (vector-ref ve 0810: 63 20 34 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e c 4)).(define-in 0820: 6c 69 6e 65 20 28 74 61 73 6b 73 3a 6d 6f 6e 69 line (tasks:moni 0830: 74 6f 72 2d 67 65 74 2d 75 73 65 72 6e 61 6d 65 tor-get-username 0840: 20 20 20 20 20 20 76 65 63 29 20 20 20 20 28 76 vec) (v 0850: 65 63 74 6f 72 2d 72 65 66 20 20 76 65 63 20 35 ector-ref vec 5 0860: 29 29 0a )).