DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

Index: B T

⟦e629b0aa8⟧ TextFile

    Length: 553 (0x229)
    Types: TextFile
    Names: »B«

Derivation

└─⟦bfaa708f6⟧ Bits:30000531 8mm tape, Rational 1000, INSIGHT 1_3_0
    └─⟦c51948655⟧ »DATA« 
        └─⟦266b31e86⟧ 
            └─⟦this⟧

TextFile

with Debug_Tools;
with Message;
with Client;
package body Debugger_Display_Functions is

    function Image (Value : Message.Packet;
                    Level : Natural;
                    Prefix : String;
                    Expand_Pointers : Boolean) return String is
    begin
        return "PKT: Dest=>" & Client.Id'Image (Message.Destination (Value)) &
                  ", Msg=> " & Message.Packet_Body (Value);
    end Image;

    procedure Reg is new Debug_Tools.Register (Message.Packet, Image);
begin
    Reg;
end Debugger_Display_Functions;