DataMuseum.dk

top - download

    Length: 892 (0x37c)
    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

package body Broker_Defs is

    function Class_Image (The_Class : in Class) return String is
    begin
        return Class'Image (The_Class);
    end Class_Image;


    function Class_Value (The_Image : in String) return Class is
    begin
        return Class'Value (The_Image);
    end Class_Value;


    function Status_Image (The_Status : in Status) return String is
    begin
        return Status'Image (The_Status);
    end Status_Image;


    function Status_Value (The_Image : in String) return Status is
    begin
        return Status'Value (The_Image);
    end Status_Value;


    function Result_Image (The_Result : in Result) return String is
    begin
        return Result'Image (The_Result);
    end Result_Image;


    function Result_Value (The_Image : in String) return Result is
    begin
        return Result'Value (The_Image);
    end Result_Value;

end Broker_Defs;