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

⟦af106797a⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Local_Frames, seg_02767b

Derivation

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

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;

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=1a rec1=00 rec2=01 rec3=034
        [0x01] rec0=1e rec1=00 rec2=02 rec3=00a
        [0x02] rec0=03 rec1=00 rec2=03 rec3=000
    tail 0x21520a77483ac44089315 0x42a00088462060003