Path: utzoo!utgpu!jarvis.csri.toronto.edu!rutgers!apple!usc!hacgate!luna.dpl.scg.hac.com!djnowak
From: djnowak@luna.dpl.scg.hac.com (David Nowak)
Newsgroups: comp.sys.mac.programmer
Subject: MPW 3.0 Pascal Unit Header Format
Keywords: MPW 3.0,Pascal,PIncludes,Header
Message-ID: <4017@hacgate.scg.hac.com>
Date: 16 Jun 89 14:51:21 GMT
Sender: news@hacgate.scg.hac.com
Reply-To: djnowak@luna.dpl.scg.hac.com (David Nowak)
Organization: Hughes Aircraft Co., El Segundo, CA
Lines: 41


    Every Unit definition in the PIncludes folder of MPW 3.0 has a header
format of the following type:

{
Created: some time
    XXXXXX.p
    Pascal Interface to the Macintosh Libraries

    Copyright Apple Computer, Inc.  1985-1988
    All rights reserved
}


{$IFC UNDEFINED UsingIncludes}
{$SETC UsingIncludes := 0}
{$ENDC}

{$IFC NOT UsingIncludes}
    UNIT XXXXXX;
    INTERFACE
{$ENDC}

{$IFC UNDEFINED UsingXXXXXX}
{$SETC UsingXXXXXX := 1}

{$I+}
{$SETC XXXXXXIncludes := UsingIncludes}
{$SETC UsingIncludes := 1}
{$IFC UNDEFINED UsingTypes}
{$I $$Shell(PInterfaces)Types.p}
{$ENDC}
{$SETC UsingIncludes := XXXXXXIncludes}

where XXXXXX corresponds to the name of the unit file.  I am curious to know
what do these compiler directives do?

    Thanks in advance for the help.

Dave Nowak
djnowak@luna.dpl.scg.hac.com