DataMuseum.dk

top - download

    Length: 7358 (0x1cbe)
    Types: TextFile
    Names: »B«

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

TextFile

with Text_Io;
with Object;
with Bounded_String;
with String_Utilities;
with Error_Broadcaster;
package body Pen_Class is
    type Unary_Message is (Tonx, Tony, Large, Moyen, Fin,
                           Entexte, Detruit, Clone);

-- iterateur de la classe pen_class

    procedure Init (Iter : out Iterator; Coll : in Collection) is
    begin
        Iter := Iterator'First;
    end Init;

    procedure Next (Iter : in out Iterator) is
    begin
        Iter := Iter + 1;
    end Next;

    function Done (Iter : in Iterator) return Boolean is
    begin
        return (Iterator'Last = Iter);
    end Done;

    function Value (Iter : in Iterator) return Index is
    begin
        return Iter;
    end Value;

    function Clone (To_Object : Object.Reference) return Object.Reference is
    begin
        Next (Pen_Collection.Iter);
        Pen_Collection.Table (Pen_Collection.Iter) :=
           Pen_Collection.Table (To_Object.Identity);
        return (Object.Tiny_Pen, Pen_Collection.Iter);
    end Clone;
    function Entexte (To_Object : Object.Reference) return String is


    begin
        return ("Stylo numero:" &

                String_Utilities.Number_To_String (To_Object.Identity, 10, 2) &
                " Ma Position:" &
                String_Utilities.Number_To_String
                   (Pen_Collection.Table (To_Object.Identity).X, 10, 4) & "," &
                String_Utilities.Number_To_String
                   (Pen_Collection.Table (To_Object.Identity).Y, 10, 4) &


                " Ma Taille:" &
                Graphic_Object.Font'Image
                   ((Pen_Collection.Table (To_Object.Identity).Font)));


    end Entexte;


    function Send (To_Object : Object.Reference; The_Message : Object.Message)
                  return String is
        Message : Unary_Message;
    begin
        Message := Unary_Message'Value (Bounded_String.Image (The_Message));
        case Message is

            when Tonx | Tony | Large | Moyen | Fin | Detruit | Clone =>
                return ("");
            when Entexte =>
                return Entexte (To_Object);
        end case;
    end Send;
    function Send (To_Object : Object.Reference; The_Message : Object.Message)
                  return Object.Reference is

        Message : Unary_Message;
        Obj : Object.Reference;
        My_Pen : Pen;
    begin
        Message := Unary_Message'Value (Bounded_String.Image (The_Message));
        Obj := To_Object;
        case Message is

            when Tonx =>

                Obj.Identity := Pen_Collection.Table (To_Object.Identity).X;
                Obj.Class := Object.Tiny_Integer;

            when Tony =>
                Obj.Identity := Pen_Collection.Table (To_Object.Identity).Y;  
                Obj.Class := Object.Tiny_Integer;

            when Large =>
                Obj.Identity := To_Object.Identity;
                Obj.Class := Object.Tiny_Pen;
                Pen_Collection.Table (To_Object.Identity).Font :=
                   Graphic_Object.Large_Font;
            when Moyen =>
                Obj.Identity := To_Object.Identity;
                Obj.Class := Object.Tiny_Pen;
                Pen_Collection.Table (To_Object.Identity).Font :=
                   Graphic_Object.Medium_Font;
            when Fin =>
                Obj.Identity := To_Object.Identity;
                Obj.Class := Object.Tiny_Pen;
                Pen_Collection.Table (To_Object.Identity).Font :=
                   Graphic_Object.Small_Font;

            when Entexte =>
                Obj.Identity := To_Object.Identity;
                Obj.Class := Object.Tiny_Pen;

            when Detruit =>
                My_Pen.X := 0;
                My_Pen.Y := 0;
                Obj.Identity := To_Object.Identity;
                Obj.Class := Object.Tiny_Pen;
            when Clone =>
                Obj := Clone (To_Object);
        end case;
        return Obj;
    exception
        when Constraint_Error =>
            raise Error_Broadcaster.Unknown_Unary_Message;

    end Send;

    function Send (To_Object : Object.Reference;
                   The_Argument : Object.Parameters.List)
                  return Object.Reference is

        Message : Object.Message;
        Obj : Object.Reference;
        My_Pen : Pen;
        Local_Argument : Object.Parameters.List := The_Argument;
    begin

        if String_Utilities.Equal
              (Bounded_String.Image
                  (Object.Parameters.Selector (Local_Argument)),
               "vaEnX:", True) then
            Object.Parameters.Get (Local_Argument, Obj);
            Pen_Collection.Table (To_Object.Identity).X := Obj.Identity;
            Graphic_Object.Move (Pen_Collection.Table (To_Object.Identity).X,
                                 Pen_Collection.Table (To_Object.Identity).Y);

        elsif String_Utilities.Equal
                 (Bounded_String.Image
                     (Object.Parameters.Selector (Local_Argument)),
                  "vaEnY:", True) then
            Object.Parameters.Get (Local_Argument, Obj);
            Pen_Collection.Table (To_Object.Identity).Y := Obj.Identity;

        elsif String_Utilities.Equal
                 (Bounded_String.Image
                     (Object.Parameters.Selector (Local_Argument)),
                  "tonX:", True) then
            Object.Parameters.Get (Local_Argument, Obj);
            Pen_Collection.Table (To_Object.Identity).X := Obj.Identity;

        elsif String_Utilities.Equal
                 (Bounded_String.Image
                     (Object.Parameters.Selector (Local_Argument)),
                  "tonY:", True) then
            Object.Parameters.Get (Local_Argument, Obj);
            Pen_Collection.Table (To_Object.Identity).Y := Obj.Identity;

        elsif String_Utilities.Equal
                 (Bounded_String.Image
                     (Object.Parameters.Selector (Local_Argument)),
                  "tonX:Y:", True) then
            Object.Parameters.Get (Local_Argument, Obj);
            Pen_Collection.Table (To_Object.Identity).X := Obj.Identity;
            Object.Parameters.Get (Local_Argument, Obj);
            Pen_Collection.Table (To_Object.Identity).Y := Obj.Identity;


        elsif String_Utilities.Equal
                 (Bounded_String.Image
                     (Object.Parameters.Selector (Local_Argument)),
                  "vaEnX:Y:", True) then
            Object.Parameters.Get (Local_Argument, Obj);
            Pen_Collection.Table (To_Object.Identity).X := Obj.Identity;
            Object.Parameters.Get (Local_Argument, Obj);
            Pen_Collection.Table (To_Object.Identity).Y := Obj.Identity;

        elsif String_Utilities.Equal
                 (Bounded_String.Image
                     (Object.Parameters.Selector (Local_Argument)),
                  "ecrit:", True) then
            Object.Parameters.Get (Local_Argument, Obj);
            Bounded_String.Copy (Message, "entexte");


            Graphic_Object.Draw_With_Font
               (Pen_Collection.Table (To_Object.Identity).X,
                Pen_Collection.Table (To_Object.Identity).Y,
                Object.Send (Obj, Message),
                Pen_Collection.Table (To_Object.Identity).Font);
        else
            raise Error_Broadcaster.Unknown_Keyword_Message;
        end if;
        return Obj;
    end Send;
end Pen_Class;