# picoLisp + gtk-server wrapper
# 26feb2009 Tomas Hlavaty
# available from http://logand.com/gtk/gtk.l

(def '*GtkServer "gtk-server")

(de gtk @
   (out *GtkFifo
      (while (args)
         (prin " ")
         (let A (next)
            (if (str? A)
               (prin "'" A "'")
               (prin A) ) ) )
      (prinl)
      (flush) )
   (in *GtkFifo
      (line T) ) )

(de gtkCfg ()
   (in "gtk-server.cfg"
      (until (eof)
         (let L (line)
            (when (match '("F" "U" "N" @A "=" @B "," @C) L)
               (let N (intern (pack (clip @B)))
                  (def N (fill '(@ (pass gtk 'N)) 'N)) ) ) ) ) ) )

(gtkCfg)
(def '*GtkFifo (tmp "gtk.fifo"))
(call *GtkServer (pack "-fifo=" *GtkFifo) "-detach")
(push1 '*Bye (list 'kill (format (gtk_server_pid))))