--- parser3/src/classes/image.C	2003/07/24 11:31:20	1.91
+++ parser3/src/classes/image.C	2003/11/07 13:59:21	1.97
@@ -5,7 +5,7 @@
 	Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
 */
 
-static const char* IDENT_IMAGE_C="$Date: 2003/07/24 11:31:20 $";
+static const char* IDENT_IMAGE_C="$Date: 2003/11/07 13:59:21 $";
 
 /*
 	jpegsize: gets the width and height (in pixels) of a jpeg file
@@ -33,7 +33,7 @@ static const char* IDENT_IMAGE_C="$Date:
 
 class MImage: public Methoded {
 public: // VStateless_class
-	Value* create_new_value() { return new VImage(); }
+	Value* create_new_value(Pool& apool) { return new VImage(); }
 
 public:
 	MImage();
@@ -410,7 +410,7 @@ static Value* parse_IFD_entry_formatted_
 			strcpy(cstr_writable, cstr);
 
 			time_t t=cstr_to_time_t(cstr_writable, 
-				0/* do not throw exception, just return bad result */);
+				false/* do not throw exception, just return bad result */);
 			if(t>=0)
 				return new VDate(t);
 		}
@@ -427,7 +427,7 @@ static Value* parse_IFD_entry_formatted_
 	HashStringValue& hash=result->hash();
 	for(uint i=0; i<components_count; i++, value+=component_size) {
 		hash.put(
-			StringBody::Format(i),
+			String::Body::Format(i),
 			parse_IFD_entry_formatted_one_value(is_big, format, component_size, value));
 	}
 
@@ -512,9 +512,9 @@ static void parse_IFD_entry(HashStringVa
 	
 	if(Value* value=parse_IFD_entry_value(is_big, reader, tiff_base, entry)) {
 		if(const char* name=exif_tag_value2name.get(tag))
-			hash.put(StringBody(name), value);
+			hash.put(String::Body(name), value);
 		else
-			hash.put(StringBody::Format(tag), value);
+			hash.put(String::Body::Format(tag), value);
 	}
 }
 
