Celestin Apprentice 7/Apprentice-Release7.iso/Source Code/C/Applications/MacPerl 5.1.3/Mac_Perl_513_src/perl5.002/UnPreload.c

C/C++ Source or Header | 1996-05-11 | 407 b | 27 lines | [TEXT/MPS ]

#include <stdlib.h>

#include <Types.h>
#include <Resources.h>
#include <QuickDraw.h>

void main(int argc, char ** argv)
{
    short    res = openresfile(argv[1]);
    Handle    rsrc;

    InitGraf(&qd.thePort);

    if (res == -1)
        exit(1);

    SetResLoad(false);

    if (rsrc = GetResource('CODE', 1))
        SetResAttrs(rsrc, GetResAttrs(rsrc) & ~resPreload);

    SetResLoad(true);

    UpdateResFile(res);
    CloseResFile(res);
}