newlisp/qa-specific-tests/pipe-child.lsp

5 lines
113 B
Text
Raw Normal View History

2016-06-11 17:22:37 +00:00
(set 'msg (read-line (int (nth 2 (main-args)))))
(write-line (int (nth 3 (main-args))) (upper-case msg))
(exit)