mirror of
https://github.com/elliotnunn/BuildCubeE.git
synced 2024-09-28 11:54:37 +00:00
142 lines
2.9 KiB
OpenEdge ABL
142 lines
2.9 KiB
OpenEdge ABL
{
|
|
Created: Wednesday, June 27, 1990 at 6:42 PM
|
|
IntEnv.p
|
|
Pascal Interface to the Macintosh Libraries
|
|
|
|
Copyright Apple Computer, Inc. 1989-1990, 1992
|
|
All rights reserved
|
|
}
|
|
|
|
|
|
{$IFC UNDEFINED UsingIncludes}
|
|
{$SETC UsingIncludes := 0}
|
|
{$ENDC}
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
UNIT IntEnv;
|
|
INTERFACE
|
|
{$ENDC}
|
|
|
|
{$IFC UNDEFINED UsingIntEnv}
|
|
{$SETC UsingIntEnv := 1}
|
|
|
|
{$I+}
|
|
{$SETC IntEnvIncludes := UsingIncludes}
|
|
{$SETC UsingIncludes := 1}
|
|
{$IFC UNDEFINED UsingPasLibIntf}
|
|
{$I $$Shell(PInterfaces)PasLibIntf.p}
|
|
{$ENDC}
|
|
{$SETC UsingIncludes := IntEnvIncludes}
|
|
|
|
CONST
|
|
|
|
{ CMD words for IEfaccess(), from <fcntl.h> }
|
|
{ IEfaccess command words for general usage in any program: }
|
|
|
|
F_OPEN = $6400; { (('d'<<8)|00), d => "directory" ops }
|
|
F_DELETE = $6401;
|
|
F_RENAME = $6402;
|
|
|
|
{ IEfaccess command words for use only in MPW Tools: }
|
|
|
|
F_GTABINFO = $6500; { (('e'<<8)|00), e => "editor" ops }
|
|
F_STABINFO = $6501;
|
|
F_GFONTINFO = $6502;
|
|
F_SFONTINFO = $6503;
|
|
F_GPRINTREC = $6504;
|
|
F_SPRINTREC = $6505;
|
|
F_GSELINFO = $6506;
|
|
F_SSELINFO = $6507;
|
|
F_GWININFO = $6508;
|
|
F_SWININFO = $6509;
|
|
F_GSCROLLINFO = $650A;
|
|
F_SSCROLLINFO = $650B;
|
|
F_GMARKER = $650D;
|
|
F_SMARKER = $650C;
|
|
F_GSAVEONCLOSE = $650F;
|
|
F_SSAVEONCLOSE = $650E;
|
|
|
|
{ Open modes for IEopen(), from <fcntl.h> }
|
|
|
|
O_RDONLY = $0000;
|
|
O_WRONLY = $0001;
|
|
O_RDWR = $0002;
|
|
O_APPEND = $0008;
|
|
O_RSRC = $0010;
|
|
O_ALIAS = $0020;
|
|
O_CREAT = $0100;
|
|
O_TRUNC = $0200;
|
|
O_EXCL = $0400;
|
|
O_NRESOLVE = $4000;
|
|
|
|
{ IOCtl parameters }
|
|
|
|
FIOINTERACTIVE = $6602; { (('f'<<8)|02), f => "open file" ops }
|
|
FIOBUFSIZE = $6603;
|
|
FIOFNAME = $6604;
|
|
FIOREFNUM = $6605;
|
|
FIOSETEOF = $6606;
|
|
|
|
TYPE
|
|
IEString = STRING;
|
|
IEStringPtr = ^IEString;
|
|
IEStringVec = ARRAY [0..8191] OF IEStringPtr;
|
|
IEStringVecPtr = ^IEStringVec;
|
|
|
|
{ RECORD types used by IEfaccess: }
|
|
|
|
SelectionRecord = RECORD
|
|
startingPos: LONGINT;
|
|
endingPos: LONGINT;
|
|
displayTop: LONGINT;
|
|
END;
|
|
|
|
MarkElement = RECORD
|
|
markStart: LONGINT;
|
|
markEnd: LONGINT;
|
|
charCount: CHAR;
|
|
name: ARRAY [0..65] OF CHAR; { NOTE: This is a C string! }
|
|
END;
|
|
|
|
{$PUSH}
|
|
{$J+} { EXPORTed unit globals }
|
|
|
|
VAR
|
|
ArgC: LONGINT;
|
|
ArgV: IEStringVecPtr;
|
|
_EnvP: IEStringVecPtr;
|
|
|
|
Diagnostic: TEXT;
|
|
{$POP}
|
|
|
|
FUNCTION IEStandAlone: BOOLEAN;
|
|
|
|
FUNCTION IEgetenv(envName: STRING; VAR envValue: UNIV IEString): BOOLEAN;
|
|
|
|
FUNCTION IEfaccess(fName: STRING; opCode: LONGINT;
|
|
arg: UNIV LONGINT): LONGINT;
|
|
|
|
PROCEDURE IEopen(VAR fvar: UNIV PASCALFILE; fName: STRING; mode: LONGINT);
|
|
|
|
FUNCTION IEioctl(VAR fvar: UNIV PASCALFILE; request: LONGINT;
|
|
arg: UNIV LONGINT): LONGINT;
|
|
|
|
FUNCTION IElseek(VAR fvar: UNIV PASCALFILE; offset: LONGINT;
|
|
whence: LONGINT): LONGINT;
|
|
|
|
PROCEDURE IEatexit(exitProc: UNIV LONGINT);
|
|
C;
|
|
|
|
PROCEDURE IEexit(status: LONGINT);
|
|
C;
|
|
|
|
PROCEDURE IE_exit(status: LONGINT);
|
|
C;
|
|
|
|
{$ENDC} { UsingIntEnv }
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
END.
|
|
{$ENDC}
|
|
|