DataMuseum.dk

top - download

    Length: 1226 (0x4ca)
    Types: TextFile
    Names: »BUTTON_BODY_ADA«

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

with Callback;
with System;
package body Button is

    procedure Create_C;
    pragma Interface (C, Create_C);
    pragma Interface_Information (Create_C, ".Create");

    -- These variables are stored here so that they will be active
    -- when the C routine gets around to using them.
    -- Alternatively these variables could be encapsulated in a package
    -- specification. They should NOT be put into Register_the_subprogram
    -- because they would cease to exist when that subprogram finishes.
    Some_Descriptor : Callback.Function_Descriptor_Type;
    Some_Subprogram_Value : System.Subprogram_Value;

    procedure Register_The_Subprogram is
        procedure Register_Subprogram (Descriptor : System.Address);
        pragma Interface (C, Register_Subprogram);
        pragma Interface_Information
           (Register_Subprogram, ".Register_Subprogram");
    begin
        Some_Subprogram_Value := Activate_Callback'Subprogram_Value;
        Some_Descriptor := Callback.Ada_To_C (Some_Subprogram_Value);
        Register_Subprogram (Some_Descriptor'Address);
    end Register_The_Subprogram;

    procedure Create is
    begin
        Create_C;
    end Create;
begin
    Register_The_Subprogram;
end Button;