Re: X11 bindings and shell bindings

["Kjetil S. Matheussen" <k.s.matheussen@notam02.no>]

"Ishan Arora":
> And is there a procedure to
> synchronously run a shell code and return the output as a String. Thanks.
> 

Should do:

(use-modules (ice-9 rdelim))

(define (get-system-output command)
  (let ((logfilename (tmpnam)))
    (system (string-append command " > " logfilename))
    (let* ((ret "")
	   (fd (open-file logfilename "r"))
	   (line (read-line fd)))
      (while (not (eof-object? line))
	     (set! ret (string-append ret line))
	     (set! line (read-line fd)))
      (close fd)
      (system (string-append "rm " logfilename))
      ret)))