MWCC/command_line/CmdLine/Src/MacEmul/Files.c

#include "mwcc_decomp.h"

typedef struct MacFileInfo {
    UInt32 ioFlCrDat;
    UInt32 ioFlMdDat;
    SInt32 ioFlLgLen;
    SInt32 ioFlPyLen;
    SInt32 ioFlRLgLen;
    SInt32 ioFlRPyLen;
    SInt32 ioFlStBlk;
    SInt32 ioFlRStBlk;
    SInt8 ioFlAttrib;
} MacFileInfo;

static int OS_GetFileParamInfo(const OSSpec *spec, MacFileInfo *mfi, FInfo *fi) {
    time_t crtm;
    time_t chtm;
    OSType ft;
    OSType fc;
    UInt32 ttime;
    UInt32 dsize;
    UInt32 rsize;
    OSSpec rsrc;
    int ref;
    int err;
    char buffer[32];
    UInt32 count;
    Boolean isopen;

    if (mfi) {
        OS_GetFileTime(spec, &crtm, &chtm);
        OS_TimeToMac(crtm, &ttime);
        mfi->ioFlCrDat = ttime;
        OS_TimeToMac(chtm, &ttime);
        mfi->ioFlMdDat = ttime;
    }

    err = OS_Open(spec, OSReadOnly, &ref);
    if (err < 0)
        return err;

    count = sizeof(buffer);
    if (OS_Read(ref, buffer, &count))
        count = 0;

    if (mfi) {
        mfi->ioFlAttrib = OS_IsDir(spec) ? ioDirMask : 0;
        OS_GetSize(ref, &dsize);
        mfi->ioFlLgLen = mfi->ioFlPyLen = dsize;
        mfi->ioFlStBlk = 0;
    }

    OS_Close(ref);

    OS_GetMacFileTypeMagic(buffer, count, &ft);
    fc = 'CWIE';
    if (OS_UsingMacResourceForkInfo() && !OS_GetRsrcOSSpec(spec, &rsrc, 0) && !OS_Status(&rsrc)) {
        isopen = OS_SearchMacResourceForkList(&rsrc, &ref);
        if (isopen || !OS_Open(&rsrc, 0, &ref)) {
            if (mfi) {
                OS_GetSize(ref, &rsize);
                mfi->ioFlRLgLen = mfi->ioFlRPyLen = rsize;
                mfi->ioFlRStBlk = 0;
            }
            OS_GetMacResourceForkCreatorAndType(ref, &fc, &ft);
            if (!isopen)
                OS_Close(ref);
        }
    } else {
        if (mfi) {
            mfi->ioFlRPyLen = 0;
            mfi->ioFlRLgLen = 0;
            mfi->ioFlRStBlk = 0;
        }
    }

    fi->fdType = ft;
    fi->fdCreator = fc;
    fi->fdFlags = OS_IsLink(spec) ? kIsAlias : 0;
    fi->fdLocation.v = 0;
    fi->fdLocation.h = 0;
    fi->fdFldr = 0;
    return 0;
}

static int OS_SetFileParamInfo(const OSSpec *spec, MacFileInfo *mfi, FInfo *fi) {
    time_t crtm;
    time_t chtm;
    OSSpec rspec;
    int ref;
    Boolean isopen;

    OS_MacToTime(mfi->ioFlCrDat, &crtm);
    OS_MacToTime(mfi->ioFlMdDat, &chtm);
    OS_SetFileTime(spec, &crtm, &chtm);

    OS_SetMacFileType(spec, fi->fdType);

    if (OS_UsingMacResourceForkInfo() && !OS_GetRsrcOSSpec(spec, &rspec, 0) && !OS_Status(&rspec)) {
        isopen = OS_SearchMacResourceForkList(&rspec, &ref);
        if (!isopen && OS_Open(&rspec, OSReadWrite, &ref))
            return 0;
        OS_SetMacResourceForkCreatorAndType(ref, fi->fdCreator, fi->fdType);
        if (!isopen)
            OS_Close(ref);
    }

    return 0;
}

OSErr HCreate(SInt16 volume, SInt32 dirid, ConstStr255Param fileName, OSType creator, OSType type) {
    FSSpec fss;
    OSErr __err;

    __err = FSMakeFSSpec(volume, dirid, fileName, &fss);
    if (__err && __err != fnfErr)
        return __err;
    return FSpCreate(&fss, creator, type, -1);
}

