Return to characters_and_numbers.adb CVS log

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

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

1.1     ! maekawa     1: package body Characters_and_Numbers is
        !             2:
        !             3:   function Convert ( c : character ) return natural is
        !             4:
        !             5:   -- DESCRIPTION :
        !             6:   --   Returns 10 if the character does not represent a number
        !             7:   --   between 0 and 9, otherwise returns the corresponding number.
        !             8:
        !             9:   begin
        !            10:     case c is
        !            11:       when '0' => return 0;
        !            12:       when '1' => return 1;
        !            13:       when '2' => return 2;
        !            14:       when '3' => return 3;
        !            15:       when '4' => return 4;
        !            16:       when '5' => return 5;
        !            17:       when '6' => return 6;
        !            18:       when '7' => return 7;
        !            19:       when '8' => return 8;
        !            20:       when '9' => return 9;
        !            21:       when others => return 10;
        !            22:     end case;
        !            23:   end Convert;
        !            24:
        !            25:   function Convert_Decimal ( n : natural ) return character is
        !            26:
        !            27:   -- DESCRIPTION :
        !            28:   --   For n in 0..9, the corresponding character representation is returned.
        !            29:
        !            30:   begin
        !            31:     case n is
        !            32:       when 0 => return '0';
        !            33:       when 1 => return '1';
        !            34:       when 2 => return '2';
        !            35:       when 3 => return '3';
        !            36:       when 4 => return '4';
        !            37:       when 5 => return '5';
        !            38:       when 6 => return '6';
        !            39:       when 7 => return '7';
        !            40:       when 8 => return '8';
        !            41:       when 9 => return '9';
        !            42:       when others => return '0';
        !            43:     end case;
        !            44:   end Convert_Decimal;
        !            45:
        !            46:   function Convert_Hexadecimal ( c : character ) return natural is
        !            47:   begin
        !            48:      case c is
        !            49:        when '0' => return 0;
        !            50:        when '1' => return 1;
        !            51:        when '2' => return 2;
        !            52:        when '3' => return 3;
        !            53:        when '4' => return 4;
        !            54:        when '5' => return 5;
        !            55:        when '6' => return 6;
        !            56:        when '7' => return 7;
        !            57:        when '8' => return 8;
        !            58:        when '9' => return 9;
        !            59:        when 'A' => return 10;
        !            60:        when 'B' => return 11;
        !            61:        when 'C' => return 12;
        !            62:        when 'D' => return 13;
        !            63:        when 'E' => return 14;
        !            64:        when 'F' => return 15;
        !            65:           when others => return 16;
        !            66:      end case;
        !            67:   end Convert_Hexadecimal;
        !            68:
        !            69:   function Convert_Hexadecimal ( n : natural ) return character is
        !            70:   begin
        !            71:        if n < 10
        !            72:      then return Convert_Decimal(n);
        !            73:      else case n is
        !            74:             when 10 => return 'A';
        !            75:             when 11 => return 'B';
        !            76:             when 12 => return 'C';
        !            77:             when 13 => return 'D';
        !            78:             when 14 => return 'E';
        !            79:             when 15 => return 'F';
        !            80:             when others => return '0';
        !            81:           end case;
        !            82:     end if;
        !            83:   end Convert_Hexadecimal;
        !            84:
        !            85:   function Convert ( s : String ) return natural is
        !            86:
        !            87:     acc : natural := 0;
        !            88:     cvn : natural;
        !            89:
        !            90:   begin
        !            91:     for i in s'range loop
        !            92:       cvn := Convert(s(i));
        !            93:       if cvn < 10
        !            94:        then acc := acc*10 + cvn;
        !            95:       end if;
        !            96:     end loop;
        !            97:     return acc;
        !            98:   end Convert;
        !            99:
        !           100:   function Convert ( n : natural ) return String is
        !           101:   begin
        !           102:     if n < 10
        !           103:      then declare
        !           104:             res : String(1..1);
        !           105:           begin
        !           106:             res(1) := Convert_Decimal(n);
        !           107:             return res;
        !           108:           end;
        !           109:      else declare
        !           110:             rest : natural := n mod 10;
        !           111:             head : natural := n/10;
        !           112:             headstr : constant string := Convert(head);
        !           113:             res : String(1..headstr'last+1);
        !           114:           begin
        !           115:             res(headstr'range) := headstr;
        !           116:             res(res'last) := Convert_Decimal(rest);
        !           117:             return res;
        !           118:           end;
        !           119:     end if;
        !           120:   end Convert;
        !           121:
        !           122:   procedure Skip_Spaces ( file : in file_type; c : in out character ) is
        !           123:   begin
        !           124:     get(file,c);
        !           125:     while c = ' ' and not End_of_Line(file) loop
        !           126:       get(file,c);
        !           127:     end loop;
        !           128:   end Skip_Spaces;
        !           129:
        !           130:   procedure Skip_Underscores ( file : in file_type; c : in out character ) is
        !           131:   begin
        !           132:     get(file,c);
        !           133:     while c = '_' and not End_of_Line(file) loop
        !           134:       get(file,c);
        !           135:     end loop;
        !           136:   end Skip_Underscores;
        !           137:
        !           138: end Characters_and_Numbers;