[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.19 and 1.49

version 1.19, 2001/03/20 07:34:32 version 1.49, 2001/04/23 08:52:24
Line 8 Line 8
         $Id$          $Id$
 */  */
   
 #ifdef HAVE_CONFIG_H  #include "pa_config_includes.h"
 #       include "pa_config.h"  
 #endif  
   
 #include <fcntl.h>  
 #include <sys/types.h>  
 #include <sys/stat.h>  
 #include <io.h>  
 #include <stdio.h>  
 #include <string.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 28 Line 18
 #include "pa_hash.h"  #include "pa_hash.h"
 #include "pa_string.h"  #include "pa_string.h"
   
 #ifdef WIN32  #ifndef WIN32
   #       ifndef _O_TEXT
   #               define _O_TEXT 0
   #       endif
   #       ifndef _O_BINARY
   #               define _O_BINARY 0
   #       endif
   #endif
   
   #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) {
         int r=_vsnprintf(b, --s, f, l);          int r=_vsnprintf(b, --s, f, l);
Line 46  int __snprintf(char *b, size_t s, const Line 45  int __snprintf(char *b, size_t s, const
 #endif  #endif
   
   
 #ifdef WIN32  char *file_read_text(Pool& pool, const String& file_spec, bool fail_on_read_problem) {
           void *result;
 void flock(int fd, int operation) {          size_t size;
         lseek(fd, 0, SEEK_SET);          return file_read(pool, file_spec, result, size, true, 
         while(_locking(fd, operation, 1)!=0);                  fail_on_read_problem)?(char *)result:0;
         lseek(fd, 0, SEEK_SET);  }
 }  bool file_read(Pool& pool, const String& file_spec, 
                              void*& data, size_t& read_size, bool as_text,
 #endif                             bool fail_on_read_problem,
                              size_t offset, size_t limit) {
 /// @todo define it          const char *fname=file_spec.cstr(String::UL_FILE_NAME);
 #ifdef SUN          int f;
   
 void flock(int fd, int operation) {  
         lseek(fd, 0, SEEK_SET);  
         lockf(fd, operation, 1);  
         lseek(fd, 0, SEEK_SET);  
 }  
 #endif  
   
 void lock(FILE *f, long position) {  
         flock(fileno(f), LOCK_EX);  
 }  
 void unlock(FILE *f) {  
         flock(fileno(f), LOCK_UN);  
 }  
   
   
 char *file_read_text(Pool& pool, const char *fname, bool fail_on_read_problem) {  
     int f;  
     struct stat finfo;      struct stat finfo;
     if(fname && !stat(fname,&finfo) &&(f=open(fname,O_RDONLY  
 #ifdef WIN32          // first open, next stat:
                 |O_TEXT          // directory update of NTFS hard links performed on open.
 #endif          // ex: 
                 ))>=0) {          //   a.html:^test[] and b.html hardlink to a.html
           //   user inserts ! before ^test in a.html
           //   directory entry of b.html in NTFS not updated at once,
           //   they delay update till open, so we would receive "!^test[" string
           //   if would do stat, next open.
       if(
                   (f=open(fname, O_RDONLY|(as_text?_O_TEXT:_O_BINARY)))>=0 && 
                   stat(fname, &finfo)==0) {
                 /*if(exclusive)                  /*if(exclusive)
                         flock(f, LOCK_EX);*/                          flock(f, LOCK_EX);*/
                   size_t max_size=limit?min(offset+limit, finfo.st_size)-offset:finfo.st_size;
                 char *result=(char *)pool.malloc(finfo.st_size+1);                  if(!max_size) { // eof
                 int read_size=read(f,result,finfo.st_size);                          data=0;
                 if(read_size>=0 && read_size<=finfo.st_size)                           read_size=0;
                         result[read_size]='\0';                          return true;
                   }
                   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);
                 return result;//prepare_config(result, remove_empty_lines);  
                   if(read_size>=0 && read_size<=max_size) {
                           if(as_text)
                                   ((char*&)data)[read_size]=0;
                   } else
                           PTHROW(0, 0, 
                                   &file_spec, 
                                   "read failed: actually read %d bytes count not in [0..%lu] valid range", 
                                           read_size, (unsigned long)max_size); //never
                   
                   return true;//prepare_config(result, remove_empty_lines);
     }      }
         if(fail_on_read_problem)          if(fail_on_read_problem)
                 PTHROW(0,0,                  PTHROW(0, 0, 
                         0,                          &file_spec, 
                         "use: can not read '%s' file", fname);                          "read failed: %s (%d)", strerror(errno), errno);
     return 0;      return false;
 }  }
   
   /// @test mkdirs
 void file_write(Pool& pool,   void file_write(Pool& pool, 
                                 const char *fname,                                   const String& file_spec, 
                                 const char *data, size_t size,                                   const void *data, size_t size, 
                                 bool as_text,                                  bool as_text/*, 
                                 bool exclusive) {                                  bool exclusive*/) {
         if(fname) {          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)
                                 close(f);                          close(f);
                 }          }
                 if(access(fname, R_OK|W_OK)==0) {          if(access(fname, R_OK|W_OK)==0) {
                         int mode=O_RDWR                  int mode=O_RDWR|(as_text?_O_TEXT:_O_BINARY)
 #ifdef WIN32  
                                 |O_TRUNC  
 #endif  
                         ;  
 #ifdef WIN32  #ifdef WIN32
                         mode|=as_text?_O_TEXT:_O_BINARY;                          |O_TRUNC
 #endif  #endif
                         if((f=open(fname,mode,0666))>=0) {                  ;
                                 if(exclusive)                  if((f=open(fname, mode, 0666))>=0) {
                                         flock(f, LOCK_EX);                          /*if(exclusive)
                                                                   flock(f, LOCK_EX);*/
                                 if(size) write(f,data,size);                          
                           if(size) write(f, data, size);
 #ifndef WIN32  #ifndef WIN32
                                 ftruncate(f,size);                          ftruncate(f, size);
 #endif  #endif
                                 if(exclusive)                          /*if(exclusive)
                                         flock(f, LOCK_UN);                                  flock(f, LOCK_UN);*/
                                 close(f);                          close(f);
                                 return;                          return;
                         }  
                 }                  }
         }          }
         if(fname)          PTHROW(0, 0, 
                 PTHROW(0, 0,                  &file_spec, 
                         0,                  "write failed: %s (%d)", strerror(errno), errno);
                         "file_write('%s'): %s (#%d)",   }
                                 fname, strerror(errno), errno);  
         else  void file_delete(Pool& pool, const String& file_spec) {
                 PTHROW(0, 0,          if(unlink(file_spec.cstr(String::UL_FILE_NAME))!=0)
                         0,                  PTHROW(0, 0, 
                         "file_write: no filename specified");                          &file_spec, 
                           "unlink failed: %s (%d)", strerror(errno), errno);
   }
   
   bool file_readable(const String& file_spec) {
       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 159  char *getrow(char **row_ref, char delim) Line 178  char *getrow(char **row_ref, char delim)
     return result;      return result;
 }  }
   
 char *lsplit(char *string_ref, char delim) {  char *lsplit(char *string, char delim) {
     if(string_ref) {      if(string) {
                 char *v=strchr(string_ref, delim);                  char *v=strchr(string, delim);
                 if(v) {                  if(v) {
                         *v=0;                          *v=0;
                         return v+1;                          return v+1;
Line 188  char *rsplit(char *string, char delim) { Line 207  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)
                 if(strpbrk(fmt, "diouxX"))                  if(strpbrk(fmt, "diouxX"))
                         if(strpbrk(fmt, "ouxX"))                          if(strpbrk(fmt, "ouxX"))
                                 snprintf(result, MAX_NUMBER, fmt,(uint)value );                                  snprintf(result, MAX_NUMBER, fmt, (uint)value );
                         else                          else
                                 snprintf(result, MAX_NUMBER, fmt,(int)value );                                  snprintf(result, MAX_NUMBER, fmt, (int)value );
                 else                  else
                         snprintf(result, MAX_NUMBER, fmt, value);                          snprintf(result, MAX_NUMBER, fmt, value);
         else          else
                 snprintf(result, MAX_NUMBER, "%d",(int)value);                  snprintf(result, MAX_NUMBER, "%d", (int)value);
                   
         return result;          return result;
 }  }
   
 size_t stdout_write(const char *buf, size_t size) {  size_t stdout_write(const void *buf, size_t size) {
 #ifdef WIN32  #ifdef WIN32
         do{          do{
                 int chunk_written=fwrite(buf, 1, min(8*0x400, size), stdout);                  int chunk_written=fwrite(buf, 1, min(8*0x400, size), stdout);
                 if(chunk_written<=0)                  if(chunk_written<=0)
                         break;                          break;
                 size-=chunk_written;                  size-=chunk_written;
                 buf+=chunk_written;                  buf=((const char*)buf)+chunk_written;
         } while(size>0);          } while(size>0);
   
         return size;          return size;
Line 223  size_t stdout_write(const char *buf, siz Line 243  size_t stdout_write(const char *buf, siz
 const char *unescape_chars(Pool& pool, const char *cp, int len) {  const 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, 
                 EscapeFirst,                  EscapeFirst, 
                 EscapeSecond                  EscapeSecond
         } escapeState=EscapeRest;          } escapeState=EscapeRest;
         int escapedValue=0;          int escapedValue=0;
Line 258  const char *unescape_chars(Pool& pool, c Line 278  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 << "; ";
         string->APPEND_CONST("; ");          ami.header->append(akey, ami.lang, true);
         string->append(akey, String::Untaint_lang::HEADER, true);          *ami.header << "=";
         string->APPEND_CONST("=");          ami.header->append(static_cast<Value *>(avalue)->as_string(), ami.lang, true);
         string->append(static_cast<Value *>(avalue)->as_string(),   }
                 String::Untaint_lang::HEADER, true);  const String& attributed_meaning_to_string(Value& meaning, 
 }                                                                                     String::Untaint_lang lang) {
 const String& attributed_meaning_string(Value *meaning) {          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::Untaint_lang::HEADER, true);                          result.append(value->as_string(), lang, true);
   
                 hash->foreach(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::Untaint_lang::HEADER, true);                  result.append(meaning.as_string(), lang, true);
   
           return result;
   }
   
   #ifdef WIN32
   void back_slashes_to_slashes(char *s) {
           if(s)
                   for(; *s; s++)
                           if(*s=='\\')
                                   *s='/';
   }
   /*
   void slashes_to_back_slashes(char *s) {
           if(s)
                   for(; *s; s++)
                           if(*s=='/')
                                   *s='\\';
   }
   */
   #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++;
           }
   }
   
   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;          return result;
 }  
   
   }
Removed from v.1.19  
changed lines
  Added in v.1.49

E-mail: