--- parser3/src/include/pa_array.h	2001/09/26 10:32:25	1.44
+++ parser3/src/include/pa_array.h	2002/02/08 07:27:42	1.52
@@ -1,16 +1,15 @@
 /** @file
 	Parser: Array & Array_iter classes decls.
 
-	Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
-	Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
+	Copyright (c) 2001, 2002 ArtLebedev Group (http://www.artlebedev.com)
+	Author: Alexander Petrosyan <paf@design.ru> (http://paf.design.ru)
 
-	$Id: pa_array.h,v 1.44 2001/09/26 10:32:25 parser Exp $
+	$Id: pa_array.h,v 1.52 2002/02/08 07:27:42 paf Exp $
 */
 
 #ifndef PA_ARRAY_H
 #define PA_ARRAY_H
 
-#include "pa_config_includes.h"
 #include "pa_pool.h"
 #include "pa_types.h"
 #include "pa_string.h"
@@ -34,7 +33,7 @@ class Array_iter;
 */
 
 class Array : public Pooled {
-	friend Array_iter;
+	friend class Array_iter;
 public:
 
 	/// Array item type
@@ -46,6 +45,10 @@ public:
 
 	/// for_each iterator function type
 	typedef void (*For_each_func)(Item *value, void *info);
+	/*
+	/// for_each iterator function type, passing item storage address
+	typedef void (*For_each_func_storage)(Item ** value, void *info);
+	*/
 
 	/// first_that iterator function type, const info
 	typedef void *(*Item_that_func_const)(Item *value, const void *info);
@@ -61,6 +64,7 @@ public:
 public:
 
 	Array(Pool& apool, int initial_rows=CR_INITIAL_ROWS_DEFAULT);
+	Array(const Array& source, int offset=0);
 
 	/// size Array. how many items are in it
 	int size() const { return fused_rows; }
@@ -79,6 +83,7 @@ public:
 	int get_int(int index) const { return reinterpret_cast<int>(get(index)); }
 
 	void put(int index, Item *item);
+	void put_int(int index, int value) { put(index, reinterpret_cast<Item *>(value)); }
 	/// convinient way to get strings from Array. I long for Array<const String *>
 	const String *get_string(int index) const { 
 		return const_cast<const String *>(static_cast<String *>(get(index))); 
@@ -86,11 +91,15 @@ public:
 
 	/*/// iterate over all elements, const info
 	void for_each(For_each_func_const func, const void *info=0) const;
-	/*/
+	*/
 
 	/// iterate over all elements
 	void for_each(For_each_func func, void *info=0) const;
 
+	/*/// iterate over all elements, passing address of item storage
+	void for_each(For_each_func_storage func, void *info=0);
+	*/
+
 	/// iterate over all elements until condition, const info
 	void* first_that(Item_that_func_const func, const void *info=0) const;
 
@@ -99,6 +108,11 @@ public:
 
 private:
 
+	/// constructor helper
+	void construct_new(int initial_rows);
+
+private:
+
 	/// several record elements
 	struct Chunk {
 		int count;  ///< the number of rows in chunk
@@ -129,9 +143,6 @@ private:
 	// array size
 	int fused_rows;
 
-	mutable int cache_chunk_base;
-	mutable Chunk *cache_chunk;
-	
 private:
 
 	bool chunk_is_full() {