diff options
| -rw-r--r-- | .gitignore | 2 | ||||
| -rw-r--r-- | modules/configure.ac | 1 | ||||
| -rwxr-xr-x | modules/python.in | 29 |
3 files changed, 31 insertions, 1 deletions
@@ -9,4 +9,4 @@ modules/configure modules/env modules/libtool modules/m4/ - +modules/python diff --git a/modules/configure.ac b/modules/configure.ac index 5245123..9d483d0 100644 --- a/modules/configure.ac +++ b/modules/configure.ac @@ -13,6 +13,7 @@ GUILE_PKG([3.0 2.2 2.1 2.0]) GUILE_PROGS AC_CONFIG_FILES([Makefile]) +AC_CONFIG_FILES([python], [chmod +x python]) AC_CONFIG_FILES([env], [chmod +x env]) AC_OUTPUT diff --git a/modules/python.in b/modules/python.in new file mode 100755 index 0000000..1dad073 --- /dev/null +++ b/modules/python.in @@ -0,0 +1,29 @@ +#!@GUILE@ \ +--no-auto-compile -e main -s +!# + +(use-modules (ice-9 match) + (language python spec) + (language python module python) + (system repl common) + (system repl repl)) + +(define* (main #:optional (args (command-line))) + (match args + ((_ file) + (let ((compiled (string-append file ".go"))) + (compile-file file + #:from python + #:output-file compiled) + (load-compiled compiled))) + ((_) + (repl-default-option-set! 'prompt ">>> ") + (set! (@@ (system repl common) repl-welcome) + (const (display "\ +Python on Guile, version @VERSION@ +(Hit Ctrl-D to exit.) +"))) + (start-repl python) + #t) + (_ (format (current-error-port) + "usage: ~a file.py~%" this)))) |