Changeset 868

Timestamp:

Jun 25, 2003, 9:50:36 AM (18 years ago)

Author:

luba

Message:

• comments are corrected;

File:

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

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

@@ -14 +14 @@
 namespace Convert
 {
-/*
-1. Ищем цифру, + или -.
-    - Если встретили + или -, переходим к шагу 2.
-    - Если встретили цифру, переходим к шагу 3.
-    - Если встретили пробел, ищем дальше.
-    - Если встретили что-то ещё, то $fail.
-    - Если кончилась строка, полученная из текущего терма, берём след.
-    - Если выражение кончилось, то $fail.
-2. Ищем первую цифру.
-    - Сдвигаемся на символ влево.
-    - Если это цифра, переходим к шагу 3.
-    - Если что-то ещё, то $fail.
-    - Если не смогли сдвинуться, потому что строка кончилась, берём
-      след. терм.
-    - Если выражение кончилось, то $fail.
-3. Ищем первую ненулевую цифру.
-    - Если встретили ненулевую цифру, переходим к шагу 4.
-    - Если встретили 0, ищем дальше.
-    - Если встретили пробел, то кладём текущую строку во вспомогательную
-      и переходим к последнему шагу.
-    - Если встретили что-то ещё, то $fail.
-    - Если кончилась строка, полученная из текущего терма, берём след.
-    - Если выражение кончилось, то возвращаем ShortInt::create_expr(0).
-4. Считываем цифры и только цифры.
-    - Если встретили цифру, повторяем шаг 4.
-    - Если встретили пробел, то приплюсовываем текущую строку ко
-      вспомогательной и переходим к последнему шагу.
-    - Если встретили что-то ещё, то $fail.
-    - Если кончилась строка, полученная из текущего терма, то
-      приплюсовываем её к нашей вспомогательной строке, и берём след.
-      терм.
-    - Если выражение кончилось, то приплюсовываем текущую строку, и
-      вызываем нужный create_expr от вспомогательной строки.
-Последний шаг. Обработка завершающих пробелов.
-    - Если встретили пробел, повторяем шаг.
-    - Если встретили что-то ещё, то $fail.
-    - Если кончилась строка, берём след. терм.
-    - Если выражение кончилось, вызываем нужный create_expr от
-      вспомогательной строки.
-
-*/
 
 RF_FUNC (To_m_Int, (RF_ARG e_Exp), (RF_RES s_Int))
@@ -60 +19 @@
   Term* p = e_Exp.get_last();
 
+  //строка-результат
+  //
   pxx::WString str;
+ 
+  //вспомогательная строка, получающаяся из каждого терма
+  //
   pxx::WString s;
+
   size_t j = 0;
   size_t k = 0;
@@ -71 +36 @@
   bool digit = false;
 
+  //если нашли цифру или знак, то выходим из цикла, чтобы обработать 
+  //эти и следующие символы,
+  //если знак был '-' и терм был типа Char, добавляем его к строке-результату;
+  //пробелы, предшествующие всем символам, пропускаем;
+  //если ничего, кроме пробелов в выражении не встречается, то $fail;
+  //
   for (; t < p; t++) {
     s = WString(*t);
@@ -98 +69 @@
   } 
 
+  //начинаем просмотр очередного терма с той позиции, на которой нашли
+  //цифру или знак;
+  //ищем первую цифру, не равную 0, если нашли, то выходим из цикла ее
+  //обрабатывать, 
+  //если выражение состоит только из 0, то выходим из 
+  //функции со значением результата, равным 0,
+  //пропускаем первый знак '+' или '-', если терм типа Char,
+  //и не допускаем появления еще каких-либо знаков;
+  //если встретили не цифру, а что-либо еще, то $fail;
+  //
   for (; t < p; t++) {
     s = WString(*t);
@@ -121 +102 @@
     else k = 0;
   }
- 
+
+  //начинаем просмотр очередного терма с той позиции, на которой нашли
+  //ненулевую цифру;
+  //если строка, полученная из терма, закончилась, добавляем ее к результату
+  //и переходим к следующему терму;
+  //выходим из цикла, если встретили пробел, добавив к результату 
+  //вспомогательную строку;
+  //если встретили не цифру, то $fail;
+  //
   for (; t < p; t++) {
     s = WString(*t);
@@ -141 +130 @@
   }
 
+  //начинаем просмотр терма с той позиции, где нашли пробел;
+  //если встретили что-то еще, то $fail;
+  //
   for (; t < p; t++) {
     s = WString(*t);
@@ -150 +142 @@
     j = 0;
   }    
-
+  //создаем выражение из полученной строки
+  //если длина его не превышает ShortInt::max_len
+  //
   if (length < ShortInt::max_len) {
     s_Int = ShortInt::create_expr(str);