OSErr HOpen(SInt16 vRefNum, SInt32 dirID, ConstStr255Param fileName, SInt8 permission, SInt16 *refNum) {
    FSSpec fss;
    OSErr __err;

    __err = FSMakeFSSpec(vRefNum, dirID, fileName, &fss);
    if (__err && __err != fnfErr)
        return __err;
    return FSpOpenDF(&fss, permission, refNum);
}

OSErr HOpenDF(SInt16 vRefNum, SInt32 dirID, ConstStr255Param fileName, SInt8 permission, SInt16 *refNum) {
    FSSpec fss;
    OSErr __err;

    __err = FSMakeFSSpec(vRefNum, dirID, fileName, &fss);
    if (__err && __err != fnfErr)
        return __err;
    return FSpOpenDF(&fss, permission, refNum);
}

OSErr HDelete(SInt16 vRefNum, SInt32 dirID, ConstStr255Param fileName) {
    FSSpec fss;
    OSErr __err;

    __err = FSMakeFSSpec(vRefNum, dirID, fileName, &fss);
    if (__err && __err != fnfErr)
        return __err;
    return FSpDelete(&fss);
}

OSErr HRename(SInt16 vRefNum, SInt32 dirID, ConstStr255Param oldName, ConstStr255Param newName) {
    FSSpec fss;
    OSErr __err;

    __err = FSMakeFSSpec(vRefNum, dirID, oldName, &fss);
    if (__err && __err != fnfErr)
        return __err;
    return FSpRename(&fss, newName);
}

OSErr HGetFInfo(SInt16 vRefNum, SInt32 dirID, ConstStr255Param fileName, FInfo *fndrInfo) {
    FSSpec fss;
    OSErr __err;

    __err = FSMakeFSSpec(vRefNum, dirID, fileName, &fss);
    if (__err && __err != fnfErr)
        return __err;
    return FSpGetFInfo(&fss, fndrInfo);
}

OSErr HSetFInfo(SInt16 vRefNum, SInt32 dirID, ConstStr255Param fileName, const FInfo *fndrInfo) {
    FSSpec fss;
    OSErr __err;

    __err = FSMakeFSSpec(vRefNum, dirID, fileName, &fss);
    if (__err && __err != fnfErr)
        return __err;
    return FSpSetFInfo(&fss, fndrInfo);
}

OSErr FSpCreate(const FSSpec *fss, OSType creator, OSType fileType, ScriptCode scriptTag) {
    int err;
    OSSpec spec;
    FInfo finfo;

    err = OS_FSSpec_To_OSSpec(fss, &spec);
    if (err)
        return OS_MacError(err);

    if (!OS_Status(&spec))
        return dupFNErr;

    err = OS_Create(&spec, &OS_TEXTTYPE);
    if (err)
        return OS_MacError(err);

    memset(&finfo, 0, sizeof(FInfo));
    finfo.fdType = fileType;
    finfo.fdCreator = creator;
    FSpSetFInfo(fss, &finfo);
    return 0;
}

OSErr FSpDirCreate(const FSSpec *fss, ScriptCode scriptTag, SInt32 *createdDirID) {
    int err;
    OSSpec spec;

    err = OS_FSSpec_To_OSSpec(fss, &spec);
    if (err)
        return OS_MacError(err);

    err = OS_Mkdir(&spec);
    if (err)
        return OS_MacError(err);

    return 0;
}

OSErr FSpOpenDF(const FSSpec *fss, SInt8 permission, SInt16 *refNum) {
    static OSOpenMode MacOpens[5] = {
            OSReadWrite, OSReadOnly, OSWrite, OSReadWrite, OSReadWrite
    };

    OSSpec spec;
    int err;
    int ref;

    *refNum = 0;

    err = OS_FSSpec_To_OSSpec(fss, &spec);
    if (err)
        return OS_MacError(err);

    if (OS_IsDir(&spec))
        return dirNFErr;

    err = OS_Open(&spec, MacOpens[permission], &ref);
    if (err)
        return OS_MacError(err);

    *refNum = OS_RefToMac(ref);
    return 0;
}

OSErr FSpDelete(const FSSpec *fss) {
    OSSpec spec;
    OSSpec rspec;
    int err;

    err = OS_FSSpec_To_OSSpec(fss, &spec);
    if (err)
        return OS_MacError(err);

    err = OS_Delete(&spec);
    if (!OS_GetRsrcOSSpec(&spec, &rspec, 0)) {
        err = OS_Delete(&rspec);
        OS_CleanupMacResourceForkDir(&rspec.path);
    }
    return OS_MacError(err);
}

OSErr FSpRename(const FSSpec *oldfss, ConstStr255Param newName) {
    FSSpec newfss;
    OSSpec oldspec;
    OSSpec newspec;
    OSSpec oldrspec;
    OSSpec newrspec;
    int err;

    err = OS_FSSpec_To_OSSpec(oldfss, &oldspec);
    if (err)
        return OS_MacError(err);

    newfss.vRefNum = oldfss->vRefNum;
    newfss.parID = oldfss->parID;
    _pstrcpy(newfss.name, newName);

    err = OS_FSSpec_To_OSSpec(&newfss, &newspec);
    if (err)
        return OS_MacError(err);

    err = OS_Rename(&oldspec, &newspec);
    if (!OS_GetRsrcOSSpec(&oldspec, &oldrspec, 0)) {
        OS_GetRsrcOSSpec(&newspec, &newrspec, 0);
        err = OS_Rename(&oldrspec, &newrspec);
    }
    return OS_MacError(err);
}

OSErr FSpGetFInfo(const FSSpec *fss, FInfo *fndrInfo) {
    int err;
    OSSpec spec;
    FInfo fi;

    err = OS_FSSpec_To_OSSpec(fss, &spec);
    if (err)
        return OS_MacError(err);

    err = OS_GetFileParamInfo(&spec, 0, &fi);
    if (err)
        return OS_MacError(err);

    memcpy(fndrInfo, &fi, sizeof(FInfo));
    return 0;
}

OSErr FSpSetFInfo(const FSSpec *fss, const FInfo *fndrInfo) {
    HParamBlockRec hpb;
    OSErr err;
    Str255 fname;

    _pstrcpy(fname, fss->name);
    hpb.fileParam.ioVRefNum = fss->vRefNum;
    hpb.fileParam.ioDirID = fss->parID;
    hpb.fileParam.ioNamePtr = fname;
    hpb.fileParam.ioFDirIndex = 0;

    err = PBHGetFInfoSync(&hpb);
    if (!err) {
        hpb.fileParam.ioFlFndrInfo = *fndrInfo;
        err = PBHSetFInfoSync(&hpb);
    }
    return err;
}

OSErr HGetVol(StringPtr volName, SInt16 *vRefNum, SInt32 *dirID) {
    OSSpec spec;
    int err;
    FSSpec fss;
    char vn[256];

    if (volName && volName[0]) {
        p2cstrcpy(vn, volName);
        err = OS_MakePathSpec(vn, 0, &spec.path);
        if (err)
            return OS_MacError(err);
    } else {
        err = OS_MakePathSpec(0, 0, &spec.path);
        if (err)
            return OS_MacError(err);
    }

    OS_MakeNameSpec("", &spec.name);
    err = OS_OSSpec_To_FSSpec(&spec, &fss);
    if (err)
        return OS_MacError(err);

    *vRefNum = fss.vRefNum;
    *dirID = fss.parID;
    return 0;
}

OSErr HSetVol(ConstStr63Param volName, SInt16 vRefNum, SInt32 dirID) {
    FSSpec fss;
    int err;
    OSSpec spec;
    OSErr __err;

    __err = FSMakeFSSpec(vRefNum, dirID, volName ? volName : "\p", &fss);
    if (__err && __err != fnfErr)
        return __err;

    err = OS_FSSpec_To_OSSpec(&fss, &spec);
    if (err)
        return OS_MacError(err);

    return OS_MacError(OS_Chdir(&spec.path));
}

OSErr FlushVol(ConstStr63Param volName, SInt16 vRefNum) {
    return 0;
}

OSErr FSRead(SInt16 fRefNum, SInt32 *Size, void *Buffer) {
    if (fRefNum == 0)
        return rfNumErr;

    return OS_MacError(OS_Read(OS_MacToRef(fRefNum), Buffer, (UInt32 *) Size));
}

OSErr FSWrite(SInt16 fRefNum, SInt32 *Size, const void *Buffer) {
    if (fRefNum == 0)
        return rfNumErr;

    return OS_MacError(OS_Write(OS_MacToRef(fRefNum), Buffer, (UInt32 *) Size));
}

OSErr FSClose(SInt16 fRefNum) {
    OSErr err;
    OSSpec *rspec;
    int ref;
    UInt32 size;
    int oerr;

    if (fRefNum == 0)
        return rfNumErr;

    ref = OS_MacToRef(fRefNum);
    rspec = OS_GetMacResourceForkFromRef(ref);
    if (rspec) {
        oerr = OS_GetSize(ref, &size);
        err = OS_MacError(OS_Close(ref));
        if (!oerr && !size) {
            OS_Delete(rspec);
            OS_CleanupMacResourceForkDir(&rspec->path);
        }
        OS_RemoveMacResourceForkRef(ref);
    } else {
        err = OS_MacError(OS_Close(ref));
    }

    return err;
}

OSErr GetEOF(SInt16 fRefNum, SInt32 *curEOF) {
    if (fRefNum == 0)
        return rfNumErr;

    return OS_MacError(OS_GetSize(OS_MacToRef(fRefNum), (UInt32 *) curEOF));
}

OSErr SetEOF(SInt16 fRefNum, SInt32 newEOF) {
    if (fRefNum == 0)
        return rfNumErr;

    return OS_MacError(OS_SetSize(OS_MacToRef(fRefNum), newEOF));
}

OSErr GetFPos(SInt16 fRefNum, SInt32 *pos) {
    if (fRefNum == 0)
        return rfNumErr;

    return OS_MacError(OS_Tell(OS_MacToRef(fRefNum), pos));
}

static OSSeekMode MacSeek[4] = {
        OSSeekAbs, OSSeekAbs, OSSeekEnd, OSSeekRel
};

OSErr SetFPos(SInt16 fRefNum, SInt16 posMode, SInt32 posOffset) {
    SInt32 pos;
    SInt32 npos;
    UInt32 size;
    int err;
    int ref;

    ref = OS_MacToRef(fRefNum);
    if (fRefNum == 0)
        return rfNumErr;

    if (posMode & 3) {
        err = OS_Tell(ref, &pos);
        if (err)
            return OS_MacError(err);

        err = OS_GetSize(ref, &size);
        if (err)
            return OS_MacError(err);

        if ((posMode & 3) == fsFromStart) {
            npos = posOffset;
        } else if ((posMode & 3) == fsFromLEOF) {
            npos = size + posOffset;
        } else if ((posMode & 3) == fsFromMark) {
            npos = pos + posOffset;
        } else {
            return paramErr;
        }

        err = OS_Seek(ref, OSSeekAbs, npos);
        if (err)
            return OS_MacError(err);

        if (npos > size) {
            OS_Seek(ref, OSSeekAbs, pos);
            return eofErr;
        }
    }

    return 0;
}

OSErr GetVInfo(SInt16 vRefNum, StringPtr name, SInt16 *vRef, SInt32 *hDir) {
    int err;
    OSNameSpec spec;
    SInt32 parID;

    *vRef = 0;
    *hDir = 0;

    err = OS_VolDir_To_OSNameSpec(vRefNum, 2, &spec, &parID);
    if (!err) {
        OS_NameSpecToString(&spec, (char *) name, 256);
        c2pstr((char *) name);
        _pstrcharcat(name, OS_PATHSEP);
        return 0;
    } else {
        return OS_MacError(err);
    }
}

OSErr PBWriteSync(ParmBlkPtr paramBlock) {
    int err;
    int ref;

    ref = OS_MacToRef(paramBlock->ioParam.ioRefNum);
    if (!paramBlock->ioParam.ioRefNum) {
        return (paramBlock->ioParam.ioResult = rfNumErr);
    } else {
        if (paramBlock->ioParam.ioPosMode & 3) {
            err = OS_Seek(ref, MacSeek[paramBlock->ioParam.ioPosMode & 3], paramBlock->ioParam.ioPosOffset);
            if (err)
                return (paramBlock->ioParam.ioResult = OS_MacError(err));
        }
        paramBlock->ioParam.ioActCount = paramBlock->ioParam.ioReqCount;
        err = OS_Write(ref, paramBlock->ioParam.ioBuffer, (UInt32 *) &paramBlock->ioParam.ioActCount);
        return (paramBlock->ioParam.ioResult = OS_MacError(err));
    }
}

