DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦0f17411f9⟧ Ada Source

    Length: 34816 (0x8800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Files, seg_021fc2

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧

E3 Source Code



--      Copyright (c) 1990 Meridian Software Systems, Inc.      --
with Mac_Types;
use Mac_Types;
with Osutils;
package Files is

    Fsatmark : constant := 0;
    Fondesk : constant := 1;
    Fscurperm : constant := 0;
    Fhasbundle : constant := 8192;
    Fsrdperm : constant := 1;
    Finvisible : constant := 16384;
    Ftrash : constant := -3;
    Fswrperm : constant := 2;
    Fdesktop : constant := -2;
    Fsrdwrperm : constant := 3;
    Fdisk : constant := 0;
    Fsrdwrshperm : constant := 4;
    Fsfromstart : constant := 1;
    Fsfromleof : constant := 2;
    Fsfrommark : constant := 3;
    Rdverify : constant := 64;
    Iodirflg : constant := 3;
    Iodirmask : constant := 16#10#;
    Fsrtparid : constant := 1;
    Fsrtdirid : constant := 2;
    Developstage : constant := 16#20#;
    Alphastage : constant := 16#40#;
    Betastage : constant := 16#60#;
    Finalstage : constant := 16#80#;

    type Cinfotype is (Hfileinfo, Dirinfo);

    type Array1_4integer is array (1 .. 4) of Mac_Types.Integer;
    type Fxinfo is
        record
            Fdiconid : Mac_Types.Integer;
            Fdunused : Array1_4integer;
            Fdcomment : Mac_Types.Integer;
            Fdputaway : Longint;
        end record;

    type Dinfo is
        record
            Frrect : Rect;
            Frflags : Mac_Types.Integer;
            Frlocation : Point;
            Frview : Mac_Types.Integer;
        end record;

    type Dxinfo is
        record
            Frscroll : Point;
            Fropenchain : Longint;
            Frunused : Mac_Types.Integer;
            Frcomment : Mac_Types.Integer;
            Frputaway : Longint;
        end record;

    type Array1_2longint is array (1 .. 2) of Longint;
    type Cmovepbrec is
        record
            Qlink : Osutils.Qelemptr;
            Qtype : Mac_Types.Integer;
            Iotrap : Mac_Types.Integer;
            Iocmdaddr : Ptr;
            Iocompletion : Procptr;
            Ioresult : Oserr;
            Ionameptr : Stringptr;
            Iovrefnum : Mac_Types.Integer;
            Filler1 : Longint;
            Ionewname : Stringptr;
            Filler2 : Longint;
            Ionewdirid : Longint;
            Filler3 : Array1_2longint;
            Iodirid : Longint;
        end record;
    type Cmovepbptr is access Cmovepbrec;

    type Array1_7integer is array (1 .. 7) of Mac_Types.Integer;
    type Wdpbrec is
        record
            Qlink : Osutils.Qelemptr;
            Qtype : Mac_Types.Integer;
            Iotrap : Mac_Types.Integer;
            Iocmdaddr : Ptr;
            Iocompletion : Procptr;
            Ioresult : Oserr;
            Ionameptr : Stringptr;
            Iovrefnum : Mac_Types.Integer;
            Filler1 : Mac_Types.Integer;
            Iowdindex : Mac_Types.Integer;
            Iowdprocid : Longint;
            Iowdvrefnum : Mac_Types.Integer;
            Filler2 : Array1_7integer;
            Iowddirid : Longint;
        end record;
    type Wdpbptr is access Wdpbrec;

    type Fcbpbrec is
        record
            Qlink : Osutils.Qelemptr;
            Qtype : Mac_Types.Integer;
            Iotrap : Mac_Types.Integer;
            Iocmdaddr : Ptr;
            Iocompletion : Procptr;
            Ioresult : Oserr;
            Ionameptr : Stringptr;
            Iovrefnum : Mac_Types.Integer;
            Iorefnum : Mac_Types.Integer;
            Filler : Mac_Types.Integer;
            Iofcbindx : Mac_Types.Integer;
            Filler1 : Mac_Types.Integer;
            Iofcbflnm : Longint;
            Iofcbflags : Mac_Types.Integer;
            Iofcbstblk : Mac_Types.Integer;
            Iofcbeof : Longint;
            Iofcbplen : Longint;
            Iofcbcrps : Longint;
            Iofcbvrefnum : Mac_Types.Integer;
            Iofcbclpsiz : Longint;
            Iofcbparid : Longint;       end record;
    type Fcbpbptr is access Fcbpbrec;

    type Hparamfiller is array (1 .. 98) of Signedbyte;
    type Hparamblockrec is
        record
            Qlink : Osutils.Qelemptr;
            Qtype : Mac_Types.Integer;
            Iotrap : Mac_Types.Integer;
            Iocmdaddr : Ptr;
            Iocompletion : Procptr;
            Ioresult : Oserr;
            Ionameptr : Stringptr;
            Iovrefnum : Mac_Types.Integer;
            Filler : Hparamfiller;
        end record;
    type Hparmblkptr is access Hparamblockrec;

    type Iohparamblockrec is
        record
            Qlink : Osutils.Qelemptr;
            Qtype : Mac_Types.Integer;
            Iotrap : Mac_Types.Integer;
            Iocmdaddr : Ptr;
            Iocompletion : Procptr;
            Ioresult : Oserr;
            Ionameptr : Stringptr;
            Iovrefnum : Mac_Types.Integer;
            Iorefnum : Mac_Types.Integer;
            Ioversnum : Signedbyte;
            Iopermssn : Signedbyte;
            Iomisc : Ptr;
            Iobuffer : Ptr;
            Ioreqcount : Longint;
            Ioactcount : Longint;
            Ioposmode : Mac_Types.Integer;
            Ioposoffset : Longint;
        end record;

    type Filehparamblockrec is
        record
            Qlink : Osutils.Qelemptr;
            Qtype : Mac_Types.Integer;
            Iotrap : Mac_Types.Integer;
            Iocmdaddr : Ptr;
            Iocompletion : Procptr;
            Ioresult : Oserr;
            Ionameptr : Stringptr;
            Iovrefnum : Mac_Types.Integer;
            Iofrefnum : Mac_Types.Integer;
            Iofversnum : Signedbyte;
            Filler1 : Signedbyte;
            Iofdirindex : Mac_Types.Integer;
            Ioflattrib : Signedbyte;
            Ioflversnum : Signedbyte;
            Ioflfndrinfo : Osutils.Finfo;
            Iodirid : Longint;
            Ioflstblk : Mac_Types.Integer;
            Iofllglen : Longint;
            Ioflpylen : Longint;
            Ioflrstblk : Mac_Types.Integer;
            Ioflrlglen : Longint;
            Ioflrpylen : Longint;
            Ioflcrdat : Longint;
            Ioflmddat : Longint;
        end record;

    type Array1_8longint is array (1 .. 8) of Longint;
    type Volumehparamblockrec is
        record
            Qlink : Osutils.Qelemptr;
            Qtype : Mac_Types.Integer;
            Iotrap : Mac_Types.Integer;
            Iocmdaddr : Ptr;
            Iocompletion : Procptr;
            Ioresult : Oserr;
            Ionameptr : Stringptr;
            Iovrefnum : Mac_Types.Integer;
            Filler2 : Longint;
            Iovolindex : Mac_Types.Integer;
            Iovcrdate : Longint;
            Iovlsmod : Longint;
            Iovatrb : Mac_Types.Integer;
            Iovnmfls : Mac_Types.Integer;
            Iovbitmap : Mac_Types.Integer;
            Ioallocptr : Mac_Types.Integer;
            Iovnmalblks : Mac_Types.Integer;
            Iovalblksiz : Longint;
            Iovclpsiz : Longint;
            Ioalblst : Mac_Types.Integer;
            Iovnxtcnid : Longint;
            Iovfrblk : Mac_Types.Integer;
            Iovsigword : Mac_Types.Integer;
            Iovdrvinfo : Mac_Types.Integer;
            Iovdrefnum : Mac_Types.Integer;
            Iovfsid : Mac_Types.Integer;
            Iovbkup : Longint;
            Iovseqnum : Mac_Types.Integer;
            Iovwrcnt : Longint;
            Iovfilcnt : Longint;
            Iovdircnt : Longint;
            Iovfndrinfo : Array1_8longint;
        end record;


    type Accesshparamblockrec is
        record
            Qlink : Osutils.Qelemptr;
            Qtype : Mac_Types.Integer;
            Iotrap : Mac_Types.Integer;
            Iocmdaddr : Ptr;
            Iocompletion : Procptr;
            Ioresult : Oserr;
            Ionameptr : Stringptr;
            Iovrefnum : Mac_Types.Integer;
            Filler3 : Mac_Types.Integer;
            Iodenymodes : Mac_Types.Integer;
            Filler4 : Mac_Types.Integer;
            Filler5 : Signedbyte;
            Ioacuser : Signedbyte;
            Filler6 : Longint;
            Ioacownerid : Longint;
            Ioacgroupid : Longint;
            Ioacaccess : Longint;
        end record;

    type Objhparamblockrec is
        record
            Qlink : Osutils.Qelemptr;
            Qtype : Mac_Types.Integer;
            Iotrap : Mac_Types.Integer;
            Iocmdaddr : Ptr;
            Iocompletion : Procptr;
            Ioresult : Oserr;
            Ionameptr : Stringptr;
            Iovrefnum : Mac_Types.Integer;
            Filler7 : Mac_Types.Integer;
            Ioobjtype : Mac_Types.Integer;
            Ioobjnameptr : Ptr;
            Ioobjid : Longint;
        end record;

    type Copyhparamblockrec is
        record
            Qlink : Osutils.Qelemptr;
            Qtype : Mac_Types.Integer;
            Iotrap : Mac_Types.Integer;
            Iocmdaddr : Ptr;
            Iocompletion : Procptr;
            Ioresult : Oserr;
            Ionameptr : Stringptr;
            Iovrefnum : Mac_Types.Integer;
            Iodstvrefnum : Mac_Types.Integer;
            Filler8 : Mac_Types.Integer;
            Ionewname : Ptr;
            Iocopyname : Ptr;
            Ionewdirid : Longint;
        end record;

    type Wdhparamblockrec is
        record
            Qlink : Osutils.Qelemptr;
            Qtype : Mac_Types.Integer;
            Iotrap : Mac_Types.Integer;
            Iocmdaddr : Ptr;
            Iocompletion : Procptr;
            Ioresult : Oserr;
            Ionameptr : Stringptr;
            Iovrefnum : Mac_Types.Integer;
            Filler9 : Mac_Types.Integer;
            Iowdindex : Mac_Types.Integer;
            Iowdprocid : Longint;
            Iowdvrefnum : Mac_Types.Integer;
            Filler10 : Mac_Types.Integer;
            Filler11 : Longint;
            Filler12 : Longint;
            Filler13 : Longint;
            Iowddirid : Longint;
        end record;

    type Cinfopbfiller is array (1 .. 76) of Signedbyte;
    type Cinfopbrec is
        record
            Qlink : Osutils.Qelemptr;
            Qtype : Mac_Types.Integer;
            Iotrap : Mac_Types.Integer;
            Iocmdaddr : Ptr;
            Iocompletion : Procptr;
            Ioresult : Oserr;
            Ionameptr : Stringptr;
            Iovrefnum : Mac_Types.Integer;
            Iofrefnum : Mac_Types.Integer;
            Iofversnum : Signedbyte;
            Filler1 : Signedbyte;
            Iofdirindex : Mac_Types.Integer;
            Ioflattrib : Signedbyte;
            Filler2 : Signedbyte;
            Filler : Cinfopbfiller;
        end record;
    type Cinfopbptr is access Cinfopbrec;

    type Hfilecinfopbrec is
        record
            Qlink : Osutils.Qelemptr;
            Qtype : Mac_Types.Integer;
            Iotrap : Mac_Types.Integer;
            Iocmdaddr : Ptr;
            Iocompletion : Procptr;
            Ioresult : Oserr;
            Ionameptr : Stringptr;
            Iovrefnum : Mac_Types.Integer;
            Iofrefnum : Mac_Types.Integer;
            Iofversnum : Signedbyte;
            Filler1 : Signedbyte;
            Iofdirindex : Mac_Types.Integer;
            Ioflattrib : Signedbyte;
            Filler2 : Signedbyte;
            Ioflfndrinfo : Osutils.Finfo;
            Iodirid : Longint;
            Ioflstblk : Mac_Types.Integer;
            Iofllglen : Longint;
            Ioflpylen : Longint;
            Ioflrstblk : Mac_Types.Integer;
            Ioflrlglen : Longint;
            Ioflrpylen : Longint;
            Ioflcrdat : Longint;
            Ioflmddat : Longint;
            Ioflbkdat : Longint;
            Ioflxfndrinfo : Fxinfo;
            Ioflparid : Longint;
            Ioflclpsiz : Longint;
        end record;

    type Array1_9integer is array (1 .. 9) of Mac_Types.Integer;
    type Dircinfopbrec is
        record
            Qlink : Osutils.Qelemptr;
            Qtype : Mac_Types.Integer;
            Iotrap : Mac_Types.Integer;
            Iocmdaddr : Ptr;
            Iocompletion : Procptr;
            Ioresult : Oserr;
            Ionameptr : Stringptr;
            Iovrefnum : Mac_Types.Integer;
            Iofrefnum : Mac_Types.Integer;
            Iofversnum : Signedbyte;
            Filler1 : Signedbyte;
            Iofdirindex : Mac_Types.Integer;
            Ioflattrib : Signedbyte;
            Filler2 : Signedbyte;
            Iodrusrwds : Dinfo;
            Iodrdirid : Longint;
            Iodrnmfls : Mac_Types.Integer;
            Filler3 : Array1_9integer;
            Iodrcrdat : Longint;
            Iodrmddat : Longint;
            Iodrbkdat : Longint;
            Iodrfndrinfo : Dxinfo;
            Iodrparid : Longint;
        end record;

    type Range0_9 is range 0 .. 9;
    type Numversion is
        record
            Majorrev : Signedbyte;
            Minorrev : Range0_9;
            Bugfixrev : Range0_9;
            Stage : Signedbyte;
            Nonrelrev : Signedbyte;
        end record;

    type Versrec is
        record
            Numericversion : Numversion;
            Countrycode : Mac_Types.Integer;
            Shortversion : Str255;
            Reserved : Str255;
        end record;
    type Versrecptr is access Versrec;
    type Versrechndl is access Versrecptr;

    function Pbhgetvolparms
                (Paramblock : Hparmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbhgetvolparms, "PBHGETVOLPARMS");

    function Pbhgetlogininfo
                (Paramblock : Hparmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbhgetlogininfo, "PBHGETLOGININFO");

    function Pbhgetdiraccess
                (Paramblock : Hparmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbhgetdiraccess, "PBHGETDIRACCESS");

    function Pbhsetdiraccess
                (Paramblock : Hparmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbhsetdiraccess, "PBHSETDIRACCESS");

    function Pbhmapid (Paramblock : Hparmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbhmapid, "PBHMAPID");

    function Pbhmapname
                (Paramblock : Hparmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbhmapname, "PBHMAPNAME");

    function Pbhcopyfile
                (Paramblock : Hparmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbhcopyfile, "PBHCOPYFILE");

    function Pbhmoverename
                (Paramblock : Hparmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbhmoverename, "PBHMOVERENAME");

    function Pbhopendeny
                (Paramblock : Hparmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbhopendeny, "PBHOPENDENY");

    function Pbhopenrfdeny
                (Paramblock : Hparmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbhopenrfdeny, "PBHOPENRFDENY");

    function Pbopen
                (Paramblock : Osutils.Parmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbopen, "PBOPEN");

    function Pbclose
                (Paramblock : Osutils.Parmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbclose, "PBCLOSE");

    function Pbread
                (Paramblock : Osutils.Parmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbread, "PBREAD");

    function Pbwrite
                (Paramblock : Osutils.Parmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbwrite, "PBWRITE");

    function Pbgetvinfo
                (Paramblock : Osutils.Parmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbgetvinfo, "PBGETVINFO");

    function Pbgetvol
                (Paramblock : Osutils.Parmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbgetvol, "PBGETVOL");

    function Pbsetvol
                (Paramblock : Osutils.Parmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbsetvol, "PBSETVOL");

    function Pbflushvol
                (Paramblock : Osutils.Parmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbflushvol, "PBFLUSHVOL");

    function Pbcreate
                (Paramblock : Osutils.Parmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbcreate, "PBCREATE");

    function Pbdelete
                (Paramblock : Osutils.Parmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbdelete, "PBDELETE");

    function Pbopenrf
                (Paramblock : Osutils.Parmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbopenrf, "PBOPENRF");

    function Pbrename
                (Paramblock : Osutils.Parmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbrename, "PBRENAME");

    function Pbgetfinfo
                (Paramblock : Osutils.Parmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbgetfinfo, "PBGETFINFO");

    function Pbsetfinfo
                (Paramblock : Osutils.Parmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbsetfinfo, "PBSETFINFO");

    function Pbsetflock
                (Paramblock : Osutils.Parmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbsetflock, "PBSETFLOCK");

    function Pbrstflock
                (Paramblock : Osutils.Parmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbrstflock, "PBRSTFLOCK");

    function Pbsetfvers
                (Paramblock : Osutils.Parmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbsetfvers, "PBSETFVERS");

    function Pballocate
                (Paramblock : Osutils.Parmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pballocate, "PBALLOCATE");

    function Pbgeteof
                (Paramblock : Osutils.Parmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbgeteof, "PBGETEOF");

    function Pbseteof
                (Paramblock : Osutils.Parmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbseteof, "PBSETEOF");

    function Pbgetfpos
                (Paramblock : Osutils.Parmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbgetfpos, "PBGETFPOS");

    function Pbsetfpos
                (Paramblock : Osutils.Parmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbsetfpos, "PBSETFPOS");

    function Pbflushfile
                (Paramblock : Osutils.Parmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbflushfile, "PBFLUSHFILE");

    function Pbmountvol (Paramblock : Osutils.Parmblkptr) return Oserr;
    pragma Interface (Mpwpascal, Pbmountvol, "PBMOUNTVOL");

    function Pbunmountvol (Paramblock : Osutils.Parmblkptr) return Oserr;
    pragma Interface (Mpwpascal, Pbunmountvol, "PBUNMOUNTVOL");

    function Pbeject (Paramblock : Osutils.Parmblkptr) return Oserr;
    pragma Interface (Mpwpascal, Pbeject, "PBEJECT");

    function Pboffline (Paramblock : Osutils.Parmblkptr) return Oserr;
    pragma Interface (Mpwpascal, Pboffline, "PBOFFLINE");

    procedure Adddrive (Drvrrefnum : Mac_Types.Integer;
                        Drvnum : Mac_Types.Integer;
                        Qel : Osutils.Drvqelptr);
    pragma Interface (Mpwpascal, Adddrive, "ADDDRIVE");

    function Fsopen (Filename : Str255;
                     Vrefnum : Mac_Types.Integer;
                     Refnum : Varinteger) return Oserr;
    pragma Interface (Mpwpascal, Fsopen, "FSOPEN");

    function Fsclose (Refnum : Mac_Types.Integer) return Oserr;
    pragma Interface (Mpwpascal, Fsclose, "FSCLOSE");

    function Fsread
                (Refnum : Mac_Types.Integer; Count : Varlongint; Buffptr : Ptr)
                return Oserr;
    pragma Interface (Mpwpascal, Fsread, "FSREAD");

    function Fswrite
                (Refnum : Mac_Types.Integer; Count : Varlongint; Buffptr : Ptr)
                return Oserr;
    pragma Interface (Mpwpascal, Fswrite, "FSWRITE");

    function Getvinfo (Drvnum : Mac_Types.Integer;
                       Volname : Stringptr;
                       Vrefnum : Varinteger;
                       Freebytes : Varlongint) return Oserr;
    pragma Interface (Mpwpascal, Getvinfo, "GETVINFO");

    function Getfinfo (Filename : Str255;
                       Vrefnum : Mac_Types.Integer;
                       Fndrinfo : Osutils.Finfo) return Oserr;
    pragma Interface (Mpwpascal, Getfinfo, "GETFINFO");

    function Getvol (Volname : Stringptr; Vrefnum : Varinteger) return Oserr;
    pragma Interface (Mpwpascal, Getvol, "GETVOL");

    function Setvol
                (Volname : Stringptr; Vrefnum : Mac_Types.Integer) return Oserr;
    pragma Interface (Mpwpascal, Setvol, "SETVOL");

    function Unmountvol
                (Volname : Stringptr; Vrefnum : Mac_Types.Integer) return Oserr;
    pragma Interface (Mpwpascal, Unmountvol, "UNMOUNTVOL");

    function Eject
                (Volname : Stringptr; Vrefnum : Mac_Types.Integer) return Oserr;
    pragma Interface (Mpwpascal, Eject, "EJECT");

    function Flushvol
                (Volname : Stringptr; Vrefnum : Mac_Types.Integer) return Oserr;
    pragma Interface (Mpwpascal, Flushvol, "FLUSHVOL");

    function Create (Filename : Str255;
                     Vrefnum : Mac_Types.Integer;
                     Creator : Ostype;
                     Filetype : Ostype) return Oserr;
    pragma Interface (Mpwpascal, Create, "CREATE");

    function Fsdelete
                (Filename : Str255; Vrefnum : Mac_Types.Integer) return Oserr;
    pragma Interface (Mpwpascal, Fsdelete, "FSDELETE");

    function Openrf (Filename : Str255;
                     Vrefnum : Mac_Types.Integer;
                     Refnum : Varinteger) return Oserr;
    pragma Interface (Mpwpascal, Openrf, "OPENRF");

    function Rename (Oldname : Str255;
                     Vrefnum : Mac_Types.Integer;
                     Newname : Str255) return Oserr;
    pragma Interface (Mpwpascal, Rename, "RENAME");

    function Setfinfo (Filename : Str255;
                       Vrefnum : Mac_Types.Integer;
                       Fndrinfo : Osutils.Finfo) return Oserr;
    pragma Interface (Mpwpascal, Setfinfo, "SETFINFO");

    function Setflock
                (Filename : Str255; Vrefnum : Mac_Types.Integer) return Oserr;
    pragma Interface (Mpwpascal, Setflock, "SETFLOCK");

    function Rstflock
                (Filename : Str255; Vrefnum : Mac_Types.Integer) return Oserr;
    pragma Interface (Mpwpascal, Rstflock, "RSTFLOCK");

    function Allocate
                (Refnum : Mac_Types.Integer; Count : Varlongint) return Oserr;
    pragma Interface (Mpwpascal, Allocate, "ALLOCATE");

    function Geteof
                (Refnum : Mac_Types.Integer; Logeof : Varlongint) return Oserr;
    pragma Interface (Mpwpascal, Geteof, "GETEOF");

    function Seteof (Refnum : Mac_Types.Integer; Logeof : Longint) return Oserr;
    pragma Interface (Mpwpascal, Seteof, "SETEOF");

    function Getfpos
                (Refnum : Mac_Types.Integer; Filepos : Varlongint) return Oserr;
    pragma Interface (Mpwpascal, Getfpos, "GETFPOS");

    function Setfpos (Refnum : Mac_Types.Integer;
                      Posmode : Mac_Types.Integer;
                      Posoff : Longint) return Oserr;
    pragma Interface (Mpwpascal, Setfpos, "SETFPOS");

    function Getvrefnum (Filerefnum : Mac_Types.Integer; Vrefnum : Varinteger)
                        return Oserr;
    pragma Interface (Mpwpascal, Getvrefnum, "GETVREFNUM");

    function Pbopenwd (Paramblock : Wdpbptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbopenwd, "PBOPENWD");

    function Pbclosewd (Paramblock : Wdpbptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbclosewd, "PBCLOSEWD");

    function Pbhsetvol (Paramblock : Wdpbptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbhsetvol, "PBHSETVOL");

    function Pbhgetvol (Paramblock : Wdpbptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbhgetvol, "PBHGETVOL");

    function Pbcatmove (Paramblock : Cmovepbptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbcatmove, "PBCATMOVE");

    function Pbdircreate
                (Paramblock : Hparmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbdircreate, "PBDIRCREATE");

    function Pbgetwdinfo (Paramblock : Wdpbptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbgetwdinfo, "PBGETWDINFO");

    function Pbgetfcbinfo (Paramblock : Fcbpbptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbgetfcbinfo, "PBGETFCBINFO");

    function Pbgetcatinfo
                (Paramblock : Cinfopbptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbgetcatinfo, "PBGETCATINFO");

    function Pbsetcatinfo
                (Paramblock : Cinfopbptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbsetcatinfo, "PBSETCATINFO");

    function Pballoccontig
                (Paramblock : Osutils.Parmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pballoccontig, "PBALLOCCONTIG");

    function Pblockrange
                (Paramblock : Osutils.Parmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pblockrange, "PBLOCKRANGE");

    function Pbunlockrange
                (Paramblock : Osutils.Parmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbunlockrange, "PBUNLOCKRANGE");

    function Pbsetvinfo
                (Paramblock : Hparmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbsetvinfo, "PBSETVINFO");

    function Pbhgetvinfo
                (Paramblock : Hparmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbhgetvinfo, "PBHGETVINFO");

    function Pbhopen (Paramblock : Hparmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbhopen, "PBHOPEN");

    function Pbhopenrf (Paramblock : Hparmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbhopenrf, "PBHOPENRF");

    function Pbhcreate (Paramblock : Hparmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbhcreate, "PBHCREATE");

    function Pbhdelete (Paramblock : Hparmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbhdelete, "PBHDELETE");

    function Pbhrename (Paramblock : Hparmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbhrename, "PBHRENAME");

    function Pbhrstflock
                (Paramblock : Hparmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbhrstflock, "PBHRSTFLOCK");

    function Pbhsetflock
                (Paramblock : Hparmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbhsetflock, "PBHSETFLOCK");

    function Pbhgetfinfo
                (Paramblock : Hparmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbhgetfinfo, "PBHGETFINFO");

    function Pbhsetfinfo
                (Paramblock : Hparmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbhsetfinfo, "PBHSETFINFO");

    procedure Finitqueue;
    pragma Interface (Mpwpascal, Finitqueue, "16#A016#");

    function Getfsqhdr return Osutils.Qhdrptr;
    pragma Interface (Mpwpascal, Getfsqhdr, "GETFSQHDR");

    function Getdrvqhdr return Osutils.Qhdrptr;
    pragma Interface (Mpwpascal, Getdrvqhdr, "GETDRVQHDR");

    function Getvcbqhdr return Osutils.Qhdrptr;
    pragma Interface (Mpwpascal, Getvcbqhdr, "GETVCBQHDR");

    function Hgetvol
                (Volname : Stringptr; Vrefnum : Varinteger; Dirid : Varlongint)
                return Oserr;
    pragma Interface (Mpwpascal, Hgetvol, "HGETVOL");

    function Hsetvol (Volname : Stringptr;
                      Vrefnum : Mac_Types.Integer;
                      Dirid : Longint) return Oserr;
    pragma Interface (Mpwpascal, Hsetvol, "HSETVOL");

    function Hopen (Vrefnum : Mac_Types.Integer;
                    Dirid : Longint;
                    Filename : Str255;
                    Permission : Signedbyte;
                    Refnum : Varinteger) return Oserr;
    pragma Interface (Mpwpascal, Hopen, "HOPEN");

    function Hopenrf (Vrefnum : Mac_Types.Integer;
                      Dirid : Longint;
                      Filename : Str255;
                      Permission : Signedbyte;
                      Refnum : Varinteger) return Oserr;
    pragma Interface (Mpwpascal, Hopenrf, "HOPENRF");

    function Alloccontig
                (Refnum : Mac_Types.Integer; Count : Varlongint) return Oserr;
    pragma Interface (Mpwpascal, Alloccontig, "ALLOCCONTIG");

    function Hcreate (Vrefnum : Mac_Types.Integer;
                      Dirid : Longint;
                      Filename : Str255;
                      Creator : Ostype;
                      Filetype : Ostype) return Oserr;
    pragma Interface (Mpwpascal, Hcreate, "HCREATE");

    function Dircreate (Vrefnum : Mac_Types.Integer;
                        Parentdirid : Longint;
                        Directoryname : Str255;
                        Createddirid : Varlongint) return Oserr;
    pragma Interface (Mpwpascal, Dircreate, "DIRCREATE");

    function Hdelete (Vrefnum : Mac_Types.Integer;
                      Dirid : Longint;
                      Filename : Str255) return Oserr;
    pragma Interface (Mpwpascal, Hdelete, "HDELETE");

    function Hgetfinfo (Vrefnum : Mac_Types.Integer;
                        Dirid : Longint;
                        Filename : Str255;
                        Fndrinfo : Osutils.Finfo) return Oserr;
    pragma Interface (Mpwpascal, Hgetfinfo, "HGETFINFO");

    function Hsetfinfo (Vrefnum : Mac_Types.Integer;
                        Dirid : Longint;
                        Filename : Str255;
                        Fndrinfo : Osutils.Finfo) return Oserr;
    pragma Interface (Mpwpascal, Hsetfinfo, "HSETFINFO");

    function Hsetflock (Vrefnum : Mac_Types.Integer;
                        Dirid : Longint;
                        Filename : Str255) return Oserr;
    pragma Interface (Mpwpascal, Hsetflock, "HSETFLOCK");

    function Hrstflock (Vrefnum : Mac_Types.Integer;
                        Dirid : Longint;
                        Filename : Str255) return Oserr;
    pragma Interface (Mpwpascal, Hrstflock, "HRSTFLOCK");

    function Hrename (Vrefnum : Mac_Types.Integer;
                      Dirid : Longint;
                      Oldname : Str255;
                      Newname : Str255) return Oserr;
    pragma Interface (Mpwpascal, Hrename, "HRENAME");

    function Catmove (Vrefnum : Mac_Types.Integer;
                      Dirid : Longint;
                      Oldname : Str255;
                      Newdirid : Longint;
                      Newname : Str255) return Oserr;
    pragma Interface (Mpwpascal, Catmove, "CATMOVE");

    function Openwd (Vrefnum : Mac_Types.Integer;
                     Dirid : Longint;
                     Procid : Longint;
                     Wdrefnum : Varinteger) return Oserr;
    pragma Interface (Mpwpascal, Openwd, "OPENWD");

    function Closewd (Wdrefnum : Mac_Types.Integer) return Oserr;
    pragma Interface (Mpwpascal, Closewd, "CLOSEWD");

    function Getwdinfo (Wdrefnum : Mac_Types.Integer;
                        Vrefnum : Varinteger;
                        Dirid : Varlongint;
                        Procid : Varlongint) return Oserr;
    pragma Interface (Mpwpascal, Getwdinfo, "GETWDINFO");

end Files;

E3 Meta Data

    nblk1=21
    nid=0
    hdr6=42
        [0x00] rec0=21 rec1=00 rec2=01 rec3=054
        [0x01] rec0=22 rec1=00 rec2=02 rec3=034
        [0x02] rec0=1c rec1=00 rec2=03 rec3=054
        [0x03] rec0=1d rec1=00 rec2=04 rec3=002
        [0x04] rec0=1d rec1=00 rec2=05 rec3=044
        [0x05] rec0=1d rec1=00 rec2=06 rec3=01c
        [0x06] rec0=1c rec1=00 rec2=07 rec3=00e
        [0x07] rec0=1c rec1=00 rec2=08 rec3=040
        [0x08] rec0=1f rec1=00 rec2=09 rec3=00a
        [0x09] rec0=1c rec1=00 rec2=0a rec3=020
        [0x0a] rec0=1e rec1=00 rec2=0b rec3=030
        [0x0b] rec0=1b rec1=00 rec2=0c rec3=00a
        [0x0c] rec0=1c rec1=00 rec2=0d rec3=008
        [0x0d] rec0=1f rec1=00 rec2=0e rec3=00c
        [0x0e] rec0=17 rec1=00 rec2=0f rec3=006
        [0x0f] rec0=18 rec1=00 rec2=10 rec3=028
        [0x10] rec0=18 rec1=00 rec2=11 rec3=022
        [0x11] rec0=18 rec1=00 rec2=12 rec3=004
        [0x12] rec0=16 rec1=00 rec2=13 rec3=070
        [0x13] rec0=18 rec1=00 rec2=14 rec3=020
        [0x14] rec0=18 rec1=00 rec2=15 rec3=04c
        [0x15] rec0=18 rec1=00 rec2=16 rec3=042
        [0x16] rec0=19 rec1=00 rec2=17 rec3=020
        [0x17] rec0=17 rec1=00 rec2=18 rec3=052
        [0x18] rec0=15 rec1=00 rec2=19 rec3=072
        [0x19] rec0=18 rec1=00 rec2=1a rec3=022
        [0x1a] rec0=16 rec1=00 rec2=1b rec3=066
        [0x1b] rec0=17 rec1=00 rec2=1c rec3=022
        [0x1c] rec0=1a rec1=00 rec2=1d rec3=048
        [0x1d] rec0=18 rec1=00 rec2=1e rec3=030
        [0x1e] rec0=17 rec1=00 rec2=1f rec3=006
        [0x1f] rec0=17 rec1=00 rec2=20 rec3=04a
        [0x20] rec0=0f rec1=00 rec2=21 rec3=001
    tail 0x2151d449c83906de65408 0x42a00088462060003