DataMuseum.dk

top - download

    Length: 5848 (0x16d8)
    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 Sane;
package Hyperxcmd is

    Xressucc : constant := 0;
    Xresfail : constant := 1;
    Xresnotimp : constant := 2;

    type Array1_16handle is array (1 .. 16) of Handle;
    type Array1_8longint is array (1 .. 8) of Longint;
    type Array1_4longint is array (1 .. 4) of Longint;
    type Xcmdblock is
        record
            Paramcount : Mac_Types.Integer;
            Params : Array1_16handle;
            Returnvalue : Handle;
            Passflag : Boolean;
            Entrypoint : Procptr;
            Request : Mac_Types.Integer;
            Result : Mac_Types.Integer;
            Inargs : Array1_8longint;
            Outargs : Array1_4longint;
        end record;
    type Xcmdptr is access Xcmdblock;

    procedure Sendcardmessage (Paramptr : Xcmdptr; Msg : Str255);
    pragma Interface (Mpwpascal, Sendcardmessage, "SENDCARDMESSAGE");

    procedure Sendhcmessage (Paramptr : Xcmdptr; Msg : Str255);
    pragma Interface (Mpwpascal, Sendhcmessage, "SENDHCMESSAGE");

    function Getglobal (Paramptr : Xcmdptr; Globname : Str255) return Handle;
    pragma Interface (Mpwpascal, Getglobal, "GETGLOBAL");

    procedure Setglobal
                 (Paramptr : Xcmdptr; Globname : Str255; Globvalue : Handle);
    pragma Interface (Mpwpascal, Setglobal, "SETGLOBAL");

    function Getfieldbyid (Paramptr : Xcmdptr;
                           Cardfieldflag : Boolean;
                           Fieldid : Mac_Types.Integer) return Handle;
    pragma Interface (Mpwpascal, Getfieldbyid, "GETFIELDBYID");

    function Getfieldbyname (Paramptr : Xcmdptr;
                             Cardfieldflag : Boolean;
                             Fieldname : Str255) return Handle;
    pragma Interface (Mpwpascal, Getfieldbyname, "GETFIELDBYNAME");

    function Getfieldbynum (Paramptr : Xcmdptr;
                            Cardfieldflag : Boolean;
                            Fieldnum : Mac_Types.Integer) return Handle;
    pragma Interface (Mpwpascal, Getfieldbynum, "GETFIELDBYNUM");

    procedure Setfieldbyid (Paramptr : Xcmdptr;
                            Cardfieldflag : Boolean;
                            Fieldid : Mac_Types.Integer;
                            Fieldval : Handle);
    pragma Interface (Mpwpascal, Setfieldbyid, "SETFIELDBYID");

    procedure Setfieldbyname (Paramptr : Xcmdptr;
                              Cardfieldflag : Boolean;
                              Fieldname : Str255;
                              Fieldval : Handle);
    pragma Interface (Mpwpascal, Setfieldbyname, "SETFIELDBYNAME");

    procedure Setfieldbynum (Paramptr : Xcmdptr;
                             Cardfieldflag : Boolean;
                             Fieldnum : Mac_Types.Integer;
                             Fieldval : Handle);
    pragma Interface (Mpwpascal, Setfieldbynum, "SETFIELDBYNUM");

    procedure Booltostr
                 (Paramptr : Xcmdptr; Bool : Boolean; Str : in out Str255);
    pragma Interface (Mpwpascal, Booltostr, "BOOLTOSTR");

    procedure Exttostr (Paramptr : Xcmdptr;
                        Num : Sane.Extended;
                        Str : in out Str255);
    pragma Interface (Mpwpascal, Exttostr, "EXTTOSTR");

    procedure Longtostr
                 (Paramptr : Xcmdptr; Posnum : Longint; Str : in out Str255);
    pragma Interface (Mpwpascal, Longtostr, "LONGTOSTR");

    procedure Numtostr (Paramptr : Xcmdptr; Num : Longint; Str : in out Str255);
    pragma Interface (Mpwpascal, Numtostr, "NUMTOSTR");

    procedure Numtohex (Paramptr : Xcmdptr;
                        Num : Longint;
                        Ndigits : Mac_Types.Integer;
                        Str : in out Str255);
    pragma Interface (Mpwpascal, Numtohex, "NUMTOHEX");

    function Strtobool (Paramptr : Xcmdptr; Str : Str255) return Boolean;
    pragma Interface (Mpwpascal, Strtobool, "STRTOBOOL");

    function Strtoext (Paramptr : Xcmdptr; Str : Str255) return Sane.Extended;
    pragma Interface (Mpwpascal, Strtoext, "STRTOEXT");

    function Strtolong (Paramptr : Xcmdptr; Str : Str255) return Longint;
    pragma Interface (Mpwpascal, Strtolong, "STRTOLONG");

    function Strtonum (Paramptr : Xcmdptr; Str : Str255) return Longint;
    pragma Interface (Mpwpascal, Strtonum, "STRTONUM");

    function Pastozero (Paramptr : Xcmdptr; Str : Str255) return Handle;
    pragma Interface (Mpwpascal, Pastozero, "PASTOZERO");

    procedure Zerotopas
                 (Paramptr : Xcmdptr; Zerostr : Ptr; Passtr : in out Str255);
    pragma Interface (Mpwpascal, Zerotopas, "ZEROTOPAS");

    function Evalexpr (Paramptr : Xcmdptr; Expr : Str255) return Handle;
    pragma Interface (Mpwpascal, Evalexpr, "EVALEXPR");

    procedure Returntopas
                 (Paramptr : Xcmdptr; Zerostr : Ptr; Passtr : in out Str255);
    pragma Interface (Mpwpascal, Returntopas, "RETURNTOPAS");

    procedure Scantoreturn (Paramptr : Xcmdptr; Scanptr : in out Ptr);
    pragma Interface (Mpwpascal, Scantoreturn, "SCANTORETURN");

    procedure Scantozero (Paramptr : Xcmdptr; Scanptr : in out Ptr);
    pragma Interface (Mpwpascal, Scantozero, "SCANTOZERO");

    function Stringequal (Paramptr : Xcmdptr; Str1 : Str255; Str2 : Str255)
                         return Boolean;
    pragma Interface (Mpwpascal, Stringequal, "STRINGEQUAL");

    function Stringmatch
                (Paramptr : Xcmdptr; Pattern : Str255; Target : Ptr) return Ptr;
    pragma Interface (Mpwpascal, Stringmatch, "STRINGMATCH");

    function Stringlength (Paramptr : Xcmdptr; Strptr : Ptr) return Longint;
    pragma Interface (Mpwpascal, Stringlength, "STRINGLENGTH");

    procedure Zerobytes (Paramptr : Xcmdptr; Dstptr : Ptr; Longcount : Longint);
    pragma Interface (Mpwpascal, Zerobytes, "ZEROBYTES");

end Hyperxcmd;