DataMuseum.dk

top - download

    Length: 4749 (0x128d)
    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 Quickdraw;
with Osutils;
with Events;
with Dialogs;
package Devices is

    Newselmsg : constant := 12;
    Filllistmsg : constant := 13;
    Getselmsg : constant := 14;
    Selectmsg : constant := 15;
    Deselectmsg : constant := 16;
    Terminatemsg : constant := 17;
    Buttonmsg : constant := 19;
    Chooserid : constant := 1;
    Initdev : constant := 0;
    Hitdev : constant := 1;
    Closedev : constant := 2;
    Nuldev : constant := 3;
    Updatedev : constant := 4;
    Activdev : constant := 5;
    Deactivdev : constant := 6;
    Keyevtdev : constant := 7;
    Macdev : constant := 8;
    Undodev : constant := 9;
    Cutdev : constant := 10;
    Copydev : constant := 11;
    Pastedev : constant := 12;
    Cleardev : constant := 13;
    Cursordev : constant := 14;
    Cdevgenerr : constant := -1;
    Cdevmemerr : constant := 0;
    Cdevreserr : constant := 1;
    Cdevunset : constant := 3;

    type Dctlentry is
        record
            Dctldriver : Ptr;
            Dctlflags : Mac_Types.Integer;
            Dctlqhdr : Osutils.Qhdr;
            Dctlposition : Longint;
            Dctlstorage : Handle;
            Dctlrefnum : Mac_Types.Integer;
            Dctlcurticks : Longint;
            Dctlwindow : Quickdraw.Windowptr;
            Dctldelay : Mac_Types.Integer;
            Dctlemask : Mac_Types.Integer;
            Dctlmenu : Mac_Types.Integer;
        end record;
    type Dctlptr is access Dctlentry;
    type Dctlhandle is access Dctlptr;

    type Auxdce is
        record
            Dctldriver : Ptr;
            Dctlflags : Mac_Types.Integer;
            Dctlqhdr : Osutils.Qhdr;
            Dctlposition : Longint;
            Dctlstorage : Handle;
            Dctlrefnum : Mac_Types.Integer;
            Dctlcurticks : Longint;
            Dctlwindow : Quickdraw.Grafptr;
            Dctldelay : Mac_Types.Integer;
            Dctlemask : Mac_Types.Integer;
            Dctlmenu : Mac_Types.Integer;
            Dctlslot : Byte;
            Dctlslotid : Byte;
            Dctldevbase : Longint;
            Dctlowner : Ptr;
            Dctlextdev : Byte;
            Fillbyte : Byte;
        end record;
    type Auxdceptr is access Auxdce;
    type Auxdcehandle is access Auxdceptr;

    function Getdctlentry (Refnum : Mac_Types.Integer) return Dctlhandle;
    pragma Interface (Mpwpascal, Getdctlentry, "GETDCTLENTRY");

    function Setchooseralert (F : Boolean) return Boolean;
    pragma Interface (Mpwpascal, Setchooseralert, "SETCHOOSERALERT");

    function Opendriver (Name : Str255; Drvrrefnum : Varinteger) return Oserr;
    pragma Interface (Mpwpascal, Opendriver, "OPENDRIVER");

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

    function Control (Refnum : Mac_Types.Integer;
                      Cscode : Mac_Types.Integer;
                      Csparamptr : Ptr) return Oserr;
    pragma Interface (Mpwpascal, Control, "CONTROL");

    function Status (Refnum : Mac_Types.Integer;
                     Cscode : Mac_Types.Integer;
                     Csparamptr : Ptr) return Oserr;
    pragma Interface (Mpwpascal, Status, "STATUS");

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

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

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

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

    generic
        with function Routine (Message : Mac_Types.Integer;
                               Caller : Mac_Types.Integer;
                               Objname : Stringptr;
                               Zonename : Stringptr;
                               P1 : Longint;
                               P2 : Longint) return Oserr;
    procedure Userdeviceroutine;

    generic
        with function Routine (Message : Mac_Types.Integer;
                               Item : Mac_Types.Integer;
                               Numitems : Mac_Types.Integer;
                               Cpanelid : Mac_Types.Integer;
                               Theevent : Events.Eventrecord;
                               Cdevvalue : Longint;
                               Cpdialog : Dialogs.Dialogptr) return Longint;
    procedure Usercdevroutine;

end Devices;