boss.l

来自「A very small LISP implementation with se」· L 代码 · 共 17 行

# 13oct06abu
# (c) Software Lab. Alexander Burger

# *Boss

(unless *Boss
   (call 'mkdir "-p" "fifo")
   (call 'mkfifo (setq *Boss (pack "fifo/boss" *Pid)))
   (hear (open *Boss)) )

(push1 '*Fork '(del '(call 'rm *Boss) '*Bye))
(push1 '*Bye '(call 'rm *Boss))

# (boss 'sym ['any ..])
(de boss @
   (out *Boss (pr (rest))) )