mirror of
https://github.com/elliotnunn/supermario.git
synced 2024-11-26 16:49:18 +00:00
47 lines
848 B
OpenEdge ABL
47 lines
848 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}
|
||
|
|