Changeset 1025


Ignore:
Timestamp:
Jul 17, 2003, 1:10:56 PM (17 years ago)
Author:
luba
Message:
  • call of function String is replaced by body of the function
  • #include String.hh is removed
File:
1 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/library/String/string_replace.cc

    r1021 r1025  
    55
    66#include <rf_core.hh>
    7 #include "String.hh"
    87
    98namespace refal
     
    2120    Term* p_String = s_String.get_first();
    2221    rftype::String* str = p_String->cast_to<rftype::String>(type_string);
     22
    2323    if (str) {
    24       Expr e;
    25       RF_CALL (String, (e_Sourse), (e));
    26       Term* t = e.get_first();
    27       rftype::String* s = t->cast_to<rftype::String>(type_string);
    28       str = s;
     24      Term* p = e_Sourse.get_first();
     25      WString s;
     26 
     27      for (p = e_Sourse.get_first(); p < e_Sourse.get_last(); p++) {
     28         s = s + WString(*p);
     29      }
     30      rftype::String wstr = rftype::String(s);
     31      rftype::String* s_ptr = &wstr;
     32      str = s_ptr;
    2933    }
    3034    else
Note: See TracChangeset for help on using the changeset viewer.