Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #(symbols 'sql 'pico)
- (setq *Sqlite_postfix ";\n.read ./in")
- (class +Sql)
- (dm T (Fn)
- (call 'mkfifo "in" "out") # this is from the point of view of the app being automated, not from the pil perspective
- (push '*Bye '(call 'rm "in" "out"))
- (=: Fd (pipe (exec "./start_sqlite.sh")))
- (task (: Fd) (prinl (in (: Fd))))
- )
- (dm q> (QueryStr)
- (prinl (: Fd))
- (out (: Fd) (pack QueryStr sqlite_postfix))
- (flush)
- )
- (setq x (new '(+Sql) "db"))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement