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