--- parser3/src/main/Attic/pa_array.C	2003/02/17 13:49:15	1.54.2.3
+++ parser3/src/main/Attic/pa_array.C	2003/04/02 08:34:15	1.54.2.5.2.1
@@ -1,15 +1,19 @@
 /** @file
-	Parser: Array classe impl.
+	Parser: array decl.
 
 	Copyright (c) 2001-2003 ArtLebedev Group (http://www.artlebedev.com)
 	Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
 */
 
+static const char* IDENT_ARRAY_C="$Date: 2003/04/02 08:34:15 $";
+
 #include "pa_array.h"
-#include "pa_types.h"
-#include "pa_common.h"
 
-char* Pool::format_integer(int value) {
-	char local[MAX_NUMBER];
-	return copy(local, snprintf(local, MAX_NUMBER, "%d", value));
-};
+// methods
+
+size_t Array__bark_bounds_error(const char* what, size_t index, size_t count) {
+	throw Exception(0, 
+		0,
+		"Array::%s(%d) out of range [0..%d]", what, index, count-1);
+	return 0; // never
+}