add cmakelists for CLion, tons and tons of reorganisation using new info from the Pro8 compiler

1 files changed, 1230 insertions, 0 deletions

diff --git a/command_line/CmdLine/Src/MacEmul/Resources.c b/command_line/CmdLine/Src/MacEmul/Resources.c
new file mode 100644
index 0000000..7c2bea8
--- /dev/null
+++ b/command_line/CmdLine/Src/MacEmul/Resources.c
@@ -0,0 +1,1230 @@
+#include "mwcc_decomp.h"
+
+// base is 0,51, ptr is 0,54
+typedef struct MemRefList {
+    UInt16 id;
+    OSType type;
+    StringPtr name;
+    unsigned char attr;
+    Handle hand;
+    struct MemRefList *next;
+} MemRefList;
+
+// base is 0,50, ptr is 0,55
+typedef struct MemRsrcTypeList {
+    OSType type;
+    MemRefList *ref_list;
+    struct MemRsrcTypeList *next;
+} MemRsrcTypeList;
+
+// base is 0,56
+typedef struct {
+    char sysdata[66];
+    char type[4];
+    char creator[4];
+    char sysdata2[38];
+    char appdata[128];
+} MemRsrcSysData; // assumed name
+
+// base is 0,49, ptr is 0,62, ptrptr is 0,63
+typedef struct MemRsrcMap {
+    SInt16 refnum;
+    UInt16 fork_attr;
+    MemRsrcTypeList *type_list;
+    MemRsrcSysData sys_data;
+    struct MemRsrcMap *prev;
+} MemRsrcMap;
+
+typedef struct {
+    UInt32 data_offs;
+    UInt32 map_offs;
+    UInt32 data_len;
+    UInt32 map_len;
+} Ty70;
+typedef struct {
+    Ty70 mem_hdr;
+    Handle mem_next_map_handle;
+    SInt16 mem_refnum;
+    UInt16 fork_addr;
+    UInt16 typelist_offs;
+    UInt16 namelist_offs;
+    UInt16 types_idx;
+} Ty73;
+typedef struct {
+    OSType type;
+    UInt16 rsrc_idx;
+    UInt16 ref_list_offs;
+} Ty75;
+typedef struct {
+    UInt16 id;
+    UInt16 name_offs;
+    unsigned char attr;
+    unsigned char data_offs[3];
+    Handle mem_rsrc_handle;
+} Ty77;
+typedef struct {
+    unsigned char len;
+} Ty80;
+typedef struct {
+    UInt32 len;
+} Ty82;
+
+typedef struct ResRef {
+    OSSpec spec;
+    int ref;
+    struct ResRef *next;
+} ResRef;
+
+static OSErr resError;
+static SInt16 cur_res_file;
+Boolean ResLoad;
+static MemRsrcMap *maplist;
+static ResRef *resForkList;
+static ResRef *resForkLast;
+static Boolean UseResourceForkInfo;
+
+// Forward declarations
+static void ReadResourceFork(SInt16 ref, SInt8 permission, void *file_data, SInt32 file_size);
+
+Boolean OS_UsingMacResourceForkInfo() {
+    return UseResourceForkInfo;
+}
+
+void OS_UseMacResourceForkInfo(Boolean which) {
+    UseResourceForkInfo = which;
+}
+
+OSErr SystemInitResources(OSSpec *spec) {
+    void *file_data;
+    SInt32 file_len;
+
+    maplist = 0;
+    cur_res_file = 0;
+
+    if (!OS_LoadMacResourceFork(spec, &file_data, &file_len)) {
+        ReadResourceFork(-1, 1, file_data, file_len);
+        cur_res_file = -1;
+        resError = noErr;
+        return noErr;
+    } else {
+        FSSpec prog;
+        if (!OS_OSSpec_To_FSSpec(spec, &prog) && !FSpOpenResFile(&prog, 1)) {
+            resError = noErr;
+            return noErr;
+        } else {
+            resError = fnfErr;
+            return fnfErr;
+        }
+    }
+}
+
+static MemRsrcMap *NewResourceMap(SInt16 ref, UInt16 attr, MemRsrcTypeList *list) {
+    MemRsrcMap *nw;
+    MemRsrcMap **scan;
+
+    scan = &maplist;
+    nw = malloc(sizeof(MemRsrcMap));
+
+    if (!nw) {
+        resError = memFullErr;
+        return 0;
+    }
+
+    nw->refnum = ref;
+    nw->fork_attr = attr;
+    nw->type_list = list;
+    nw->prev = *scan;
+    *scan = nw;
+    return nw;
+}
+
+static MemRsrcTypeList *NewTypeListEntry(MemRsrcTypeList **scan, OSType type, MemRefList *list, MemRsrcTypeList *next) {
+    MemRsrcTypeList *nw;
+
+    while (*scan)
+        scan = &(*scan)->next;
+
+    nw = malloc(sizeof(MemRsrcTypeList));
+    if (!nw) {
+        resError = memFullErr;
+        return 0;
+    }
+
+    nw->type = type;
+    nw->ref_list = list;
+    nw->next = next;
+    *scan = nw;
+    return nw;
+}
+
+static MemRefList *NewRefListEntry(MemRefList **scan, UInt16 id, OSType type, StringPtr name, unsigned char attr, Handle hand) {
+    char mname[256];
+    MemRefList *prev;
+    MemRefList *nw;
+
+    prev = 0;
+    if (name)
+        p2cstrcpy(mname, name);
+    else
+        strcpy(mname, "(none)");
+
+    while (*scan && (*scan)->id != id) {
+        prev = *scan;
+        scan = &(*scan)->next;
+    }
+
+    nw = malloc(sizeof(MemRefList));
+    if (!nw) {
+        resError = memFullErr;
+        return 0;
+    }
+
+    nw->id = id;
+    nw->type = type;
+    nw->name = name;
+    nw->attr = attr;
+    nw->hand = hand;
+    if (prev) {
+        nw->next = prev->next;
+        prev->next = nw;
+    } else {
+        nw->next = 0;
+    }
+    *scan = nw;
+    return nw;
+}
+
+static MemRsrcMap *FindResourceMap(SInt16 ref) {
+    MemRsrcMap *list = maplist;
+
+    while (list) {
+        if (list->refnum == ref)
+            return list;
+        list = list->prev;
+    }
+
+    return 0;
+}
+
+static MemRsrcMap *FindResourceMap2(SInt16 ref, MemRsrcMap **next) {
+    MemRsrcMap *list = maplist;
+
+    *next = 0;
+    while (list) {
+        if (list->refnum == ref)
+            return list;
+        *next = list;
+        list = list->prev;
+    }
+
+    return 0;
+}
+
+static void DeleteResources(SInt16 refNum) {
+    MemRsrcMap *rm, *rmnext;
+    MemRsrcTypeList *mtyptmp, *mtyp;
+    MemRefList *mrletmp, *mrle;
+
+    rm = FindResourceMap2(refNum, &rmnext);
+    if (rm) {
+        mtyp = rm->type_list;
+        while (mtyp) {
+            mrle = mtyp->ref_list;
+            while (mrle) {
+                if (mrle->hand)
+                    DisposeHandle(mrle->hand);
+                if (mrle->name)
+                    free(mrle->name);
+                mrletmp = mrle;
+                mrle = mrle->next;
+                free(mrletmp);
+            }
+            mtyptmp = mtyp;
+            mtyp = mtyp->next;
+            free(mtyptmp);
+        }
+
+        if (rmnext)
+            rmnext->prev = rm->prev;
+        else
+            maplist = rm->prev;
+        free(rm);
+    }
+}
+
+static void ReadResourceFork(SInt16 ref, SInt8 permission, void *file_data, SInt32 file_size) {
+    unsigned char *nameptr;
+    unsigned char *name;
+    Handle hand;
+    SInt32 offs;
+    SInt32 esize;
+    Ty82 tent;
+    MemRsrcTypeList *mtyp;
+    int rcnt;
+    SInt32 ref_offs;
+    SInt32 cnt;
+    SInt32 msize;
+    void *buffer;
+    Ty80 *dnam;
+    Ty77 *drle;
+    Ty75 *dtyp;
+    Ty73 *dmap;
+    MemRsrcSysData *dsys;
+    MemRsrcSysData tsys;
+    Ty70 *dhdr;
+    Ty70 thdr;
+    MemRsrcMap *rm;
+
+    // Not Right Now Folk's
+}
+
+static void GetResourceSizes(MemRsrcMap *rm, SInt32 *data_size, SInt32 *name_size, SInt32 *reflist_size, SInt32 *typelist_size) {
+    MemRefList *mrle;
+    MemRsrcTypeList *mtyp;
+
+    *data_size = *name_size = *reflist_size = *typelist_size = 0;
+
+    mtyp = rm->type_list;
+    while (mtyp) {
+        mrle = mtyp->ref_list;
+        while (mrle) {
+            *name_size += !mrle->name ? 0 : (mrle->name[0] + 1);
+            *data_size += (!mrle->hand ? 0 : GetHandleSize(mrle->hand)) + 4;
+            *reflist_size += 12;
+            mrle = mrle->next;
+        }
+        *typelist_size += 8;
+        mtyp = mtyp->next;
+    }
+}
+
+static SInt32 GetResourceTypesCount(MemRsrcMap *dm) {
+    MemRsrcTypeList *mtyp;
+    SInt32 tmp;
+
+    tmp = 0;
+    mtyp = dm->type_list;
+    while (mtyp) {
+        mtyp = mtyp->next;
+        ++tmp;
+    }
+
+    return tmp;
+}
+
+static SInt32 GetResourceEntriesCount(MemRsrcTypeList *mtyp) {
+    MemRefList *mrle;
+    SInt32 tmp;
+
+    tmp = 0;
+    mrle = mtyp->ref_list;
+    while (mrle) {
+        mrle = mrle->next;
+        ++tmp;
+    }
+
+    return tmp;
+}
+
+static void WriteResourceFork(SInt16 ref) {
+    // some weird shit going on with locals here
+    // there's probably a bunch of macros
+    // may be able to refer to the Windows binary for assert values
+    SInt32 sz;
+    SInt32 __len;
+    SInt32 __offs;
+    SInt32 __offs_2;
+    SInt32 __len_2;
+    SInt32 __offs_3;
+    SInt32 __offs_4;
+    Ty82 tent;
+    Ty82 dent;
+    Ty77 trle;
+    Ty77 drle;
+    SInt32 __offs_5;
+    MemRefList *mrle;
+    Ty75 ttyp;
+    Ty75 dtyp;
+    MemRsrcTypeList  *mtyp;
+    SInt32 __offs_6;
+    SInt32 data_offs;
+    SInt32 name_offs;
+    SInt32 typelist_offs;
+    SInt32 reflist_offs;
+    SInt32 data_size;
+    SInt32 name_size;
+    SInt32 typelist_size;
+    SInt32 reflist_size;
+    Handle hand_ref;
+    Ty73 tmap;
+    Ty73 dmap;
+    MemRsrcSysData tsys;
+    Ty70 thdr;
+    Ty70 dhdr;
+    MemRsrcMap *rm;
+}
+
+static void WriteEmptyResourceFork(SInt16 ref) {
+    SInt32 sz;
+    Handle hand_ref;
+    Ty73 dmap;
+    MemRsrcSysData dsys;
+    Ty70 dhdr;
+
+    // i'll do this one later lol
+}
+
+static MemRsrcTypeList *FindResourceType1(MemRsrcMap *rm, OSType theType) {
+    MemRsrcTypeList *mtyp;
+
+    mtyp = rm->type_list;
+    while (mtyp) {
+        if (mtyp->type == theType)
+            return mtyp;
+        mtyp = mtyp->next;
+    }
+
+    return 0;
+}
+
+static SInt32 CountResourceType1(MemRsrcMap *rm, OSType theType) {
+    MemRsrcTypeList *mtyp;
+
+    mtyp = rm->type_list;
+    while (mtyp) {
+        if (mtyp->type == theType)
+            return GetResourceEntriesCount(mtyp);
+        mtyp = mtyp->next;
+    }
+
+    return 0;
+}
+
+static SInt32 CountResourceType(OSType theType) {
+    MemRsrcMap *rm;
+    SInt32 total;
+
+    total = 0;
+    rm = FindResourceMap(cur_res_file);
+
+    while (rm) {
+        total += CountResourceType1(rm, theType);
+        rm = rm->prev;
+    }
+
+    return total;
+}
+
+static MemRefList *FindIndResource1(MemRsrcMap *rm, OSType theType, SInt16 index) {
+    MemRefList *mrle;
+    MemRsrcTypeList *mtyp;
+
+    mtyp = rm->type_list;
+    while (mtyp) {
+        if (mtyp->type == theType) {
+            mrle = mtyp->ref_list;
+            while (mrle && --index > 0) {
+                mrle = mrle->next;
+            }
+            return mrle;
+        }
+        mtyp = mtyp->next;
+    }
+
+    return 0;
+}
+
+static MemRefList *FindIndResource(OSType theType, SInt16 index) {
+    MemRefList *mrle;
+    MemRsrcMap *rm = FindResourceMap(cur_res_file);
+
+    while (rm) {
+        mrle = FindIndResource1(rm, theType, index);
+        if (mrle)
+            return mrle;
+        rm = rm->prev;
+    }
+
+    return 0;
+}
+
+static MemRefList *FindResourceTypeAndID1(MemRsrcMap *rm, OSType theType, SInt16 theID) {
+    MemRefList *mref;
+    MemRsrcTypeList *mtyp = FindResourceType1(rm, theType);
+
+    if (mtyp) {
+        mref = mtyp->ref_list;
+        while (mref) {
+            if (mref->id == theID)
+                return mref;
+            mref = mref->next;
+        }
+    }
+
+    return 0;
+}
+
+static MemRefList *FindResourceTypeAndID(OSType theType, SInt16 theID) {
+    MemRefList *mref;
+    MemRsrcMap *rm = FindResourceMap(cur_res_file);
+
+    while (rm) {
+        mref = FindResourceTypeAndID1(rm, theType, theID);
+        if (mref)
+            return mref;
+        rm = rm->prev;
+    }
+
+    return 0;
+}
+
+static MemRefList *FindResourceTypeAndName1(MemRsrcMap *rm, OSType theType, ConstStringPtr theName) {
+    MemRefList *mref;
+    MemRsrcTypeList *mtyp;
+
+    mtyp = FindResourceType1(rm, theType);
+    if (mtyp) {
+        mref = mtyp->ref_list;
+        while (mref) {
+            if (mref->name && EqualString(mref->name, theName, 0, 0))
+                return mref;
+            mref = mref->next;
+        }
+    }
+
+    return 0;
+}
+
+static MemRefList *FindResourceTypeAndName(OSType theType, ConstStringPtr theName) {
+    MemRefList *mref;
+    MemRsrcMap *rm = FindResourceMap(cur_res_file);
+
+    while (rm) {
+        mref = FindResourceTypeAndName1(rm, theType, theName);
+        if (mref)
+            return mref;
+        rm = rm->prev;
+    }
+
+    return 0;
+}
+
+static MemRefList *FindResourceHandle1(MemRsrcMap *rm, Handle theResource) {
+    MemRefList *mrle;
+    MemRsrcTypeList *mtyp;
+
+    for (mtyp = rm->type_list; mtyp; mtyp = mtyp->next) {
+        for (mrle = mtyp->ref_list; mrle; mrle = mrle->next) {
+            if (mrle->hand == theResource)
+                return mrle;
+        }
+    }
+
+    return 0;
+}
+
+static MemRefList *FindResourceHandle(Handle theResource) {
+    MemRefList *mrle;
+    MemRsrcMap *rm;
+
+    for (rm = FindResourceMap(cur_res_file); rm; rm = rm->prev) {
+        mrle = FindResourceHandle1(rm, theResource);
+        if (mrle)
+            return mrle;
+    }
+
+    return 0;
+}
+
+static int RemoveResourceHandle1(MemRsrcMap *rm, Handle theResource) {
+    MemRefList *mrle, *pmrle;
+    MemRsrcTypeList *mtyp, *pmtyp;
+
+    mtyp = rm->type_list;
+    pmtyp = 0;
+    while (mtyp) {
+        mrle = mtyp->ref_list;
+        pmrle = 0;
+        while (mrle) {
+            if (mrle->hand == theResource) {
+                if (pmrle)
+                    pmrle->next = mrle->next;
+                else
+                    mtyp->ref_list = mrle->next;
+                free(mrle);
+
+                if (!mtyp->ref_list) {
+                    if (pmtyp)
+                        pmtyp->next = mtyp->next;
+                    else
+                        rm->type_list = mtyp->next;
+                    free(mtyp);
+                }
+
+                return 1;
+            }
+
+            pmrle = mrle;
+            mrle = mrle->next;
+        }
+        pmtyp = mtyp;
+        mtyp = mtyp->next;
+    }
+
+    return 0;
+}
+
+static int RemoveResourceHandle(Handle theResource) {
+    MemRsrcMap *rm;
+
+    for (rm = FindResourceMap(cur_res_file); rm; rm = rm->prev) {
+        if (RemoveResourceHandle1(rm, theResource))
+            return 1;
+    }
+
+    return 0;
+}
+
+static SInt16 FindResourceHandleFile1(MemRsrcMap *rm, Handle theResource) {
+    MemRefList *mrle;
+    MemRsrcTypeList *mtyp;
+}
+
+static SInt16 FindResourceHandleFile(Handle theResource) {
+    MemRefList *mrle;
+    MemRsrcMap *rm;
+}
+
+void OS_AddMacResourceForkRef(int ref, const OSSpec *spec) {
+    ResRef *nw;
+}
+
+void OS_RemoveMacResourceForkRef(int ref) {
+    ResRef *prev;
+    ResRef *lst;
+}
+
+OSSpec *OS_GetMacResourceForkFromRef(int ref) {
+    ResRef *lst;
+}
+
+Boolean OS_SearchMacResourceForkList(const OSSpec *rspec, int *ref) {
+    ResRef *lst;
+}
+
+int OS_SetMacResourceForkCreatorAndType(int ref, OSType creator, OSType type) {
+    MemRsrcMap *rm;
+    UInt32 sz;
+    UInt32 buf[2];
+    int err;
+
+    if (!OS_GetMacResourceForkFromRef(ref)) {
+        sz = 8;
+        buf[0] = type;
+        buf[1] = creator;
+        err = OS_Seek(ref, OSSeekAbs, 0x52);
+        if (!err) {
+            err = OS_Write(ref, buf, &sz);
+            if (!err && sz == 8) {
+                err = 0;
+            }
+        }
+    } else {
+        rm = FindResourceMap(OS_RefToMac(ref));
+        if (!rm) {
+            err = 2;
+        } else if (rm->fork_attr & 0x80) {
+            err = 13;
+        } else {
+            rm->sys_data.creator[0] = (creator & 0xFF000000) >> 24;
+            rm->sys_data.creator[1] = (creator & 0x00FF0000) >> 16;
+            rm->sys_data.creator[2] = (creator & 0x0000FF00) >> 8;
+            rm->sys_data.creator[3] = (creator & 0x000000FF);
+            rm->sys_data.type[0] = (type & 0xFF000000) >> 24;
+            rm->sys_data.type[1] = (type & 0x00FF0000) >> 16;
+            rm->sys_data.type[2] = (type & 0x0000FF00) >> 8;
+            rm->sys_data.type[3] = (type & 0x000000FF);
+            rm->fork_attr |= 0x20;
+            err = 0;
+        }
+    }
+
+    return err;
+}
+
+int OS_GetMacResourceForkCreatorAndType(int ref, OSType *creator, OSType *type) {
+    MemRsrcMap *rm;
+    UInt32 sz;
+    UInt32 buf[2];
+    int err;
+
+    if (!OS_GetMacResourceForkFromRef(ref)) {
+        sz = 8;
+        err = OS_Seek(ref, OSSeekAbs, 0x52);
+        if (!err) {
+            err = OS_Read(ref, buf, &sz);
+            if (!err && sz == 8) {
+                err = 0;
+                *type = buf[0];
+                *creator = buf[1];
+            }
+        }
+    } else {
+        rm = FindResourceMap(OS_RefToMac(ref));
+        if (!rm) {
+            err = 2;
+        } else {
+            *creator = (rm->sys_data.creator[0] << 24) | (rm->sys_data.creator[1] << 16) | (rm->sys_data.creator[2] << 8) | rm->sys_data.creator[3];
+            *type = (rm->sys_data.type[0] << 24) | (rm->sys_data.type[1] << 16) | (rm->sys_data.type[2] << 8) | rm->sys_data.type[3];
+            err = 0;
+        }
+    }
+
+    return err;
+}
+
+void OS_CleanupMacResourceForkDir(const OSPathSpec *dir) {
+    OS_Rmdir(dir);
+}
+
+OSErr OS_MacDumpResourceFork(SInt16 ref, Boolean dumpContents) {
+    int spaces;
+    char safe[16];
+    SInt32 size;
+    SInt32 idx;
+    StringPtr ptr;
+    char name[256];
+    MemRefList *rl;
+    MemRsrcTypeList *tl;
+    MemRsrcMap *rm;
+
+    // Debug shit
+}
+
+OSErr FSpOpenRF(const FSSpec *fss, SInt8 permission, SInt16 *refNum) {
+    Boolean create;
+    OSSpec rspec;
+    OSSpec spec;
+    FSSpec rfss;
+    int oserr;
+    OSErr err;
+
+    create = (permission == 1) | (permission > 1);
+    oserr = OS_FSSpec_To_OSSpec(fss, &spec);
+    if (oserr)
+        return OS_MacError(oserr);
+
+    oserr = OS_GetRsrcOSSpec(&spec, &rspec, create);
+    if (oserr)
+        return OS_MacError(oserr);
+
+    oserr = OS_OSSpec_To_FSSpec(&rspec, &rfss);
+    if (oserr)
+        return OS_MacError(oserr);
+
+    if (OS_Status(&rspec) && create)
+        HCreate(rfss.vRefNum, rfss.parID, rfss.name, 'CWIE', 'rsrc');
+
+    err = HOpen(rfss.vRefNum, rfss.parID, rfss.name, permission, refNum);
+    if (!err)
+        OS_AddMacResourceForkRef(OS_MacToRef(*refNum), &rspec);
+
+    return err;
+}
+
+OSErr HOpenRF(SInt16 vRefNum, SInt32 dirID, ConstStringPtr fileName, SInt8 permission, SInt16 *refNum) {
+    OSErr __err;
+    FSSpec fss;
+
+    __err = FSMakeFSSpec(vRefNum, dirID, fileName, &fss);
+    if (__err != noErr && __err != fnfErr) {
+        return __err;
+    } else {
+        return FSpOpenRF(&fss, permission, refNum);
+    }
+}
+
+OSErr InitResources() {
+    MemRsrcMap *map;
+
+    map = maplist;
+    cur_res_file = 0;
+    while (map) {
+        cur_res_file = map->refnum;
+        map = map->prev;
+    }
+
+    ResLoad = 1;
+    resError = noErr;
+    return 0;
+}
+
+OSErr ResError() {
+    return resError;
+}
+
+void FSpCreateResFile(const FSSpec *fss, OSType creator, OSType fileType, ScriptCode scriptTag) {
+    SInt16 ref;
+    OSSpec spec, rspec;
+    int oserr;
+
+    FSpCreate(fss, creator, fileType, scriptTag);
+    oserr = OS_FSSpec_To_OSSpec(fss, &spec);
+    if (oserr) {
+        resError = OS_MacError(oserr);
+        return;
+    }
+
+    oserr = OS_GetRsrcOSSpec(&spec, &rspec, 1);
+    if (oserr) {
+        resError = OS_MacError(oserr);
+        return;
+    }
+
+    if (OS_Status(&rspec)) {
+        oserr = OS_Create(&rspec, &OS_TEXTTYPE);
+        if (oserr) {
+            resError = OS_MacError(oserr);
+            return;
+        }
+
+        resError = FSpOpenRF(fss, 3, &ref);
+        if (!resError) {
+            WriteEmptyResourceFork(ref);
+            FSClose(ref);
+        }
+    } else {
+        resError = dupFNErr;
+    }
+
+}
+
+void HCreateResFile(SInt16 vRefNum, SInt32 dirID, ConstStringPtr fileName) {
+    OSErr __err;
+    FSSpec fss;
+
+    __err = FSMakeFSSpec(vRefNum, dirID, fileName, &fss);
+    if (__err != noErr && __err != fnfErr) {
+        resError = __err;
+    } else {
+        FSpCreateResFile(&fss, 'CWIE', kUnknownType, -1);
+    }
+}
+
+OSErr FSpOpenResFile(const FSSpec *fss, SInt8 permission) {
+    SInt32 size;
+    SInt16 ref;
+
+    if (permission != 1)
+        FSpCreate(fss, 'CWIE', 'TEXT', -1);
+
+    resError = FSpOpenRF(fss, (permission != 2) ? permission : 3, &ref);
+    if (!resError) {
+        GetEOF(ref, &size);
+        if (size == 0 && permission != 1)
+            WriteEmptyResourceFork(ref);
+        ReadResourceFork(ref, permission, 0, 0);
+        if (resError) {
+            FSClose(ref);
+            CloseResFile(ref);
+            ref = -1;
+        }
+        cur_res_file = ref;
+    } else {
+        ref = -1;
+    }
+
+    return ref;
+}
+
+OSErr HOpenResFile(SInt16 vRefNum, SInt32 dirID, ConstStringPtr fileName, SInt8 permission) {
+    OSErr __err;
+    FSSpec fss;
+
+    __err = FSMakeFSSpec(vRefNum, dirID, fileName, &fss);
+    if (__err != noErr && __err != fnfErr)
+        return __err;
+    return FSpOpenResFile(&fss, permission);
+}
+
+SInt16 CurResFile() {
+    return cur_res_file;
+}
+
+void UseResFile(SInt16 refNum) {
+    MemRsrcMap *map;
+
+    for (map = maplist; map; map = map->prev) {
+        if (map->refnum == refNum) {
+            cur_res_file = refNum;
+            resError = noErr;
+            return;
+        }
+    }
+
+    resError = resFNotFound;
+}
+
+SInt16 HomeResFile(Handle theResource) {
+    SInt16 refnum = FindResourceHandleFile(theResource);
+    resError = (refnum == -1) ? resNotFound : 0;
+    return refnum;
+}
+
+Handle GetResource(OSType theType, SInt16 theID) {
+    MemRefList *mref;
+
+    mref = FindResourceTypeAndID(theType, theID);
+    if (mref) {
+        resError = noErr;
+        return mref->hand;
+    } else {
+        resError = ResLoad ? resNotFound : noErr;
+        return 0;
+    }
+}
+
+Handle Get1Resource(OSType theType, SInt16 theID) {
+    MemRefList *mref;
+    MemRsrcMap *rm;
+
+    rm = FindResourceMap(cur_res_file);
+    if (!rm) {
+        resError = resFNotFound;
+        return 0;
+    }
+
+    mref = FindResourceTypeAndID1(rm, theType, theID);
+    if (mref) {
+        resError = noErr;
+        return mref->hand;
+    } else {
+        resError = ResLoad ? resNotFound : noErr;
+        return 0;
+    }
+}
+
+Handle GetNamedResource(OSType theType, ConstStringPtr theName) {
+    MemRefList *mref;
+
+    mref = FindResourceTypeAndName(theType, theName);
+    if (mref) {
+        resError = noErr;
+        return mref->hand;
+    } else {
+        resError = ResLoad ? resNotFound : noErr;
+        return 0;
+    }
+}
+
+Handle Get1NamedResource(OSType theType, ConstStringPtr theName) {
+    MemRefList *mref;
+    MemRsrcMap *rm;
+
+    rm = FindResourceMap(cur_res_file);
+    if (!rm) {
+        resError = resFNotFound;
+        return 0;
+    }
+
+    mref = FindResourceTypeAndName1(rm, theType, theName);
+    if (mref) {
+        resError = noErr;
+        return mref->hand;
+    } else {
+        resError = (ResLoad != 0) ? resNotFound : noErr;
+        return 0;
+    }
+}
+
+void SetResLoad(Boolean load) {
+    ResLoad = load;
+}
+
+void MacEmul_LoadResource(Handle theResource) {
+    resError = (theResource == 0) ? nilHandleErr : 0;
+}
+
+void GetResInfo(Handle theResource, SInt16 *theID, OSType *theType, StringPtr name) {
+    MemRefList *mrle;
+
+    mrle = FindResourceHandle(theResource);
+    if (mrle) {
+        resError = noErr;
+        *theID = mrle->id;
+        *theType = mrle->type;
+        if (mrle->name)
+            _pstrcpy(name, mrle->name);
+        else
+            name[0] = 0;
+    } else {
+        resError = resNotFound;
+    }
+}
+
+void SetResInfo(Handle theResource, SInt16 theID, ConstStringPtr name) {
+    MemRefList *mrle;
+
+    mrle = FindResourceHandle(theResource);
+    if (mrle) {
+        resError = noErr;
+        if (mrle->name)
+            free(mrle->name);
+        mrle->name = malloc(name[0] + 1);
+        mrle->attr |= 2;
+        if (mrle->name)
+            _pstrcpy(mrle->name, name);
+        else
+            resError = memFullErr;
+    } else {
+        resError = resNotFound;
+    }
+}
+
+SInt16 GetResAttrs(Handle theResource) {
+    MemRefList *mrle;
+
+    mrle = FindResourceHandle(theResource);
+    if (mrle) {
+        resError = noErr;
+        return mrle->attr;
+    } else {
+        resError = resNotFound;
+        return 0;
+    }
+}
+
+void SetResAttrs(Handle theResource, SInt16 attrs) {
+    MemRefList *mrle;
+
+    mrle = FindResourceHandle(theResource);
+    if (mrle) {
+        resError = noErr;
+        mrle->attr = attrs;
+    } else {
+        resError = resNotFound;
+    }
+}
+
+void ChangedResource(Handle theResource) {
+    MemRefList *mrle;
+    MemRsrcMap *rm;
+
+    rm = FindResourceMap(cur_res_file);
+    mrle = FindResourceHandle(theResource);
+    if (mrle) {
+        if (rm && (rm->fork_attr & 0x80)) {
+            resError = resAttrErr;
+        } else {
+            resError = noErr;
+            mrle->attr |= 2;
+            rm->fork_attr |= 0x20;
+        }
+    } else {
+        resError = resNotFound;
+    }
+}
+
+void AddResource(Handle theData, OSType theType, SInt16 theID, ConstStringPtr name) {
+    MemRsrcMap *rm;
+    MemRsrcTypeList *mtyp;
+    MemRefList *mrle;
+    StringPtr namecpy;
+
+    rm = FindResourceMap(cur_res_file);
+    if (rm) {
+        if (rm->fork_attr & 0x80) {
+            resError = resAttrErr;
+            return;
+        }
+
+        resError = noErr;
+        mtyp = FindResourceType1(rm, theType);
+        if (!mtyp) {
+            mtyp = NewTypeListEntry(&rm->type_list, theType, 0, 0);
+            if (!mtyp) {
+                resError = memFullErr;
+                return;
+            }
+            rm->fork_attr |= 0x20;
+        }
+        if (!theData || FindResourceHandle(theData)) {
+            resError = addResFailed;
+            return;
+        }
+
+        if (name && name[0]) {
+            namecpy = malloc(name[0] + 1);
+            _pstrcpy(namecpy, name);
+        } else {
+            namecpy = 0;
+        }
+
+        mrle = NewRefListEntry(&mtyp->ref_list, theID, theType, namecpy, 2, theData);
+        if (!mrle) {
+            resError = memFullErr;
+            return;
+        }
+
+        rm->fork_attr |= 0x20;
+    } else {
+        resError = resFNotFound;
+    }
+}
+
+void UpdateResFile(SInt16 refnum) {
+    WriteResourceFork(refnum);
+}
+
+void WriteResource(Handle theResource) {
+    resError = noErr;
+}
+
+void SetResPurge(Boolean install) {
+}
+
+SInt16 CountResources(OSType theType) {
+    return CountResourceType(theType);
+}
+
+SInt16 Count1Resources(OSType theType) {
+    MemRsrcMap *rm;
+
+    rm = FindResourceMap(cur_res_file);
+    if (rm) {
+        resError = noErr;
+        return CountResourceType1(rm, theType);
+    } else {
+        resError = resFNotFound;
+        return 0;
+    }
+}
+
+Handle GetIndResource(OSType theType, SInt16 index) {
+    MemRefList *mrle;
+
+    mrle = FindIndResource(theType, index);
+    resError = mrle ? 0 : resNotFound;
+    return mrle->hand;
+}
+
+Handle Get1IndResource(OSType theType, SInt16 index) {
+    MemRefList *mrle;
+    MemRsrcMap *rm;
+
+    rm = FindResourceMap(cur_res_file);
+    if (rm) {
+        mrle = FindIndResource1(rm, theType, index);
+        if (mrle) {
+            resError = noErr;
+            return mrle->hand;
+        } else {
+            resError = resNotFound;
+            return 0;
+        }
+    } else {
+        resError = resFNotFound;
+        return 0;
+    }
+}
+
+SInt16 Count1Types() {
+    SInt16 count;
+    MemRsrcTypeList *rtl;
+    MemRsrcMap *rm;
+
+    count = 0;
+    rm = FindResourceMap(cur_res_file);
+    if (rm) {
+        rtl = rm->type_list;
+        while (rtl) {
+            rtl = rtl->next;
+            ++count;
+        }
+    } else {
+        resError = resFNotFound;
+    }
+
+    return count;
+}
+
+void Get1IndType(OSType *theType, SInt16 index) {
+    SInt16 count;
+    MemRsrcTypeList *rtl;
+    MemRsrcMap *rm;
+
+    count = 1;
+    rm = FindResourceMap(cur_res_file);
+    if (rm) {
+        rtl = rm->type_list;
+        while (rtl && count < index) {
+            rtl = rtl->next;
+            ++count;
+        }
+        if (rtl)
+            *theType = rtl->type;
+        else
+            resError = inputOutOfBounds;
+    } else {
+        resError = resFNotFound;
+    }
+}
+
+void ReleaseResource(Handle theResource) {
+    resError = noErr;
+}
+
+void DetachResource(Handle theResource) {
+    SInt32 ns;
+    MemRefList *mrle;
+
+    mrle = FindResourceHandle(theResource);
+    if (mrle) {
+        ns = GetHandleSize(theResource);
+        mrle->hand = NewHandle(ns);
+        if (!mrle->hand) {
+            resError = memFullErr;
+        } else {
+            HLock(mrle->hand);
+            HLock(theResource);
+            memcpy(*mrle->hand, *theResource, ns);
+            HUnlock(theResource);
+            HUnlock(mrle->hand);
+            resError = noErr;
+        }
+    } else {
+        resError = resNotFound;
+    }
+}
+
+void RemoveResource(Handle theResource) {
+    resError = RemoveResourceHandle(theResource) ? 0 : rmvResFailed;
+}
+
+void CloseResFile(SInt16 refNum) {
+    MemRsrcMap *rm = FindResourceMap(refNum);
+
+    if (rm && refNum != -1) {
+        WriteResourceFork(refNum);
+        DeleteResources(refNum);
+        FSClose(refNum);
+    }
+
+    cur_res_file = maplist ? maplist->refnum : 0;
+}
+
+SInt16 GetResFileAttrs(SInt16) {
+    MemRsrcMap *rm = FindResourceMap(cur_res_file);
+
+    if (rm) {
+        resError = 0;
+        return rm->fork_attr;
+    } else {
+        resError = resFNotFound;
+        return 0;
+    }
+}
+
+Boolean LMGetResLoad() {
+    return 1;
+}