DataMuseum.dk

top - download

    Length: 4252 (0x109c)
    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.      --
package Mac_Types is

    type Varboolean is access Boolean;

    type Char is (Nul, Soh, Stx, Etx, Eot, Enq, Ack, Bel, Bs, Ht, Lf, Vt,
                  Ff, Cr, So, Si, Dle, Dc1, Dc2, Dc3, Dc4, Nak, Syn, Etb,
                  Can, Em, Sub, Esc, Fs, Gs, Rs, Us, ' ', '!', '"', '#', '$',
                  '%', '&', ''', '(', ')', '*', '+', ',', '-', '.', '/', '0',
                  '1', '2', '3', '4', '5', '6', '7', '8', '9', ':', ';', '<',
                  '=', '>', '?', '@', 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H',
                  'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S',
                  'T', 'U', 'V', 'W', 'X', 'Y', 'Z', '[', '\', ']', '^',
                  '_', '`', 'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i',
                  'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't',
                  'u', 'v', 'w', 'x', 'y', 'z', '{', '|', '}', '~', Del,

                  Xnul, Xsoh, Xstx, Xetx, Xeot, Xenq, Xack, Xbel, Xbs, Xht,
                  Xlf, Xvt, Xff, Xcr, Xso, Xsi, Xdle, Xdc1, Xdc2, Xdc3, Xdc4,
                  Xnak, Xsyn, Xetb, Xcan, Xem, Xsub, Xesc, Xfs, Xgs, Xrs, Xus,
                  Xsp, Xep, Xdq, Xps, Xds, Xpcs, Xam, Xsq, Xlp, Xrp, Xas, Xpl,
                  Xcm, Xms, Xpr, Xsl, X0, X1, X2, X3, X4, X5, X6, X7, X8,
                  X9, Xcl, Xsc, Xlt, Xeq, Xgt, Xqm, Xat, Xuca, Xucb, Xucc,
                  Xucd, Xuce, Xucf, Xucg, Xuch, Xuci, Xucj, Xuck, Xucl, Xucm,
                  Xucn, Xuco, Xucp, Xucq, Xucr, Xucs, Xuct, Xucu, Xucv, Xucw,
                  Xucx, Xucy, Xucz, Xlsq, Xbsl, Xrsq, Xcar, Xund, Xag, Xlca,
                  Xlcb, Xlcc, Xlcd, Xlce, Xlcf, Xlcg, Xlch, Xlci, Xlcj, Xlck,
                  Xlcl, Xlcm, Xlcn, Xlco, Xlcp, Xlcq, Xlcr, Xlcs, Xlct, Xlcu,
                  Xlcv, Xlcw, Xlcx, Xlcy, Xlcz, Xlbc, Xvb, Xrbc, Xtld, Xdel);

    subtype Charword is Short_Integer;

    subtype Longint is Standard.Integer;
    type Varlongint is access Longint;

    type Real is new Standard.Integer;
    type Comp is array (1 .. 8) of Byte_Integer;
    subtype Double is Float;

    subtype Integer is Short_Integer;
    type Varinteger is access Integer;

    Noerr : constant := 0;

    type Byte is range 0 .. 255;
    subtype Byteword is Mac_Types.Integer;
    type Varbyteword is access Byteword;

    type Signedbyte is range -128 .. 127;
    type Ptr is access Signedbyte;
    type Varptr is access Ptr;
    type Handle is access Ptr;
    type Varhandle is access Handle;

    type Point is new Mac_Types.Longint;
    type Varpoint is access Point;

    type Macpoint is
        record
            V : Mac_Types.Integer;
            H : Mac_Types.Integer;
        end record;

    type Rect is
        record
            Top : Mac_Types.Integer;
            Left : Mac_Types.Integer;
            Bottom : Mac_Types.Integer;
            Right : Mac_Types.Integer;
        end record;

    subtype Procptr is Ptr;

    subtype Fixed is Mac_Types.Longint;
    type Varfixed is access Fixed;
    subtype Fract is Mac_Types.Longint;

    type Str255 is array (0 .. 255) of Mac_Types.Char;
    type Stringptr is access Str255;
    type Stringhandle is access Stringptr;
    type Str63 is array (0 .. 63) of Mac_Types.Char;
    type Str31 is array (0 .. 31) of Mac_Types.Char;
    type Str27 is array (0 .. 27) of Mac_Types.Char;
    type Str15 is array (0 .. 15) of Mac_Types.Char;

    subtype Oserr is Mac_Types.Integer;
    type Varoserr is access Oserr;

    type Restypearray is array (1 .. 4) of Mac_Types.Char;
    type Restype is new Mac_Types.Longint;

    type Ostypearray is array (1 .. 4) of Mac_Types.Char;
    type Ostype is new Mac_Types.Longint;

    procedure Debugger;
    pragma Interface (Mpwpascal, Debugger, "16#A9FF#");

    procedure Debugstr (Astr : Str255);
    pragma Interface (Mpwpascal, Debugstr, "16#ABFF#");

    procedure Sysbreak;
    pragma Interface (Mpwpascal, Sysbreak, "16#303C#,16#FE16#,16#A9C9#");

    procedure Sysbreakstr (Debugstr : Str255);
    pragma Interface (Mpwpascal, Sysbreakstr, "16#303C#,16#FE15#,16#A9C9#");

    procedure Sysbreakfunc (Debugfunc : Str255);
    pragma Interface (Mpwpascal, Sysbreakfunc, "16#303C#,16#FE14#,16#A9C9#");

end Mac_Types;