--- parser3/src/main/pa_exception.C	2001/09/26 10:32:26	1.16
+++ parser3/src/main/pa_exception.C	2026/04/25 13:38:46	1.64
@@ -1,33 +1,60 @@
 /** @file
 	Parser: exception class.
 
-	Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
-	Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
-
-	$Id: pa_exception.C,v 1.16 2001/09/26 10:32:26 parser Exp $
+	Copyright (c) 2001-2026 Art. Lebedev Studio (https://www.artlebedev.com)
+	Authors: Konstantin Morshnev <moko@design.ru>, Alexandr Petrosian <paf@design.ru>
 */
 
-#include <stdio.h>
-#include <stdlib.h>
-
 #include "pa_common.h"
 #include "pa_exception.h"
+#include "pa_sapi.h"
+#include "pa_globals.h"
+
+volatile const char * IDENT_PA_EXCEPTION_C="$Id: pa_exception.C,v 1.64 2026/04/25 13:38:46 moko Exp $" IDENT_PA_EXCEPTION_H;
+
+// methods
 
-void Exception::_throw(const String *atype, const String *acode,
-					  const String *aproblem_source, 
-					  const char *comment_fmt, ...) const {
-	//_asm int 3;
+Exception::Exception(): ftype(0), fproblem_source(0), fcomment(0) {}
+
+Exception::Exception(const Exception& src):
+	ftype(src.ftype),
+	fproblem_source(src.fproblem_source),
+	fcomment(src.fcomment) {
+}
+
+Exception& Exception::operator =(const Exception& src) {
+	ftype=src.ftype;
+	fproblem_source=src.fproblem_source;
+	fcomment=src.fcomment;
+	return *this;
+}
+
+Exception::Exception(const char* atype, const String* aproblem_source, const char* comment_fmt, ...) {
 	ftype=atype;
-	fcode=acode;
-	fproblem_source=aproblem_source;
+	fproblem_source=aproblem_source ? new String(*aproblem_source) : 0;
 
-	if(comment_fmt) {
+	if(!comment_fmt) {
+		fcomment=0;
+	} else if (!strcmp(comment_fmt, "%s")) { // to avoid MAX_STRING limit
+		va_list args;
+		va_start(args, comment_fmt);
+		fcomment=va_arg(args, const char *);
+		fcomment=fcomment ? pa_strdup(fcomment) : 0;
+		va_end(args);
+	} else {
+		char comment[MAX_STRING];
 		va_list args;
 		va_start(args, comment_fmt);
-		vsnprintf(fcomment, MAX_STRING, comment_fmt, args);
+		fcomment=pa_strdup(comment, vsnprintf(comment, MAX_STRING, comment_fmt, args));
 		va_end(args);
-	} else 
-		fcomment[0]=0;
+	}
+}
+
+void Exception::add_comment(const char* acomment) {
+	if(acomment)
+		fcomment=pa_strcat(fcomment, acomment);
+}
 
-	longjmp(mark, 1);
+const String* Exception::problem_source() const {
+	return fproblem_source && !fproblem_source->is_empty() ? fproblem_source : 0;
 }