OSErr PBHGetFInfoSync(HParmBlkPtr paramBlock) {
    HFileParam fp;
    FSSpec fss;
    OSErr err;
    int oserr;
    OSSpec spec;
    MacFileInfo mfi;
    FInfo fi;

    memcpy(&fp, &paramBlock->fileParam, sizeof(HFileParam));
    err = FSMakeFSSpec(fp.ioVRefNum, fp.ioDirID, (fp.ioFDirIndex != -1) ? fp.ioNamePtr : "\p", &fss);
    if (!err) {
        oserr = OS_FSSpec_To_OSSpec(&fss, &spec);
        if (!oserr) {
            OS_GetFileParamInfo(&spec, &mfi, &fi);
            fp.ioFlCrDat = mfi.ioFlCrDat;
            fp.ioFlMdDat = mfi.ioFlMdDat;
            fp.ioFlLgLen = mfi.ioFlLgLen;
            fp.ioFlPyLen = mfi.ioFlPyLen;
            fp.ioFlRLgLen = mfi.ioFlRLgLen;
            fp.ioFlRPyLen = mfi.ioFlRPyLen;
            fp.ioFlAttrib = mfi.ioFlAttrib;
            memcpy(&fp.ioFlFndrInfo, &fi, sizeof(FInfo));
        } else {
            memset(&fp, 0, sizeof(fp));
        }
    }

    fp.ioResult = err;
    memcpy(&paramBlock->fileParam, &fp, sizeof(HFileParam));
    return err;
}

OSErr PBHSetFInfoSync(HParmBlkPtr paramBlock) {
    HFileParam fp;
    FInfo *pfi;
    FSSpec fss;
    OSErr err;
    int oserr;
    OSSpec spec;
    MacFileInfo mfi;
    FInfo fi;

    pfi = &fp.ioFlFndrInfo;
    memcpy(&fp, &paramBlock->fileParam, sizeof(HFileParam));
    err = FSMakeFSSpec(fp.ioVRefNum, fp.ioDirID, fp.ioNamePtr, &fss);
    if (!err) {
        oserr = OS_FSSpec_To_OSSpec(&fss, &spec);
        if (!oserr) {
            memcpy(&fi, pfi, sizeof(FInfo));
            memset(&mfi, 0, sizeof(mfi));
            mfi.ioFlCrDat = fp.ioFlCrDat;
            mfi.ioFlMdDat = fp.ioFlMdDat;
            oserr = OS_SetFileParamInfo(&spec, &mfi, &fi);
        }
        err = OS_MacError(oserr);
    }

    fp.ioResult = err;
    memcpy(&paramBlock->fileParam, &fp, sizeof(HFileParam));
    return err;
}

OSErr PBGetCatInfoSync(CInfoPBPtr paramBlock) {
    OSErr err;
    FSSpec fss;
    OSSpec spec;
    int oserr;
    HFileInfo hfi;
    MacFileInfo mfi;
    FInfo fi;
    char tmp[64];

    memcpy(&hfi, &paramBlock->hFileInfo, sizeof(HFileInfo));
    err = FSMakeFSSpec(hfi.ioVRefNum, hfi.ioDirID, (hfi.ioFDirIndex > 0) ? hfi.ioNamePtr : "\p", &fss);
    if (!err) {
        oserr = OS_FSSpec_To_OSSpec(&fss, &spec);
        if (!oserr) {
            OS_VolDir_To_OSNameSpec(hfi.ioVRefNum, hfi.ioDirID, &spec.name, &hfi.ioFlParID);
            if (hfi.ioNamePtr) {
                OS_NameSpecToString(&spec.name, tmp, 256);
                c2pstrcpy(hfi.ioNamePtr, tmp);
            }
            oserr = OS_GetFileParamInfo(&spec, &mfi, &fi);
            if (!oserr) {
                hfi.ioFlCrDat = mfi.ioFlCrDat;
                hfi.ioFlMdDat = mfi.ioFlMdDat;
                hfi.ioFlLgLen = mfi.ioFlLgLen;
                hfi.ioFlPyLen = mfi.ioFlPyLen;
                hfi.ioFlRLgLen = mfi.ioFlRLgLen;
                hfi.ioFlRPyLen = mfi.ioFlRPyLen;
                hfi.ioFlStBlk = mfi.ioFlRStBlk;
                hfi.ioFlRStBlk = mfi.ioFlRStBlk;
                hfi.ioFlAttrib = mfi.ioFlAttrib;
                memcpy(&hfi.ioFlFndrInfo, &fi, sizeof(FInfo));
            }
        }
        err = OS_MacError(err);
    }

    hfi.ioResult = err;
    memcpy(&paramBlock->hFileInfo, &hfi, sizeof(HFileInfo));
    return hfi.ioResult;
}

