[Wisp-cvs] wisp/users/pisi dialect.pisi.wim,1.4,1.5

[<pi...@us...>]

Update of /cvsroot/wisp/wisp/users/pisi
In directory sc8-pr-cvs1:/tmp/cvs-serv13493

Modified Files:
	dialect.pisi.wim 
Log Message:
introduced unix-command

Index: dialect.pisi.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/users/pisi/dialect.pisi.wim,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- dialect.pisi.wim	6 Feb 2003 16:14:27 -0000	1.4
+++ dialect.pisi.wim	9 Feb 2003 11:41:31 -0000	1.5
@@ -6,12 +6,30 @@
 ;;
 ;;;; @(#) $Id$
 
+(module dialect.pisi)
 
 (export
-   forever)
+   forever unix-command)
+
+(use lists strings unix)
 
 ;;; (forever ...) - do something forever.
 (defmacro (forever . body)
    `(let (loop)
       (hide loop ,@body)
       (loop)))
+
+;;; (unix-command "command with options" (pathref))
+(define (unix-command commando (*pathlist* '("/usr/bin" "/bin" "/sbin" "/usr/sbin")))
+      (if (not (any
+         (lambda (otsikoht)
+            (try
+               (begin
+                  (my cmdlist (string->word-list commando)
+                  (call-process `(,(string-append otsikoht "/" (first cmdlist)) ,@(cdr cmdlist))))
+                  #t)
+            (except ()
+               #f)))
+         *pathlist*))
+      (raise 'no-command-in-path commando))
+)