MWCC/command_line/CmdLine/Src/CLLoadAndCache.c

#include "cmdline.h"

short FixTextHandle(Handle txt) {
    char *tptr;
    UInt32 tlen;
    char *scan;

    HLock(txt);
    tptr = *txt;
    tlen = GetHandleSize(txt);

    scan = tptr;
    while (scan < (tptr + tlen)) {
        if (scan[0] == '\r') {
            if (scan[1] == '\n')
                scan += 2;
            else
                scan += 1;
        } else if (scan[0] == '\n') {
            scan[0] = '\r';
            scan++;
        } else {
            scan++;
        }
    }

    HUnlock(txt);
    return 0;
}

int LoadAndCacheFile(OSSpec *spec, Handle *texthandle, Boolean *precomp) {
    Handle h;
    int err;
    OSType mactype;
    int refnum;
    UInt32 ltxtlen;

    if ((*texthandle = CachedIncludeFile(spec, precomp)))
        return 0;

    *precomp = !OS_GetMacFileType(spec, &mactype) && mactype != CWFOURCHAR('T','E','X','T');
    *texthandle = NULL;

    err = OS_Open(spec, OSReadOnly, &refnum);
    if (err)
        return err;
    err = OS_GetSize(refnum, &ltxtlen);
    if (err)
        return err;

    h = NewHandle(ltxtlen + 1);
    if (!h) {
        fprintf(stderr, "\n*** Out of memory\n");
        exit(-23);
    }

    HLock(h);
    err = OS_Read(refnum, *h, &ltxtlen);
    if (err) {
        DisposeHandle(h);
        OS_Close(refnum);
        return err;
    }

    OS_Close(refnum);
    (*h)[ltxtlen] = 0;
    HUnlock(h);

    if (!*precomp)
        FixTextHandle(h);

    CacheIncludeFile(spec, h, *precomp);
    *texthandle = h;
    return 0;
}

void CopyFileText(Handle src, char **text, SInt32 *textsize) {
    *textsize = GetHandleSize(src);
    *text = xmalloc(NULL, *textsize);

    HLock(src);
    memcpy(*text, *src, *textsize);
    *textsize -= 1;
    HUnlock(src);
}