Disarchive/scripts/disarchive.in

#!@GUILE@ \
--no-auto-compile -e main -L @moddir@ -C @ccachedir@ -s
!#

;;; Disarchive
;;; Copyright © 2020, 2021 Timothy Sample <samplet@ngyro.com>
;;;
;;; This file is part of Disarchive.
;;;
;;; Disarchive 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.
;;;
;;; Disarchive 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 Disarchive.  If not, see <http://www.gnu.org/licenses/>.

(use-modules (disarchive scripts assemble)
             (disarchive scripts disassemble)
             (ice-9 match))

(define main
  (match-lambda
    ((_ "assemble" args ...) (apply assemble-main args))
    ((_ "disassemble" args ...) (apply disassemble-main args))
    (_ (display "Usage: disarchive assemble SPECIFICATION OUTPUT\n")
       (display "     | disarchive disassemble FILENAME\n"))))

;;; Local Variables:
;;; mode: scheme
;;; End: