Add --help, --version.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 16 Oct 2016 11:45:24 +0000 (13:45 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Tue, 18 Oct 2016 22:36:12 +0000 (00:36 +0200)
* mes.c (main): Handle --help, --version.
* scripts/include.mes: Handle --help.
* scripts/elf.mes: Pass any arguments on to mes.
* scripts/mescc.mes: Likewise.
* scripts/paren.mes: Likewise.
* scripts/repl.mes: Likewise.

mes.c
scripts/elf.mes
scripts/include.mes
scripts/mescc.mes
scripts/paren.mes
scripts/repl.mes

diff --git a/mes.c b/mes.c
index e3a4075a332cbf519806979c8795e49bd2b16cec..90915ed94d784984e55df6667022e7b8bade3277 100644 (file)
--- a/mes.c
+++ b/mes.c
@@ -1543,6 +1543,8 @@ read_file (scm *e, scm *a)
 int
 main (int argc, char *argv[])
 {
+  if (argc > 1 && !strcmp (argv[1], "--help")) return puts ("Usage: mes < FILE\n");
+  if (argc > 1 && !strcmp (argv[1], "--version")) return puts ("Mes 0.0\n");
   scm *a = mes_environment ();
 #if STATIC_PRIMITIVES
   mes_primitives ();
index 1abf5975183d41127d02caf965061cc1ce7f8f1d..ee3f043aaf0caa2360fce99310ed36f59cca6a2d 100755 (executable)
@@ -1,6 +1,6 @@
 #! /bin/sh
 # -*-scheme-*-
-cat $($(dirname $0)/include.mes $0) $0 /dev/stdin | $(dirname $0)/mes > a.out
+cat $($(dirname $0)/include.mes $0) $0 /dev/stdin | $(dirname $0)/mes "$@" > a.out
 chmod +x a.out
 exit $?
 !#
index 473f50b6ab2b99f4529a8d93e10035c147fd5aad..c13e2e355eae2122c126d83f4b888310650005f3 100755 (executable)
@@ -1,5 +1,9 @@
 #! /bin/sh
 
+if [ "$1" == "--help" ]; then
+    echo "Usage: include.mes FILE"
+    exit 0
+fi
 for prefix in $(dirname $(dirname $0))/share/mes . $(dirname $(dirname $0)); do
     if [ -d ${prefix}/module ]; then
         break;
index 254348f017658f1d0e231b912eb2a4ef6bc38d8c..dd21d5d0b5deb3478e0dfb918b667cb63220fbcc 100755 (executable)
@@ -1,6 +1,6 @@
 #! /bin/sh
 # -*-scheme-*-
-cat ${1-$(dirname $(dirname $0))/share/doc/mes/examples/main.c} | cat $($(dirname $0)/include.mes $0) $0 /dev/stdin | $(dirname $0)/mes > a.out
+cat ${1-$(dirname $(dirname $0))/share/doc/mes/examples/main.c} | cat $($(dirname $0)/include.mes $0) $0 /dev/stdin | $(dirname $0)/mes "$@" > a.out
 chmod +x a.out
 exit $?
 !#
index 79510ae100afade56ef4aa50f15cc39df333f08a..4e430a8259514224395792f000ce5f2a93a39d06 100755 (executable)
@@ -1,6 +1,6 @@
 #! /bin/sh
 # -*-scheme-*-
-echo -e 'EOF\n___P((()))' | cat $($(dirname $0)/include.mes $0) $0 /dev/stdin | $(dirname $0)/mes
+echo -e 'EOF\n___P((()))' | cat $($(dirname $0)/include.mes $0) $0 /dev/stdin | $(dirname $0)/mes "$@"
 chmod +x a.out
 exit $?
 !#
index 6e6d893e628af73af4cc51455d7ac438a4ac70b9..f1bdd670fbca71c573a7aad135ac55cf9de183d4 100755 (executable)
@@ -1,6 +1,6 @@
 #! /bin/sh
 # -*-scheme-*-
-cat $($(dirname $0)/include.mes $0) $0 /dev/stdin | $(dirname $0)/mes
+cat $($(dirname $0)/include.mes $0) $0 /dev/stdin | $(dirname $0)/mes "$@"
 exit $?
 !#