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 - metrics - download

⟦3477b7cce⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Link, seg_041179

Derivation

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

with Text_Io;
use Text_Io;
package body Link is

    procedure Put (Item : in out Object;
                   The_Kind : in String_Kind;
                   The_String : in String;
                   Ok : out Boolean) is

        Index : Natural;

    begin
        if The_Kind = Name then
            null;
            -- index de the_string dans mot;
        else
            -- index de the_string dans enumeration normal ou special + literal
            null;
            Ok := True;
        end if;
    end Put;

    procedure Put (Item : in out Object;
                   The_Kind : in Escape_Kind;
                   The_Escape : in Escape.Object;
                   Ok : out Boolean) is
    begin
        if The_Kind = First then
            Item.First_Escape := The_Escape;
        else  
            Item.Second_Escape := The_Escape;
        end if;
    end Put;

    procedure Image (Item : in Object) is
    begin
        Put_Line ("Link : Name : " & Natural'Image (Item.Name) &
                  " Enumeration : " & Natural'Image (Item.Enumeration) &
                  " literal : " & Natural'Image (Item.Literal));
        Escape.Image (Item.First_Escape);
        Escape.Image (Item.Second_Escape);
    end Image;

    function Name (Item : in Object) return Natural is

    begin
        return Item.Name;
    end Name;

    function Enumeration (Item : in Object) return Natural is
    begin
        return Item.Enumeration;
    end Enumeration;

    function Literal (Item : in Object) return Natural is
    begin
        return Item.Literal;
    end Literal;

    function First_Escape (Item : in Object) return Escape.Object is
    begin
        return Item.First_Escape;
    end First_Escape;

    function Second_Escape (Item : in Object) return Escape.Object is
    begin
        return Item.Second_Escape;
    end Second_Escape;

end Link;

    nblk1=4
    nid=3
    hdr6=4
        [0x00] rec0=26 rec1=00 rec2=01 rec3=024
        [0x01] rec0=23 rec1=00 rec2=04 rec3=000
        [0x02] rec0=06 rec1=00 rec2=03 rec3=000
        [0x03] rec0=04 rec1=0a rec2=a2 rec3=642
    tail 0x217415a948613479cab63 0x42a00088462060003
Free Block Chain:
  0x3: 0000  00 02 03 fc 80 3b 20 20 20 20 20 20 20 50 75 74  ┆     ;       Put┆
  0x2: 0000  00 00 00 53 00 22 20 20 20 20 20 20 20 20 72 65  ┆   S "        re┆