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 - download
Index: ┃ B T ┃

⟦7f06f5e41⟧ TextFile

    Length: 2277 (0x8e5)
    Types: TextFile
    Names: »B«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦e24fb53b7⟧ 
            └─⟦this⟧

TextFile

separate (Generic_Fact_Base.Query)
package body Operators is

    function Match (The_Expression : Expression_Object;
                    The_Predicate  : Predicate_Object) return Boolean is
    begin
        return Predicate_Match (Value   => Expression_Evaluate (The_Expression),
                                Against => The_Predicate);
    end Match;


    function Satisfying
                (E : Expression_Object; P : Predicate_Object) return Object is
    begin
        return Query.Object'(Size           => 0,
                             Kind           => Evaluate,
                             The_Expression => E,
                             The_Predicate  => P);
    end Satisfying;


    function Satisfying
                (The_Slot : Slot.Object; P : Predicate_Object) return Object is
    begin
        return Satisfying (Slot_Object_Expression (The_Slot), P);
    end Satisfying;


    function Satisfying
                (The_Alias : Alias.Name; P : Predicate_Object) return Object is
    begin
        return Satisfying (Alias_Expression (The_Alias), P);
    end Satisfying;


    function Satisfying
                (The_Integer : Integer; P : Predicate_Object) return Object is
    begin
        return Satisfying (Slot.Value (The_Integer), P);
    end Satisfying;


    function Satisfying
                (The_Float : Float; P : Predicate_Object) return Object is
    begin
        return Satisfying (Slot.Value (The_Float), P);
    end Satisfying;


    function Satisfying
                (The_Boolean : Boolean; P : Predicate_Object) return Object is
    begin
        return Satisfying (Slot.Value (The_Boolean), P);
    end Satisfying;


    function Satisfying (The_Character : Character; P : Predicate_Object)
                        return Object is
    begin
        return Satisfying (Slot.Value (The_Character), P);
    end Satisfying;


    function Satisfying
                (The_String : String; P : Predicate_Object) return Object is
    begin
        return Satisfying (Slot.Value (The_String), P);
    end Satisfying;


    function Satisfying
                (The_Duration : Duration; P : Predicate_Object) return Object is
    begin
        return Satisfying (Slot.Value (The_Duration), P);
    end Satisfying;


end Operators;