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

⟦6bfee4bdc⟧ Ada Source

    Length: 8192 (0x2000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, function Get_Next, seg_0043e9, separate Ct_Hierarchy

Derivation

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

E3 Source Code



with New_Keys;
separate (Ct_Hierarchy)
function Get_Next (This_Map : Display_Map; In_This_Window : Window)
                  return Ada_Program.Element is
    function "=" (Left, Right : Window_Io.Raw.Key) return Boolean
        renames Window_Io.Raw."=";

    type Locations is (Element_Row, Parents_Row, Children_Row);
    Location     : Locations := Element_Row;
    Position     : Positive := 1;
    Inverse_Bold : constant Window_Io.Font :=
       (Window_Io.Plain, (Inverse => True, others => False));
    The_Stream   : Window_Io.Raw.Stream_Type;
    Key_Hit      : Window_Io.Raw.Key;
    Current_Box  : Object := This_Map.Element;

begin

    Window_Io.Raw.Open (The_Stream);

    loop
        -- highlight the current element
        Window_Io.Position_Cursor
           (File   => In_This_Window,
            Line   => Current_Box.Line,
            Column => Current_Box.Col +
                         Ub_Strings.Length (Current_Box.Name) - 1,
            Offset => 0);
        Window_Io.Position_Cursor (File   => In_This_Window,
                                   Line   => Current_Box.Line,
                                   Column => Current_Box.Col,
                                   Offset => 0);
        Window_Io.Overwrite (File  => In_This_Window,
                             Item  => Ub_Strings.Image (Current_Box.Name),
                             Image => Inverse_Bold,
                             Kind  => Window_Io.Text);

        -- get a key
        Window_Io.Raw.Get (The_Stream, Key_Hit);

        -- de-highlight the current element
        Window_Io.Position_Cursor (File   => In_This_Window,
                                   Line   => Current_Box.Line,
                                   Column => Current_Box.Col,
                                   Offset => 0);
        Window_Io.Overwrite (File  => In_This_Window,
                             Item  => Ub_Strings.Image (Current_Box.Name),
                             Image => Window_Io.Normal,
                             Kind  => Window_Io.Text);

        if Key_Hit = New_Keys.Left then
            Location    := Element_Row;
            Current_Box := This_Map.Element;

        elsif Key_Hit = New_Keys.Right then
            Location    := Element_Row;
            Current_Box := This_Map.Return_Option;

        elsif Key_Hit = New_Keys.Up then
            case Location is
                when Parents_Row =>
                    if Position > 1 then  
                        Position    := Position - 1;
                        Current_Box := This_Map.Parents (Position);
                    end if;

                when Element_Row =>
                    if This_Map.Num_Parents > 0 then
                        Location    := Parents_Row;
                        Position    := This_Map.Num_Parents;
                        Current_Box := This_Map.Parents (Position);
                    end if;

                when Children_Row =>
                    if Position = 1 then  
                        Current_Box := This_Map.Element;
                        Location    := Element_Row;
                    else
                        Position    := Position - 1;
                        Current_Box := This_Map.Children (Position);
                    end if;
            end case;

        elsif Key_Hit = New_Keys.Down then
            case Location is
                when Parents_Row =>
                    if Position = 1 then
                        Location    := Element_Row;
                        Current_Box := This_Map.Element;
                    else
                        Position    := Position + 1;
                        Current_Box := This_Map.Parents (Position);
                    end if;

                when Element_Row =>
                    if This_Map.Num_Children > 0 then
                        Location    := Children_Row;
                        Position    := 1;
                        Current_Box := This_Map.Children (1);
                    end if;

                when Children_Row =>
                    if Position < This_Map.Num_Children then
                        Position    := Position + 1;
                        Current_Box := This_Map.Children (Position);
                    end if;
            end case;

        elsif Key_Hit = New_Keys.Definition then
            exit;
        end if;

    end loop;

    Window_Io.Raw.Close (The_Stream);

    return Current_Box.Contents;

end Get_Next;

E3 Meta Data

    nblk1=7
    nid=0
    hdr6=e
        [0x00] rec0=1d rec1=00 rec2=01 rec3=00c
        [0x01] rec0=00 rec1=00 rec2=07 rec3=020
        [0x02] rec0=14 rec1=00 rec2=02 rec3=02c
        [0x03] rec0=1a rec1=00 rec2=03 rec3=01e
        [0x04] rec0=00 rec1=00 rec2=06 rec3=01e
        [0x05] rec0=18 rec1=00 rec2=04 rec3=048
        [0x06] rec0=16 rec1=00 rec2=05 rec3=000
    tail 0x217001696815c634c096c 0x42a00088462061e03