From 0b9dad593e5cec7345f33b3ce1545ef2849d3696 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Sat, 1 Jun 2019 23:06:30 +0200 Subject: Add simple Python executable. * modules/python.in: New file. * modules/configure.ac: Configure it. * .gitignore: Hide generated file. --- modules/python.in | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100755 modules/python.in (limited to 'modules/python.in') 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)))) -- cgit v1.2.3