File: psh

package info (click to toggle)
picolisp 21.1.8-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 5,784 kB
  • sloc: ansic: 2,022; javascript: 983; makefile: 76; sh: 2
file content (15 lines) | stat: -rwxr-xr-x 381 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/usr/bin/picolisp /usr/lib/picolisp/lib.l
# 29sep20 Software Lab. Alexander Burger

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

(let Arg (opt)
   (client "localhost"
      (or
         (format Arg)
         (client "localhost" 80 (pack Arg "/!psh") (read)) )
      (pack (opt) "!psh?" (pw) "&" (in '("tty") (line T)))
      (ctty (read))
      (line)
      (line) ) )
(bye)