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

⟦f5eb13267⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Gui_Interface, seg_00d2c0

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_Cnt_Pb_Counter_Value_Activate return Integer;
    pragma Interface (C, Get_Cnt_Pb_Counter_Value_Activate);
    pragma Linkname (Get_Cnt_Pb_Counter_Value_Activate,
                     "GetCntPBCounterValueActivate");


    function Get_Cnt_Pb_Date_Activate return Integer;
    pragma Interface (C, Get_Cnt_Pb_Date_Activate);
    pragma Linkname (Get_Cnt_Pb_Date_Activate, "GetCntPBDateActivate");


    function Get_Cnt_Pb_Reset_Activate return Integer;
    pragma Interface (C, Get_Cnt_Pb_Reset_Activate);
    pragma Linkname (Get_Cnt_Pb_Reset_Activate, "GetCntPBResetActivate");


    function Get_Cnt_Pb_Upper_Case_Activate return Integer;
    pragma Interface (C, Get_Cnt_Pb_Upper_Case_Activate);
    pragma Linkname (Get_Cnt_Pb_Upper_Case_Activate,
                     "GetCntPBUpperCaseActivate");



    function Get_Cnt_Pb_Lower_Case_Activate return Integer;
    pragma Interface (C, Get_Cnt_Pb_Lower_Case_Activate);
    pragma Linkname (Get_Cnt_Pb_Lower_Case_Activate,
                     "GetCntPBLowerCaseActivate");




    function Get_Cnt_Pb_Clear_Activate return Integer;
    pragma Interface (C, Get_Cnt_Pb_Clear_Activate);
    pragma Linkname (Get_Cnt_Pb_Clear_Activate, "GetCntPBClearActivate");



    function Get_Cnt_Pb_Quit_Activate return Integer;
    pragma Interface (C, Get_Cnt_Pb_Quit_Activate);
    pragma Linkname (Get_Cnt_Pb_Quit_Activate, "GetCntPBQuitActivate");



    procedure Set_Counter_Label (Value : Integer);
    pragma Interface (C, Set_Counter_Label);
    pragma Linkname (Set_Counter_Label, "SetCounterLabel");


    procedure Set_Date_Label (Date : String);
    procedure Set_Message (Message : String);

    procedure Set_Dialog (Dialog : String);

    function Get_Dialog return String;

    procedure Iter_Init;
    pragma Interface (C, Iter_Init);
    pragma Linkname (Iter_Init, "IterInit");

    function Iter_Done return Boolean;

    procedure Iter_Next;
    pragma Interface (C, Iter_Next);
    pragma Linkname (Iter_Next, "IterNext");

    function Iter_Value return Character;
    pragma Interface (C, Iter_Value);
    pragma Linkname (Iter_Value, "IterValue");

end Gui_Interface;

E3 Meta Data

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=1c rec1=00 rec2=01 rec3=066
        [0x01] rec0=23 rec1=00 rec2=02 rec3=02c
        [0x02] rec0=0b rec1=00 rec2=03 rec3=001
    tail 0x2170a134882154add51eb 0x42a00088462060003