Return to multprec_integer_numbers_io.adb CVS log

Up to [local] / OpenXM_contrib / PHC / Ada / Math_Lib / Numbers

Annotation of OpenXM_contrib/PHC/Ada/Math_Lib/Numbers/multprec_integer_numbers_io.adb, Revision 1.1

1.1     ! maekawa     1: with integer_io;                         use integer_io;
        !             2: with Characters_and_Numbers;             use Characters_and_Numbers;
        !             3: with Multprec_Natural_Numbers;           use Multprec_Natural_Numbers;
        !             4: with Multprec_Natural_Numbers_io;        use Multprec_Natural_Numbers_io;
        !             5:
        !             6: package body Multprec_Integer_Numbers_io is
        !             7:
        !             8:   procedure get ( lc : in out character; i : in out Integer_Number ) is
        !             9:   begin
        !            10:     get(Standard_Input,lc,i);
        !            11:   end get;
        !            12:
        !            13:   procedure get ( file : in file_type;
        !            14:                   lc : in out character;  i : in out Integer_Number ) is
        !            15:
        !            16:     n : Natural_Number;
        !            17:     plus : boolean;
        !            18:
        !            19:   begin
        !            20:     if lc = ' '
        !            21:      then Skip_Spaces(file,lc);
        !            22:     end if;
        !            23:     if lc = '+'
        !            24:      then plus := true;
        !            25:           get(file,lc);
        !            26:      elsif lc = '-'
        !            27:          then plus := false;
        !            28:               get(file,lc);
        !            29:          else plus := true;
        !            30:     end if;
        !            31:     get(file,lc,n);
        !            32:     Clear(i);
        !            33:     i := Create(n);
        !            34:     if not plus
        !            35:      then Min(i);
        !            36:     end if;
        !            37:   end get;
        !            38:
        !            39:   procedure get ( i : in out Integer_Number ) is
        !            40:   begin
        !            41:     get(Standard_Input,i);
        !            42:   end get;
        !            43:
        !            44:   procedure get ( file : in file_type; i : in out Integer_Number ) is
        !            45:
        !            46:     c : character := ' ';
        !            47:
        !            48:   begin
        !            49:     Skip_Spaces(file,c);
        !            50:     get(file,c,i);
        !            51:   end get;
        !            52:
        !            53:   procedure put ( i : in Integer_Number ) is
        !            54:   begin
        !            55:     put(Standard_Output,i);
        !            56:   end put;
        !            57:
        !            58:   procedure put ( file : in file_type; i : in Integer_Number ) is
        !            59:   begin
        !            60:     if Empty(i)
        !            61:      then put(file,"0");
        !            62:      else if Negative(i)
        !            63:            then put(file,"-");
        !            64:           end if;
        !            65:           put(file,Unsigned(i));
        !            66:     end if;
        !            67:   end put;
        !            68:
        !            69:   procedure put ( i : in Integer_Number; dp : in natural ) is
        !            70:   begin
        !            71:     put(Standard_Output,i,dp);
        !            72:   end put;
        !            73:
        !            74:   procedure put ( file : in file_type;
        !            75:                   i : in Integer_Number; dp : in natural ) is
        !            76:   begin
        !            77:     if Empty(i)
        !            78:      then for k in 1..dp-1 loop
        !            79:             put(file," ");
        !            80:           end loop;
        !            81:           put(file,"0");
        !            82:      else if Negative(i)
        !            83:            then for k in 1..dp-Decimal_Places(i)-1 loop
        !            84:                   put(file," ");
        !            85:                 end loop;
        !            86:                 put(file,"-");
        !            87:                 put(file,Unsigned(i));
        !            88:            else put(file,Unsigned(i),dp);
        !            89:           end if;
        !            90:           put(file,Unsigned(i));
        !            91:     end if;
        !            92:   end put;
        !            93:
        !            94: end Multprec_Integer_Numbers_io;