--- parser3/src/include/pa_sapi.h	2004/07/26 10:44:21	1.26
+++ parser3/src/include/pa_sapi.h	2020/10/14 00:07:42	1.35
@@ -1,20 +1,20 @@
 /** @file
 	Parser: web server api interface object decl.
 
-	Copyright (c) 2001-2004 ArtLebedev Group (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)
 */
 
 #ifndef PA_SAPI_H
 #define PA_SAPI_H
 
-static const char * const IDENT_SAPI_H="$Date: 2004/07/26 10:44:21 $";
+#define IDENT_PA_SAPI_H "$Id: pa_sapi.h,v 1.35 2020/10/14 00:07:42 moko Exp $"
 
 // includes
 
-
-#include "pa_types.h"
+#include "pa_common.h"
 #include "pa_array.h"
+#include "pa_exception.h"
 
 // forwards
 class SAPI_Info;
@@ -25,21 +25,57 @@ struct SAPI {
 	static void log(SAPI_Info& info, const char* fmt, ...);
 	/// log error message & exit
 	static void die(const char* fmt, ...);
-	/// log error message & abort[write core]
-	static void abort(const char* fmt, ...);
-	/// environment strings
-	static const char* const* environment(SAPI_Info& info);
-	/// get environment string
-	static char* get_env(SAPI_Info& info, const char* name);
 	/// read POST request bytes
 	static size_t read_post(SAPI_Info& info, char *buf, size_t max_bytes);
 	/// add response header attribute [but do not send it to client]
-	static void add_header_attribute(SAPI_Info& info, 
-		const char* dont_store_key, const char* dont_store_value);
+	static void add_header_attribute(SAPI_Info& info, const char* dont_store_key, const char* dont_store_value);
 	/// send collected header attributes to client
 	static void send_header(SAPI_Info& info);
 	/// output body bytes
 	static size_t send_body(SAPI_Info& info, const void *buf, size_t size);
+
+	static void send_error(SAPI_Info& info, const char *exception_cstr, const char *status = "500"){
+		// capitalized headers passed for preventing malloc during capitalization
+		add_header_attribute(info, HTTP_STATUS_CAPITALIZED, status);
+		add_header_attribute(info, HTTP_CONTENT_TYPE_CAPITALIZED, "text/plain");
+		send_header(info);
+		send_body(info, exception_cstr, strlen(exception_cstr));
+	}
+
+	class Env {
+	public:
+		/// entire environment
+		static const char* const* get(SAPI_Info& ainfo);
+		/// single environment string
+		static char* get(SAPI_Info& ainfo, const char* name);
+
+		class Iterator {
+		private:
+			const char* const* pairs;
+			const char* pair;
+			const char* eq_at;
+		public:
+			Iterator(SAPI_Info& asapi_info) : pair(NULL), eq_at(NULL){
+				if(pairs=SAPI::Env::get(asapi_info))
+					next();
+			}
+			operator bool () {
+				return pair!=0;
+			}
+			void next() {
+				while(pair=*pairs++)
+					if(eq_at=strchr(pair, '=')) // valid pair (key=value)
+						if(eq_at[1]) // value is not empty
+							break;
+			}
+			char* key(){
+				return pa_strdup(pair, eq_at-pair);
+			}
+			char* value(){
+				return pa_strdup(eq_at+1);
+			}
+		};
+	};
 };
 
 #endif