Artifact 80557f0cbbe3a6042590573a52df26ccc19edb91:
- File task_records.scm — part of check-in [5be1cf4b7c] at 2011-10-22 00:22:12 on branch trunk — Initial (and completely untested) framework for monitor based running (user: matt size: 1909)
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 0a 3b 3b 20 6d 61 6b 65 2d 76 65 9))...;; make-ve 0580: 63 74 6f 72 2d 72 65 63 6f 72 64 20 74 61 73 6b ctor-record task 0590: 73 20 6d 6f 6e 69 74 6f 72 20 70 69 64 20 73 74 s monitor pid st 05a0: 61 72 74 5f 74 69 6d 65 20 6c 61 73 74 5f 75 70 art_time last_up 05b0: 64 61 74 65 20 68 6f 73 74 6e 61 6d 65 20 75 73 date hostname us 05c0: 65 72 6e 61 6d 65 0a 28 64 65 66 69 6e 65 20 28 ername.(define ( 05d0: 6d 61 6b 65 2d 74 61 73 6b 73 3a 6d 6f 6e 69 74 make-tasks:monit 05e0: 6f 72 29 28 6d 61 6b 65 2d 76 65 63 74 6f 72 20 or)(make-vector 05f0: 35 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 5)).(define-inli 0600: 6e 65 20 28 74 61 73 6b 73 3a 6d 6f 6e 69 74 6f ne (tasks:monito 0610: 72 2d 67 65 74 2d 70 69 64 20 20 20 20 20 20 20 r-get-pid 0620: 20 20 20 20 76 65 63 29 20 20 20 20 28 76 65 63 vec) (vec 0630: 74 6f 72 2d 72 65 66 20 20 76 65 63 20 30 29 29 tor-ref vec 0)) 0640: 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 .(define-inline 0650: 28 74 61 73 6b 73 3a 6d 6f 6e 69 74 6f 72 2d 67 (tasks:monitor-g 0660: 65 74 2d 73 74 61 72 74 5f 74 69 6d 65 20 20 20 et-start_time 0670: 20 76 65 63 29 20 20 20 20 28 76 65 63 74 6f 72 vec) (vector 0680: 2d 72 65 66 20 20 76 65 63 20 31 29 29 0a 28 64 -ref vec 1)).(d 0690: 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 74 61 efine-inline (ta 06a0: 73 6b 73 3a 6d 6f 6e 69 74 6f 72 2d 67 65 74 2d sks:monitor-get- 06b0: 6c 61 73 74 5f 75 70 64 61 74 65 20 20 20 76 65 last_update ve 06c0: 63 29 20 20 20 20 28 76 65 63 74 6f 72 2d 72 65 c) (vector-re 06d0: 66 20 20 76 65 63 20 32 29 29 0a 28 64 65 66 69 f vec 2)).(defi 06e0: 6e 65 2d 69 6e 6c 69 6e 65 20 28 74 61 73 6b 73 ne-inline (tasks 06f0: 3a 6d 6f 6e 69 74 6f 72 2d 67 65 74 2d 68 6f 73 :monitor-get-hos 0700: 74 6e 61 6d 65 20 20 20 20 20 20 76 65 63 29 20 tname vec) 0710: 20 20 20 28 76 65 63 74 6f 72 2d 72 65 66 20 20 (vector-ref 0720: 76 65 63 20 33 29 29 0a 28 64 65 66 69 6e 65 2d vec 3)).(define- 0730: 69 6e 6c 69 6e 65 20 28 74 61 73 6b 73 3a 6d 6f inline (tasks:mo 0740: 6e 69 74 6f 72 2d 67 65 74 2d 75 73 65 72 6e 61 nitor-get-userna 0750: 6d 65 20 20 20 20 20 20 76 65 63 29 20 20 20 20 me vec) 0760: 28 76 65 63 74 6f 72 2d 72 65 66 20 20 76 65 63 (vector-ref vec 0770: 20 34 29 29 0a 4)).