--- parser3/src/classes/file.C	2016/12/28 17:41:15	1.259
+++ parser3/src/classes/file.C	2018/05/10 23:05:10	1.264
@@ -1,7 +1,7 @@
 /** @file
 	Parser: @b file parser class.
 
-	Copyright (c) 2001-2015 Art. Lebedev Studio (http://www.artlebedev.com)
+	Copyright (c) 2001-2017 Art. Lebedev Studio (http://www.artlebedev.com)
 	Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
 */
 
@@ -25,7 +25,7 @@
 #include "pa_vregex.h"
 #include "pa_version.h"
 
-volatile const char * IDENT_FILE_C="$Id: file.C,v 1.259 2016/12/28 17:41:15 moko Exp $";
+volatile const char * IDENT_FILE_C="$Id: file.C,v 1.264 2018/05/10 23:05:10 moko Exp $";
 
 // defines
 
@@ -192,7 +192,7 @@ static void _move(Request& r, MethodPara
 		keep_empty_dirs);
 }
 
-static void copy_process_source(struct stat& , int from_file, const String&, void *context) {
+static void copy_process_source(struct stat&, int from_file, const String&, void *context) {
 	int& to_file=*static_cast<int *>(context);
 
 	int nCount=0;
@@ -217,6 +217,18 @@ static void _copy(Request& r, MethodPara
 	Value& vfrom_file_name=params.as_no_junction(0, "from file name must not be code");
 	Value& vto_file_name=params.as_no_junction(1, "to file name must not be code");
 
+	bool append=false;
+	if(params.count()>2)
+		if(HashStringValue* options=params.as_hash(2)){
+			int valid_options=0;
+			if(Value* vappend=options->get("append")){
+				append=r.process(*vappend).as_bool();
+				valid_options++;
+			}
+			if(valid_options != options->count())
+				throw Exception(PARSER_RUNTIME, 0, CALLED_WITH_INVALID_OPTION);
+		}
+
 	String from_spec = r.absolute(vfrom_file_name.as_string());
 	const String& to_spec = r.absolute(vto_file_name.as_string());
 	
@@ -224,7 +236,9 @@ static void _copy(Request& r, MethodPara
 			to_spec,
 			"copy",
 			copy_open_target,
-			&from_spec);
+			&from_spec,
+			false /*as text*/,
+			append);
 }
 
 static void _load_pass_param(
@@ -730,10 +744,10 @@ static void _list(Request& r, MethodPara
 	int ovector[ovector_size];
 
 	LOAD_DIR(absolute_path_cstr, 
-		const char* file_name_cstr=ffblk.ff_name;
+		const char* file_name_cstr=ffblk.name();
 		size_t file_name_size=strlen(file_name_cstr);
 
-		if(!vregex || vregex->exec(ffblk.ff_name, file_name_size, ovector, ovector_size)>=0) {
+		if(!vregex || vregex->exec(file_name_cstr, file_name_size, ovector, ovector_size)>=0) {
 			Table::element_type row(new ArrayString);
 			*row+=new String(pa_strdup(file_name_cstr, file_name_size), String::L_TAINTED);
 			*row+=new String(String::Body::Format(ffblk.is_dir(stat) ? 1 : 0), String::L_CLEAN);
@@ -984,7 +998,7 @@ public:
 			}
 			return false;
 		} catch(...) {
-			error=SQL_Error("exception occured in File_sql_event_handlers::add_row_cell");
+			error=SQL_Error("exception occurred in File_sql_event_handlers::add_row_cell");
 			return true;
 		}
 	}
@@ -1266,5 +1280,6 @@ MFile::MFile(): Methoded("file") {
 	add_native_method("md5", Method::CT_ANY, _md5, 0, 1);
 
 	// ^file:copy[from-file-name;to-file-name]
-	add_native_method("copy", Method::CT_STATIC, _copy, 2, 2);
+	// ^file:copy[from-file-name;to-file-name;$.append(false)]
+	add_native_method("copy", Method::CT_STATIC, _copy, 2, 3);
 }