|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4096 (0x1000)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Intenv, seg_02ab74
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
-- Copyright (c) 1990 Meridian Software Systems, Inc. --
with Mac_Types;
use Mac_Types;
with Paslibintf;
package Intenv is
Open : constant := 16#6400#;
Delete : constant := 16#6401#;
Rename : constant := 16#6402#;
Gtabinfo : constant := 16#6500#;
Stabinfo : constant := 16#6501#;
Gfontinfo : constant := 16#6502#;
Sfontinfo : constant := 16#6503#;
Gprintrec : constant := 16#6504#;
Sprintrec : constant := 16#6505#;
Gselinfo : constant := 16#6506#;
Sselinfo : constant := 16#6507#;
Gwininfo : constant := 16#6508#;
Swininfo : constant := 16#6509#;
Rdonly : constant := 16#0000#;
Wronly : constant := 16#0001#;
Rdwr : constant := 16#0002#;
Append : constant := 16#0008#;
Rsrc : constant := 16#0010#;
Creat : constant := 16#0100#;
Trunc : constant := 16#0200#;
Excl : constant := 16#0400#;
Fiointeractive : constant := 16#6602#;
Fiobufsize : constant := 16#6603#;
Fiofname : constant := 16#6604#;
Fiorefnum : constant := 16#6605#;
Fioseteof : constant := 16#6606#;
Tioflush : constant := 16#7400#;
Tiosport : constant := 16#7401#;
Tiogport : constant := 16#7402#;
type Iestring is array (0 .. 255) of Character;
type Iestringptr is access Iestring;
type Iestringvec is array (0 .. 8191) of Iestringptr;
type Iestringvecptr is access Iestringvec;
function Iestandalone return Boolean;
pragma Interface (Mpwpascal, Iestandalone, "IESTANDALONE");
function Iegetenv (Envname : String; Envvalue : Iestring) return Boolean;
pragma Interface (Mpwpascal, Iegetenv, "IEGETENV");
function Iefaccess (Fname : String; Opcode : Longint; Arg : Longint)
return Longint;
pragma Interface (Mpwpascal, Iefaccess, "IEFACCESS");
procedure Ieopen (Fvar : in out Paslibintf.Pascalfile;
Fname : String;
Mode : Longint);
pragma Interface (Mpwpascal, Ieopen, "IEOPEN");
function Ieioctl (Fvar : Paslibintf.Varpascalfile;
Request : Longint;
Arg : Longint) return Longint;
pragma Interface (Mpwpascal, Ieioctl, "IEIOCTL");
function Ielseek (Fvar : Paslibintf.Varpascalfile;
Offset : Longint;
Whence : Longint) return Longint;
pragma Interface (Mpwpascal, Ielseek, "IELSEEK");
procedure Ieatexit (Exitproc : Longint);
pragma Interface (C, Ieatexit, "IEATEXIT");
procedure Ieexit (Status : Longint);
pragma Interface (C, Ieexit, "IEEXIT");
procedure Ie_Exit (Status : Longint);
pragma Interface (C, Ieexit, "IEEXIT");
end Intenv;
--
nblk1=3
nid=0
hdr6=6
[0x00] rec0=1e rec1=00 rec2=01 rec3=040
[0x01] rec0=19 rec1=00 rec2=02 rec3=034
[0x02] rec0=19 rec1=00 rec2=03 rec3=000
tail 0x21522e09683e471f2d4fe 0x42a00088462060003