DataMuseum.dk

top - download

    Length: 1948 (0x79c)
    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

with System;
with Ada_C;
package body Local_Frames is

    procedure Init_C;
    pragma Interface (C, Init_C);
    pragma Interface_Information (Init_C, ".init_local_frames");

    function Get_Id_C (Window_Name : System.Address) return Integer;
    pragma Interface (C, Get_Id_C);
    pragma Interface_Information (Get_Id_C, ".get_local_frame_id");

    function Get_Id_With_Name_C (Window_Name : System.Address;
                                 Main_Lf : Integer;
                                 Path_Name : System.Address) return Integer;
    pragma Interface (C, Get_Id_With_Name_C);
    pragma Interface_Information (Get_Id_With_Name_C,
                                  ".get_local_frame_id_with_name");

    function Get_Name_C (Local_Frame : Integer) return System.Address;
    pragma Interface (C, Get_Name_C);
    pragma Interface_Information (Get_Name_C, ".get_local_frame_name");

    procedure Free_C (Local_Frame : Integer);
    pragma Interface (C, Free_C);
    pragma Interface_Information (Free_C, ".free_local_frame");


    function Get_Id (Id : String) return Local_Frame is
        C_Message : constant String := Id & Ascii.Nul;
    begin
        return Get_Id_C (C_Message (C_Message'First)'Address);
    end Get_Id;

    function Get_Name (Lf : Local_Frame) return String is
    begin
        return Ada_C.String_C_To_Ada (Get_Name_C (Lf));
    end Get_Name;

    procedure Free (Lf : Local_Frame) is
    begin
        Free_C (Lf);
    end Free;

    function Get_Id_With_Name
                (Id : String; Main_Lf : Local_Frame; Name : String)
                return Local_Frame is
        C_Message : constant String := Id & Ascii.Nul;
        C_Message2 : constant String := Name & Ascii.Nul;
    begin
        return Get_Id_With_Name_C (C_Message (C_Message'First)'Address, Main_Lf,
                                   C_Message2 (C_Message2'First)'Address);
    end Get_Id_With_Name;
begin
    Init_C;

end Local_Frames;