@@ -805,7 +805,6 @@ static void _load(Request& r, MethodPara
 }
 
 static void _create(Request& r, MethodParams& params) {
-
 	int width=params.as_int(0, "width must be int", r);
 	int height=params.as_int(1, "height must be int", r);
 	int bgcolor_value=0xffFFff;
@@ -818,27 +817,29 @@ static void _create(Request& r, MethodPa
 }
 
 static void _gif(Request& r, MethodParams& params) {
-
 	gdImage* image=GET_SELF(r, VImage).image;
 	if(!image)
 		throw Exception(0, 
 			0, 
 			"does not contain an image");
 
-	// could _ but don't thing it's wise to use $image.src for vfile.name
+	const String *file_name=0;
+	if(params.count()>0)
+		file_name=&params.as_string(0, "file name must be string");
 
 	gdBuf buf=image->Gif();
 	
 	VFile& vfile=*new VFile;
 	Value* content_type=new VString(*new String("image/gif"));
 	vfile.set(false/*not tainted*/, 
-		(const char*)buf.ptr, buf.size, 0, content_type);
+		(const char*)buf.ptr, buf.size, 
+		file_name? file_name->cstr(String::L_FILE_SPEC): 0, 
+		content_type);
 
 	r.write_no_lang(vfile);
 }
 
 static void _line(Request& r, MethodParams& params) {
-
 	gdImage* image=GET_SELF(r, VImage).image;
 	if(!image)
 		throw Exception(0, 
@@ -854,7 +855,6 @@ static void _line(Request& r, MethodPara
 }
 
 static void _fill(Request& r, MethodParams& params) {
-
 	gdImage* image=GET_SELF(r, VImage).image;
 	if(!image)
 		throw Exception(0, 
@@ -868,7 +868,6 @@ static void _fill(Request& r, MethodPara
 }
 
 static void _rectangle(Request& r, MethodParams& params) {
-
 	gdImage* image=GET_SELF(r, VImage).image;
 	if(!image)
 		throw Exception(0, 
@@ -884,7 +883,6 @@ static void _rectangle(Request& r, Metho
 }
 
 static void _bar(Request& r, MethodParams& params) {
-
 	gdImage* image=GET_SELF(r, VImage).image;
 	if(!image)
 		throw Exception(0, 
@@ -908,7 +906,6 @@ static void add_point(Table::element_typ
 }
 #endif
 static void _replace(Request& r, MethodParams& params) {
-
 	gdImage* image=GET_SELF(r, VImage).image;
 	if(!image)
 		throw Exception(0, 
@@ -921,7 +918,7 @@ static void _replace(Request& r, MethodP
 			0,
 			"coordinates must be table");
 
-	gdImage::Point *all_p=new gdImage::Point[table->count()];
+	gdImage::Point *all_p=new(PointerFreeGC) gdImage::Point[table->count()];
 	gdImage::Point *add_p=all_p;	
 	table->for_each(add_point, &add_p);
 	image->FilledPolygonReplaceColor(all_p, table->count(), 
@@ -930,7 +927,6 @@ static void _replace(Request& r, MethodP
 }
 
 static void _polyline(Request& r, MethodParams& params) {
-
 	gdImage* image=GET_SELF(r, VImage).image;
 	if(!image)
 		throw Exception(0, 
@@ -943,7 +939,7 @@ static void _polyline(Request& r, Method
 			0,
 			"coordinates must be table");
 
-	gdImage::Point* all_p=new gdImage::Point[table->count()];
+	gdImage::Point* all_p=new(PointerFreeGC) gdImage::Point[table->count()];
 	gdImage::Point *add_p=all_p;	
 	table->for_each(add_point, &add_p);
 	image->Polygon(all_p, table->count(), 
@@ -952,7 +948,6 @@ static void _polyline(Request& r, Method
 }
 
 static void _polygon(Request& r, MethodParams& params) {
-
 	gdImage* image=GET_SELF(r, VImage).image;
 	if(!image)
 		throw Exception(0, 
@@ -965,7 +960,7 @@ static void _polygon(Request& r, MethodP
 			0,
 			"coordinates must be table");
 
-	gdImage::Point* all_p=new gdImage::Point[table->count()];
+	gdImage::Point* all_p=new(PointerFreeGC) gdImage::Point[table->count()];
 	gdImage::Point *add_p=all_p;	
 	table->for_each(add_point, &add_p);
 	image->Polygon(all_p, table->count(), 
@@ -973,7 +968,6 @@ static void _polygon(Request& r, MethodP
 }
 
 static void _polybar(Request& r, MethodParams& params) {
-
 	gdImage* image=GET_SELF(r, VImage).image;
 	if(!image)
 		throw Exception(0, 
@@ -986,7 +980,7 @@ static void _polybar(Request& r, MethodP
 			0,
 			"coordinates must be table");
 
-	gdImage::Point* all_p=new gdImage::Point[table->count()];
+	gdImage::Point* all_p=new(PointerFreeGC) gdImage::Point[table->count()];
 	gdImage::Point *add_p=all_p;	
 	table->for_each(add_point, &add_p);
 	image->FilledPolygon(all_p, table->count(), 
@@ -1242,7 +1236,7 @@ MImage::MImage(): Methoded("image") {
 	add_native_method("create", Method::CT_DYNAMIC, _create, 2, 3);
 
 	// ^image.gif[]
-	add_native_method("gif", Method::CT_DYNAMIC, _gif, 0, 0);
+	add_native_method("gif", Method::CT_DYNAMIC, _gif, 0, 1);
 
 	// ^image.line(x0;y0;x1;y1;color)
 	add_native_method("line", Method::CT_DYNAMIC, _line, 5, 5);