Celestin Apprentice 4/Apprentice-Release4.iso/Source Code/C/Applications/MacPerl 5.0.3/MacPerl Source ƒ/Perl5/UnPreload.c

C/C++ Source or Header | 1995-08-24 | 358 b | 24 lines | [TEXT/MPS ]

#include <stdlib.h>

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

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

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

    SetResLoad(false);

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

    SetResLoad(true);

    UpdateResFile(res);
    CloseResFile(res);
}