DataMuseum.dk

top - download

    Length: 3676 (0xe5c)
    Types: TextFile
    Names: »B«

└─⟦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

package body Gui_Interface is

    procedure Init_C;
    pragma Interface (C, Init_C);
    pragma Linkname (Init_C, "Init");


    function Get_Cnt_Reset_Activate_C return Integer;
    pragma Interface (C, Get_Cnt_Reset_Activate_C);
    pragma Linkname (Get_Cnt_Reset_Activate_C, "GetCntResetActivate");

    function Get_Cnt_Stop_Activate_C return Integer;
    pragma Interface (C, Get_Cnt_Stop_Activate_C);
    pragma Linkname (Get_Cnt_Stop_Activate_C, "GetCntStopActivate");

    function Get_Cnt_Step_Activate_C return Integer;
    pragma Interface (C, Get_Cnt_Step_Activate_C);
    pragma Linkname (Get_Cnt_Step_Activate_C, "GetCntStepActivate");

    function Get_Cnt_Go_Activate_C return Integer;
    pragma Interface (C, Get_Cnt_Go_Activate_C);
    pragma Linkname (Get_Cnt_Go_Activate_C, "GetCntGoActivate");

    function Get_Cnt_Quit_Activate_C return Integer;
    pragma Interface (C, Get_Cnt_Quit_Activate_C);
    pragma Linkname (Get_Cnt_Quit_Activate, "GetCntQuitActivate");

    procedure Set_Message_C (C_Message : System.Address);
    pragma Interface (C, Set_Message_C);
    pragma Linkname (Set_Message_C, "SetMessage");

    function Iter_Done_C return Integer;
    pragma Interface (C, Iter_Done_C);
    pragma Linkname (Iter_Done_C, "IterDone");

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

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

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


    procedure Init is
    begin
        Init_C;
    end Init;


    function Get_Cnt_Reset_Activate return Integer is
    begin
        return Get_Cnt_Reset_Activate_C;
    end Get_Cnt_Reset_Activate;


    function Get_Cnt_Stop_Activate return Integer is
    begin
        return Get_Cnt_Stop_Activate_C;
    end Get_Cnt_Stop_Activate;


    function Get_Cnt_Go_Activate return Integer is
    begin
        return Get_Cnt_Go_Activate_C;
    end Get_Cnt_Go_Activate;


    function Get_Cnt_Step_Activate return Integer is
    begin
        return Get_Cnt_Step_Activate_C;
    end Get_Cnt_Step_Activate;


    function Get_Cnt_Quit_Activate return Integer is
    begin
        return Get_Cnt_Quit_Activate_C;
    end Get_Cnt_Quit_Activate;


    procedure Set_Message (Message : String) is
        C_Message : constant String := Message & Ascii.Nul;
    begin
        Set_Message_C (C_Message => C_Message (C_Message'First)'Address);
    end Set_Message;


    procedure Set_Instruction (Instruction : String) is
        C_Instruction : constant String := Instruction & Ascii.Nul;
    begin
        Set_Instruction_C (C_Instruction =>
                              C_Instruction (C_Instruction'First)'Address);
    end Set_Instruction;


    procedure Update (Z80_Status : String) is
        C_Z80_Status : constant String := Z80_Status & Ascii.Nul;
    begin
        Set_Z80_Status_C (C_Z80_Status =>
                             C_Z80_Status (C_Z80_Status'First)'Address);
    end Update;


    package body Iterator is
        procedure Init is
        begin
            Iter_Init_C;
        end Init;


        function Done return Boolean is
        begin
            if Iter_Done_C = 1 then
                return True;
            else
                return False;
            end if;
        end Done;


        procedure Next is
        begin
            Iter_Next_C;
        end Next;


        function Value return Character is
        begin
            return Iter_Value_C;
        end Value;
    end Iterator;

end Gui_Interface;