From e609586105f5a9b2b314a9dbeab0e7ec47d66b85 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Fri, 28 Mar 2008 04:34:35 +0000 Subject: * interp/int-top.boot (intloopReadConsole): Use $InputStream. * interp/bootlex.lisp (init-boot/spad-reader): Use $OutputStream. * interp/comp.lisp (|compQuietly|): Likewise. (|compileFileQuietly|): Likewise. (|compileQuietly|): Likewise. * interp/unlisp.lisp (|Prompt|): Likewise. * interp/server.boot (serverReadLine): Indent while body. --- src/driver/utils.c | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) (limited to 'src/driver') diff --git a/src/driver/utils.c b/src/driver/utils.c index 3d5874da..c319536f 100644 --- a/src/driver/utils.c +++ b/src/driver/utils.c @@ -14,7 +14,7 @@ the documentation and/or other materials provided with the distribution. - - Neither the name of The Numerical ALgorithms Group Ltd. nor the + - Neither the name of The Numerical Algorithms Group Ltd. nor the names of its contributors may be used to endorse or promote products derived from this software without specific prior written permission. @@ -139,6 +139,15 @@ openaxiom_build_rts_options(openaxiom_command* command, command->rt_argv[1] = "-eval"; command->rt_argv[2] = "(" OPENAXIOM_LISP_CORE_ENTRY_POINT ")"; break; + + case openaxiom_sbcl_runtime: + command->rt_argc = 3; + command->rt_argv = (char **) + malloc(command->rt_argc * sizeof (char*)); + command->rt_argv[0] = "--noprint"; + command->rt_argv[1] = "--noinform"; + command->rt_argv[2] = "--end-runtime-options"; + break; default: abort(); @@ -175,6 +184,11 @@ openaxiom_preprocess_arguments(openaxiom_command* command, driver = openaxiom_script_driver; else if(strcmp(argv[i], "--compile") == 0) driver = openaxiom_compiler_driver; + else if(strcmp(argv[i], "--no-server") == 0) + driver = openaxiom_core_driver; + else if (strcmp(argv[i], "--server") == 0) + driver = openaxiom_sman_driver; + openaxiom_build_rts_options(command, driver); return driver; -- cgit v1.2.3