From 9ab2f84cfa1d4e7016dd0aba1fa9a41eec85b4a1 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sun, 25 Apr 2021 23:40:40 +0530
Subject: Add ccwl script.

* scripts/ccwl: New file.
---
 scripts/ccwl | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100755 scripts/ccwl

(limited to 'scripts')

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)))
-- 
cgit v1.2.3