⟦d55543a63⟧

E3 Source Code



with Text_Io; -- Complement_Array,moving_string;
package body Coded_Order is

--function order_to_code(an_order : in order.object) return integer is

--code : interger := 0;

--begin
--for i in order.index'first .. order.index'last-1 loop
--code := code + complement_array.index(order.complement(an_order,i))) * complement_array.max_element;
--end loop;
--code := code+order.complement(an_order,index'last);
--return code;
--end;

--function code_to_key(code : in integer) return string is

--ms : moving_string.object := moving_string.null_object;
--number : integer := code;

--begin
--  while number > 255 loop
--      ms:=ms & character'value(number mod 256);
--      number := number / 256;
--  end loop;
--  ms:=ms & character'value(number);
--  return moving_string.image(ms);
--end;

--function order_to_key(an_order : in order.object) return string is

--begin
--return code_to_key(order_to_code(an_order));
--end;

--function key_to_code(key : in string) return integer is

--number : integer :=0;

--begin
--  for a_character in key'first .. key'last-1 loop
--      number := number + character'val(a_character) * 256;
--  end loop;
--  return number + character'val(key(key'last));
--end;

    procedure Put (Item : out Object;
                   An_Order : in Order.Object;
                   A_List : in Instruction_List.Object) is

--code : integer := order_to_code(an_order);

    begin
        Item := (
                 --key=>identifer.from_string(order_to_key),
                 --redirection=>order.redirection(an_order),
                 The_Order => An_Order,
                 List => A_List);
    end Put;

    procedure Run (Item : in Object) is

    begin
        Instruction_List.Run (Item.List);
    end Run;

    procedure Show (Item : in Object) is

    begin
--  text_io.put_line("Order : Number : integer'image(key_to_code(item.key)));
        Text_Io.Put_Line ("Coded Order :");
        Order.Show (Item.The_Order);
        Instruction_List.Show (Item.List);
    end Show;

    function The_Order (Item : in Object) return Order.Object is

    begin
        return Item.The_Order;
    end The_Order;

    function Redirection (Item : in Object) return Order.Index_Array is

    begin
        return Order.Redirection (Item.The_Order);
    end Redirection;

    function Key (Item : in Object) return String is

    begin
        return Order.Image (Item.The_Order);  -- attention si changement
-- car ca contient des blancs
--  return identifier.image(item.key);
    end Key;

end Coded_Order;
DataMuseum.dk

Rational R1000/400

⟦d55543a63⟧ Ada Source

Derivation

E3 Source Code

E3 Meta Data
