summaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
authorArun Isaac2021-04-25 23:40:40 +0530
committerArun Isaac2021-04-26 00:25:06 +0530
commit9ab2f84cfa1d4e7016dd0aba1fa9a41eec85b4a1 (patch)
treec249d1087f199a094ebd28d66e7e8abb68ccc077 /scripts
parenta2815554cb025d19f5bd851208cc636028f2f33d (diff)
downloadccwl-9ab2f84cfa1d4e7016dd0aba1fa9a41eec85b4a1.tar.gz
ccwl-9ab2f84cfa1d4e7016dd0aba1fa9a41eec85b4a1.tar.lz
ccwl-9ab2f84cfa1d4e7016dd0aba1fa9a41eec85b4a1.zip
Add ccwl script.
* scripts/ccwl: New file.
Diffstat (limited to 'scripts')
-rwxr-xr-xscripts/ccwl39
1 files changed, 39 insertions, 0 deletions
diff --git a/scripts/ccwl b/scripts/ccwl
new file mode 100755
index 0000000..2efdee1
--- /dev/null
+++ b/scripts/ccwl
@@ -0,0 +1,39 @@
+#! /run/current-system/profile/bin/guile -s
+!#
+;;; ccwl --- Concise Common Workflow Language
+;;; Copyright © 2021 Arun Isaac <arunisaac@systemreboot.net>
+;;;
+;;; This file is part of ccwl.
+;;;
+;;; ccwl is free software: you can redistribute it and/or modify it
+;;; under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation, either version 3 of the License, or
+;;; (at your option) any later version.
+;;;
+;;; ccwl is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;;; General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with ccwl. If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; This script compiles a CCWL workflow to CWL.
+
+;;; Code:
+
+(use-modules (ice-9 match)
+ (ccwl ccwl)
+ (ccwl yaml))
+
+(match (command-line)
+ ((_ "compile" input-file)
+ (scm->yaml (load (canonicalize-path input-file))
+ (current-output-port)))
+ ((program _ ...)
+ (format (current-error-port)
+ "Usage: ~a compile input-file~%"
+ program)
+ (exit #f)))