DataMuseum.dk

top - download

    Length: 2683 (0xa7b)
    Types: TextFile
    Names: »V«

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─ ⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 

TextFile

--      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;
--