Skip to content

Instantly share code, notes, and snippets.

@fuxoft

fuxoft/multiinput.l

Created June 20, 2024 17:59
Show Gist options
  • Save fuxoft/bf38c8ade7ff6cff7f2735f708a57fa5 to your computer and use it in GitHub Desktop.
Save fuxoft/bf38c8ade7ff6cff7f2735f708a57fa5 to your computer and use it in GitHub Desktop.
Download ZIP
Multi Input in PicoLisp
Raw
multiinput.l
#!/usr/bin/picolisp /usr/lib/picolisp/lib.l
# date.sh and date2.sh are shell scripts that endlessly generate a line of text every few seconds
(setq In1 (pipe (exec './date.sh)))
(setq In2 (pipe (exec './date2.sh)))
(task In1
(in @ (println 'task1 @ (line T))))
(task In2
(in @ (println 'task2 @ (line T))))
(pp '*Run)
(wait)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment