function Make (Names : in String; Value : in String) return Attribut_Record is
      Att : Attribut_Record;
   begin
      Att.Name := new String ' (Names);
      begin
     Att.boo := Boolean'Value(Value);
     Att.Enum := Boo;
     Att.Value := new String ' (Boolean'Image(Att.Boo));
      exception
     when Constraint_Error =>
        begin
           Att.Int := Integer'Value(Value);
           Att.Enum := Int;
           Att.Value := new String ' (Integer'Image(Att.Int));
        exception
           when Constraint_Error =>
          begin
             Att.Flt := float'Value(Value);
             Att.Enum := Flt;
             Att.Value := new String ' (Float'Image(Att.Flt));
          exception
             when Constraint_Error =>
            begin
               Att.date := Formatting.Value(Value);
               Att.Enum := Date;
               Att.Value := new String ' (Formatting.Image(Att.Date));
            exception
               when Constraint_Error =>
                  begin
                 Att.str := new String ' (Value);
                 Att.Enum := Str;
                 Att.Value := new String ' (Att.Str.all);
                  end;
            end;
          end;
        end;
      end;
      return Att;
   end Make;