mos2nrn.cpp

Go to the documentation of this file.

#include <../../nrnconf.h>
#include <stdio.h>
#include <assert.h>
#include "../oc/nrnassrt.h"
#include <stdlib.h>
#include <unistd.h>
#include "mos2nrn.h"

static void getdname(char* dname);

#include <string.h>

const char* back2forward(const char*);
const char* basefile(const char*);

int main(int argc, char** argv) {
    char buf[256];
    char dname[256];

    if (argc != 2 ) {
        fprintf(stderr, "Usage: mos2nrn [hocfile | nrnzipfile]\n");
        return 1;
    }
    FILE* f = fopen(argv[1], "r");
    if (!f) {
        return 1;
    }
    if (fread(buf, 1, 5, f) < 2) { return 1; }
    fclose(f);
    if (strncmp(buf, "PK", 2) == 0) { // its a nrnzip file
        getdname(dname);
nrn_assert(snprintf(buf, 256, "xterm -sb -e %s/mos2nrn2.sh %s %s %d", NEURON_BIN_DIR,
            argv[1], dname, 0) < 256);
        int i = system(buf);
        if (i) { return i; }
    }else{ // its a hoc file
        sprintf(buf, "xterm -sb -e %s/nrniv %s -",
            NEURON_BIN_DIR, argv[1]);
        int i = system(buf);
        if (i) { return i; }
    }
    return 0;
}

const char* back2forward(const char* back) {
    static char forward[256];
    char *cp;
        strcpy(forward, back);
        for (cp = forward; *cp; ++cp) {
            if (*cp == '\\') {
                *cp = '/';
            }
        }
    return forward;
}

const char* basefile(const char* path) {
    const char* cp;
    for (cp = path + strlen(path) - 1; cp >= path; --cp) {
        if (*cp == '\\' || *cp == ':' || *cp == '/') {
            return cp+1;
        }
    }
    return path;
}

static void getdname(char* dname) {
    int fd;
    const char* tdir;
    if ((tdir = getenv("TEMP")) == NULL) {
        tdir = "/tmp";
    }
    sprintf(dname, "%s/nrnXXXXXX", tdir);
#if HAVE_MKSTEMP
    fd = mkstemp(dname);
    close(fd);
#else
    mktemp(dname);
#endif
}