mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-12-29 07:29:15 +00:00
5b0f0cc134
Resource forks are included only for .rsrc files. These are DeRezzed into their data fork. 'ckid' resources, from the Projector VCS, are not included. The Tools directory, containing mostly junk, is also excluded.
47 lines
847 B
OpenEdge ABL
47 lines
847 B
OpenEdge ABL
{
|
|
File: FileTransfersPriv.p
|
|
|
|
Contains: xxx put contents here xxx
|
|
|
|
Written by: xxx put writers here xxx
|
|
|
|
Copyright: © 1990 by Apple Computer, Inc., all rights reserved.
|
|
|
|
Change History (most recent first):
|
|
|
|
<1> 3/14/90 BBH first checked in
|
|
<1> 3/14/90 BBH first checked in
|
|
|
|
To Do:
|
|
}
|
|
|
|
{$IFC UNDEFINED UsingIncludes}
|
|
{$SETC UsingIncludes := 0}
|
|
{$ENDC}
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
UNIT FileTransfersPriv;
|
|
INTERFACE
|
|
{$ENDC}
|
|
|
|
{$IFC UNDEFINED FileTransfersPriv}
|
|
{$SETC FileTransfersPriv := 1}
|
|
|
|
{$I+}
|
|
{$SETC FileTransfersPrivIncludes := UsingIncludes}
|
|
{$SETC UsingIncludes := 1}
|
|
{$IFC UNDEFINED FileTransfers}
|
|
{$I FileTransfers.p}
|
|
{$ENDC}
|
|
{$SETC UsingIncludes := FileTransfersPrivIncludes}
|
|
|
|
|
|
FUNCTION FTCleanup(hFT : FTHandle; now : BOOLEAN) : FTErr;
|
|
|
|
{$ENDC} { FileTransfersPriv }
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
END.
|
|
{$ENDC}
|
|
|