diff options
author | Thien-Thi Nguyen <ttn@gnuvola.org> | 2001-04-30 01:40:32 +0000 |
---|---|---|
committer | Thien-Thi Nguyen <ttn@gnuvola.org> | 2001-04-30 01:40:32 +0000 |
commit | 28c313422bd760db681d9216a5e68f1761480f56 (patch) | |
tree | c5876fb48ba56d48fc5ff91227a7db8c609ec501 /scripts/PROGRAM | |
parent | d72691f2915827d2dfd90bc41efb3b5330634412 (diff) | |
download | guile-28c313422bd760db681d9216a5e68f1761480f56.tar.gz |
New file
Diffstat (limited to 'scripts/PROGRAM')
-rwxr-xr-x | scripts/PROGRAM | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/scripts/PROGRAM b/scripts/PROGRAM new file mode 100755 index 000000000..ea0146f15 --- /dev/null +++ b/scripts/PROGRAM @@ -0,0 +1,45 @@ +#!/bin/sh +# aside from this initial boilerplate, this is actually -*- scheme -*- code +main='(module-ref (resolve-module '\''(scripts PROGRAM)) '\'main')' +exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@" +!# +;;; PROGRAM --- Does something + +;; Copyright (C) 2001 Free Software Foundation, Inc. +;; +;; This program 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 2, or +;; (at your option) any later version. +;; +;; This program 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 this software; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330, +;; Boston, MA 02111-1307 USA + +;;; Commentary: + +;; Usage: PROGRAM [ARGS] +;; +;; PROGRAM does something. +;; +;; TODO: Write it! +;; +;; Author: J.R.Hacker + +;;; Code: + +(define-module (scripts PROGRAM) + :export (PROGRAM)) + +(define (PROGRAM . args) + #t) + +(define main PROGRAM) + +;;; PROGRAM ends here |