--- parser3/src/classes/string.C	2001/10/23 14:43:44	1.85
+++ parser3/src/classes/string.C	2001/12/15 21:28:18	1.92
@@ -2,9 +2,9 @@
 	Parser: @b string parser class.
 
 	Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
-	Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
+	Author: Alexander Petrosyan <paf@design.ru> (http://paf.design.ru)
 
-	$Id: string.C,v 1.85 2001/10/23 14:43:44 parser Exp $
+	$Id: string.C,v 1.92 2001/12/15 21:28:18 paf Exp $
 */
 
 #include "classes.h"
@@ -83,7 +83,8 @@ static void _double(Request& r, const St
 	Value& fmt=params->as_junction(0, "fmt must be code");
 
 	Temp_lang temp_lang(r, String::UL_PASS_APPENDED);
-	char *buf=format(pool, r.self->as_double(), r.process(fmt).as_string().cstr());
+	char *buf=format(pool, r.self->as_double(), 
+		r.process(fmt).as_string().cstr(String::UL_UNSPECIFIED, r.connection));
 
 	String result(pool);
 	result.APPEND_CLEAN(buf, 0, 
@@ -244,7 +245,7 @@ static void _match(Request& r, const Str
 	Table *table;
 	if(params->size()<3) { // search
 		bool was_global;
-		bool matched=src.match(r.pcre_tables(),
+		bool matched=src.match(
 			&method_name, 
 			regexp.as_string(), options,
 			&table,
@@ -257,7 +258,7 @@ static void _match(Request& r, const Str
 		else 
 			result=new(pool) VBool(pool, matched);			
 	} else { // replace
-		Value& replacement_code=params->as_junction(2, "replacement code must be code");
+		Value& replacement_code=params->as_junction(2, "replacement param must be code");
 
 		String& dest=*new(pool) String(pool);
 		Replace_action_info replace_action_info={
@@ -266,7 +267,7 @@ static void _match(Request& r, const Str
 			&replacement_code,
 			&src
 		};
-		src.match(r.pcre_tables(),
+		src.match(
 			&method_name, 
 			r.process(regexp).as_string(), options,
 			&table,
@@ -282,7 +283,7 @@ static void change_case(Request& r, cons
 	Pool& pool=r.pool();
 	const String& src=*static_cast<VString *>(r.self)->get_string();
 
-	r.write_assign_lang(*new(pool) VString(src.change_case(pool, r.pcre_tables(),
+	r.write_assign_lang(*new(pool) VString(src.change_case(pool, 
 		kind)));
 }
 static void _upper(Request& r, const String& method_name, MethodParams *params) {
@@ -426,14 +427,26 @@ static void _replace(Request& r, const S
 
 static void _save(Request& r, const String& method_name, MethodParams *params) {
 	Pool& pool=r.pool();
-	Value& vfile_name=params->as_no_junction(0, 
-		"file name must not be code");
+	const String& file_name=params->as_string(params->size()-1, 
+		"file name must be string");
 
 	const String& src=*static_cast<VString *>(r.self)->get_string();
 
+	bool do_append=false;
+	if(params->size()>1) {
+		const String& mode=params->as_string(0, "mode must be string");
+		if(mode=="append")
+			do_append=true;
+		else
+			throw Exception(0, 0,
+				&mode,
+				"unknown mode, must be 'append'");
+	}		
+
 	// write
-	file_write(pool, r.absolute(vfile_name.as_string()), 
-		src.cstr(String::UL_AS_IS), src.size(), true);
+	const char *buf=src.cstr(String::UL_UNSPECIFIED);
+	file_write(pool, r.absolute(file_name), 
+		buf, strlen(buf), true, do_append);
 }
 
 // constructor
@@ -487,7 +500,7 @@ MString::MString(Pool& apool) : Methoded
 	add_native_method("replace", Method::CT_DYNAMIC, _replace, 1, 1);
 
 	// ^string.save[file]  
-	add_native_method("save", Method::CT_DYNAMIC, _save, 1, 1);
+	add_native_method("save", Method::CT_DYNAMIC, _save, 1, 2);
 }	
 
 // global variable