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

⟦d6076409e⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Gui_Interface, seg_00db7f

Derivation

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

E3 Source Code



package Gui_Interface is

    function Get_Make_Controlled_Activate return Integer;
    pragma Interface (C, Get_Make_Controlled_Activate);
    pragma Linkname (Get_Make_Controlled_Activate, "GetMakeControlledActivate");


    function Get_Make_Uncontrolled_Activate return Integer;
    pragma Interface (C, Get_Make_Uncontrolled_Activate);
    pragma Linkname (Get_Make_Uncontrolled_Activate,
                     "GetMakeUncontrolledActivate");


    function Get_Check_Out_Activate return Integer;
    pragma Interface (C, Get_Check_Out_Activate);
    pragma Linkname (Get_Check_Out_Activate, "GetCheckOutActivate");


    function Get_Check_In_Activate return Integer;
    pragma Interface (C, Get_Check_In_Activate);
    pragma Linkname (Get_Check_In_Activate, "GetCheckInActivate");


    function Get_History_Activate return Integer;
    pragma Interface (C, Get_History_Activate);
    pragma Linkname (Get_History_Activate, "GetHistoryActivate");

   function Get_Quit_Activate return Integer;
    pragma Interface (C, Get_Quit_Activate);
    pragma Linkname (Get_Quit_Activate, "GetQuitActivate");

    function Get_Activate return Integer;
    pragma Interface (C, Get_Activate);
    pragma Linkname (Get_Activate, "GetActivate");


    procedure Set_Output (Output : String);

    function File_Name return String;

    procedure Set_Clock_Cursor;
    procedure Set_Arrow_Cursor;
end Gui_Interface;

E3 Meta Data

    nblk1=4
    nid=3
    hdr6=4
        [0x00] rec0=1e rec1=00 rec2=01 rec3=002
        [0x01] rec0=10 rec1=00 rec2=02 rec3=000
        [0x02] rec0=04 rec1=00 rec2=04 rec3=000
        [0x03] rec0=03 rec1=00 rec2=02 rec3=000
    tail 0x2170a7ad88217763a3898 0x42a00088462060003
Free Block Chain:
  0x3: 0000  00 04 00 28 80 0a 65 72 56 61 6c 75 65 22 29 3b  ┆   (  erValue");┆
  0x4: 0000  00 00 00 5d 80 0e 2c 20 49 74 65 72 5f 56 61 6c  ┆   ]  , Iter_Val┆