Re: system default shell

[Steve Tell]

On Sat, 13 Oct 2001, David Pirotte wrote:

> Steve Tell wrote:
> > 
> > On Fri, 12 Oct 2001, David Pirotte wrote:
> > How about
> >    (write-char #\bel)
> 
> tried, but didn't work, thanks anyway
> 
> so, i tried
> 
>       (system "beep")
>       (system "bash -c 'beep'")
>       (write-char #\bel)

Could you perhaps have redirected the unix stdout or guile current-output
to someplace besides the terminal?

Under guile-1.4, 
        guile -c '(write-char #\bel)'
beeps for me, and  
        guile -c '(write-char #\bel)' | od -b
shows that a control-G is definitely getting sent to stdout.

Perhaps somthing like this:

(let ((p (open-output-file "/dev/tty")))
  (write-char #\bel p)
  (close-port p))

Of course all of these methods assume that your program is running in a
typical unix command-line environment where there even is a controlling
tty.  If, on the other hand you're in a Gtk+ environment, there's
gdk_beep() (assuming it has a guile-gtk binding).  I imagine it simply
calls xlib's XBeep().


--
Steve Tell  address@hidden