Update of /cvsroot/foo/foo/elkfoo/examples/scripts
In directory sc8-pr-cvs17:/tmp/cvs-serv17242
Added Files:
stdin.foo
Log Message:
added stdin.foo scripting example
--- NEW FILE: stdin.foo ---
#!/usr/local/bin/foo
;; read file list from stdin
(let*
((files
(do ((file-list '()
(cons last-read file-list))
(last-read))
((begin
(set! last-read (read-string))
(eof-object? last-read))
(reverse file-list))))
(num-files (length files)))
(display files)
(newline)
(quit))
|
