* guile: add support for scripts

guile/mu/script.scm

@@ -0,0 +1,54 @@
+;; Copyright (C) 2012 Dirk-Jan C. Binnema <djcb@djcbsoftware.nl>
+;;
+;; 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 3, 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 program; if not, write to the Free Software Foundation,
+;; Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
+(define-module (mu script)
+  :export (mu:run mu:text-only))
+
+(use-modules (ice-9 getopt-long) (ice-9 optargs) (ice-9 popen) (ice-9 format))
+(use-modules (mu) (mu stats) (mu plot))
+
+(define (help-and-exit)
+  "Show some help."
+  (format #t "usage: script [--help] [--textonly] "
+    "[--muhome=<muhome>] [searchexpr]\n")
+  (exit 0))
+
+(define (mu:run args func)
+  "Interpret argument-list ARGS (like command-line
+arguments). Possible arguments are:
+  --help (show some help and exit)
+  --muhome (path to alternative mu home directory)
+  --textonly (don't show any graphical windows)
+  searchexpr (a search query)
+then call FUNC with args SEARCHEXPR and TEXTONLY."
+  (setlocale LC_ALL "")
+  (let* ((optionspec   '( (muhome     (value #t))
+			  (what       (value #t))
+			  (textonly   (value #f))
+			  (help       (single-char #\h) (value #f))))
+	  (options (getopt-long args optionspec))
+	  (help (option-ref options 'help #f))
+	  (textonly (option-ref options 'textonly #f))
+	  (muhome (option-ref options 'muhome #f))
+	  (restargs (option-ref options '() #f))
+	  (expr (if restargs (string-join restargs) "")))
+    (if help (help-and-exit))
+    (mu:initialize muhome)
+    (func expr textonly)))
+
+;; Local Variables:
+;; mode: scheme
+;; End: