[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.36 and 1.46.2.1

version 1.36, 2001/04/03 06:23:05 version 1.46.2.1, 2001/04/16 11:26:43
Line 10 Line 10
 */  */
   
 #include "pa_config_includes.h"  #include "pa_config_includes.h"
   
 #include <fcntl.h>  
 #include <sys/stat.h>  
 #include <io.h>  
 #include <stdio.h>  
 #include <errno.h>  
   
 #include "pa_common.h"  #include "pa_common.h"
 #include "pa_types.h"  #include "pa_types.h"
 #include "pa_exception.h"  #include "pa_exception.h"
Line 26 Line 19
 #include "pa_hash.h"  #include "pa_hash.h"
 #include "pa_string.h"  #include "pa_string.h"
   
   #ifndef WIN32
   #       ifndef _O_TEXT
   #               define _O_TEXT 0
   #       endif
   #       ifndef _O_BINARY
   #               define _O_BINARY 0
   #       endif
   #endif
   
 #if _MSC_VER  #if _MSC_VER
   
 int __vsnprintf(char *b, size_t s, const char *f, va_list l) {  int __vsnprintf(char *b, size_t s, const char *f, va_list l) {
Line 51  char *file_read_text(Pool& pool, const S Line 53  char *file_read_text(Pool& pool, const S
                 fail_on_read_problem)?(char *)result:0;                  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& size, bool as_text,                             void*& data, size_t& read_size, bool as_text,
                            bool fail_on_read_problem) {                             bool fail_on_read_problem,
         char *fname=file_spec.cstr();                             size_t offset, size_t limit) {
           const char *fname=file_spec.cstr(String::UL_FILE_NAME);
         int f;          int f;
     struct stat finfo;      struct stat finfo;
   
         // first open, next stat:          // first open, next stat:
         // directory update of NTFS symbolic links performed on open.          // directory update of NTFS hard links performed on open.
         // ex:           // ex: 
         //   a.html:^test[] and b.html hardlink to a.html          //   a.html:^test[] and b.html hardlink to a.html
         //   user inserts ! before ^test in a.html          //   user inserts ! before ^test in a.html
Line 70  bool file_read(Pool& pool, const String& Line 73  bool file_read(Pool& pool, const String&
                 stat(fname, &finfo)==0) {                  stat(fname, &finfo)==0) {
                 /*if(exclusive)                  /*if(exclusive)
                         flock(f, LOCK_EX);*/                          flock(f, LOCK_EX);*/
                 data=pool.malloc(finfo.st_size+(as_text?1:0));                  size_t max_size=limit?min(offset+limit, finfo.st_size)-offset:finfo.st_size;
                 size=read(f, data, finfo.st_size);                  data=pool.malloc(max_size+(as_text?1:0));
                   if(offset)
                           lseek(f, offset, SEEK_SET);
                   read_size=read(f, data, max_size);
                 /*if(exclusive)                  /*if(exclusive)
                         flock(f, LOCK_UN);*/                          flock(f, LOCK_UN);*/
                 close(f);                  close(f);
   
                 if(size>=0 && size<=(size_t)finfo.st_size) {                  if(read_size>=0 && read_size<=max_size) {
                         if(as_text)                          if(as_text)
                                 ((char *)data)[size]=0;                                  ((char*&)data)[read_size]=0;
                 } else                  } else
                         PTHROW(0, 0,                           PTHROW(0, 0, 
                                 &file_spec,                                   &file_spec, 
                                 "read failed: actually read %d bytes count not in [0..%ul] valid range",                                   "read failed: actually read %d bytes count not in [0..%lu] valid range", 
                                         size, (unsigned long)finfo.st_size); //never                                          read_size, (unsigned long)max_size); //never
                                   
                 return true;//prepare_config(result, remove_empty_lines);                  return true;//prepare_config(result, remove_empty_lines);
     }      }
         if(fail_on_read_problem)          if(fail_on_read_problem)
                 PTHROW(0, 0,                   PTHROW(0, 0, 
                         &file_spec,                           &file_spec, 
                         "read failed: %s (#%d)", strerror(errno), errno);                          "read failed: %s (%d)", strerror(errno), errno);
     return false;      return false;
 }  }
   
   /// @test mkdirs
 void file_write(Pool& pool,   void file_write(Pool& pool, 
                                 const String& file_spec,                                   const String& file_spec, 
                                 const void *data, size_t size,                                   const void *data, size_t size, 
                                 bool as_text/*,                                   bool as_text/*, 
                                 bool exclusive*/) {                                  bool exclusive*/) {
         char *fname=file_spec.cstr();          const char *fname=file_spec.cstr(String::UL_FILE_NAME);
         int f;          int f;
         if(access(fname, F_OK)!=0) {/*no*/          if(access(fname, F_OK)!=0) {/*no*/
                 if((f=open(fname, O_WRONLY|O_CREAT|_O_BINARY, 0666))>0)                  if((f=open(fname, O_WRONLY|O_CREAT|_O_BINARY, 0666))>0)
Line 127  void file_write(Pool& pool, Line 134  void file_write(Pool& pool,
         }          }
         PTHROW(0, 0,           PTHROW(0, 0, 
                 &file_spec,                   &file_spec, 
                 "write failed: %s (#%d)", strerror(errno), errno);                  "write failed: %s (%d)", strerror(errno), errno);
 }  }
   
 void file_delete(Pool& pool, const String& file_spec) {  void file_delete(Pool& pool, const String& file_spec) {
         if(unlink(file_spec.cstr())!=0)          if(unlink(file_spec.cstr(String::UL_FILE_NAME))!=0)
                 PTHROW(0, 0,                   PTHROW(0, 0, 
                         &file_spec,                           &file_spec, 
                         "unlink failed: %s (#%d)", strerror(errno), errno);                          "unlink failed: %s (%d)", strerror(errno), errno);
 }  }
   
 bool file_readable(const String& file_spec) {  bool file_readable(const String& file_spec) {
     return access(file_spec.cstr(), R_OK)==0;      return access(file_spec.cstr(String::UL_FILE_NAME), R_OK)==0;
   }
   bool file_executable(const String& file_spec) {
       return access(file_spec.cstr(String::UL_FILE_NAME), X_OK)==0;
   }
   
   size_t file_size(const String& file_spec) {
           Pool& pool=file_spec.pool();
           const char *fname=file_spec.cstr(String::UL_FILE_NAME);
       struct stat finfo;
           if(stat(fname, &finfo)!=0)
                   PTHROW(0, 0, 
                           &file_spec, 
                           "write failed: %s (%d)", strerror(errno), errno);
           return finfo.st_size;
 }  }
   
 char *getrow(char **row_ref, char delim) {  char *getrow(char **row_ref, char delim) {
Line 182  char *rsplit(char *string, char delim) { Line 203  char *rsplit(char *string, char delim) {
     return NULL;              return NULL;        
 }  }
   
   /// @todo less stupid type detection
 char *format(Pool& pool, double value, char *fmt) {  char *format(Pool& pool, double value, char *fmt) {
         char *result=(char *)pool.malloc(MAX_NUMBER);          char *result=(char *)pool.malloc(MAX_NUMBER);
         if(fmt)          if(fmt)
Line 252  const char *unescape_chars(Pool& pool, c Line 274  const char *unescape_chars(Pool& pool, c
         return s;          return s;
 }  }
   
   struct Attributed_meaning_info {
           String::Untaint_lang lang;
           String *header;
   };
 static void append_attribute_subattribute(const Hash::Key& akey, Hash::Val *avalue,   static void append_attribute_subattribute(const Hash::Key& akey, Hash::Val *avalue, 
                                                                                   void *info) {                                                                                    void *info) {
         if(akey==VALUE_NAME)          if(akey==VALUE_NAME)
                 return;                  return;
   
           Attributed_meaning_info& ami=*static_cast<Attributed_meaning_info *>(info);
   
         // ...; charset=windows1251          // ...; charset=windows1251
         String *string=static_cast<String *>(info);          ami.header->APPEND_CONST("; ");
         string->APPEND_CONST("; ");          ami.header->append(akey, ami.lang, true);
         string->append(akey, String::UL_HEADER, true);          ami.header->APPEND_CONST("=");
         string->APPEND_CONST("=");          ami.header->append(static_cast<Value *>(avalue)->as_string(), 
         string->append(static_cast<Value *>(avalue)->as_string(),                   ami.lang, true);
                 String::UL_HEADER, true);  
 }  }
 const String& attributed_meaning_to_string(Value& meaning) {  const String& attributed_meaning_to_string(Value& meaning, 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()) {
                 // $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(), String::UL_HEADER, true);                          result.append(value->as_string(), lang, true);
   
                 hash->for_each(append_attribute_subattribute, &result);                  Attributed_meaning_info attributed_meaning_info={
                           lang,
                           &result
                   };
                   hash->for_each(append_attribute_subattribute, &attributed_meaning_info);
         } else // result value          } else // result value
                 result.append(meaning.as_string(), String::UL_HEADER, true);                  result.append(meaning.as_string(), lang, true);
   
         return result;          return result;
 }  }
Line 286  void back_slashes_to_slashes(char *s) { Line 317  void back_slashes_to_slashes(char *s) {
                         if(*s=='\\')                          if(*s=='\\')
                                 *s='/';                                  *s='/';
 }  }
   /*
   void slashes_to_back_slashes(char *s) {
           if(s)
                   for(; *s; s++)
                           if(*s=='/')
                                   *s='\\';
   }
   */
 #endif  #endif
   
   bool StrEqNc(const char *s1, const char *s2, bool strict) {
           while(true) {
                   if(!(*s1)) {
                           if(!(*s2))
                                   return true;
                           else
                                   return !strict;
                   } else if(!(*s2))
                           return !strict;
                   if(isalpha(*s1)) {
                           if(tolower(*s1) !=tolower(*s2))
                                   return false;
                   } else if((*s1) !=(*s2))
                           return false;
                   s1++;
                   s2++;
           }
   }
Removed from v.1.36  
changed lines
  Added in v.1.46.2.1

E-mail: