20 lines
450 B
Scheme
20 lines
450 B
Scheme
;; Copyright 2019 Lassi Kortela
|
|
;; SPDX-License-Identifier: ISC
|
|
|
|
(import (scheme base) (scheme write) (lassik shell-quote))
|
|
|
|
(define (q x)
|
|
(display (shell-quote x))
|
|
(newline))
|
|
|
|
(q '(pipe (cmd "date" "+%Y/%m/%d")
|
|
(cmd "tr" "/" "X")))
|
|
|
|
(q '(and (cmd "test" "-e" "/etc/rc")
|
|
(cmd "test" "-l" "/etc/localtime")))
|
|
|
|
(q '(begin (cmd "echo" "hello world")))
|
|
|
|
(q '(redirect (cmd "echo" "hello world")
|
|
(out 2 "/dev/null")))
|