OSErr ResolveAliasFile(FSSpec *fss, Boolean resolveChains, Boolean *isFolder, Boolean *wasAliased) {
    OSSpec spec;
    int err;

    *isFolder = 0;
    *wasAliased = 0;

    err = OS_FSSpec_To_OSSpec(fss, &spec);
    if (err)
        return OS_MacError(err);

    *wasAliased = 0;
    while (OS_IsLink(&spec)) {
        *wasAliased = 1;
        OS_ResolveLink(&spec, &spec);
        if (!resolveChains)
            break;
    }

    *isFolder = OS_IsDir(&spec);
    err = OS_OSSpec_To_FSSpec(&spec, fss);
    if (err)
        return OS_MacError(err);

    return 0;
}

OSErr FSMakeFSSpec(SInt16 vRefNum, SInt32 dirID, ConstStr255Param pathName, FSSpec *fss) {
    OSSpec spec;
    int err;
    char path[256];
    FSSpec tmpfss;
    int idx;
    char *pptr;
    char vol[8];
    char *nmptr;
    int len;

    fss->vRefNum = 0;
    fss->parID = 0;

    if (!vRefNum && !dirID) {
        err = OS_GetCWD(&spec.path);
        if (err) {
            fss->name[0] = 0;
            return OS_MacError(err);
        }
        OS_PathSpecToString(&spec.path, path, 256);
    } else {
#line 840
        OPTION_ASSERT(vRefNum!=0);
        tmpfss.vRefNum = vRefNum;
        tmpfss.parID = dirID ? dirID : 2;
        tmpfss.name[0] = 0;
        err = OS_FSSpec_To_OSSpec(&tmpfss, &spec);
        if (err) {
            fss->name[0] = 0;
            return OS_MacError(err);
        }
        OS_PathSpecToString(&spec.path, path, 256);
    }

    if (pstrchr(pathName, ':')) {
        idx = 1;
        if (pathName[1] != ':') {
            while (idx <= pathName[0]) {
                if (pathName[idx] == ':')
                    break;
                vol[idx - 1] = pathName[idx];
                idx++;
                if (idx >= 8) {
                    fss->name[0] = 0;
                    return nsvErr;
                }
            }
            vol[idx - 1] = 0;
            idx++;
            if (!OS_MakePathSpec(vol, 0, &spec.path)) {
                OS_PathSpecToString(&spec.path, path, 256);
            } else {
                c2pstrcpy(fss->name, vol);
                return nsvErr;
            }
        }

        pptr = path + strlen(path);
        while (idx <= pathName[0]) {
            if (pathName[idx] == ':') {
                if (idx < pathName[0] && pathName[idx + 1] == ':') {
                    do {
                        pptr += sprintf(pptr, "../");
                    } while (++idx < pathName[0] && pathName[idx + 1] == ':');
                } else {
                    *(pptr++) = OS_PATHSEP;
                }
            } else {
                *(pptr++) = pathName[idx];
            }
            ++idx;
        }
        *pptr = 0;
    } else {
        p2cstrcpy(path + strlen(path), pathName);
    }

    err = OS_MakeSpec(path, &spec, 0);
    if (!err) {
        OS_OSSpec_To_FSSpec(&spec, fss);
        return OS_MacError(OS_Status(&spec));
    } else {
        nmptr = OS_GetFileNamePtr(path);
        len = strlen(nmptr);
        if (len >= sizeof(fss->name))
            len = 255;
        fss->name[0] = len;
        memcpy(&fss->name[1], nmptr, len);
        return OS_MacError(err);
    }
}

OSErr Allocate(SInt16 refNum, SInt32 *byteCount) {
    return SetEOF(refNum, *byteCount);
}