psh

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

#!bin/picolisp lib.l
# 28sep07abu
# (c) Software Lab. Alexander Burger

(load "@lib/misc.l" "@lib/http.l")

(raw T)
(let *Dbg NIL
   (client "localhost" (format (opt))
      (pack "@psh?" (pw) "&" (in '("tty") (line T)))
      (ctty (read))
      (line)
      (line) ) )
(bye)