Migrate to hand-written Makefiles.

The autotools are really overkill for a simple Guile project like
ccwl.

* .gitignore: Delete autotool generated files. Add Makefile.include.
* Makefile.am, Makefile, build-aux/distcheck.scm, configure,
configure.ac, configure.scm: New files.
* NEWS: Rename to NEWS.org. Remove Emacs file-local variable to use
org mode.
* bootstrap.sh: Delete file.
* build-aux/generate-cwl-output.sh.in: Rename to ...
* build-aux/generate-cwl-output.sh: ... this. Replace autoconf
variables for cwltool and sed.
* build-aux/test-driver.scm.in: Rename to ...
* build-aux/test-driver.scm: ... this. Do not import (ice-9
getopt-long).
(%options): Delete variable.
(my-gnu-runner): Do not write to log or trs ports.
Accept test files as command-line arguments. Update invocation of
my-gnu-runner. Print summary of results.
* guix.scm (ccwl)[native-inputs]: Remove autoconf and automake.
* pre-inst-env.in: Rename to ...
* pre-inst-env: ... this. Replace autoconf variables for guile,
abs_top_builddir and abs_top_srcdir.
* scripts/ccwl.in: Rename to ...
* scripts/ccwl: ... this. Replace autoconf variable for guile.

1 files changed, 0 insertions, 112 deletions

diff --git a/scripts/ccwl.in b/scripts/ccwl.in
deleted file mode 100755
index 5fb7877..0000000
--- a/scripts/ccwl.in
+++ /dev/null
@@ -1,112 +0,0 @@
-#! @GUILE@
--*- scheme -*-
-!#
-;;; 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 is the command-line interface to ccwl.
-
-;;; Code:
-
-(use-modules (srfi srfi-28)
-             (srfi srfi-37)
-             (ice-9 match)
-             (ccwl ccwl)
-             (ccwl cwl)
-             (ccwl graphviz))
-
-(define (invalid-option opt name arg result)
-  (error "Invalid option" name))
-
-(define (invalid-operand arg result)
-  (error "Invalid argument" arg))
-
-(define %help-option
-  (option (list "help") #f #t
-          (lambda (opt name arg result)
-            (acons 'help #t result))))
-
-(define main
-  (match-lambda*
-    ((program "compile" args ...)
-     (let* ((args (args-fold args
-                             (list (option (list #\t "to") #t #f
-                                           (lambda (opt name arg result)
-                                             (let ((supported (list "cwl" "dot")))
-                                               (unless (member arg supported)
-                                                 (scm-error 'misc-error
-                                                            #f
-                                                            "Invalid target ~A argument ~S. Supported targets are ~A."
-                                                            (list (if (char? name)
-                                                                      (string #\- name)
-                                                                      (string-append "--" name))
-                                                                  arg
-                                                                  (string-join supported ", "))
-                                                            #f)))
-                                             (acons 'to arg result)))
-                                   %help-option)
-                             invalid-option
-                             (lambda (arg result)
-                               (acons 'source-file arg result))
-                             '((to . "cwl")))))
-       (when (or (assq 'help args)
-                 (not (assq-ref args 'source-file)))
-         (display (format "Usage: ~a compile [OPTIONS] SOURCE-FILE
-Compile SOURCE-FILE.
-
-  -t, --to=TARGET    compile SOURCE-FILE to TARGET language;
-                     Supported targets are cwl (default) and dot.
-
-"
-                          program)
-                  (current-error-port))
-         (exit (assq 'help args)))
-       ;; FIXME: Compiling ccwl files fails since the workflow macro is
-       ;; unable to access command definitions.
-       (set! %load-should-auto-compile #f)
-       (let ((to (assq-ref args 'to)))
-         ((cond
-           ((string=? to "cwl") workflow->cwl)
-           ((string=? to "dot") workflow->dot))
-          (load (canonicalize-path (assq-ref args 'source-file)))
-          (current-output-port)))))
-    ((program args ...)
-     (let ((args (args-fold args
-                            (list %help-option)
-                            (lambda (opt name arg result)
-                              result)
-                            (lambda (arg result)
-                              result)
-                            '())))
-       (display (format "Usage: ~a COMMAND [OPTIONS] [ARGS]
-
-COMMAND must be one of the sub-commands listed below:
-
-  compile   compile a workflow
-
-To get usage information for one of these sub-commands, run
-  ~a COMMAND --help
-
-"
-                        program program)
-                (current-error-port))
-       (exit (assq 'help args))))))
-
-(apply main (command-line))