scripts/PROGRAM

   1 #!/bin/sh
   2 # aside from this initial boilerplate, this is actually -*- scheme -*- code
   3 main='(module-ref (resolve-module '\''(scripts PROGRAM)) '\'main')'
   4 exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
   5 !#
   6 ;;; PROGRAM --- Does something
   7
   8 ;;      Copyright (C) 2002, 2006 Free Software Foundation, Inc.
   9 ;;
  10 ;; This program is free software; you can redistribute it and/or
  11 ;; modify it under the terms of the GNU General Public License as
  12 ;; published by the Free Software Foundation; either version 2, or
  13 ;; (at your option) any later version.
  14 ;;
  15 ;; This program is distributed in the hope that it will be useful,
  16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  18 ;; General Public License for more details.
  19 ;;
  20 ;; You should have received a copy of the GNU General Public License
  21 ;; along with this software; see the file COPYING.  If not, write to
  22 ;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  23 ;; Boston, MA 02110-1301 USA
  24
  25 ;;; Author: J.R.Hacker
  26
  27 ;;; Commentary:
  28
  29 ;; Usage: PROGRAM [ARGS]
  30 ;;
  31 ;; PROGRAM does something.
  32 ;;
  33 ;; TODO: Write it!
  34
  35 ;;; Code:
  36
  37 (define-module (scripts PROGRAM)
  38   :export (PROGRAM))
  39
  40 (define (PROGRAM . args)
  41   #t)
  42
  43 (define main PROGRAM)
  44
  45 ;;; PROGRAM ends here