mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-06-01 04:41:39 +00:00
97 lines
2.8 KiB
OpenEdge ABL
97 lines
2.8 KiB
OpenEdge ABL
|
|
{
|
|
Created: Saturday, July 27, 1991 at 8:36 PM
|
|
ENET.p
|
|
Pascal Interface to the Macintosh Libraries
|
|
|
|
Copyright Apple Computer, Inc. 1990-1991
|
|
All rights reserved
|
|
Change History (most recent first):
|
|
|
|
<2> 7/30/91 JL Updated Copyright. Changed Boolean to BOOLEAN.
|
|
|
|
To Do:
|
|
}
|
|
|
|
|
|
{$IFC UNDEFINED UsingIncludes}
|
|
{$SETC UsingIncludes := 0}
|
|
{$ENDC}
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
UNIT ENET;
|
|
INTERFACE
|
|
{$ENDC}
|
|
|
|
{$IFC UNDEFINED UsingENET}
|
|
{$SETC UsingENET := 1}
|
|
|
|
{$I+}
|
|
{$SETC ENETIncludes := UsingIncludes}
|
|
{$SETC UsingIncludes := 1}
|
|
{$IFC UNDEFINED UsingTypes}
|
|
{$I $$Shell(PInterfaces)Types.p}
|
|
{$ENDC}
|
|
{$IFC UNDEFINED UsingOSUtils}
|
|
{$I $$Shell(PInterfaces)OSUtils.p}
|
|
{$ENDC}
|
|
{$SETC UsingIncludes := ENETIncludes}
|
|
|
|
CONST
|
|
ENetSetGeneral = 253; {Set "general" mode}
|
|
ENetGetInfo = 252; {Get info}
|
|
ENetRdCancel = 251; {Cancel read}
|
|
ENetRead = 250; {Read}
|
|
ENetWrite = 249; {Write}
|
|
ENetDetachPH = 248; {Detach protocol handler}
|
|
ENetAttachPH = 247; {Attach protocol handler}
|
|
ENetAddMulti = 246; {Add a multicast address}
|
|
ENetDelMulti = 245; {Delete a multicast address}
|
|
|
|
eLenErr = -92; {Length error ddpLenErr}
|
|
eMultiErr = -91; {Multicast address error ddpSktErr}
|
|
|
|
EAddrRType = 'eadr'; {Alternate address resource type}
|
|
|
|
TYPE
|
|
EParamBlkPtr = ^EParamBlock;
|
|
EParamBlock = PACKED RECORD
|
|
qLink: QElemPtr; {next queue entry}
|
|
qType: INTEGER; {queue type}
|
|
ioTrap: INTEGER; {routine trap}
|
|
ioCmdAddr: Ptr; {routine address}
|
|
ioCompletion: ProcPtr; {completion routine}
|
|
ioResult: OSErr; {result code}
|
|
ioNamePtr: StringPtr; {->filename}
|
|
ioVRefNum: INTEGER; {volume reference or drive number}
|
|
ioRefNum: INTEGER; {driver reference number}
|
|
csCode: INTEGER; {call command code AUTOMATICALLY set}
|
|
CASE INTEGER OF
|
|
ENetWrite,ENetAttachPH,ENetDetachPH,ENetRead,ENetRdCancel,ENetGetInfo,ENetSetGeneral:
|
|
(eProtType: INTEGER; {Ethernet protocol type}
|
|
ePointer: Ptr;
|
|
eBuffSize: INTEGER; {buffer size}
|
|
eDataSize: INTEGER); {number of bytes read}
|
|
ENetAddMulti,ENetDelMulti:
|
|
(eMultiAddr: ARRAY [0..5] of char); {Multicast Address}
|
|
END;
|
|
|
|
|
|
FUNCTION EWrite(thePBptr: EParamBlkPtr;async: BOOLEAN): OSErr;
|
|
FUNCTION EAttachPH(thePBptr: EParamBlkPtr;async: BOOLEAN): OSErr;
|
|
FUNCTION EDetachPH(thePBptr: EParamBlkPtr;async: BOOLEAN): OSErr;
|
|
FUNCTION ERead(thePBptr: EParamBlkPtr;async: BOOLEAN): OSErr;
|
|
FUNCTION ERdCancel(thePBptr: EParamBlkPtr;async: BOOLEAN): OSErr;
|
|
FUNCTION EGetInfo(thePBptr: EParamBlkPtr;async: BOOLEAN): OSErr;
|
|
FUNCTION ESetGeneral(thePBptr: EParamBlkPtr;async: BOOLEAN): OSErr;
|
|
FUNCTION EAddMulti(thePBptr: EParamBlkPtr;async: BOOLEAN): OSErr;
|
|
FUNCTION EDelMulti(thePBptr: EParamBlkPtr;async: BOOLEAN): OSErr;
|
|
|
|
|
|
{$ENDC} { UsingENET }
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
END.
|
|
{$ENDC}
|
|
|