ocmain.cpp

Go to the documentation of this file.

#include <../../nrnconf.h>
/* /local/src/master/nrn/src/oc/ocmain.cpp,v 1.7 1997/07/29 20:23:33 hines Exp */
 
#include <stdio.h>
#include <stdlib.h>
#include <hocdec.h>
 
int hoc_nstack, hoc_nframe;
extern const char* neuron_home;
 
extern Object** (*nrnpy_gui_helper_)(const char* name, Object* obj) = NULL;
extern double (*nrnpy_object_to_double_)(Object*) = NULL;
 
#if MAC
char hoc_console_buffer[256];
#endif
 
#if defined(WIN32)
void* cvode_pmem;
extern void setneuronhome(const char*);
#endif
 
static void setnrnhome(const char* arg) {
#if !defined(WIN32) && !defined(MAC)
    /*
     Gary Holt's first pass at this was:
 
     Set the NEURONHOME environment variable.  This should override any setting
     in the environment, so someone doesn't accidently use data files from an
     old version of neuron.
 
     But I have decided to use the environment variable if it exists
    */
    neuron_home = getenv("NEURONHOME");
    if (!neuron_home) {
#if defined(HAVE_PUTENV)
        static char* buffer;
        buffer = static_cast<char*>(malloc(strlen(NEURON_DATA_DIR) + 12));
        sprintf(buffer, "NEURONHOME=%s", NEURON_DATA_DIR);
        putenv(buffer);
        neuron_home = NEURON_DATA_DIR;
#elif defined(HAVE_SETENV)
        setenv("NEURONHOME", NEURON_DATA_DIR, 1);
        neuron_home = NEURON_DATA_DIR;
#else
#error "I don't know how to set environment variables."
// Maybe in this case the user will have to set it by hand.
#endif
    }
 
#else  // Not unix:
    setneuronhome(arg);
#endif
}
 
#if LINDA /* LINDA (SAF) */
real_main(int argc, const char** argv, const char** envp) {
#else
int main(int argc, const char** argv, const char** envp) {
#endif
    int err;
    nrn_isdouble(nullptr, 0., 0.);
#if MAC
    int our_argc = 1;
    char* our_argv[1];
    our_argv[0] = "Neuron";
    err = hoc_main1(our_argc, our_argv, envp);
#else
    setnrnhome(argv[0]);
    err = hoc_main1(argc, argv, envp);
#endif
    if (!err) {
        hoc_final_exit();
    }
#if EXPRESS
    exit(0);
#else
#if LINDA
    lexit(0);
#else
    return err;
#endif
#endif
}
 
 
void hoc_single_event_run() { /* for interviews, ivoc make use of own main */
#if LINDA
    extern int hoc_retreat_flag;
    if (hoc_retreat_flag) {
        hoc_retreat();
    }
#endif
#if INTERVIEWS && 0
    single_event_run();
#endif
    hoc_ret();
    hoc_pushx(0.);
}
 
int run_til_stdin() {
    return 1;
}
void hoc_notify_value() {}
 
#ifdef WIN32
void ivcleanup() {}
void ivoc_win32_cleanup() {}
int bad_install_ok;
#endif