mirror of
https://github.com/elliotnunn/boot3.git
synced 2024-06-01 11:42:10 +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.
127 lines
2.6 KiB
OpenEdge ABL
127 lines
2.6 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-1991
|
|
All rights reserved
|
|
This file is used in these builds: ROM System
|
|
|
|
|
|
Change History (most recent first):
|
|
|
|
<3> 8/8/91 JL Updated Copyright.
|
|
<2> 3/13/91 JL Checked in MPW version.
|
|
|
|
To Do:
|
|
}
|
|
|
|
|
|
{$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> }
|
|
|
|
F_OPEN = $6400; { (('d'<<8)|00), d => "directory" ops }
|
|
F_DELETE = $6401;
|
|
F_RENAME = $6402;
|
|
|
|
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 = $6510;
|
|
F_SSCROLLINFO = $6511;
|
|
|
|
{ Open modes for IEopen(), from <fcntl.h> }
|
|
|
|
O_RDONLY = $0000;
|
|
O_WRONLY = $0001;
|
|
O_RDWR = $0002;
|
|
O_APPEND = $0008;
|
|
O_RSRC = $0010;
|
|
O_CREAT = $0100;
|
|
O_TRUNC = $0200;
|
|
O_EXCL = $0400;
|
|
|
|
{ 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;
|
|
|
|
{$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}
|
|
|