faberfile

(define home (home-directory))
(define cache-dir #"~|home|/.cache/")

(define-task test1 ()
  (display "test1"))

(define-task test-with-arg (arg)
  (display (string-append arg "-result")))

(define-task test-with-key-arg (:key arg1 arg2)
  (display (string-append arg1 "-result")))

(define-task run-task ()
  (run-task test1))

(define-task run ()
  (run '("readlink" "-f" "faberfile")))

(define-task runstar ()
  (run* "readlink" "-f" "faberfile"))

(define-task run-quiet ()
  (run '("echo" "TEST") :quiet? #t))

(define-task run-w-error ()
  (run '("cat" "unexisted")))

(define-task run-w-error-noerr ()
  (run '("false") :noerr? #t))

(define-task run-string ()
  (display (string-append "result:"
                          (run->string '("dirname" "faberfile")))))

(define-task run-string-star ()
  (display (string-append "result:"
                          (run->string* "dirname" "faberfile"))))

(define-task run-lines ()
  (display (length (run->lines '("ls" "-l")))))

(define-task run-pipe ()
  (run-pipe '((echo "Hello")
              (wc -l))))

(define-task run-file ()
  (call-with-temporary-file
   (lambda (_ file)
     (run->file '(echo "Hello")
                file)
     (display (file->string file)))))

(define-task run-parallel ()
  (run-parallel '((echo "Hello") (echo "World"))))

(define-task run-parallel-quiet ()
  (run-parallel '((echo "Hello") (echo "World"))
                :quiet? #t))

(define-task sh ()
  (sh "echo 'Hello world'"))

(define-task sh2 ()
  (sh "echo $HOME"))

(define-task exec ()
  (exec '("echo" "HELLO"))
  (display "this text will never print"))

(define-task exec2 ()
  (exec '(echo WORLD)))

(define-task verbose ()
  (run "echo"))

(define-task working-dir ()
  (display (string-append (current-directory) "/")))