Artifact 444a7f5a5f9f60137fcdaef74e99f2ea240f592d:
- File process.scm — part of check-in [69482225b7] at 2012-10-08 11:38:34 on branch rpc-db-access — Added logging to an sqlite3 db, updated installall.sh to latest chicken and iup releases, proper capture of stderr on launch process. (user: mrwellan size: 3700) [more...]
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 3d 3d ==========..;;== 01e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================ 01f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================ 0200: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================ 0210: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================ 0220: 3d 3d 3d 3d 0a 3b 3b 20 50 72 6f 63 65 73 73 20 ====.;; Process 0230: 63 6f 6e 76 69 65 6e 63 65 20 75 74 69 6c 73 0a convience utils. 0240: 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ;;============== 0250: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================ 0260: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================ 0270: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================ 0280: 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 28 64 65 63 6c 61 ========..(decla 0290: 72 65 20 28 75 6e 69 74 20 70 72 6f 63 65 73 73 re (unit process 02a0: 29 29 0a 28 64 65 63 6c 61 72 65 20 28 75 73 65 )).(declare (use 02b0: 73 20 63 6f 6d 6d 6f 6e 29 29 0a 0a 28 64 65 66 s common))..(def 02c0: 69 6e 65 20 28 63 6f 6e 73 65 72 76 61 74 69 76 ine (conservativ 02d0: 65 2d 72 65 61 64 20 70 6f 72 74 29 0a 20 20 28 e-read port). ( 02e0: 6c 65 74 20 6c 6f 6f 70 20 28 28 72 65 73 20 22 let loop ((res " 02f0: 22 29 29 0a 20 20 20 20 28 69 66 20 28 6e 6f 74 ")). (if (not 0300: 20 28 65 6f 66 2d 6f 62 6a 65 63 74 3f 20 28 70 (eof-object? (p 0310: 65 65 6b 2d 63 68 61 72 20 70 6f 72 74 29 29 29 eek-char port))) 0320: 0a 09 28 6c 6f 6f 70 20 28 63 6f 6e 63 20 72 65 ..(loop (conc re 0330: 73 20 28 72 65 61 64 2d 63 68 61 72 20 70 6f 72 s (read-char por 0340: 74 29 29 29 0a 09 72 65 73 29 29 29 0a 20 20 20 t)))..res))). 0350: 20 0a 28 64 65 66 69 6e 65 20 28 63 6d 64 2d 72 .(define (cmd-r 0360: 75 6e 2d 77 69 74 68 2d 73 74 64 65 72 72 2d 3e un-with-stderr-> 0370: 6c 69 73 74 20 63 6d 64 20 2e 20 70 61 72 61 6d list cmd . param 0380: 73 29 0a 20 20 3b 3b 20 28 70 72 69 6e 74 20 22 s). ;; (print " 0390: 43 61 6c 6c 65 64 20 77 69 74 68 20 63 6d 64 3d Called with cmd= 03a0: 22 20 63 6d 64 20 22 2c 20 70 72 6f 63 3d 22 20 " cmd ", proc=" 03b0: 70 72 6f 63 20 22 2c 20 70 61 72 61 6d 73 3d 22 proc ", params=" 03c0: 20 70 61 72 61 6d 73 29 0a 3b 3b 20 20 28 68 61 params).;; (ha 03d0: 6e 64 6c 65 2d 65 78 63 65 70 74 69 6f 6e 73 0a ndle-exceptions. 03e0: 3b 3b 20 20 20 65 78 6e 0a 3b 3b 20 20 20 28 62 ;; exn.;; (b 03f0: 65 67 69 6e 0a 3b 3b 20 20 20 20 20 28 70 72 69 egin.;; (pri 0400: 6e 74 20 22 45 52 52 4f 52 3a 20 20 46 61 69 6c nt "ERROR: Fail 0410: 65 64 20 74 6f 20 72 75 6e 20 63 6f 6d 6d 61 6e ed to run comman 0420: 64 3a 20 22 20 63 6d 64 20 22 20 22 20 28 73 74 d: " cmd " " (st 0430: 72 69 6e 67 2d 69 6e 74 65 72 73 70 65 72 73 65 ring-intersperse 0440: 20 70 61 72 61 6d 73 20 22 20 22 29 29 0a 3b 3b params " ")).;; 0450: 20 20 20 20 20 28 70 72 69 6e 74 20 22 20 20 20 (print " 0460: 20 20 20 20 22 20 28 28 63 6f 6e 64 69 74 69 6f " ((conditio 0470: 6e 2d 70 72 6f 70 65 72 74 79 2d 61 63 63 65 73 n-property-acces 0480: 73 6f 72 20 27 65 78 6e 20 27 6d 65 73 73 61 67 sor 'exn 'messag 0490: 65 29 20 65 78 6e 29 29 0a 3b 3b 20 20 20 20 20 e) exn)).;; 04a0: 23 66 29 0a 20 20 20 28 6c 65 74 2d 76 61 6c 75 #f). (let-valu 04b0: 65 73 20 28 28 28 66 68 20 66 68 6f 20 70 69 64 es (((fh fho pid 04c0: 20 66 68 65 29 20 28 69 66 20 28 6e 75 6c 6c 3f fhe) (if (null? 04d0: 20 70 61 72 61 6d 73 29 0a 09 09 09 09 20 20 20 params)..... 04e0: 20 20 20 28 70 72 6f 63 65 73 73 2a 20 63 6d 64 (process* cmd 04f0: 29 0a 09 09 09 09 20 20 20 20 20 20 28 70 72 6f )..... (pro 0500: 63 65 73 73 2a 20 63 6d 64 20 70 61 72 61 6d 73 cess* cmd params 0510: 29 29 29 29 0a 20 20 20 20 20 20 20 28 6c 65 74 )))). (let 0520: 20 6c 6f 6f 70 20 28 28 63 75 72 72 20 28 72 65 loop ((curr (re 0530: 61 64 2d 6c 69 6e 65 20 66 68 29 29 0a 09 09 20 ad-line fh))... 0540: 20 28 72 65 73 75 6c 74 20 20 27 28 29 29 29 0a (result '())). 0550: 09 20 28 6c 65 74 20 28 28 65 72 72 73 74 72 20 . (let ((errstr 0560: 28 63 6f 6e 73 65 72 76 61 74 69 76 65 2d 72 65 (conservative-re 0570: 61 64 20 66 68 65 29 29 29 0a 09 20 20 20 28 69 ad fhe))).. (i 0580: 66 20 28 6e 6f 74 20 28 73 74 72 69 6e 67 3d 3f f (not (string=? 0590: 20 65 72 72 73 74 72 20 22 22 29 29 0a 09 20 20 errstr "")).. 05a0: 20 20 20 20 20 28 73 65 74 21 20 72 65 73 75 6c (set! resul 05b0: 74 20 28 61 70 70 65 6e 64 20 72 65 73 75 6c 74 t (append result 05c0: 20 28 6c 69 73 74 20 65 72 72 73 74 72 29 29 29 (list errstr))) 05d0: 29 29 0a 20 20 20 20 20 20 20 28 69 66 20 28 6e )). (if (n 05e0: 6f 74 20 28 65 6f 66 2d 6f 62 6a 65 63 74 3f 20 ot (eof-object? 05f0: 63 75 72 72 29 29 0a 09 20 20 20 28 6c 6f 6f 70 curr)).. (loop 0600: 20 28 72 65 61 64 2d 6c 69 6e 65 20 66 68 29 0a (read-line fh). 0610: 09 09 20 28 61 70 70 65 6e 64 20 72 65 73 75 6c .. (append resul 0620: 74 20 28 6c 69 73 74 20 63 75 72 72 29 29 29 0a t (list curr))). 0630: 09 20 20 20 28 62 65 67 69 6e 0a 09 20 20 20 20 . (begin.. 0640: 20 28 63 6c 6f 73 65 2d 69 6e 70 75 74 2d 70 6f (close-input-po 0650: 72 74 20 66 68 29 0a 09 20 20 20 20 20 28 63 6c rt fh).. (cl 0660: 6f 73 65 2d 69 6e 70 75 74 2d 70 6f 72 74 20 66 ose-input-port f 0670: 68 65 29 0a 09 20 20 20 20 20 28 63 6c 6f 73 65 he).. (close 0680: 2d 6f 75 74 70 75 74 2d 70 6f 72 74 20 66 68 6f -output-port fho 0690: 29 0a 09 20 20 20 20 20 72 65 73 75 6c 74 29 29 ).. result)) 06a0: 29 29 29 20 3b 3b 20 29 0a 0a 28 64 65 66 69 6e ))) ;; )..(defin 06b0: 65 20 28 63 6d 64 2d 72 75 6e 2d 70 72 6f 63 2d e (cmd-run-proc- 06c0: 65 61 63 68 2d 6c 69 6e 65 20 63 6d 64 20 70 72 each-line cmd pr 06d0: 6f 63 20 2e 20 70 61 72 61 6d 73 29 0a 20 20 3b oc . params). ; 06e0: 3b 20 28 70 72 69 6e 74 20 22 43 61 6c 6c 65 64 ; (print "Called 06f0: 20 77 69 74 68 20 63 6d 64 3d 22 20 63 6d 64 20 with cmd=" cmd 0700: 22 2c 20 70 72 6f 63 3d 22 20 70 72 6f 63 20 22 ", proc=" proc " 0710: 2c 20 70 61 72 61 6d 73 3d 22 20 70 61 72 61 6d , params=" param 0720: 73 29 0a 20 20 28 68 61 6e 64 6c 65 2d 65 78 63 s). (handle-exc 0730: 65 70 74 69 6f 6e 73 0a 20 20 20 65 78 6e 0a 20 eptions. exn. 0740: 20 20 28 62 65 67 69 6e 0a 20 20 20 20 20 28 70 (begin. (p 0750: 72 69 6e 74 20 22 45 52 52 4f 52 3a 20 20 46 61 rint "ERROR: Fa 0760: 69 6c 65 64 20 74 6f 20 72 75 6e 20 63 6f 6d 6d iled to run comm 0770: 61 6e 64 3a 20 22 20 63 6d 64 20 22 20 22 20 28 and: " cmd " " ( 0780: 73 74 72 69 6e 67 2d 69 6e 74 65 72 73 70 65 72 string-intersper 0790: 73 65 20 70 61 72 61 6d 73 20 22 20 22 29 29 0a se params " ")). 07a0: 20 20 20 20 20 23 66 29 0a 20 20 20 28 6c 65 74 #f). (let 07b0: 2d 76 61 6c 75 65 73 20 28 28 28 66 68 20 66 68 -values (((fh fh 07c0: 6f 20 70 69 64 29 20 28 69 66 20 28 6e 75 6c 6c o pid) (if (null 07d0: 3f 20 70 61 72 61 6d 73 29 0a 09 09 09 09 20 20 ? params)..... 07e0: 28 70 72 6f 63 65 73 73 20 63 6d 64 29 0a 09 09 (process cmd)... 07f0: 09 09 20 20 28 70 72 6f 63 65 73 73 20 63 6d 64 .. (process cmd 0800: 20 70 61 72 61 6d 73 29 29 29 29 0a 20 20 20 20 params)))). 0810: 20 20 20 28 6c 65 74 20 6c 6f 6f 70 20 28 28 63 (let loop ((c 0820: 75 72 72 20 28 72 65 61 64 2d 6c 69 6e 65 20 66 urr (read-line f 0830: 68 29 29 0a 09 09 28 72 65 73 75 6c 74 20 20 27 h))...(result ' 0840: 28 29 29 29 0a 20 20 20 20 20 20 20 28 69 66 20 ())). (if 0850: 28 6e 6f 74 20 28 65 6f 66 2d 6f 62 6a 65 63 74 (not (eof-object 0860: 3f 20 63 75 72 72 29 29 0a 09 20 20 20 28 6c 6f ? curr)).. (lo 0870: 6f 70 20 28 72 65 61 64 2d 6c 69 6e 65 20 66 68 op (read-line fh 0880: 29 0a 09 09 20 28 61 70 70 65 6e 64 20 72 65 73 )... (append res 0890: 75 6c 74 20 28 6c 69 73 74 20 28 70 72 6f 63 20 ult (list (proc 08a0: 63 75 72 72 29 29 29 29 0a 09 20 20 20 28 62 65 curr)))).. (be 08b0: 67 69 6e 0a 09 20 20 20 20 20 28 63 6c 6f 73 65 gin.. (close 08c0: 2d 69 6e 70 75 74 2d 70 6f 72 74 20 66 68 29 0a -input-port fh). 08d0: 09 20 20 20 20 20 28 63 6c 6f 73 65 2d 69 6e 70 . (close-inp 08e0: 75 74 2d 70 6f 72 74 20 66 68 65 29 0a 09 20 20 ut-port fhe).. 08f0: 20 20 20 28 63 6c 6f 73 65 2d 6f 75 74 70 75 74 (close-output 0900: 2d 70 6f 72 74 20 66 68 6f 29 0a 09 20 20 20 20 -port fho).. 0910: 20 72 65 73 75 6c 74 29 29 29 29 29 29 0a 0a 28 result))))))..( 0920: 64 65 66 69 6e 65 20 28 63 6d 64 2d 72 75 6e 2d define (cmd-run- 0930: 70 72 6f 63 2d 65 61 63 68 2d 6c 69 6e 65 2d 61 proc-each-line-a 0940: 6c 74 20 63 6d 64 20 70 72 6f 63 29 0a 20 20 28 lt cmd proc). ( 0950: 6c 65 74 2a 20 28 28 66 68 20 28 6f 70 65 6e 2d let* ((fh (open- 0960: 69 6e 70 75 74 2d 70 69 70 65 20 63 6d 64 29 29 input-pipe cmd)) 0970: 0a 20 20 20 20 20 20 20 20 20 28 72 65 73 20 28 . (res ( 0980: 70 6f 72 74 2d 70 72 6f 63 2d 3e 6c 69 73 74 20 port-proc->list 0990: 66 68 20 70 72 6f 63 29 29 0a 20 20 20 20 20 20 fh proc)). 09a0: 20 20 20 28 73 74 61 74 75 73 20 28 63 6c 6f 73 (status (clos 09b0: 65 2d 69 6e 70 75 74 2d 70 69 70 65 20 66 68 29 e-input-pipe fh) 09c0: 29 29 0a 20 20 20 20 28 69 66 20 28 65 71 3f 20 )). (if (eq? 09d0: 73 74 61 74 75 73 20 30 29 20 72 65 73 20 23 66 status 0) res #f 09e0: 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 63 6d )))..(define (cm 09f0: 64 2d 72 75 6e 2d 3e 6c 69 73 74 20 63 6d 64 29 d-run->list cmd) 0a00: 0a 20 20 28 6c 65 74 2a 20 28 28 66 68 20 28 6f . (let* ((fh (o 0a10: 70 65 6e 2d 69 6e 70 75 74 2d 70 69 70 65 20 63 pen-input-pipe c 0a20: 6d 64 29 29 0a 20 20 20 20 20 20 20 20 20 28 72 md)). (r 0a30: 65 73 20 28 70 6f 72 74 2d 3e 6c 69 73 74 20 66 es (port->list f 0a40: 68 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 74 h)). (st 0a50: 61 74 75 73 20 28 63 6c 6f 73 65 2d 69 6e 70 75 atus (close-inpu 0a60: 74 2d 70 69 70 65 20 66 68 29 29 29 0a 20 20 20 t-pipe fh))). 0a70: 20 28 6c 69 73 74 20 72 65 73 20 73 74 61 74 75 (list res statu 0a80: 73 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 70 s)))..(define (p 0a90: 6f 72 74 2d 3e 6c 69 73 74 20 66 68 29 0a 20 20 ort->list fh). 0aa0: 28 69 66 20 28 65 6f 66 2d 6f 62 6a 65 63 74 3f (if (eof-object? 0ab0: 20 66 68 29 20 23 66 0a 20 20 20 20 20 20 28 6c fh) #f. (l 0ac0: 65 74 20 6c 6f 6f 70 20 28 28 63 75 72 72 20 28 et loop ((curr ( 0ad0: 72 65 61 64 2d 6c 69 6e 65 20 66 68 29 29 0a 20 read-line fh)). 0ae0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0af0: 28 72 65 73 75 6c 74 20 27 28 29 29 29 0a 20 20 (result '())). 0b00: 20 20 20 20 20 20 28 69 66 20 28 6e 6f 74 20 28 (if (not ( 0b10: 65 6f 66 2d 6f 62 6a 65 63 74 3f 20 63 75 72 72 eof-object? curr 0b20: 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 )). ( 0b30: 6c 6f 6f 70 20 28 72 65 61 64 2d 6c 69 6e 65 20 loop (read-line 0b40: 66 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 fh). 0b50: 20 20 20 20 20 20 28 61 70 70 65 6e 64 20 72 65 (append re 0b60: 73 75 6c 74 20 28 6c 69 73 74 20 63 75 72 72 29 sult (list curr) 0b70: 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 )). r 0b80: 65 73 75 6c 74 29 29 29 29 0a 0a 28 64 65 66 69 esult))))..(defi 0b90: 6e 65 20 28 70 6f 72 74 2d 70 72 6f 63 2d 3e 6c ne (port-proc->l 0ba0: 69 73 74 20 66 68 20 70 72 6f 63 29 0a 20 20 28 ist fh proc). ( 0bb0: 69 66 20 28 65 6f 66 2d 6f 62 6a 65 63 74 3f 20 if (eof-object? 0bc0: 66 68 29 20 23 66 0a 20 20 20 20 20 20 28 6c 65 fh) #f. (le 0bd0: 74 20 6c 6f 6f 70 20 28 28 63 75 72 72 20 28 70 t loop ((curr (p 0be0: 72 6f 63 20 28 72 65 61 64 2d 6c 69 6e 65 20 66 roc (read-line f 0bf0: 68 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 h))). 0c00: 20 20 20 20 20 20 28 72 65 73 75 6c 74 20 27 28 (result '( 0c10: 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 ))). (if 0c20: 28 6e 6f 74 20 28 65 6f 66 2d 6f 62 6a 65 63 74 (not (eof-object 0c30: 3f 20 63 75 72 72 29 29 0a 20 20 20 20 20 20 20 ? curr)). 0c40: 20 20 20 20 20 28 6c 6f 6f 70 20 28 6c 65 74 20 (loop (let 0c50: 28 28 6c 20 28 72 65 61 64 2d 6c 69 6e 65 20 66 ((l (read-line f 0c60: 68 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 h))). 0c70: 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 6f (if (eo 0c80: 66 2d 6f 62 6a 65 63 74 3f 20 6c 29 20 6c 20 28 f-object? l) l ( 0c90: 70 72 6f 63 20 6c 29 29 29 0a 20 20 20 20 20 20 proc l))). 0ca0: 20 20 20 20 20 20 20 20 20 20 20 20 28 61 70 70 (app 0cb0: 65 6e 64 20 72 65 73 75 6c 74 20 28 6c 69 73 74 end result (list 0cc0: 20 63 75 72 72 29 29 29 0a 20 20 20 20 20 20 20 curr))). 0cd0: 20 20 20 20 20 72 65 73 75 6c 74 29 29 29 29 0a result)))). 0ce0: 0a 3b 3b 20 68 65 72 65 20 69 73 20 61 6e 20 65 .;; here is an e 0cf0: 78 61 6d 70 6c 65 20 6c 69 6e 65 20 77 68 65 72 xample line wher 0d00: 65 20 74 68 65 20 73 68 65 6c 6c 20 69 73 20 73 e the shell is s 0d10: 68 20 6f 72 20 62 61 73 68 0a 3b 3b 20 22 66 69 h or bash.;; "fi 0d20: 6e 64 20 2f 20 2d 70 72 69 6e 74 20 32 26 3e 31 nd / -print 2&>1 0d30: 20 3e 20 66 69 6e 64 61 6c 6c 2e 6c 6f 67 22 0a > findall.log". 0d40: 28 64 65 66 69 6e 65 20 28 72 75 6e 2d 6e 2d 77 (define (run-n-w 0d50: 61 69 74 20 63 6d 64 6c 69 6e 65 29 0a 20 20 28 ait cmdline). ( 0d60: 6c 65 74 20 28 28 70 69 64 20 28 70 72 6f 63 65 let ((pid (proce 0d70: 73 73 2d 72 75 6e 20 63 6d 64 6c 69 6e 65 29 29 ss-run cmdline)) 0d80: 29 0a 20 20 20 20 28 6c 65 74 20 6c 6f 6f 70 20 ). (let loop 0d90: 28 28 69 20 30 29 29 0a 20 20 20 20 20 20 28 6c ((i 0)). (l 0da0: 65 74 2d 76 61 6c 75 65 73 20 28 28 28 70 69 64 et-values (((pid 0db0: 2d 76 61 6c 20 65 78 69 74 2d 73 74 61 74 75 73 -val exit-status 0dc0: 20 65 78 69 74 2d 63 6f 64 65 29 20 28 70 72 6f exit-code) (pro 0dd0: 63 65 73 73 2d 77 61 69 74 20 70 69 64 20 23 74 cess-wait pid #t 0de0: 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 66 ))). (if 0df0: 20 28 65 71 3f 20 70 69 64 2d 76 61 6c 20 30 29 (eq? pid-val 0) 0e00: 0a 09 20 20 20 20 20 28 62 65 67 69 6e 0a 09 20 .. (begin.. 0e10: 20 20 20 20 20 20 28 74 68 72 65 61 64 2d 73 6c (thread-sl 0e20: 65 65 70 21 20 32 29 0a 09 20 20 20 20 20 20 20 eep! 2).. 0e30: 28 6c 6f 6f 70 20 28 2b 20 69 20 31 29 29 29 0a (loop (+ i 1))). 0e40: 09 20 20 20 20 20 28 76 61 6c 75 65 73 20 70 69 . (values pi 0e50: 64 2d 76 61 6c 20 65 78 69 74 2d 73 74 61 74 75 d-val exit-statu 0e60: 73 20 65 78 69 74 2d 63 6f 64 65 29 29 29 29 29 s exit-code))))) 0e70: 29 0a 20 20 ).