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

Diff for /parser3/src/main/pa_common.C between versions 1.70 and 1.77

version 1.70, 2001/10/08 14:09:18 version 1.77, 2001/10/24 16:33:02
Line 42  int __snprintf(char *b, size_t s, const Line 42  int __snprintf(char *b, size_t s, const
   
 #endif  #endif
   
   void fix_line_breaks(char *src, size_t& size) {
           char *dest=src;
           // fix DOS: \r\n -> \n
           // fix Macintosh: \r -> \n
           char *bol=src;
           while(char *eol=strchr(bol, '\r')) {
                   size_t len=eol-bol;
                   if(dest!=bol)
                           memcpy(dest, bol, len);
                   dest+=len;
                   *dest++='\n';
   
                   if(eol[1]=='\n') { // \r,\n = DOS
                           bol=eol+2;
                           size--;
                   } else // \r,not \n = Macintosh
                           bol=eol+1;
           }
           // last piece without \r, including terminating 0
           if(dest!=bol)
                   strcpy(dest, bol);
   }
   
 char *file_read_text(Pool& pool, const String& file_spec, bool fail_on_read_problem) {  char *file_read_text(Pool& pool, const String& file_spec, bool fail_on_read_problem) {
         void *result;          void *result;  size_t size;
         size_t size;          return file_read(pool, file_spec, result, size, true, fail_on_read_problem)?(char *)result:0;
         return file_read(pool, file_spec, result, size, true,   
                 fail_on_read_problem)?(char *)result:0;  
 }  }
 bool file_read(Pool& pool, const String& file_spec,   bool file_read(Pool& pool, const String& file_spec, 
                            void*& data, size_t& read_size, bool as_text,                             void*& data, size_t& read_size, bool as_text,
Line 67  bool file_read(Pool& pool, const String& Line 87  bool file_read(Pool& pool, const String&
         //   they delay update till open, so we would receive "!^test[" string          //   they delay update till open, so we would receive "!^test[" string
         //   if would do stat, next open.          //   if would do stat, next open.
     if(      if(
                 (f=open(fname, O_RDONLY|(as_text?_O_TEXT:_O_BINARY)))>=0 &&                   (f=open(fname, O_RDONLY|(as_text?_O_BINARY/*_O_TEXT*/:_O_BINARY)))>=0 && 
                 stat(fname, &finfo)==0) {                  stat(fname, &finfo)==0) {
                 /*if(exclusive)                  /*if(exclusive)
                         flock(f, LOCK_EX);*/                          flock(f, LOCK_EX);*/
Line 91  bool file_read(Pool& pool, const String& Line 111  bool file_read(Pool& pool, const String&
                         if(as_text)                          if(as_text)
                                 ((char*&)data)[read_size]=0;                                  ((char*&)data)[read_size]=0;
                 } else                  } else
                         PTHROW(0, 0,                           throw Exception(0, 0, 
                                 &file_spec,                                   &file_spec, 
                                 "read failed: actually read %d bytes count not in [0..%lu] valid range",                                   "read failed: actually read %d bytes count not in [0..%lu] valid range", 
                                         read_size, (unsigned long)max_size); //never                                          read_size, (unsigned long)max_size); //never
                                   
                 return true;//prepare_config(result, remove_empty_lines);                  if(as_text)
                           fix_line_breaks((char *)data, read_size);
                   return true;
     }      }
         if(fail_on_read_problem)          if(fail_on_read_problem)
                 PTHROW(0, 0,                   throw Exception(0, 0, 
                         &file_spec,                           &file_spec, 
                         "read failed: %s (%d), actual filename '%s'",                           "read failed: %s (%d), actual filename '%s'", 
                                 strerror(errno), errno, fname);                                  strerror(errno), errno, fname);
Line 148  void file_write(Pool& pool, Line 170  void file_write(Pool& pool,
                         return;                          return;
                 }                  }
         }          }
         PTHROW(0, 0,           throw Exception(0, 0, 
                 &file_spec,                   &file_spec, 
                 "write failed: %s (%d), actual filename '%s'",                   "write failed: %s (%d), actual filename '%s'", 
                         strerror(errno), errno, fname);                          strerror(errno), errno, fname);
Line 165  static void rmdir(const String& file_spe Line 187  static void rmdir(const String& file_spe
 void file_delete(Pool& pool, const String& file_spec) {  void file_delete(Pool& pool, const String& file_spec) {
         const char *fname=file_spec.cstr(String::UL_FILE_SPEC);          const char *fname=file_spec.cstr(String::UL_FILE_SPEC);
         if(unlink(fname)!=0)          if(unlink(fname)!=0)
                 PTHROW(0, 0,                   throw Exception(0, 0, 
                         &file_spec,                           &file_spec, 
                         "unlink failed: %s (%d), actual filename '%s'",                           "unlink failed: %s (%d), actual filename '%s'", 
                                 strerror(errno), errno, fname);                                  strerror(errno), errno, fname);
Line 179  void file_move(Pool& pool, const String& Line 201  void file_move(Pool& pool, const String&
         create_dir_for_file(new_spec);          create_dir_for_file(new_spec);
   
         if(rename(old_spec_cstr, new_spec_cstr)!=0)          if(rename(old_spec_cstr, new_spec_cstr)!=0)
                 PTHROW(0, 0,                   throw Exception(0, 0, 
                         &old_spec,                           &old_spec, 
                         "rename failed: %s (%d), actual filename '%s' to '%s'",                           "rename failed: %s (%d), actual filename '%s' to '%s'", 
                                 strerror(errno), errno, old_spec_cstr, new_spec_cstr);                                  strerror(errno), errno, old_spec_cstr, new_spec_cstr);
Line 192  static bool entry_readable(const String& Line 214  static bool entry_readable(const String&
     const char *fname=file_spec.cstr(String::UL_FILE_SPEC);      const char *fname=file_spec.cstr(String::UL_FILE_SPEC);
         struct stat finfo;          struct stat finfo;
         if(access(fname, R_OK)==0 && stat(fname, &finfo)==0) {          if(access(fname, R_OK)==0 && stat(fname, &finfo)==0) {
                 bool is_dir=(bool)(finfo.st_mode&S_IFDIR);                  bool is_dir=finfo.st_mode&S_IFDIR != 0;
                 return is_dir==need_dir;                  return is_dir==need_dir;
         }          }
         return false;          return false;
Line 224  bool file_stat(const String& file_spec, Line 246  bool file_stat(const String& file_spec,
     struct stat finfo;      struct stat finfo;
         if(stat(fname, &finfo)!=0)          if(stat(fname, &finfo)!=0)
                 if(fail_on_read_problem)                  if(fail_on_read_problem)
                         PTHROW(0, 0,                           throw Exception(0, 0, 
                                 &file_spec,                                   &file_spec, 
                                 "getting file size failed: %s (%d), real filename '%s'",                                   "getting file size failed: %s (%d), real filename '%s'", 
                                         strerror(errno), errno, fname);                                          strerror(errno), errno, fname);
Line 311  size_t stdout_write(const void *buf, siz Line 333  size_t stdout_write(const void *buf, siz
 #endif  #endif
 }  }
   
 const char *unescape_chars(Pool& pool, const char *cp, int len) {  char *unescape_chars(Pool& pool, const char *cp, int len) {
         char *s=(char *)pool.malloc(len + 1);          char *s=(char *)pool.malloc(len + 1);
         enum EscapeState {          enum EscapeState {
                 EscapeRest,                   EscapeRest, 
Line 370  static void append_attribute_subattribut Line 392  static void append_attribute_subattribut
 const String& attributed_meaning_to_string(Value& meaning,   const String& attributed_meaning_to_string(Value& meaning, 
                                                                                    String::Untaint_lang lang) {                                                                                     String::Untaint_lang lang) {
         String &result=*new(meaning.pool()) String(meaning.pool());          String &result=*new(meaning.pool()) String(meaning.pool());
         if(Hash *hash=meaning.get_hash()) {          if(Hash *hash=meaning.get_hash(0)) {
                 // $value(value) $subattribute(subattribute value)                  // $value(value) $subattribute(subattribute value)
                 if(Value *value=static_cast<Value *>(hash->get(*value_name)))                  if(Value *value=static_cast<Value *>(hash->get(*value_name)))
                         result.append(value->as_string(), lang, true);                          result.append(value->as_string(), lang, true);
Line 422  bool StrEqNc(const char *s1, const char Line 444  bool StrEqNc(const char *s1, const char
         }          }
 }  }
   
 char *unquote(char*& current, char stop_at) {  
         char *result=current;  
         char *dest=current;  
         // skip leading WS  
         while(*current==' ' || *current=='\t')  
                 current++;  
         if(!*current)  
                 return current=0;  
   
         bool quoted=*current=='"';  
         if(quoted)  
                 current++;  
   
         for(; *current; ) {  
                 if(quoted)  
                         switch(*current) {  
                         case '\\': // "...\c  
                                 if(current[1])  
                                         current++;  
                                 break;  
                         case '"':  
                                 current++;  
                                 goto break2;  
                         }  
                 else  
                         if(*current==stop_at)  
                                 break;  
   
                 *dest++=*current++;  
         }  
 break2:  
         if(*current)  
                 current++; // skip 'stop_at'  
         *dest=0;  
         return result;  
 }  
   
 static int isLeap(int year) {  static int isLeap(int year) {
     return !(      return !(
              (year % 4) || ((year % 400) && !(year % 100))               (year % 4) || ((year % 400) && !(year % 100))
Line 489  void remove_crlf(char *start, char *end) Line 474  void remove_crlf(char *start, char *end)
                         case '\n': *p='|'; break;                          case '\n': *p='|'; break;
                         case '\r': *p=' '; break;                          case '\r': *p=' '; break;
                 }                  }
 }  
   
   }
Removed from v.1.70  
changed lines
  Added in v.1.77

E-mail: