ivocmac.cpp

Go to the documentation of this file.

#include <../../nrnconf.h>
 
#if defined(carbon)
#include <Carbon/Carbon.h>
#else
#include <CodeFragments.h>
#endif
 
 
#include <stdio.h>
#include "apwindow.h"
#include "ivoc.h"
#include "rubband.h"
#include "symdir.h"
#include "oc2iv.h"
#include "graph.h"
#include <InterViews/window.h>
#include <IV-Mac/window.h>
#include <InterViews/display.h>
#include <InterViews/cursor.h>
#include <Dispatch/dispatcher.h>
 
typedef void (*NrnBBSCallback)(const char*);
 
 
#if !defined(carbon)
char* mktemp(char*) {
    return NULL;
}
#endif
 
bool nrnbbs_connect() {
    return false;
}
void nrnbbs_disconnect() {}
bool nrnbbs_connected() {
    return false;
}
 
void nrnbbs_post(const char*) {}
void nrnbbs_post_int(const char*, int) {}
void nrnbbs_post_string(const char*, const char*) {}
 
bool nrnbbs_take(const char*) {
    return false;
}
bool nrnbbs_take_int(const char*, int*) {
    return false;
}
bool nrnbbs_take_string(const char*, char*) {
    return false;
}
 
bool nrnbbs_look(const char*) {
    return false;
}
 
void nrnbbs_exec(const char*) {}
 
void nrnbbs_notify(const char*, NrnBBSCallback) {}
 
void nrnbbs_wait(bool* pflag = (bool*) 0) {}
 
#if !carbon
bool is_mac_dll(FSSpec*);
bool mac_open_dll(const char*, FSSpec*);
#endif
 
#if !carbon
bool is_mac_dll(FSSpec* fs) {
    FInfo finfo;
    FSpGetFInfo(fs, &finfo);
    return finfo.fdType == 'shlb';
}
 
extern Symlist *hoc_symlist, *hoc_built_in_symlist;
extern OSErr __path2fss(const char* name, FSSpec*);
extern void hoc_nrn_load_dll();
 
static long fsspec2id(FSSpec* fs) {
    CInfoPBRec ci;
    Str255 name;
    int i;
    for (i = 0; i < 64; ++i) {
        name[i] = fs->name[i];
    }
    ci.hFileInfo.ioCompletion = 0;
    ci.hFileInfo.ioNamePtr = name;
    ci.hFileInfo.ioVRefNum = fs->vRefNum;
    ci.hFileInfo.ioDirID = fs->parID;
    ci.hFileInfo.ioFDirIndex = 0;
    OSErr err = PBGetCatInfo(&ci, false);
    return ci.hFileInfo.ioDirID;
}
static int ndll;
static long dllid[10];
 
bool mac_open_dll(const char* name, FSSpec* fs) {
    CFragConnectionID id;
    Ptr mainaddr;
    Str255 sname;
    int j;
    long fid = fsspec2id(fs);
    for (j = 0; j < ndll; ++j) {
        if (dllid[j] == fid) {
            printf("%s DLL already loaded\n", name);
            return false;
        }
    }
    dllid[ndll] = fid;
    ndll = (ndll < 10) ? ndll + 1 : 10;
    printf("Loading DLL %s\n", name);
#if 1
    OSErr myErr = GetDiskFragment(fs, 0, kCFragGoesToEOF, 0, kLoadCFrag, &id, &mainaddr, sname);
    if (myErr) {
        sname[sname[0] + 1] = '\0';
        printf("dll load error %d\n%s\n", myErr, sname + 1);
        return false;
    }
    //  printf("successfully loaded %s\n", name);
    //  printf("mainaddr=%p\n", mainaddr);
    mainaddr = NULL;
    long cnt;
    myErr = CountSymbols(id, &cnt);
    //  printf("symbols exported = %d\n", cnt);
    for (long i = 0; i < cnt; ++i) {
        Ptr symaddr;
        CFragSymbolClass symclass;
        myErr = GetIndSymbol(id, i, sname, &symaddr, &symclass);
        sname[sname[0] + 1] = '\0';
        if (strcmp((sname + 1), "main") == 0) {
            mainaddr = symaddr;
        }
        //      printf("symbol %d name %s\n", i, sname+1);
    }
//  printf("mainaddr=%p\n", mainaddr);
#if 1
    if (mainaddr) {
        Symlist* sav = hoc_symlist;
        hoc_symlist = hoc_built_in_symlist;
        hoc_built_in_symlist = NULL;
        (*(Pfri) mainaddr)();
        hoc_built_in_symlist = hoc_symlist;
        hoc_symlist = sav;
        return true;
    }
#endif
#endif
    return false;
}
 
bool mac_load_dll(const char* name) {
    FSSpec fss;
    if ((__path2fss(name, &fss) != fnfErr) && is_mac_dll(&fss)) {
        return mac_open_dll(name, &fss);
    }
    return false;
}
 
void hoc_nrn_load_dll() {
    int b = mac_load_dll(expand_env_var(gargstr(1)));
    ret((double) b);
}
#endif  //! carbon
 
void pwmimpl_redraw(Window* w) {
    w->rep()->MACpaint();
}
 
void ivoc_bring_to_top(Window* w) {
    BringToFront(w->rep()->macWindow());
}
 
//---------------------------------------------------------
 
 
void Oc::cleanup() {
    if (help_cursor_) {
        delete help_cursor_;
    }
}
 
void PrintableWindow::hide() {
    unmap();
}
 
void PrintableWindow::xmove(int x, int y) {
#if carbon
    MoveWindowStructure(Window::rep()->macWindow(), x, y);
#else
    WindowPtr theWin = Window::rep()->macWindow();
    MoveWindow(theWin, (x + 1), (y + 17), true);
#endif
}
int PrintableWindow::xleft() const {
    WindowRep& w = *Window::rep();
    if (w.bound()) {
#if carbon
        Rect r;
        GetWindowBounds(w.macWindow(), kWindowStructureRgn, &r);
        return r.left;
#else
        GrafPtr oldPort;
        GetPort(&oldPort);
        WindowPtr theWin = w.macWindow();
        w.setport();
        Point upperLeft;
        upperLeft.h = theWin->portRect.left;
        upperLeft.v = theWin->portRect.top;
        LocalToGlobal(&upperLeft);
        SetPort(oldPort);
        return upperLeft.h - 1;
#endif
    } else {
        return 0;
    }
}
int PrintableWindow::xtop() const {
    WindowRep& w = *Window::rep();
    if (w.bound()) {
#if carbon
        Rect r;
        GetWindowBounds(w.macWindow(), kWindowStructureRgn, &r);
        return r.top;
#else
        GrafPtr oldPort;
        GetPort(&oldPort);
        WindowPtr theWin = w.macWindow();
        w.setport();
        Point upperLeft;
        upperLeft.h = theWin->portRect.left;
        upperLeft.v = theWin->portRect.top;
        LocalToGlobal(&upperLeft);
        SetPort(oldPort);
        return upperLeft.v - 17;
#endif
    } else {
        return 0;
    }
}
 
void PrintableWindow::xplace(int x, int y) {
    WindowRep& wr = *Window::rep();
    // printf("xplace %d %d %d\n", x, y,wr.bound());
    if (wr.bound()) {
        xmove(x, y);
    } else {
        xplace_ = true;
#if carbon
        xleft_ = x;
        xtop_ = y;
#else
        xleft_ = x + 1;
        xtop_ = y + 17;
#endif
    }
}
void PrintableWindow::default_geometry() {
    DismissableWindow::default_geometry();
    // the problem is that at this point the canvas size is not necessarly correct.
    if (xplace_) {
        pplace(xleft_, display()->pheight() - xtop_ - canvas()->pheight());
    }
}
 
// following analogy to MACwindow::MACpaint
static CGrafPtr cg_;
static GDHandle gd_;
 
void Rubberband::rubber_on(Canvas* c) {
    //  printf("Rubberband::rubber_on\n");
    //  c->front_buffer();
    GetGWorld(&cg_, &gd_);
    WindowPtr mw = c->window()->rep()->macWindow();
#if carbon
    SetGWorld(GetWindowPort(mw), GetMainDevice());
#else
    SetGWorld((CGrafPort*) mw, GetMainDevice());
#endif
}
void Rubberband::rubber_off(Canvas* c) {
    //  c->back_buffer();
    SetGWorld(cg_, gd_);
#ifdef MAC
    // this prevents failure for all future paints ... I am not sure this is what we want
    c->damage_all();
#endif
    //  printf("Rubberband::rubber_off\n");
}
 
#if !defined(carbon)
IOHandler::IOHandler() {}
IOHandler::~IOHandler() {}
int IOHandler::inputReady(int) {
    return 0;
}
int IOHandler::outputReady(int) {
    return 0;
}
int IOHandler::exceptionRaised(int) {
    return 0;
}
void IOHandler::timerExpired(long, long) {}
void IOHandler::childStatus(pid_t, int) {}
#endif