#!/bin/sh
# -*- mode: scheme; -*-
exec guile --no-auto-compile -e main -s "$0" "$@"
!#

(use-modules (ice-9 match)
             (ice-9 getopt-long)
             (srfi srfi-9)
             (srfi srfi-9 gnu))

(define (main args)
  (let* [
         (option-spec '( (version (single-char #\v) (value #f))
                         (id      (value #t))
                         (help    (single-char #\h) (value #f))))
         (options (getopt-long args option-spec))
         (show-version (option-ref options 'version #f))
         (help-wanted (option-ref options 'help #f))]
    (if show-version
        (begin
          (display "pangemma version 0.01\n")
          (exit)))
    (if help-wanted
        (format #t "pangemma
Usage: pangemma [options...] filename(s)
  -v --version       Display version
  -h --help          Display this help
"))))