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

⟦e242e34ef⟧ Ada Source

    Length: 8192 (0x2000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Boolean_Class, seg_0340c2

Derivation

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

with Object, Scanner, Message, Arguments, Msg_Report;
package body Boolean_Class is

-- type method is (+,-,*,/,<,>,<=,>=,Fois:,A:Repeter:,AuCube,AuCarre,EnTexte)

    function Send (To_Object : Object.Reference;
                   The_Message : Message.Selector;
                   With_Arguments : Arguments.List) return Object.Reference is

        Result, Object1, Object2 : Object.Reference;  
        Args : Arguments.List;
        Str_Message : String (1 ..
                                 Message.Nb_Single_Selector * Scanner.Max_Size);

    begin

        Object1 := To_Object;
        Str_Message := Message.Image (The_Message);  
        Args := With_Arguments;

        if Str_Message = "+" then
            if Arguments.How_Many (Args) = 1 then  
                Arguments.First (Args);

                Arguments.Read (Args, Object2);
                Result := Object1 + Object2;  
            else
                Msg_Report.Interpret_Error                  ("Incorrect nb of arguments for object " &
                    In_Text (Object1));  
                Arguments.Image (Args);
                Result := Object.Void_Reference;
            end if;

        end if;

        return Result;
    end Send;

    function Create (Value : Integer) return Object.Reference is  
    begin
        return Object.Void_Reference;
    end Create;

    procedure Delete (The_Integer : Object.Reference) is
        [declaration]
    begin
        null;
    end Delete;

    function In_Text (The_Integer : Object.Reference) return String is
        [declaration]
    begin
        return "";
    end In_Text;

    function Value (The_Integer : Object.Reference) return Integer is
        [declaration]
    begin
        return 0;
    end Value;

    function Square (The_Integer : Object.Reference) return Object.Reference is
        [declaration]
    begin
        return Object.Void_Reference;
    end Square;

    function Cubic (The_Integer : Object.Reference) return Object.Reference is
        [declaration]
    begin
        return Object.Void_Reference;
    end Cubic;

    function Repeat (The_Integer : Object.Reference) return Object.Reference is
        [declaration]
    begin
        return Object.Void_Reference;
    end Repeat;

    function Multiplicate (The_Integer : Object.Reference)
                          return Object.Reference is
        [declaration]
    begin
        return Object.Void_Reference;
    end Multiplicate;

    function "+" (First_Integer : Object.Reference;
                  Second_Integer : Object.Reference) return Object.Reference is

        Op_Result : Integer;

    begin
        Op_Result := Object.Identificator (First_Integer) +
                        Object.Identificator (Second_Integer);
        return Object.Create (Object.C_Integer, Op_Result);
    end "+";

    function "-" (First_Integer : Object.Reference;
                  Second_Integer : Object.Reference) return Object.Reference is
        [declaration]
    begin
        return Object.Void_Reference;
    end "-";

    function "*" (First_Integer : Object.Reference;
                  Second_Integer : Object.Reference) return Object.Reference is
        [declaration]
    begin
        return Object.Void_Reference;
    end "*";

    function "/" (First_Integer : Object.Reference;
                  Second_Integer : Object.Reference) return Object.Reference is
        [declaration]
    begin
        return Object.Void_Reference;
    end "/";

    function "<" (First_Integer : Object.Reference;
                  Second_Integer : Object.Reference) return Object.Reference is
        [declaration]
    begin
        return Object.Void_Reference;
    end "<";

    function ">" (First_Integer : Object.Reference;
                  Second_Integer : Object.Reference) return Object.Reference is
        [declaration]
    begin
        return Object.Void_Reference;
    end ">";

    function "<=" (First_Integer : Object.Reference;
                   Second_Integer : Object.Reference) return Object.Reference is
        [declaration]
    begin
        return Object.Void_Reference;
    end "<=";

    function Is_Not_Equal (First_Integer : Object.Reference;
                           Second_Integer : Object.Reference)
                          return Object.Reference is
        [declaration]
    begin
        return Object.Void_Reference;
    end Is_Not_Equal;

    function Is_Equal (First_Integer : Object.Reference;
                       Second_Integer : Object.Reference)
                      return Object.Reference is
        [declaration]
    begin
        return Object.Void_Reference;
    end Is_Equal;
end Boolean_Class;

    nblk1=7
    nid=7
    hdr6=c
        [0x00] rec0=1e rec1=00 rec2=01 rec3=002
        [0x01] rec0=25 rec1=00 rec2=06 rec3=02e
        [0x02] rec0=21 rec1=00 rec2=03 rec3=006
        [0x03] rec0=00 rec1=00 rec2=04 rec3=00e
        [0x04] rec0=1d rec1=00 rec2=02 rec3=052
        [0x05] rec0=20 rec1=00 rec2=05 rec3=000
        [0x06] rec0=e5 rec1=44 rec2=00 rec3=01f
    tail 0x2152cca3284d2820490af 0x42a00088462060003
Free Block Chain:
  0x7: 0000  00 00 00 5d 80 06 5f 45 72 72 6f 72 06 00 3d 20  ┆   ]  _Error  = ┆