--- parser3/src/main/pa_common.C	2002/02/08 07:27:47	1.100
+++ parser3/src/main/pa_common.C	2002/04/09 08:10:37	1.108
@@ -1,10 +1,10 @@
 /** @file
 	Parser: commonly functions.
 
-	Copyright(c) 2001, 2002 ArtLebedev Group(http://www.artlebedev.com)
-	Author: Alexander Petrosyan <paf@design.ru>(http://paf.design.ru)
+	Copyright(c) 2001, 2002 ArtLebedev Group (http://www.artlebedev.com)
+	Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
 
-	$Id: pa_common.C,v 1.100 2002/02/08 07:27:47 paf Exp $
+	$Id: pa_common.C,v 1.108 2002/04/09 08:10:37 paf Exp $
 */
 
 #include "pa_common.h"
@@ -78,6 +78,10 @@ static int unlock(int fd) { FLOCK(F_TLOC
 #endif
 
 static char *strnchr(char *buf, size_t size, char c) {
+	// sanity check
+	if(!buf)
+		return 0;
+
 	for(; size-->0; buf++) {
 		if(*buf==c)
 			return buf;
@@ -135,7 +139,7 @@ bool file_read(Pool& pool, const String&
     if((f=open(fname, O_RDONLY|(as_text?_O_TEXT:_O_BINARY)))>=0) {
 		lock_shared_blocking(f);		
 		if(stat(fname, &finfo)!=0) {
-			Exception e(0, 0, 
+			Exception e("file.missing",
 					&file_spec, 
 					"stat failed: %s (%d), actual filename '%s'", 
 						strerror(errno), errno, fname);
@@ -145,6 +149,19 @@ bool file_read(Pool& pool, const String&
 				throw e;
 			return false;
 		}
+#ifdef NO_FOREIGN_GROUP_FILES
+		if(finfo.st_gid/*foreign?*/!=getegid()) {
+			Exception e("parser.runtime",
+				&file_spec,
+				"parser reading files of foreign group disabled [recompile parser without --disable-foreign-group-files configure option], actual filename '%s'", 
+					fname);
+			unlock(f);
+			close(f);
+			if(fail_on_read_problem)
+				throw e;
+			return false;
+		}
+#endif
 		size_t max_size=limit?min(offset+limit, (size_t)finfo.st_size)-offset:finfo.st_size;
 		if(!max_size) { // eof
 			if(as_text) {
@@ -165,7 +182,7 @@ bool file_read(Pool& pool, const String&
 			return true;
 
 		if(int(data_size)<0 || data_size>max_size)
-			throw Exception(0, 0, 
+			throw Exception(0,
 				&file_spec, 
 				"read failed: actually read %d bytes count not in [0..%lu] valid range", 
 					data_size, (unsigned long)max_size); //never
@@ -178,7 +195,7 @@ bool file_read(Pool& pool, const String&
 		return true;
     }
 	if(fail_on_read_problem)
-		throw Exception(0, 0, 
+		throw Exception(errno==EACCES?"file.access":errno==ENOENT?"file.missing":0,
 			&file_spec, 
 			"read failed: %s (%d), actual filename '%s'", 
 				strerror(errno), errno, fname);
@@ -208,7 +225,7 @@ bool file_write_action_under_lock(
 	if((f=open(fname, 
 		O_CREAT|O_RDWR
 		|(as_text?_O_TEXT:_O_BINARY)
-		|(do_append?O_APPEND:0), 0664))>=0) {
+		|(do_append?O_APPEND:O_TRUNC), 0664))>=0) {
 		if((do_block?lock_exclusive_blocking(f):lock_exclusive_nonblocking(f))!=0) {
 			close(f);
 			return false;
@@ -218,7 +235,8 @@ bool file_write_action_under_lock(
 			action(f, context);
 		} catch(...) {
 #if O_TRUNC==0
-			ftruncate(f, tell(f));
+			if(!do_append)
+				ftruncate(f, tell(f));
 #endif
 			unlock(f);
 			close(f);
@@ -226,13 +244,14 @@ bool file_write_action_under_lock(
 		}
 		
 #if O_TRUNC==0
-		ftruncate(f, tell(f));
+		if(!do_append)
+			ftruncate(f, tell(f));
 #endif
 		unlock(f);
 		close(f);
 		return true;
 	} else
-		throw Exception(0, 0, 
+		throw Exception(errno==EACCES?"file.access":0,
 			&file_spec, 
 			"%s failed: %s (%d), actual filename '%s'", 
 				action_name, strerror(errno), errno, fname);
@@ -274,7 +293,7 @@ bool file_delete(const String& file_spec
 	const char *fname=file_spec.cstr(String::UL_FILE_SPEC);
 	if(unlink(fname)!=0)
 		if(fail_on_read_problem)
-			throw Exception(0, 0, 
+			throw Exception(errno==EACCES?"file.access":errno==ENOENT?"file.missing":0,
 				&file_spec, 
 				"unlink failed: %s (%d), actual filename '%s'", 
 					strerror(errno), errno, fname);
@@ -291,7 +310,7 @@ void file_move(const String& old_spec, c
 	create_dir_for_file(new_spec);
 
 	if(rename(old_spec_cstr, new_spec_cstr)!=0)
-		throw Exception(0, 0, 
+		throw Exception(errno==EACCES?"file.access":errno==ENOENT?"file.missing":0,
 			&old_spec, 
 			"rename failed: %s (%d), actual filename '%s' to '%s'", 
 				strerror(errno), errno, old_spec_cstr, new_spec_cstr);
@@ -336,7 +355,7 @@ bool file_stat(const String& file_spec,
     struct stat finfo;
 	if(stat(fname, &finfo)!=0)
 		if(fail_on_read_problem)
-			throw Exception(0, 0, 
+			throw Exception("file.missing",
 				&file_spec, 
 				"getting file size failed: %s (%d), real filename '%s'", 
 					strerror(errno), errno, fname);
@@ -392,19 +411,23 @@ char *rsplit(char *string, char delim) {
 
 /// @todo less stupid type detection
 char *format(Pool& pool, double value, char *fmt) {
-	char *result=(char *)pool.malloc(MAX_NUMBER, 4);
+	char local_buf[MAX_NUMBER];
+	size_t size;
+	
 	if(fmt)
 		if(strpbrk(fmt, "diouxX"))
 			if(strpbrk(fmt, "ouxX"))
-				snprintf(result, MAX_NUMBER, fmt, (uint)value );
+				size=snprintf(local_buf, sizeof(local_buf), fmt, (uint)value);
 			else
-				snprintf(result, MAX_NUMBER, fmt, (int)value );
+				size=snprintf(local_buf, sizeof(local_buf), fmt, (int)value);
 		else
-			snprintf(result, MAX_NUMBER, fmt, value);
+			size=snprintf(local_buf, sizeof(local_buf), fmt, value);
 	else
-		snprintf(result, MAX_NUMBER, "%d", (int)value);
+		size=snprintf(local_buf, sizeof(local_buf), "%d", (int)value);
 	
-	return result;
+	char *pool_buf=(char *)pool.malloc(size+1, 4);
+	memcpy(pool_buf, local_buf, size+1);
+	return pool_buf;
 }
 
 size_t stdout_write(const void *buf, size_t size) {