PicoLisp implementation of the BOAWP specification https://boawp.org
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

21 lines
581 B

#!/usr/bin/env pil
(load "libboawp.l")
(when (= 2 (length (argv)))
(catch 'boawp-error
(let Fd (open (opt))
(finally (and (close Fd) *Msg (bye 1))
(let (Res (boawp-validate Fd)
Enc (boawp-encode
(mapcar char (car Res))
(list 0 (car (; Res 2)))
(; Res 3)
(mapcar char (; Res 4)) ) ) )
(println Res)
(println Enc)
(out (opt) (apply wr Enc)) ]