#!bin/pico lib.l
# 06nov04abu
# (c) Software Lab. Alexander Burger

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

(setq Arg (chop (car (argv))))

(when (head '("h" "t" "t" "p" ":" "/" "/") Arg)
   (setq Arg (nth Arg 8)) )

(cond
   ((match '(@H ":" @P "/" @U) Arg)
      (setq Host (pack @H)  Port (format (pack @P))  Url (pack @U)) )
   ((match '(@H ":" @P) Arg)
      (setq Host (pack @H)  Port (format (pack @P))  Url) )
   ((match '(@H "/" @U) Arg)
      (setq Host (pack @H)  Port 80  Url (pack @U)) )
   (T (setq Host (pack Arg)  Port 80  Url)) )

(client Host Port Url
   (unless (=T (line))
      (while (and (line) (nT @)))
      (out NIL (echo)) ) )

(bye)
