DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download
Index: ┃ T V ┃

⟦448179cd0⟧ TextFile

    Length: 13560 (0x34f8)
    Types: TextFile
    Names: »V«

Derivation

└─⟦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;
package Resources is

    Ressysheap : constant := 64;
    Respurgeable : constant := 32;
    Reslocked : constant := 16;
    Resprotected : constant := 8;
    Respreload : constant := 4;
    Reschanged : constant := 2;
    Mapreadonly : constant := 128;
    Mapcompact : constant := 64;
    Mapchanged : constant := 32;

    Alert_Resource : constant Restype := 16#414C5254#; -- "ALRT";
    Apple_Desktop_Bus_Resource : constant Restype := 16#41444253#; -- "ADBS";
    Bundle_Resource : constant Restype := 16#424E444C#; -- "BNDL";
    Ram_Cache_Resource : constant Restype := 16#43414348#; -- "CACH";
    Control_Definition_Resource : constant Restype := 16#43444546#; -- "CDEF";
    Control_Resource : constant Restype := 16#434E544C#; -- "CNTL";
    Code_Resource : constant Restype := 16#434F4445#; -- "CODE";
    Cursor_Resource : constant Restype := 16#43555253#; -- "CURS";
    Item_List_Resource : constant Restype := 16#4449544C#; -- "DITL";
    Dialog_Resource : constant Restype := 16#444C4F47#; -- "DLOG";
    Da_Resource : constant Restype := 16#44525652#; -- "DRVR";
    Startup_Alert_Table_Resource : constant Restype := 16#44534154#; -- "DSAT";
    Command_Shift_Number_Resource : constant Restype := 16#464B4559#; -- "FKEY";
    Format_Floppy_Disk_Resource : constant Restype := 16#464D5452#; -- "FMTR";
    Font_Family_Resource : constant Restype := 16#464F4E44#; -- "FOND";
    Font_Resource : constant Restype := 16#464F4E54#; -- "FONT";
    File_Reference_Resource : constant Restype := 16#46524546#; -- "FREF";
    System_Font_Resource : constant Restype := 16#46525356#; -- "FRSV";
    Font_Width_Resource : constant Restype := 16#46574944#; -- "FWID";
    Icon_List_Resource : constant Restype := 16#49434E23#; -- "ICN#";
    Icon_Resource : constant Restype := 16#49434F4E#; -- "ICON";
    Initialization_Resource : constant Restype := 16#494E4954#; -- "INIT";
    International_Resource : constant Restype := 16#494E544C#; -- "INTL";
    Integer_List_Resource : constant Restype := 16#494E5423#; -- "INT#";
    Key_Caps_Layout_Resource : constant Restype := 16#4B434150#; -- "KCAP";
    Ascii_Mapping_Resource : constant Restype := 16#4B434852#; -- "KCHR";
    Keyboard_Mapping_Resource : constant Restype := 16#4B4D4150#; -- "KMAP";
    Keyboard_Script_Table_Resource :
       constant Restype := 16#4B535750#; -- "KSWP";
    List_Definition_Resource : constant Restype := 16#4C444546#; -- "LDEF";
    Menu_Bar_Resource : constant Restype := 16#4D424152#; -- "MBAR";
    Default_Menu_Resource : constant Restype := 16#4D424446#; -- "MBDF";
    Menu_Definition_Resource : constant Restype := 16#4D444546#; -- "MDEF";
    Menu_Resource : constant Restype := 16#4D454E55#; -- "MENU";
    Mouse_Resource : constant Restype := 16#4D4D4150#; -- "MMAP";
    Appletalk_Bundle_Resource : constant Restype := 16#4E425043#; -- "NBPC";
    New_Font_Resource : constant Restype := 16#4E464E54#; -- "NFNT";
    Package_Resource : constant Restype := 16#5041434B#; -- "PACK";
    Pattern_Resource : constant Restype := 16#50415420#; -- "PAT ";
    Pattern_List_Resource : constant Restype := 16#50415423#; -- "PAT#";
    Printing_Code_Resource : constant Restype := 16#50444546#; -- "PDEF";
    Picture_Resource : constant Restype := 16#50494354#; -- "PICT";
    Print_Record_Resource : constant Restype := 16#50524543#; -- "PREC";
    Non_Serial_Printer_Resource : constant Restype := 16#50524552#; -- "PRER";
    Serialprinter_Resource : constant Restype := 16#50524553#; -- "PRES";
    Rom_Patch_Resource : constant Restype := 16#50544348#; -- "PTCH";
    Other_Device_Resource : constant Restype := 16#52444556#; -- "RDEV";
    Rom_Override_Resource : constant Restype := 16#524F7672#; -- "ROvr";
    Rom_List_Resource : constant Restype := 16#524F7623#; -- "ROv#";
    Serial_Driver : constant Restype := 16#53455244#; -- "SERD";
    Script_Icon_Resource : constant Restype := 16#5349434E#; -- "SICN";
    String_Resource : constant Restype := 16#53545220#; -- "STR ";
    String_List_Resource : constant Restype := 16#53545223#; -- "STR#";
    Window_Definition_Resource : constant Restype := 16#57444546#; -- "WDEF";
    Window_Resource : constant Restype := 16#57494E44#; -- "WIND";
    Alert_Color_Table_Resource : constant Restype := 16#61637462#; -- "actb";
    Internal_Appletalk_Resource : constant Restype := 16#6174706C#; -- "atpl";
    Bit_Map_Resource : constant Restype := 16#626D6170#; -- "bmap";
    Boot_Blocks_Resource : constant Restype := 16#626F6F74#; -- "boot";
    Control_Color_Table_Resource : constant Restype := 16#63637462#; -- "cctb";
    Color_Icon_Resource : constant Restype := 16#6369636E#; -- "cicn";
    Projector_Resource : constant Restype := 16#636B6964#; -- "ckid";
    Cached_Icon_List_Resource : constant Restype := 16#636C7374#; -- "clst";
    Color_Lookup_Table_Resource : constant Restype := 16#636C7574#; -- "clut";
    Color_Cursor_Resource : constant Restype := 16#63727372#; -- "crsr";
    Control_Panel_Resource : constant Restype := 16#63746162#; -- "ctab";
    Dialog_Color_Table_Resource : constant Restype := 16#64637462#; -- "dctb";
    Font_Color_Table_Resource : constant Restype := 16#66637462#; -- "fctb";
    Font_Information_Resource : constant Restype := 16#66696E66#; -- "finf";
    Color_Correction_Resource : constant Restype := 16#67616D61#; -- "gama";
    Color_Table_Item_Resource : constant Restype := 16#69637462#; -- "ictb";
    Installer_Script_Resource : constant Restype := 16#696E7363#; -- "insc";
    Date_Time_Format_Resource : constant Restype := 16#69746C30#; -- "itl0";
    Day_Month_Name_Resource : constant Restype := 16#69746C31#; -- "itl1";
    Iu_Sort_Hooks_Resource : constant Restype := 16#69746C32#; -- "itl2";
    Iu_Script_Bundles_Resource : constant Restype := 16#69746C62#; -- "itlb";
    Iu_Configuration_Resource : constant Restype := 16#69746C63#; -- "itlc";
    Low_Memory_Globals_Resource : constant Restype := 16#6C6D656D#; -- "lmem";
    Mouse_Tracking_Resource : constant Restype := 16#6D636B79#; -- "mcky";
    Menu_Color_Table_Resource : constant Restype := 16#6D637462#; -- "mctb";
    Makeitable_Resource : constant Restype := 16#6D697471#; -- "mitq";
    Appletalk_Configuration_Resource :
       constant Restype := 16#6D707063#; -- "mppc";
    Rectangle_Position_Resource : constant Restype := 16#6E726374#; -- "nrct";
    Color_Palette_Resource : constant Restype := 16#706C7474#; -- "pltt";
    Pixel_Pattern_Resource : constant Restype := 16#70706174#; -- "ppat";
    Screen_Resource : constant Restype := 16#7363726E#; -- "scrn";
    Sound_Resource : constant Restype := 16#736E6420#; -- "snd ";
    Synthesizer_Resource : constant Restype := 16#736E7468#; -- "snth";
    Window_Color_Table_Resource : constant Restype := 16#77637462#; -- "wctb";

    function Initresources return Mac_Types.Integer;
    pragma Interface (Mpwpascal, Initresources, "16#A995#");

    procedure Rsrczoneinit;
    pragma Interface (Mpwpascal, Rsrczoneinit, "16#A996#");

    procedure Closeresfile (Refnum : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Closeresfile, "16#A99A#");

    function Reserror return Mac_Types.Integer;
    pragma Interface (Mpwpascal, Reserror, "16#A9AF#");

    function Curresfile return Mac_Types.Integer;
    pragma Interface (Mpwpascal, Curresfile, "16#A994#");

    function Homeresfile (Theresource : Handle) return Mac_Types.Integer;
    pragma Interface (Mpwpascal, Homeresfile, "16#A9A4#");

    procedure Createresfile (Filename : Str255);
    pragma Interface (Mpwpascal, Createresfile, "16#A9B1#");

    function Openresfile (Filename : Str255) return Mac_Types.Integer;
    pragma Interface (Mpwpascal, Openresfile, "16#A997#");

    procedure Useresfile (Refnum : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Useresfile, "16#A998#");

    function Counttypes return Mac_Types.Integer;
    pragma Interface (Mpwpascal, Counttypes, "16#A99E#");

    function Count1types return Mac_Types.Integer;
    pragma Interface (Mpwpascal, Count1types, "16#A81C#");

    procedure Getindtype (Thetype : in out Restype; Index : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Getindtype, "16#A99F#");

    procedure Get1indtype (Thetype : in out Restype; Index : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Get1indtype, "16#A80F#");

    procedure Setresload (Load : Boolean);
    pragma Interface (Mpwpascal, Setresload, "16#A99B#");

    function Countresources (Thetype : Restype) return Mac_Types.Integer;
    pragma Interface (Mpwpascal, Countresources, "16#A99C#");

    function Count1resources (Thetype : Restype) return Mac_Types.Integer;
    pragma Interface (Mpwpascal, Count1resources, "16#A80D#");

    function Getindresource
                (Thetype : Restype; Index : Mac_Types.Integer) return Handle;
    pragma Interface (Mpwpascal, Getindresource, "16#A99D#");

    function Get1indresource
                (Thetype : Restype; Index : Mac_Types.Integer) return Handle;
    pragma Interface (Mpwpascal, Get1indresource, "16#A80E#");

    function Getresource
                (Thetype : Restype; Theid : Mac_Types.Integer) return Handle;
    pragma Interface (Mpwpascal, Getresource, "16#A9A0#");

    function Get1resource
                (Thetype : Restype; Theid : Mac_Types.Integer) return Handle;
    pragma Interface (Mpwpascal, Get1resource, "16#A81F#");

    function Getnamedresource (Thetype : Restype; Name : Str255) return Handle;
    pragma Interface (Mpwpascal, Getnamedresource, "16#A9A1#");

    function Get1namedresource (Thetype : Restype; Name : Str255) return Handle;
    pragma Interface (Mpwpascal, Get1namedresource, "16#A820#");

    procedure Loadresource (Theresource : Handle);
    pragma Interface (Mpwpascal, Loadresource, "16#A9A2#");

    procedure Releaseresource (Theresource : Handle);
    pragma Interface (Mpwpascal, Releaseresource, "16#A9A3#");

    procedure Detachresource (Theresource : Handle);
    pragma Interface (Mpwpascal, Detachresource, "16#A992#");

    function Uniqueid (Thetype : Restype) return Mac_Types.Integer;
    pragma Interface (Mpwpascal, Uniqueid, "16#A9C1#");

    function Unique1id (Thetype : Restype) return Mac_Types.Integer;
    pragma Interface (Mpwpascal, Unique1id, "16#A810#");

    function Getresattrs (Theresource : Handle) return Mac_Types.Integer;
    pragma Interface (Mpwpascal, Getresattrs, "16#A9A6#");

    procedure Getresinfo (Theresource : Handle;
                          Theid : in out Mac_Types.Integer;
                          Thetype : in out Restype;
                          Name : in out Str255);
    pragma Interface (Mpwpascal, Getresinfo, "16#A9A8#");

    procedure Setresinfo (Theresource : Handle;
                          Theid : Mac_Types.Integer;
                          Name : Str255);
    pragma Interface (Mpwpascal, Setresinfo, "16#A9A9#");

    procedure Addresource (Theresource : Handle;
                           Thetype : Restype;
                           Theid : Mac_Types.Integer;
                           Name : Str255);
    pragma Interface (Mpwpascal, Addresource, "16#A9AB#");

    function Sizeresource (Theresource : Handle) return Longint;
    pragma Interface (Mpwpascal, Sizeresource, "16#A9A5#");

    function Maxsizersrc (Theresource : Handle) return Longint;
    pragma Interface (Mpwpascal, Maxsizersrc, "16#A821#");

    function Rsrcmapentry (Theresource : Handle) return Longint;
    pragma Interface (Mpwpascal, Rsrcmapentry, "16#A9C5#");

    procedure Setresattrs (Theresource : Handle; Attrs : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Setresattrs, "16#A9A7#");

    procedure Changedresource (Theresource : Handle);
    pragma Interface (Mpwpascal, Changedresource, "16#A9AA#");

    procedure Rmveresource (Theresource : Handle);
    pragma Interface (Mpwpascal, Rmveresource, "16#A9AD#");

    procedure Updateresfile (Refnum : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Updateresfile, "16#A999#");

    procedure Writeresource (Theresource : Handle);
    pragma Interface (Mpwpascal, Writeresource, "16#A9B0#");

    procedure Setrespurge (Install : Boolean);
    pragma Interface (Mpwpascal, Setrespurge, "16#A993#");

    function Getresfileattrs (Refnum : Mac_Types.Integer)
                             return Mac_Types.Integer;
    pragma Interface (Mpwpascal, Getresfileattrs, "16#A9F6#");

    procedure Setresfileattrs (Refnum : Mac_Types.Integer;
                               Attrs : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Setresfileattrs, "16#A9F7#");

    function Openrfperm (Filename : Str255;
                         Vrefnum : Mac_Types.Integer;
                         Permission : Signedbyte) return Mac_Types.Integer;
    pragma Interface (Mpwpascal, Openrfperm, "16#A9C4#");

    function Rgetresource
                (Thetype : Restype; Theid : Mac_Types.Integer) return Handle;
    pragma Interface (Mpwpascal, Rgetresource, "16#A80C#");

    function Hopenresfile (Vrefnum : Mac_Types.Integer;
                           Dirid : Longint;
                           Filename : Str255;
                           Permission : Signedbyte) return Mac_Types.Integer;
    pragma Interface (Mpwpascal, Hopenresfile, "HOPENRESFILE");

    procedure Hcreateresfile (Vrefnum : Mac_Types.Integer;
                              Dirid : Longint;
                              Filename : Str255);
    pragma Interface (Mpwpascal, Hcreateresfile, "HCREATERESFILE");

end Resources;