sys7.1-doc-wip/Internal/Pascal/FileTransfersPriv.p
2019-07-27 22:37:48 +08:00

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}