picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

boss.l (320B)

      1 # 04oct11abu
      2 # (c) Software Lab. Alexander Burger
      3 
      4 # "boss" *Boss
      5 
      6 (unless (info (tmp "+"))
      7    (call 'mkfifo (setq "boss" (tmp "+")))
      8    (call 'mkfifo (setq *Boss (tmp "-"))) )
      9 (hear (open "boss"))
     10 
     11 # (boss 'sym ['any ..])
     12 (de boss @
     13    (out "boss" (pr (rest))) )
     14 
     15 (de reply Exe  #> any
     16    (out *Boss (pr (eval Exe))) )