--- parser3/src/classes/response.C	2001/06/28 07:44:17	1.13
+++ parser3/src/classes/response.C	2026/10/10 12:58:07	1.37
@@ -1,49 +1,52 @@
 /** @file
 	Parser: @b response parser class.
 
-	Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
-
-	Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
+	Copyright (c) 2001-2026 Art. Lebedev Studio (https://www.artlebedev.com)
+	Authors: Konstantin Morshnev <moko@design.ru>, Alexandr Petrosian <paf@design.ru>
 */
-static const char *RCSId="$Id: response.C,v 1.13 2001/06/28 07:44:17 parser Exp $"; 
 
 #include "classes.h"
-#include "pa_request.h"
+#include "pa_vmethod_frame.h"
 
-// defines
+#include "pa_request.h"
+#include "pa_vresponse.h"
+#include "pa_vfile.h"
 
-#define RESPONSE_CLASS_NAME "response"
+volatile const char * IDENT_RESPONSE_C="$Id: response.C,v 1.37 2026/10/10 12:58:07 moko Exp $";
 
 // class
 
-class MResponse : public Methoded {
+class MResponse: public Methoded {
 public:
-	MResponse(Pool& pool);
+	MResponse();
 public: // Methoded
 	bool used_directly() { return false; }
 };
 
-// methods
-
-static void _clear(Request& r, const String&, MethodParams *) {
-	r.self/*VResponse*/->get_hash()/*sure not 0*/->clear();
-}
+// global variable
 
-// constructor
+DECLARE_CLASS_VAR(response, new MResponse);
 
-MResponse::MResponse(Pool& apool) : Methoded(apool) {
-	set_name(*NEW String(pool(), RESPONSE_CLASS_NAME));
+// methods
 
+static void _clear(Request& r, MethodParams&) {
+	GET_SELF(r, VResponse).fields().clear();
+}
 
-	// ^clear[]
-	add_native_method("clear", Method::CT_DYNAMIC, _clear, 0, 0);
+static void _send(Request& r, MethodParams& params) {
+	Value& part=params[0];
+	// checked here, before headers are sent
+	if(!dynamic_cast<VFile*>(&part))
+		params.as_string(0, "part must be string or file");
+	r.send(part);
 }
-// global variable
 
-Methoded *response_class;
+// constructor
 
-// creator
+MResponse::MResponse(): Methoded("response") {
+	// ^clear[]
+	add_native_method("clear", Method::CT_STATIC, _clear, 0, 0);
 
-Methoded *MResponse_create(Pool& pool) {
-	return response_class=new(pool) MResponse(pool);
+	// ^send[string or file]: the headers go with the first part, the result of @main is not sent then
+	add_native_method("send", Method::CT_STATIC, _send, 1, 1);
 }