ochelp.cpp

Go to the documentation of this file.

#include <../../nrnconf.h>
#if HAVE_IV // to end of file

// nrnbbs has been removed. This is no longer working.

#include <InterViews/cursor.h>
#include <InterViews/window.h>
#include <OS/list.h>
#include <OS/string.h>
#include <stdio.h>
#include <string.h>
#include <ctype.h>

#include "ivoc.h"

static FILE* help_pipe;

#if MAC && !defined(carbon)
#define WIN32 1
#endif

#if defined(WIN32) && !defined(CYGWIN)
#include "nrnbbs.h"
#endif

#ifndef WIN32
#define WIN32
#define UNIX 1
//#include "../uxnrnbbs/nrnbbs.h"
#endif

extern const char* hoc_current_xopen();

declareList(CopyStringList, CopyString)
implementList(CopyStringList, CopyString)

static CopyStringList* filequeue;

extern "C" void ivoc_help(const char* s) {
#if 1
//  printf("online help not currently working\n");  
    return;
#else
    char buf[256];
    strncpy(buf, s+4, 256);
    char* p;
    for (p = buf; *p; ++p) { // eliminate trailing newline
        if (*p == '\n') {
            *p = '\0';
            break;
        }
    }
    for (p = buf; *p; ++p) { // start at first character
        if (!isspace(*p)) {
            break;
        }
    }
    // queue up the help files if haven't invoked help
    if (!help_pipe) {
        if (!filequeue) {
            filequeue = new CopyStringList();
        }
        if (strncmp(p, "?0", 2) == 0) {
            sprintf(buf, "?0 %s", hoc_current_xopen());
            String str(buf);
            filequeue->append(str);
            return;
        }else if (strncmp(p, "?1", 2) == 0) {
            filequeue->append(p);
            return;
        }
    }
    if (*p) {
        Oc::help(p);
    }else{
        Oc::help("Help_root");
    }
#endif
}

static void readmore() {
#if !defined(WIN32) && !defined(MAC)
    char buf[1024];
    char* cmd = "ls $NEURONHOME/doc/help/*.help";
    FILE* p = popen(cmd, "r");
    if (!p) {
        printf("couldn't do: %s\n", cmd);
        return;
    }
    while (fgets(buf, 1024, p)) {
        fprintf(help_pipe, "?0 %s", buf);
    }
#endif
}

#if !defined(WIN32) && !defined(MAC) 
void Oc::help(const char* s) {
#if 1
    printf("online help not currently working\n");
#else
    if (help_pipe && ferror(help_pipe)) {
printf("error on the help pipe, restarting\n\
but will be missing this sessions hoc help text\n");
        pclose(help_pipe);
        help_pipe = NULL;
    }
    if (!help_pipe) {
        printf("Starting the help system\n");
        char buf[200];
        sprintf(buf, "%s/ochelp", "$NEURONHOME/bin/$CPU");
        if ((help_pipe = popen(buf, "w")) == (FILE*)0) {
            printf("Could not start %s\n", buf);
        }
//printf("help_pipe = %p\n", help_pipe);
        readmore();
        if (filequeue) {
            for (long i = 0; i < filequeue->count(); ++i) {
fprintf(help_pipe, "%s\n", filequeue->item_ref(i).string());
            }
            filequeue->remove_all();
        }
    }
    if (help_pipe) {
//printf("|%s|\n", s);
        if (strncmp(s, "?0", 2) == 0) {
            char buf[1024];
            sprintf(buf, "?0 %s", hoc_current_xopen());
            fprintf(help_pipe, "%s\n", buf);
        }else{
            fprintf(help_pipe, "%s\n", s);
        }
        fflush(help_pipe);
    }
#endif
}
#endif

#if defined(WIN32) || defined(MAC)

void Oc::help(const char* s) {
#if 0
#ifndef CYGWIN
    static bool ran_ochelp = false;
    char buf[1024];
    nrnbbs_connect(); // benign if already connected
    if (!nrnbbs_connected()) {
        printf("Could not connect to nrnbbs service\n");
        return;
    }
    if (!ran_ochelp && !nrnbbs_look("ochelp running")) {
        ran_ochelp = true;
        printf("Starting the help system\n");
        nrnbbs_exec("ochelp");
    }else if (!nrnbbs_look("ochelp running")) {
        printf("proper ochelp version not running\n");
        return;
    }
            
#if 1
    readmore();
    if (filequeue) {
        for (long i = 0; i < filequeue->count(); ++i) {
sprintf(buf, "%s\n", filequeue->item_ref(i).string());
            nrnbbs_post_string("ochelp", buf);
        }
        filequeue->remove_all();
    }
#endif

    if (strncmp(s, "?0", 2) == 0) {
        sprintf(buf, "?0 %s", hoc_current_xopen());
        nrnbbs_post_string("ochelp", buf);
    }else{
        nrnbbs_post_string("ochelp", s);
    }
#endif
#endif
}
#endif

void Oc::helpmode(bool b) {
    helpmode_ = b;
}

void Oc::helpmode(Window* w) {
    if (helpmode()) {
        if (w->cursor() != Oc::help_cursor()) {
            w->push_cursor();
            w->cursor(Oc::help_cursor());
        }
    }else{
        if (w->cursor() == Oc::help_cursor()) {
            w->pop_cursor();
        }
    }
}

static const CursorPattern question_pat = {
     0x0000, 0x0000, 0x0000, 0x7c00, 0xce00, 0x0600, 0x0600, 0x0c00,
     0x3000, 0x6000, 0x6000, 0x6000, 0x0000, 0x0000, 0x6000, 0x6000
};

static const CursorPattern question_mask = {
//    0x0000, 0x0000, 0x7c00, 0xfe00, 0xff00, 0xcf00, 0x0f00, 0x3e00,
//    0x7c00, 0xf000, 0xf000, 0xf000, 0xf000, 0xf000, 0xf000, 0xf000
#if !defined(UNIX) && (defined(WIN32) || defined(MAC))
        0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff,
        0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff
#else
        0xfe00, 0xfe00, 0xfe00, 0xfe00, 0xfe00, 0xfe00, 0xfe00, 0xfe00,
        0xfe00, 0xfe00, 0xfe00, 0xfe00, 0xfe00, 0xfe00, 0xfe00, 0xfe00
#endif
};



Cursor* Oc::help_cursor_;

Cursor* Oc::help_cursor() {
    if (!Oc::help_cursor_) {
        help_cursor_ = new Cursor(4, 7, question_pat, question_mask);
    }
    return help_cursor_;
}


#endif