/[eiffelstudio]/FreeELKS/trunk/library/kernel/string_to_real_convertor.e
ViewVC logotype

Diff of /FreeELKS/trunk/library/kernel/string_to_real_convertor.e

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 91476 by ericb, Fri Mar 3 10:19:32 2006 UTC revision 91477 by ericb, Sun Jan 14 09:47:13 2007 UTC
# Line 18  create Line 18  create
18  feature{NONE} -- Initialization  feature{NONE} -- Initialization
19    
20          make is          make is
21                          --                          -- Initialize.
22                  do                  do
23                          set_leading_separators (" ")                          set_leading_separators (" ")
24                          set_trailing_separators (" ")                          set_trailing_separators (" ")
# Line 34  feature{NONE} -- Initialization Line 34  feature{NONE} -- Initialization
34  feature -- Status reporting  feature -- Status reporting
35    
36          conversion_type_valid (type: INTEGER): BOOLEAN is          conversion_type_valid (type: INTEGER): BOOLEAN is
37                            -- Is conversion type `type' valid?
38                  do                  do
39                          Result := real_double_type_valid (type)                          Result := real_double_type_valid (type)
40                  end                  end
41    
42          overflowed: BOOLEAN is          overflowed: BOOLEAN is
43                            -- Is real number parsed so far overflowed?
44                  do                  do
45                          Result := False                          Result := False
46                  end                  end
47    
48          underflowed: BOOLEAN is          underflowed: BOOLEAN is
49                            -- Is real number parsed so far underflowed?
50                  do                  do
51                          Result := False                          Result := False
52                  end                  end
# Line 57  feature -- Status reporting Line 60  feature -- Status reporting
60                  end                  end
61    
62          separators_valid (separators: STRING): BOOLEAN is          separators_valid (separators: STRING): BOOLEAN is
63                            -- Are separators contained in `separators' valid?
64                  local                  local
65                          i: INTEGER                          i: INTEGER
66                          c: CHARACTER                          c: CHARACTER
# Line 129  feature -- Status reporting Line 133  feature -- Status reporting
133  feature -- Status setting  feature -- Status setting
134    
135          reset (type: INTEGER) is          reset (type: INTEGER) is
136                            -- Reset current convertor to parse real number string of type `type'.
137                  do                  do
138                          conversion_type := type                          conversion_type := type
139                          sign := 0                          sign := 0
# Line 155  feature -- Status setting Line 160  feature -- Status setting
160    
161  feature -- Parse  feature -- Parse
162    
163          parse_string_with_type (s: STRING; type: INTEGER) is          parse_string_with_type (s: STRING_GENERAL; type: INTEGER) is
164                            -- Parse string `s' as real number of type `type'.
165                  local                  local
166                          i: INTEGER                          i: INTEGER
167                          l_c: INTEGER                          l_c: INTEGER
# Line 167  feature -- Parse Line 173  feature -- Parse
173                          until                          until
174                                  i > l_c or last_state = 9                                  i > l_c or last_state = 9
175                          loop                          loop
176                                  parse_character (s.item (i))                                  parse_character (s.code (i).to_character_8)
177                                  i := i + 1                                  i := i + 1
178                          end                          end
179                  end                  end
180    
181          parse_character (c: CHARACTER) is          parse_character (c: CHARACTER) is
182                            -- Parse character `c'.
183                  do                  do
184                                  -- Parse according to the following specification:                                  -- Parse according to the following specification:
185                                  -- Real/double number specification:                                  -- Real/double number specification:

Legend:
Removed from v.91476  
changed lines
  Added in v.91477

  ViewVC Help
Powered by ViewVC 1.1.23