picolisp

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

psh (277B)

      1 #!bin/picolisp lib.l
      2 # 06may11abu
      3 # (c) Software Lab. Alexander Burger
      4 
      5 (load "@lib/misc.l" "@lib/http.l")
      6 
      7 (raw T)
      8 (let *Dbg NIL
      9    (client "localhost" (format (opt))
     10       (pack "!psh?" (pw) "&" (in '("tty") (line T)))
     11       (ctty (read))
     12       (line)
     13       (line) ) )
     14 (bye)