[BACK]Return to untaint.C CVS log [TXT] [DIR] Up to [parser3project] / parser3 / src / main

Diff for /parser3/src/main/untaint.C between versions 1.115.2.3 and 1.115.2.12.2.8

version 1.115.2.3, 2003/01/29 11:06:44 version 1.115.2.12.2.8, 2003/03/20 16:57:43
Line 1 Line 1
 /** @file  /** @file
         Parser: String class part: untaint mechanizm.          Parser: String class part: untaint mechanizm.
   
         Copyright(c) 2001, 2003 ArtLebedev Group (http://www.artlebedev.com)          Copyright(c) 2001-2003 ArtLebedev Group (http://www.artlebedev.com)
         Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)          Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
 */  */
   
 static const char* IDENT_UNTAINT_C="$Date$";  static const char* IDENT_UNTAINT_C="$Date$";
   
 #include "pa_pool.h"  
 #include "pa_string.h"  #include "pa_string.h"
 #include "pa_hash.h"  #include "pa_hash.h"
 #include "pa_exception.h"  #include "pa_exception.h"
 #include "pa_table.h"  #include "pa_table.h"
 #include "pa_globals.h"  #include "pa_globals.h"
 #include "pa_sql_connection.h"  
 #include "pa_dictionary.h"  #include "pa_dictionary.h"
 #include "pa_common.h"  #include "pa_common.h"
 #include "pa_charset.h"  #include "pa_charset.h"
   #include "pa_request_charsets.h"
   
   extern "C" { // author forgot to do that
   #include "ec.h"
   }
   
   //#define PA_SQL
   
   #ifdef PA_SQL
   #include "pa_sql_connection.h"
   #endif
   
 #define escape(action) \  #define escape(action) \
         { \          for(; fragment_length--; CORD_next(pos)) { \
                 const char *src=fragment->ptr; \                  char c=CORD_pos_fetch(pos); \
                 for(int size=fragment->size; size--; src++) \                  action \
                         action \  
         }          }
 #define _default  default: *dest++=*src; break  #define _default  default: CORD_ec_append(result, c); break
 #define encode(need_encode_func, prefix)  \  #define encode(need_encode_func, prefix)  \
                         if(need_encode_func(*src)) { \          if(need_encode_func(c)) { \
                                 static const char *hex="0123456789ABCDEF"; \                  static const char* hex="0123456789ABCDEF"; \
                                 char chunk[3]={prefix}; \                  CORD_ec_append(result, prefix); \
                                 chunk[1]=hex[((unsigned char)*src)/0x10]; \                  CORD_ec_append(result, hex[((unsigned char)c)/0x10]); \
                                 chunk[2]=hex[((unsigned char)*src)%0x10]; \                  CORD_ec_append(result, hex[((unsigned char)c)%0x10]); \
                                 memcpy(dest, chunk, 3);  dest+=3; \          } else \
                         } else \                  CORD_ec_append(result, c);
                                 *dest++=*src; \  #define to_char(c)  CORD_ec_append(result, c)
                         break  #define to_string(s)  CORD_ec_append_cord(result, s)
 #define to_char(c)  *dest++=c  
 #define to_string(b, bsize)  \  
                 memcpy(dest, b, bsize); \  
                 dest+=bsize; \  
   
 inline bool need_file_encode(unsigned char c){  inline bool need_file_encode(unsigned char c){
         // russian letters and space ENABLED          // russian letters and space ENABLED
Line 65  inline bool need_http_header_encode(unsi Line 70  inline bool need_http_header_encode(unsi
   
 //  //
   
 static const char * String_Untaint_lang_name[]={  static const char*  String_Untaint_lang_name[]={
         "U", ///< zero value handy for hash lookup @see untaint_lang_name2enum          "U", ///< zero value handy for hash lookup @see untaint_lang_name2enum
         "C", ///< clean          "C", ///< clean
         "T",  ///< tainted, untaint language as assigned later           "T",  ///< tainted, untaint language as assigned later 
Line 125  quoted-pair    = "\" CHAR Line 130  quoted-pair    = "\" CHAR
   
   if(strchr("()<>@,;:\\\"/[]?={} \t", *ptr))    if(strchr("()<>@,;:\\\"/[]?={} \t", *ptr))
 */  */
 inline bool need_quote_http_header(const char *ptr, size_t size) {  inline bool need_quote_http_header(const char* ptr, size_t size) {
         for(; size--; ptr++)          for(; size--; ptr++)
                 if(strchr(";\\\"= \t" /* excluded ()<>@, :/ ? []{} */, *ptr))                  if(strchr(";\\\"= \t" /* excluded ()<>@, :/ ? []{} */, *ptr))
                         return true;                          return true;
         return false;          return false;
 }  }
   
 //#include "pa_sapi.h"  
 /**   /** 
         appends to other String,          appends to other String,
         marking all tainted pieces of it with @a lang.          marking all tainted pieces of it with @a lang.
         or marking ALL pieces of it with a @a lang when @a forced to,          or marking ALL pieces of it with a @a lang when @a forced to,
         and propagating OPTIMIZE language bit.          and propagating OPTIMIZE language bit.
 */  */
 String& String::append_to(String& dest, uchar lang, bool forced) const {  String& String::append_to(String& dest, Untaint_lang lang, bool forced) const {
         if(is_empty())          if(!*this)
                 return dest;                  return dest;
   
         // without language-chage, small[fitting dest tail] string?          // first: letters
         if(lang==UL_PASS_APPENDED && fused<=(dest.fallocated-dest.fused)) {          dest.body=CORD_cat(dest.body, body);
                 // felements[fused...]=src.felements[0..fused], fused+=src.fused  
                 memcpy(&dest.felements[dest.fused], felements, sizeof(felements[0])*fused);  
                 dest.fused+=fused;  
                 return dest;  
         }  
   
         // manually unrolled code to avoid do{if(const)} constructs          // next: fragment infos
         if(forced)           
                 STRING_FOREACH_FRAGMENT(          if(lang==UL_PASS_APPENDED) // without language-chage string?
                         dest.APPEND(fragment->ptr, fragment->size,                   dest.fragments.append(fragments);
                                 lang, //forcing passed lang          else if(forced) //forcing passed lang?
                                 fragment->origin.file, fragment->origin.line);                  dest.fragments+=Fragment(lang, length());
                 )          else if(lang&UL_OPTIMIZE_BIT) {
         else if(lang==UL_PASS_APPENDED)                   Array_iterator<ArrayFragment::element_type> i(fragments);
                 STRING_FOREACH_FRAGMENT(                  while(i.has_next()) {
                         dest.APPEND(fragment->ptr, fragment->size,                           const Fragment& fragment=i.next();
                                 fragment->lang, // passing item's lang                          // main idea here:
                                 fragment->origin.file, fragment->origin.line);                          // tainted piece would get OPTIMIZED bit from 'lang'
                 )                          // clean piece would be marked OPTIMIZED manually
         else if(lang&UL_OPTIMIZE_BIT) // main idea here                          // pieces with determined languages [not tainted|clean] would retain theirs langs
                 // tainted piece would get OPTIMIZED bit from 'lang'                          dest.fragments+=Fragment(static_cast<Untaint_lang>(
                 // clean piece would be marked OPTIMIZED manually                                  fragment.lang==UL_TAINTED?lang:(
                 // pieces with determined languages [not tainted|clean] would retain theirs langs                                          fragment.lang==UL_CLEAN?UL_CLEAN|UL_OPTIMIZE_BIT: // ORing with OPTIMIZED flag
                 STRING_FOREACH_FRAGMENT(                                                  fragment.lang)),
                         dest.APPEND(fragment->ptr, fragment->size,                                   fragment.length);
                                 fragment->lang==UL_TAINTED?lang:(                  }
                                         fragment->lang==UL_CLEAN?UL_CLEAN|UL_OPTIMIZE_BIT: // ORing with OPTIMIZED flag          } else { // The core idea: tainted pieces got marked with context's lang
                                                 fragment->lang                  Array_iterator<ArrayFragment::element_type> i(fragments);
                                 ),                   while(i.has_next()) {
                                 fragment->origin.file, fragment->origin.line);                          const Fragment& fragment=i.next();
                 )                          dest.fragments+=Fragment(
         else                                  fragment.lang==UL_TAINTED?lang:fragment.lang,
                 STRING_FOREACH_FRAGMENT(                                  fragment.length);
                         dest.APPEND(fragment->ptr, fragment->size,   
                                 fragment->lang==UL_TAINTED?lang:fragment->lang,  
                                 fragment->origin.file, fragment->origin.line);  
                 );  
   
         return dest;  
 }  
   
 size_t String::cstr_bufsize(Untaint_lang lang,  
                                                         SQL_Connection *connection,  
                                                         const Request_charsets *charsets) const {  
         size_t dest=1; // for terminating 0  
         STRING_FOREACH_FRAGMENT(  
                 uchar to_lang=lang==UL_UNSPECIFIED?fragment->lang:lang;  
   
                 switch(to_lang & ~UL_OPTIMIZE_BIT) {  
                 case UL_CLEAN:  
                 case UL_TAINTED:  
                 case UL_AS_IS:  
                         // clean piece  
   
                         // tainted piece, but undefined untaint language  
                         // for VString.as_double of tainted values  
                         // for ^process{body} evaluation  
   
                         // tainted, untaint language: as-is  
                         dest+=fragment->size;  
                         break;  
                 case UL_FILE_SPEC:  
                         // tainted, untaint language: file [name]  
                         dest+=fragment->size*3/* worst: Z->%XX */;  
                         break;  
                 case UL_URI:  
                         // tainted, untaint language: uri  
                         dest+=fragment->size*6*3/* worst utf8 x worst Z->%XX */;  
                         break;  
                 case UL_HTTP_HEADER:  
                         // tainted, untaint language: http-field-content-text  
                         dest+=fragment->size*3/* worst: Z->%XX */;  
                         break;  
                 case UL_MAIL_HEADER:  
                         // tainted, untaint language: mail-header  
                         if(charsets && charsets->mail) {  
                                 int parts_count=1;  
                                 const char *prev=fragment->ptr;  
                                 size_t size=fragment->size;  
                                 while(const char *comma_at=(const char*)memchr(prev, ',', size)) {  
                                         parts_count++;  
                                         size-=comma_at-prev;  
                                         prev=comma_at+1;  
                                 }  
                                 // Subject: Re: parser3: =?koi8-r?Q?=D3=C5=CD=C9=CE=C1=D2?=  
                                 dest+=  
                                         fragment->size*3+  
                                         parts_count*(charsets->mail->name()->size()+MAX_STRING/* worst: =?charset?Q?=%XX?= */);  
                         } else  
                                 dest+=fragment->size;  
                         break;  
                 case UL_TABLE:   
                         // tainted, untaint language: table  
                         dest+=fragment->size;  
                         break;  
                 case UL_SQL:  
                         // tainted, untaint language: sql  
                         if(connection)  
                                 dest+=connection->quote(0, fragment->ptr, fragment->size);  
                         break;  
                 case UL_JS:  
                         escape(switch(*src) {  
                                 case '"': case '\'': case '\n': case '\\': case '\xFF':  
                                         dest+=2;  break;  
                                 default:   
                                         dest++;  break;  
                         });  
                         break;  
                 case UL_XML:  
                         escape(switch(*src) {  
                                 case '&': case '>': case '<': case '"': case '\'':   
                                         dest+= 6;  break;  
                                 default:   
                                         dest++;  break;  
                         });  
                         break;  
                 case UL_HTML:  
                         escape(switch(*src) {  
                                 case '&':   
                                 case '>':   
                                 case '<':   
                                 case '"':   
                                         dest+=6;  break;  
                                 default:   
                                         dest++;  break;  
                         });  
                         break;  
                 }                  }
         );          }
   
         return dest;          return dest;
 }  }
   
Line 304  RFC Line 211  RFC
                 without "=", or one could not differ "=E0" and "russian letter a"                  without "=", or one could not differ "=E0" and "russian letter a"
                 and without "_", or in would mean 0x20                  and without "_", or in would mean 0x20
 */  */
 static bool mail_header_char_valid_within_Qencoded(char c) {  inline bool mail_header_char_valid_within_Qencoded(char c) {
         return c>='A' && c<='Z'          return c>='A' && c<='Z'
                 || c>='a' && c<='Z'                  || c>='a' && c<='Z'
                 || c>='0' && c<='9'                  || c>='0' && c<='9'
                 || strchr("!*+-/", c);                  || strchr("!*+-/", c);
 }  }
 char *String::store_to(char *dest, Untaint_lang lang,   inline void ec_append(CORD_ec result, CORD_pos& pos, size_t size) {
                                            SQL_Connection *connection,          while(size--) {
                                            const Request_charsets *charsets) const {                  CORD_ec_append(result, CORD_pos_fetch(pos));
         // WARNING:                  CORD_next(pos);
         //       before any changes check cstr_bufsize first!!!          }
   }
   CORD String::cstr_to_cord(Untaint_lang lang, 
                     SQL_Connection *connection,
                     const Request_charsets *charsets) const {
           CORD_ec result; CORD_ec_init(result);
           CORD_pos pos; CORD_set_pos(pos, body, 0);
   
         bool whitespace=true;          bool whitespace=true;
 //      STRING_FOREACH_FRAGMENT(  
         element_type *last = felements+fused; element_type *fragment = felements; for(; fragment<last; fragment++) {   
   
                 uchar to_lang=lang==UL_UNSPECIFIED?fragment->lang:lang;          size_t fragment_begin=0;
           size_t fragment_end;
           for(Array_iterator<Fragment> i(fragments); i.has_next(); fragment_begin=fragment_end) {
                   const Fragment& fragment=i.next();
                   size_t fragment_length=fragment.length;
                   fragment_end=fragment_begin+fragment_length;
   
                 char *start=dest;                  Untaint_lang to_lang=lang==UL_UNSPECIFIED?fragment.lang:lang;
   
                 switch(to_lang & ~UL_OPTIMIZE_BIT) {                  switch(to_lang & ~UL_OPTIMIZE_BIT) {
                 case UL_CLEAN:                  case UL_CLEAN:
Line 334  char *String::store_to(char *dest, Untai Line 251  char *String::store_to(char *dest, Untai
                         // for ^process{body} evaluation                          // for ^process{body} evaluation
   
                         // tainted, untaint language: as-is                          // tainted, untaint language: as-is
                         memcpy(dest, fragment->ptr, fragment->size);                           ec_append(result, pos, fragment_length);
                         dest+=fragment->size;  
                         break;                          break;
                 case UL_FILE_SPEC:                  case UL_FILE_SPEC:
                         // tainted, untaint language: file [name]                          // tainted, untaint language: file [name]
                         escape(                          escape(
                                 // Macintosh has problems with small Russian letter 'r'                                  // Macintosh has problems with small Russian letter 'r'
                                 if( *src=='\xF0' && charsets && *charsets->source->name()=="windows-1251" ) {                                  if( c=='\xF0' && charsets && charsets->source().name()=="windows-1251" ) {
                                         // fixing that letter for most common charset                                          // fixing that letter for most common charset
                                         to_char('p');                                          to_char('p');
                                 } else // fallback to default                                  } else // fallback to default
                                         encode(need_file_encode, '_');                                           encode(need_file_encode, '_'); 
                         );                          );
                         break;                          break;
   #ifdef LATER
                 case UL_URI:                  case UL_URI:
                         // tainted, untaint language: uri                          // tainted, untaint language: uri
                         const void *client_ptr;  
                         size_t client_size;  
                         if(charsets)   
                                 Charset::transcode(*charsets->pool,   
                                         *charsets->source, fragment->ptr, fragment->size,  
                                         *charsets->client, client_ptr, client_size);  
                         else {  
                                 client_ptr=fragment->ptr;   
                                 client_size=fragment->size;  
                         }  
   
                         {                          {
                                 const char *src=(const char *)client_ptr;                                  const char *substr=
                                 for(int size=client_size; size--; src++)                                           CORD_to_const_char_star(
                                                   CORD_substr(body, fragment_begin, fragment_length));
                                   const void *client_ptr;
                                   size_t client_size;
                                   if(charsets) 
                                           Charset::transcode(
                                                   charsets->source(), substr, fragment_length,
                                                   charsets->client(), client_ptr, client_size);
                                   else {
                                           client_ptr=substr; 
                                           client_size=fragment_length;
                                   }
   
                                   char c;
                                   for(const char* src=(const char* )client_ptr; c=*src++; ) 
                                         encode(need_uri_encode, '%');                                          encode(need_uri_encode, '%');
                         }                          }
                         break;                          break;
   #endif
                 case UL_HTTP_HEADER:                  case UL_HTTP_HEADER:
                         // tainted, untaint language: http-field-content-text                          // tainted, untaint language: http-field-content-text
                         escape(                          escape(
                                 encode(need_uri_encode, '%');                                  encode(need_uri_encode, '%');
                         );                          );
                         break;                          break;
   #ifdef LATER
                 case UL_MAIL_HEADER:                  case UL_MAIL_HEADER:
                         // tainted, untaint language: mail-header                          // tainted, untaint language: mail-header
                         // http://www.ietf.org/rfc/rfc2047.txt                          // http://www.ietf.org/rfc/rfc2047.txt
                         if(charsets && charsets->mail) {                          if(charsets) {
                                 const void *mail_ptr;                                  const void *mail_ptr=fragment.ptr;
                                 size_t mail_size;                                  size_t mail_size=fragment_length;
                                 Charset::transcode(*charsets->pool,                                   const char* charset_name=charsets->mail().name()->cstr();
                                         *charsets->source, fragment->ptr, fragment->size,  
                                         *charsets->mail, mail_ptr, mail_size);  
   
                                 // Subject: Re: parser3: =?koi8-r?Q?=D3=C5=CD=C9=CE=C1=D2?=                                  // Subject: Re: parser3: =?koi8-r?Q?=D3=C5=CD=C9=CE=C1=D2?=
                                 const char *src=(const char *)mail_ptr;                                  const char* src=(const char* )mail_ptr;
                                 bool to_quoted_printable=false;                                  bool to_quoted_printable=false;
   
                                 bool email=false;                                  bool email=false;
                                 for(const char *end=src+mail_size; src<end; src++) {                                  for(const char* end=src+mail_size; src<end; src++) {
                                         //RFC   + An 'encoded-word' MUST NOT appear in any portion of an 'addr-spec'.                                          //RFC   + An 'encoded-word' MUST NOT appear in any portion of an 'addr-spec'.
                                         if(to_quoted_printable && (*src==',' || *src=='<')) {                                          if(to_quoted_printable && (c==',' || c=='<')) {
                                                 email=*src=='<';                                                  email=c=='<';
                                                 dest+=sprintf(dest, "?=");                                                  dest+=sprintf(dest, "?=");
                                                 to_quoted_printable=false;                                                  to_quoted_printable=false;
                                         }                                          }
                                         if(!email && (                                          if(!email && (
                                                 !to_quoted_printable && (*src & 0x80)  // starting quote-printable-encoding on first 8bit char                                                  !to_quoted_printable && (c & 0x80)  // starting quote-printable-encoding on first 8bit char
                                                 || to_quoted_printable && !mail_header_char_valid_within_Qencoded(*src)                                                  || to_quoted_printable && !mail_header_char_valid_within_Qencoded(c)
                                                 )) {                                                  )) {
                                                 if(!to_quoted_printable) {                                                  if(!to_quoted_printable) {
                                                         dest+=sprintf(dest, "=?%s?Q?", charset_name);                                                          dest+=sprintf(dest, "=?%s?Q?", charset_name.get());
                                                         to_quoted_printable=true;                                                          to_quoted_printable=true;
                                                 }                                                  }
                                                 //RFC Upper case should be used for hexadecimal digits "A" through "F"                                                  //RFC Upper case should be used for hexadecimal digits "A" through "F"
                                                 if(*src == 0x20) // RFC The 8-bit hexadecimal value 20 (e.g., ISO-8859-1 SPACE)                                                   if(c == 0x20) // RFC The 8-bit hexadecimal value 20 (e.g., ISO-8859-1 SPACE) 
                                                         *dest++='_'; // RFC may be represented as "_"                                                           *dest++='_'; // RFC may be represented as "_" 
                                                 else                                                  else
                                                         dest+=sprintf(dest, "=%02X", *src & 0xFF);                                                          dest+=sprintf(dest, "=%02X", c & 0xFF);
                                         } else                                          } else
                                                 *dest++=*src;                                                  *dest++=c;
                                         if(*src=='>')                                          if(c=='>')
                                                 email=false;                                                  email=false;
                                 }                                  }
                                 if(to_quoted_printable) // close                                  if(to_quoted_printable) // close
                                         dest+=sprintf(dest, "?=");                                          dest+=sprintf(dest, "?=");
                                                   
                         } else {                          } else {
                                 memcpy(dest, fragment->ptr, fragment->size);                                   memcpy(dest, fragment.ptr, fragment_length); 
                                 dest+=fragment->size;                                  dest+=fragment_length;
                         }                          }
                         break;                          break;
   #endif
                 case UL_TABLE:                   case UL_TABLE: 
                         // tainted, untaint language: table                          // tainted, untaint language: table
                         escape(switch(*src) {                          escape(switch(c) {
                                 case '\t': to_char(' ');  break;                                  case '\t': to_char(' ');  break;
                                 case '\n': to_char(' ');  break;                                  case '\n': to_char(' ');  break;
                                 _default;                                  _default;
                         });                          });
                         break;                          break;
   #ifdef PA_SQL
                 case UL_SQL:                  case UL_SQL:
                         // tainted, untaint language: sql                          // tainted, untaint language: sql
                         if(connection)                          if(connection) {
                                 dest+=connection->quote(dest, fragment->ptr, fragment->size);                                  dest+=connection->quote(0, 
                                           CORD_substr(body, fragment_begin, fragment_length), 
                                           fragment_length);
   ...^^^
   
                                   dest+=connection->quote(dest, fragment.ptr, fragment_length);
                         else                          else
                                 throw Exception(0,                                  throw Exception(0,
                                         ConstStringPtr(this),                                          0,
                                         "untaint in SQL language failed - no connection specified");                                          "untaint in SQL language failed - no connection specified");
                         break;                          break;
   #endif
                 case UL_JS:                  case UL_JS:
                         escape(switch(*src) {                          escape(switch(c) {
                                 case '"': to_string("\\\"", 2);  break;                                  case '"': to_string("\\\"");  break;
                                 case '\'': to_string("\\'", 2);  break;                                  case '\'': to_string("\\'");  break;
                                 case '\n': to_string("\\n", 2);  break;                                  case '\n': to_string("\\n");  break;
                                 case '\\': to_string("\\\\", 2);  break;                                  case '\\': to_string("\\\\");  break;
                                 case '\xFF': to_string("\\\xFF", 2);  break;                                  case '\xFF': to_string("\\\xFF");  break;
                                 _default;                                  _default;
                         });                          });
                         break;                          break;
                 case UL_XML:                  case UL_XML:
                         escape(switch(*src) {                          escape(switch(c) {
                                 case '&': to_string("&amp;", 5);  break;                                  case '&': to_string("&amp;");  break;
                                 case '>': to_string("&gt;", 4);  break;                                  case '>': to_string("&gt;");  break;
                                 case '<': to_string("&lt;", 4);  break;                                  case '<': to_string("&lt;");  break;
                                 case '"': to_string("&quot;", 6);  break;                                  case '"': to_string("&quot;");  break;
                                 case '\'': to_string("&apos;", 6);  break;                                  case '\'': to_string("&apos;");  break;
                                 _default;                                  _default;
                         });                          });
                         break;                          break;
                 case UL_HTML:                  case UL_HTML:
                         escape(switch(*src) {                          escape(switch(c) {
                                 case '&': to_string("&amp;", 5);  break;                                  case '&': to_string("&amp;");  break;
                                 case '>': to_string("&gt;", 4);  break;                                  case '>': to_string("&gt;");  break;
                                 case '<': to_string("&lt;", 4);  break;                                  case '<': to_string("&lt;");  break;
                                 case '"': to_string("&quot;", 6);  break;                                  case '"': to_string("&quot;");  break;
                                 _default;                                  _default;
                         });                          });
                         break;                          break;
                 default:                  default:
                         throw Exception(0,                           throw Exception(0, 
                                 ConstStringPtr(this),                                   0, 
                                 "unknown untaint language #%d",                                   "unknown untaint language #%d", 
                                         static_cast<int>(to_lang)); // should never                                          static_cast<int>(to_lang)); // should never
                         break; // never                          break; // never
                 }                  }
   #ifdef LATER
                 if(to_lang & UL_OPTIMIZE_BIT) {                   if(to_lang & UL_OPTIMIZE_BIT) { 
                         // optimizing whitespace                          // optimizing whitespace
                         char *stop=dest;  dest=start;                          char *stop=dest;  dest=start;
                         for(char *src=start; src<stop; src++)                          for(char c=start; src<stop; src++)
                                 switch(*src) {                                  switch(c) {
                                 // of all consequent white space chars leaving only first one                                  // of all consequent white space chars leaving only first one
                                 case ' ': case '\r': case '\n': case '\t':                                  case ' ': case '\r': case '\n': case '\t':
                                         if(!whitespace) {                                          if(!whitespace) {
                                                 *dest++=*src;                                                  *dest++=c;
                                                 whitespace=true;                                                  whitespace=true;
                                         }                                          }
                                         break;                                          break;
                                 default:                                  default:
                                         whitespace=false;                                          whitespace=false;
                                         *dest++=*src;                                          *dest++=c;
                                         break;                                          break;
                                 };                                  };
                 } else // piece without optimization                  } else // piece without optimization
                         whitespace=false;                          whitespace=false;
 //      );  #endif
         }          }
   
         return dest;          return CORD_ec_to_cord(result);
 }  
   
 char *String::cstr_debug_origins(Pool& pool) const {  
         //_asm int 3;  
         char *result=new(pool) char[size()+fused*MAX_STRING*2];  
         char *dest=result;  
           
         STRING_FOREACH_FRAGMENT(  
 IFNDEF_NO_STRING_ORIGIN(  
                 if(fragment->origin.file)  
                         dest+=sprintf(dest, ORIGIN_FILE_LINE_FORMAT,  
                                 fragment->origin.file,  
                                 1+fragment->origin.line);  
                 else  
                         dest+=sprintf(dest, "<unknown>");  
 );  
                 uchar show_lang=fragment->lang & ~UL_OPTIMIZE_BIT;  
                 if(show_lang>=sizeof(String_Untaint_lang_name)/sizeof(String_Untaint_lang_name[0]))  
                         throw Exception(0,   
                                 ConstStringPtr(this),   
                                 "unknown untaint language #%d",   
                                         static_cast<int>(show_lang)); // sould never  
   
                 dest+=sprintf(dest, "#%s%s: ",  
                         String_Untaint_lang_name[show_lang],  
                         fragment->lang & UL_OPTIMIZE_BIT?".O":"");  
                 char *dest_after_origins=dest;  
   
                 memcpy(dest, fragment->ptr, fragment->size);   
                 dest+=fragment->size;  
   
                 remove_crlf(dest_after_origins, dest);  
                 to_char('\n');  
         );  
   
         *dest=0;  
         return result;  
 }  }
Removed from v.1.115.2.3  
changed lines
  Added in v.1.115.2.12.2.8

E-mail: