hbs2/bf6/hbs23

21 lines
382 B
Plaintext
Executable File

#! /usr/bin/env -S hbs2-cli file
; println *args
(match *args
( (list? store)
(display (hbs2:tree:metadata:stdin [kw])) )
( (list? store [? fn [sym? _]])
(println "PIZDA") )
; (display (hbs2:tree:metadata:file [kw] fn)) )
; (display (hbs2:tree:metadata:file [kw] fn)) )
( (list? cat [? hash [sym? _]])
(hbs2:tree:read:stdout hash) )
( _ nil)
)