Changeset 772 for to-imperative/trunk/library/Convert/to_int.cc

Timestamp:

May 28, 2003, 9:14:15 AM (18 years ago)

Author:

luba

Message:

• Processing of spaces in words is corrected;
• comments are added;

File:

• to-imperative/trunk/library/Convert/to_int.cc (modified) (5 diffs)

to-imperative/trunk/library/Convert/to_int.cc

@@ -22 +22 @@
   //пропускаем произвольное количество пробелов, если 
   //последовательность термов Char
-  //
-  //FIXME: А если там не пробел, а \n, \r, \v, \t или что там ещё разрешено?
-  //И надо добавить соответствующие тесты.
-  //Кроме того, если уж есть функция is_not_space(), почему бы её здесь не
-  //использовать?
+  //Eсли там не пробел, а \n, \r, \v, \t или не символ-число,
+  // то выдать сообщение об ошибке
   //
   if (t->get_type() == type_char) {
     for (; ;)
-      if (((Char*)t)->to_wchar_t() != ' ') {
+      if (((Char*)t)->is_not_space()) {
         break;
       }
@@ -56 +53 @@
   //и у него нет знака
   //
-  //FIXME: не надо вызывать is_number() каждый раз по новой.  Надо либо доп.
-  //переменную использовать, либо switch.  Также очень неплохо вместо
-  //обозначения возвращаемых значений цифрами завести enum.
-  //
-  if ((t->get_type() == type_word) )
-    if (((Word*)t)->is_number() == -1)
+  if ((t->get_type() == type_word) ) {
+    int res_is_number = ((Word*)t)->is_number();
+    if (res_is_number == minus)
        flag = -1;
     else
-    if(((Word*)t)->is_number() == 1)
+    if(res_is_number == plus)
       flag = 1;
     else
-    if(((Word*)t)->is_number() == 2)
+    if(res_is_number == positive_number)
       flag = 0;
     else 
       retfail;
-    
+  }
   if (t->get_type() == type_short_int ||t->get_type() == type_word ) {
     t++;
@@ -85 +79 @@
     //выражения, которое будет построено из исходного
     //
-    //FIXME: зачем два раза проверяется is_not_space()?
-    //
     if (t->get_type() == type_char) { 
 
@@ -98 +90 @@
             len += 1;
           }
-        }
-        else {
-          if (((Char*)t)->is_not_space()) 
-            retfail;
-          else
-            continue;   
-        }
+        }
+        else  
+          retfail;
       }
       //после символов-чисел допускается любое количество пробелов,
       // не допускаются пробелы между символами-числами
       //
-      //FIXME: зачем внутри цикла всё время присваиваем t = temp?  Зачем вообще
-      //нужна temp?
-      //Что будет, если очередной символ -- это " "?  Надо добавить
-      //соответствующий тест.
-      //
       else { 
-        Term* temp = t;
-        while (temp->get_type()==type_char){
-          if (((Char*)temp)->is_not_space() == false){
-            temp++; t = temp;
+        t++;
+        while (t->get_type()==type_char){
+          if (((Char*)t)->is_not_space() == false){
+            t++;
           }
           else {
@@ -151 +134 @@
     //длине выражения, которое будет построено из исходного
     //
-    //FIXME: что, если в начале слова идёт пробел, а у нас уже накоплены цифры?
-    //Аналогично с концом слова.
-    //
     else
       if (t->get_type() == type_word){
-        if (((Word*)t)->is_number() == 1 ||((Word*)t)->is_number() == -1 )
+        if (((Word*)t)->is_number() == plus ||
+            ((Word*)t)->is_number() == minus )
+          retfail;
+        //не допускаются пробелы в начале слова, если слово не первое в
+        //выражении 
+        //
+        if ( ((Word*)t)->has_space() == 1 )
+          retfail;
+        //не допускаются пробелы в конце слова, если оно не последнее
+        //в выражении
+        //
+        if ( (((Word*)t)->has_space() == 2) && (t != e_Exp.get_last()) )
           retfail;