DataMuseum.dk

top - download

    Length: 1068 (0x42c)
    Types: TextFile
    Names: »B«

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦e24fb53b7⟧ 
            └─⟦this⟧ 

TextFile

separate (Generic_Expression)
package body Primary_Expression is
    function Value (For_Integer : Integer) return Object is
    begin
        return Object'(Kind => Immediate_Value, The_Value => For_Integer);
    end Value;


    function Value (For_Alias : Alias.Name) return Object is
    begin
        return Object'(Kind => Alias_Value, The_Alias => For_Alias);
    end Value;


    procedure Put (The_Object : Object; Where : Output_Stream.Object) is
        use Output_Stream;
    begin
        case The_Object.Kind is
            when Alias_Value =>
                Alias.Put (The_Object.The_Alias, Where);
            when Immediate_Value =>
                Put (The_Object.The_Value, Where);
        end case;
    end Put;


    function Evaluate (The_Object : Object) return Integer is
    begin
        case The_Object.Kind is
            when Alias_Value =>
                return Alias.Get (The_Object.The_Alias);
            when Immediate_Value =>
                return The_Object.The_Value;
        end case;
    end Evaluate;
end Primary_Expression;