diff options
Diffstat (limited to 'src/include')
| -rw-r--r-- | src/include/open-axiom.h | 95 |
1 files changed, 88 insertions, 7 deletions
diff --git a/src/include/open-axiom.h b/src/include/open-axiom.h index 33be7e97..e230a825 100644 --- a/src/include/open-axiom.h +++ b/src/include/open-axiom.h @@ -1,5 +1,5 @@ /* - Copyright (C) 2007-2010, Gabriel Dos Reis. + Copyright (C) 2007-2011, Gabriel Dos Reis. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,6 +34,8 @@ #ifndef OPENAXIOM_included #define OPENAXIOM_included +#include <vector> + #include "openaxiom-c-macros.h" /* Annotation to request C calling convention */ @@ -66,12 +68,12 @@ # include <inttypes.h> #endif -/* The opaque datatype. */ -#ifdef __WIN32__ +#if defined(__WIN32__) # include <windows.h> #endif - -#include <unistd.h> +#if defined(HAVE_UNISTD_H) +# include <unistd.h> +#endif /* Do we have graphics support? */ #ifdef X_DISPLAY_MISSING @@ -116,7 +118,7 @@ namespace OpenAxiom { } /* Internal field separator character. */ -#ifdef __WIN32__ +#if defined(__WIN32__) # define openaxiom_ifs ';' #else # define openaxiom_ifs ':' @@ -136,7 +138,7 @@ namespace OpenAxiom { static inline void openaxiom_sleep(int n) { -#ifdef __WIN32__ +#if defined(__WIN32__) Sleep(n * 1000); #else sleep(n); @@ -147,6 +149,85 @@ namespace OpenAxiom { OPENAXIOM_C_EXPORT int oa_spawn(Process*, SpawnFlags); OPENAXIOM_C_EXPORT const char* oa_concatenate_string(const char*, const char*); + // ------------ + // -- Driver -- + // ------------ + // A list of drivers for OpenAxiom. + enum Driver { + unknown_driver, // unknown driver + null_driver, // do nothing + config_driver, // print out configuration information + sman_driver, // start Superman as master process + gui_driver, // start the GUI interface + core_driver, // start the core system as master process + script_driver, // start the core system in script mode. + compiler_driver, // start the core system in compiler mode. + execute_driver, // Execute a command. + translator_driver, // Start the core system in translator mode. + linker_driver // start the core system in linking mode. + }; + + // ------------- + // -- Runtime -- + // ------------- + // A list of runtime support systems for OpenAxiom. + enum Runtime { + unknown_runtime, + gcl_runtime, // GCL-based runtime + sbcl_runtime, // SBCL-based runtime + clisp_runtime, // CLISP-based runtime + ecl_runtime, // ECL-based runtime + clozure_runtime, // Clozure CL-based runtime + bemol_runtime, // Bemol-based runtime + polyml_runtome // Poly/ML abstract machine-based runtime + }; + + // --------------- + // -- Arguments -- + // --------------- + // Command line arguments. + // When non empty, this vector really is of length one more than + // what size() reports, as it is always null-terminated, to comply + // with POSIX-style operating system requirements. + struct Arguments : std::vector<char*> { + explicit Arguments(int n = 0); + int size() const; + void allocate(int); + char* const* data() const; + }; + + // ------------- + // -- Command -- + // ------------- + // A description of external command to be executed. + struct Command { + Process core; // arguments for actual executable. + Arguments rt_args; // arguments to the base RT, if any. + const char* root_dir; // path to the OpenAxiom system. + const char* exec_path; // path to the program to execute. + Command(); + }; + + const char* get_systemdir(int argc, char*[]); + const char* make_path_for(const char*, Driver); + + // Return a pointer the string value associated with an option. + const char* option_value(const Command*, const char*); + + int execute_core(const Command*, Driver); + void build_rts_options(Command*, Driver); + + Driver preprocess_arguments(Command*, int, char**); + + // Return the length of an array literal. + template<typename T, int N> + inline int length(T(&)[N]) { + return N; + } } #endif /* OPENAXIOM_included */ + +// Local Variables: +// mode: c++ +// End: |