DataMuseum.dk

top - download

    Length: 4669 (0x123d)
    Types: TextFile
    Names: »B«

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

TextFile

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;