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 - metrics - download

⟦28e1d94dc⟧ Ada Source

    Length: 15360 (0x3c00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body System_Defined_Predicate, seg_02d086, seg_02d13b, separate Generic_Predicate

Derivation

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

separate (Generic_Predicate)
package body System_Defined_Predicate is

    use System_Defined;

    function As_Slot_Expr (For_Object : Slot.Object) return Expression_Object
        renames Slot_Object_Expression;

    function Make_Unary (Operator : Operators) return Object is
        The_Code : Unary_Predicate.Object;
    begin
        The_Code := Unary_Predicate.Make (Operator);
        return New_Node (For_Code => (Sub_Class      => Unary,
                                      The_Unary_Code => The_Code));
    end Make_Unary;


    function Make_Binary (Operator : Operators; Operand : Expression_Object)
                         return Object is
        The_Code : Binary_Predicate.Object;
    begin
        The_Code := Binary_Predicate.Make (Operator, Operand);
        return New_Node (For_Code => (Sub_Class       => Binary,
                                      The_Binary_Code => The_Code));
    end Make_Binary;


    function Is_Equal (The_Object : Expression_Object) return Object is
    begin
        return Make_Binary (Is_Equal, The_Object);
    end Is_Equal;


    function Is_Less (The_Object : Expression_Object) return Object is
    begin
        return Make_Binary (Is_Less, The_Object);
    end Is_Less;


    function Is_Less_Or_Equal (The_Object : Expression_Object) return Object is
    begin
        return Make_Binary (Is_Less_Or_Equal, The_Object);
    end Is_Less_Or_Equal;


    function Is_Greater (The_Object : Expression_Object) return Object is
    begin
        return Make_Binary (Is_Greater, The_Object);
    end Is_Greater;


    function Is_Greater_Or_Equal
                (The_Object : Expression_Object) return Object is
    begin
        return Make_Binary (Is_Greater_Or_Equal, The_Object);
    end Is_Greater_Or_Equal;


    function Is_Different (The_Object : Expression_Object) return Object is
    begin
        return Make_Binary (Is_Different, The_Object);
    end Is_Different;


    function Is_Any return Object is
    begin
        return Make_Unary (Is_Any);
    end Is_Any;


    -- Slot value predicates

    function Is_Equal (The_Value : Slot.Object) return Object is
    begin
        return Is_Equal (As_Slot_Expr (The_Value));
    end Is_Equal;

    function Is_Less (The_Value : Slot.Object) return Object is
    begin
        return Is_Less (As_Slot_Expr (The_Value));
    end Is_Less;

    function Is_Less_Or_Equal (The_Value : Slot.Object) return Object is
    begin
        return Is_Less_Or_Equal (As_Slot_Expr (The_Value));
    end Is_Less_Or_Equal;

    function Is_Greater (The_Value : Slot.Object) return Object is
    begin
        return Is_Greater (As_Slot_Expr (The_Value));
    end Is_Greater;

    function Is_Greater_Or_Equal (The_Value : Slot.Object) return Object is
    begin
        return Is_Greater_Or_Equal (As_Slot_Expr (The_Value));
    end Is_Greater_Or_Equal;

    function Is_Different (The_Value : Slot.Object) return Object is
    begin
        return Is_Different (As_Slot_Expr (The_Value));
    end Is_Different;


    -- Integer value predicate shortcuts

    function Is_Equal (The_Value : Integer) return Object is
    begin
        return Is_Equal (As_Slot_Expr (Slot.Value (The_Value)));
    end Is_Equal;


    function Is_Less (The_Value : Integer) return Object is
    begin
        return Is_Less (As_Slot_Expr (Slot.Value (The_Value)));
    end Is_Less;


    function Is_Less_Or_Equal (The_Value : Integer) return Object is
    begin
        return Is_Less_Or_Equal (As_Slot_Expr (Slot.Value (The_Value)));
    end Is_Less_Or_Equal;


    function Is_Greater (The_Value : Integer) return Object is
    begin
        return Is_Greater (As_Slot_Expr (Slot.Value (The_Value)));
    end Is_Greater;


    function Is_Greater_Or_Equal (The_Value : Integer) return Object is
    begin
        return Is_Greater_Or_Equal (As_Slot_Expr (Slot.Value (The_Value)));
    end Is_Greater_Or_Equal;


    function Is_Different (The_Value : Integer) return Object is
    begin
        return Is_Different (As_Slot_Expr (Slot.Value (The_Value)));
    end Is_Different;


    -- Boolean value predicate shortcuts

    function Is_Equal (The_Value : Boolean) return Object is
    begin
        return Is_Equal (As_Slot_Expr (Slot.Value (The_Value)));
    end Is_Equal;

    function Is_Different (The_Value : Boolean) return Object is
    begin
        return Is_Different (As_Slot_Expr (Slot.Value (The_Value)));
    end Is_Different;


    -- Float value predicate shortcuts

    function Is_Equal (The_Value : Float) return Object is
    begin
        return Is_Equal (As_Slot_Expr (Slot.Value (The_Value)));
    end Is_Equal;

    function Is_Less (The_Value : Float) return Object is
    begin
        return Is_Less (As_Slot_Expr (Slot.Value (The_Value)));   end Is_Less;

    function Is_Less_Or_Equal (The_Value : Float) return Object is
    begin
        return Is_Less_Or_Equal (As_Slot_Expr (Slot.Value (The_Value)));
    end Is_Less_Or_Equal;

    function Is_Greater (The_Value : Float) return Object is
    begin
        return Is_Greater (As_Slot_Expr (Slot.Value (The_Value)));
    end Is_Greater;

    function Is_Greater_Or_Equal (The_Value : Float) return Object is
    begin
        return Is_Greater_Or_Equal (As_Slot_Expr (Slot.Value (The_Value)));
    end Is_Greater_Or_Equal;

    function Is_Different (The_Value : Float) return Object is
    begin
        return Is_Different (As_Slot_Expr (Slot.Value (The_Value)));
    end Is_Different;

    -- Duration value predicate shortcuts

    function Is_Equal (The_Value : Duration) return Object is
    begin
        return Is_Equal (As_Slot_Expr (Slot.Value (The_Value)));
    end Is_Equal;

    function Is_Less (The_Value : Duration) return Object is
    begin
        return Is_Less (As_Slot_Expr (Slot.Value (The_Value)));
    end Is_Less;

    function Is_Less_Or_Equal (The_Value : Duration) return Object is
    begin
        return Is_Less_Or_Equal (As_Slot_Expr (Slot.Value (The_Value)));
    end Is_Less_Or_Equal;

    function Is_Greater (The_Value : Duration) return Object is
    begin
        return Is_Greater (As_Slot_Expr (Slot.Value (The_Value)));
    end Is_Greater;

    function Is_Greater_Or_Equal (The_Value : Duration) return Object is
    begin
        return Is_Greater_Or_Equal (As_Slot_Expr (Slot.Value (The_Value)));
    end Is_Greater_Or_Equal;

    function Is_Different (The_Value : Duration) return Object is
    begin
        return Is_Different (As_Slot_Expr (Slot.Value (The_Value)));
    end Is_Different;


    -- Character value predicate shortcuts

    function Is_Equal (The_Value : Character) return Object is
    begin
        return Is_Equal (As_Slot_Expr (Slot.Value (The_Value)));
    end Is_Equal;

    function Is_Less (The_Value : Character) return Object is
    begin
        return Is_Less (As_Slot_Expr (Slot.Value (The_Value)));
    end Is_Less;

    function Is_Less_Or_Equal (The_Value : Character) return Object is
    begin
        return Is_Less_Or_Equal (As_Slot_Expr (Slot.Value (The_Value)));
    end Is_Less_Or_Equal;

    function Is_Greater (The_Value : Character) return Object is
    begin
        return Is_Greater (As_Slot_Expr (Slot.Value (The_Value)));
    end Is_Greater;

    function Is_Greater_Or_Equal (The_Value : Character) return Object is
    begin
        return Is_Greater_Or_Equal (As_Slot_Expr (Slot.Value (The_Value)));
    end Is_Greater_Or_Equal;

    function Is_Different (The_Value : Character) return Object is
    begin
        return Is_Different (As_Slot_Expr (Slot.Value (The_Value)));
    end Is_Different;


    -- String value predicate shortcuts

    function Is_Equal (The_Value : String) return Object is
    begin
        return Is_Equal (As_Slot_Expr (Slot.Value (The_Value)));
    end Is_Equal;

    function Is_Less (The_Value : String) return Object is
    begin
        return Is_Less (As_Slot_Expr (Slot.Value (The_Value)));
    end Is_Less;

    function Is_Less_Or_Equal (The_Value : String) return Object is
    begin
        return Is_Less_Or_Equal (As_Slot_Expr (Slot.Value (The_Value)));
    end Is_Less_Or_Equal;

    function Is_Greater (The_Value : String) return Object is
    begin
        return Is_Greater (As_Slot_Expr (Slot.Value (The_Value)));
    end Is_Greater;

    function Is_Greater_Or_Equal (The_Value : String) return Object is
    begin
        return Is_Greater_Or_Equal (As_Slot_Expr (Slot.Value (The_Value)));
    end Is_Greater_Or_Equal;

    function Is_Different (The_Value : String) return Object is
    begin
        return Is_Different (As_Slot_Expr (Slot.Value (The_Value)));
    end Is_Different;


    -- Alias predicate shortcuts


    function Is_Equal (The_Alias : Alias.Name) return Object is
    begin
        return Is_Equal (Alias_Expression (The_Alias));
    end Is_Equal;


    function Is_Less (The_Alias : Alias.Name) return Object is
    begin
        return Is_Less (Alias_Expression (The_Alias));
    end Is_Less;


    function Is_Less_Or_Equal (The_Alias : Alias.Name) return Object is
    begin
        return Is_Less_Or_Equal (Alias_Expression (The_Alias));
    end Is_Less_Or_Equal;


    function Is_Greater (The_Alias : Alias.Name) return Object is
    begin
        return Is_Greater (Alias_Expression (The_Alias));
    end Is_Greater;


    function Is_Greater_Or_Equal (The_Alias : Alias.Name) return Object is
    begin
        return Is_Greater_Or_Equal (Alias_Expression (The_Alias));
    end Is_Greater_Or_Equal;


    function Is_Different (The_Alias : Alias.Name) return Object is
    begin
        return Is_Different (Alias_Expression (The_Alias));
    end Is_Different;

end System_Defined_Predicate;

    nblk1=e
    nid=a
    hdr6=1a
        [0x00] rec0=1d rec1=00 rec2=01 rec3=03a
        [0x01] rec0=00 rec1=00 rec2=0d rec3=006
        [0x02] rec0=21 rec1=00 rec2=0c rec3=06c
        [0x03] rec0=24 rec1=00 rec2=09 rec3=000
        [0x04] rec0=23 rec1=00 rec2=0e rec3=01e
        [0x05] rec0=21 rec1=00 rec2=07 rec3=002
        [0x06] rec0=1d rec1=00 rec2=0b rec3=070
        [0x07] rec0=1e rec1=00 rec2=03 rec3=056
        [0x08] rec0=1f rec1=00 rec2=06 rec3=01e
        [0x09] rec0=1c rec1=00 rec2=08 rec3=006
        [0x0a] rec0=06 rec1=00 rec2=02 rec3=064
        [0x0b] rec0=23 rec1=00 rec2=04 rec3=034
        [0x0c] rec0=01 rec1=00 rec2=05 rec3=000
        [0x0d] rec0=01 rec1=00 rec2=05 rec3=000
    tail 0x21525fcc684146e0a7c6d 0x42a00088462063c03
Free Block Chain:
  0xa: 0000  00 00 00 06 80 03 6a 65 63 03 65 72 65 6e 74 3b  ┆      jec erent;┆