about summary refs log tree commit diff
path: root/doc/decompress-compile-run.scm
diff options
context:
space:
mode:
authorArun Isaac2021-06-22 08:35:37 +0530
committerArun Isaac2021-06-22 08:35:37 +0530
commitb78afadc51c4c5666114fab26db31e0199c1f50c (patch)
tree5b80bfae3ae93592fe722ec72f624da9211648ea /doc/decompress-compile-run.scm
parentf99a10235c437899448f2a2cd112e5d9a7c16464 (diff)
downloadccwl-b78afadc51c4c5666114fab26db31e0199c1f50c.tar.gz
ccwl-b78afadc51c4c5666114fab26db31e0199c1f50c.tar.lz
ccwl-b78afadc51c4c5666114fab26db31e0199c1f50c.zip
doc: Specify command inputs in a separate argument.
* doc/capture-output-file-with-parameter-reference.scm,
doc/capture-output-file.scm, doc/capture-stdout.scm, doc/checksum.scm,
doc/decompress-compile-run.scm, doc/hello-world.scm: Specify command
inputs in a separate argument.
* doc/ccwl.skb (Tutorial)[First example]: Update description of
command definition accordingly.
Diffstat (limited to 'doc/decompress-compile-run.scm')
-rw-r--r--doc/decompress-compile-run.scm19
1 files changed, 11 insertions, 8 deletions
diff --git a/doc/decompress-compile-run.scm b/doc/decompress-compile-run.scm
index 437fb41..a2c58bb 100644
--- a/doc/decompress-compile-run.scm
+++ b/doc/decompress-compile-run.scm
@@ -1,16 +1,19 @@
 (define decompress
-  (command #:run "gzip" "--stdout" "--decompress" (input 'compressed #:type 'File)
-           #:outputs (output 'decompressed #:type 'stdout)))
+  (command #:inputs (compressed #:type 'File)
+           #:run "gzip" "--stdout" "--decompress" compressed
+           #:outputs (decompressed #:type 'stdout)))
 
 (define compile
-  (command #:run "gcc" "-x" "c" (input 'source #:type 'File)
-           #:outputs (output 'executable
-                             #:type 'File
-                             #:binding '((glob . "a.out")))))
+  (command #:inputs (source #:type 'File)
+           #:run "gcc" "-x" "c" source
+           #:outputs (executable
+                      #:type 'File
+                      #:binding '((glob . "a.out")))))
 
 (define run
-  (command #:run (input 'executable)
-           #:outputs (output 'stdout #:type 'stdout)))
+  (command #:inputs executable
+           #:run executable
+           #:outputs (stdout #:type 'stdout)))
 
 (workflow ((compressed-source #:type File))
   (pipe (decompress #:compressed compressed-source)