--- parser3/src/main/pa_table.C	2001/01/29 22:34:58	1.5
+++ parser3/src/main/pa_table.C	2007/04/23 10:30:32	1.62
@@ -1,65 +1,86 @@
-/*
-  $Id: pa_table.C,v 1.5 2001/01/29 22:34:58 paf Exp $
+/** @file
+	Parser: table class.
+
+	Copyright (c) 2001-2005 ArtLebedev Group (http://www.artlebedev.com)
+	Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
 */
 
-#include <stdlib.h>
+static const char * const IDENT_TABLE_C="$Date: 2007/04/23 10:30:32 $";
 
 #include "pa_table.h"
-#include "pa_pool.h"
 
-Table::Table(Request& arequest, 
-			 char *afile, uint aline, 
-			 Array *acolumns, 
-			 int initial_rows) :
-	Array(arequest.pool, initial_rows),
-	request(arequest),
+#include "pa_exception.h"
+
+Table::Table(columns_type acolumns, size_t initial_rows):
+	Array<element_type>(initial_rows),
+
 	fcurrent(0),
 	fcolumns(acolumns), 
-	name2number(arequest.pool, false) {
-#ifndef NO_STRING_ORIGIN
-	forigin.file=afile;
-	forigin.line=aline;
-#endif
+	name2number(new name2number_hash_class) {
 
-	if(fcolumns)
-		for(int i=0; i<fcolumns->size(); i++) {
-			String name(pool);
-			name.APPEND(fcolumns->get_cstr(i), 0, 0);
-			name2number.put(name, i+1);
+	if(fcolumns) {
+		size_t number=1;
+		for(Array_iterator<const String*> i(*fcolumns); i.has_next(); ) {
+			const String& name=*i.next();
+			name2number->put(name, number++);
 		}
+	}
 }
 
-const Array *Table::at(int index) {
-	if(index<0 || index>=size())
-		request.operator_error.raise(0, 
-			"table column index %d is out of range [0..%d]", 
-			index, size()-1);
-	
-	return static_cast<const Array *>(get(index));
-}
-
-const char *Table::item(int index) {
-	const Array *row=at(fcurrent);
-	return row->get_cstr(index);
+Table::Table(const Table& src, Action_options& options) :
+	Array<element_type>(options.limit==ARRAY_OPTION_LIMIT_ALL?0:options.limit/*may be more than needed, no harm done*/),
+
+	fcurrent(0),
+	fcolumns(src.fcolumns),
+	name2number(src.name2number) {
+
+	append(src, options.offset, options.limit, options.reverse);
 }
 
-const char *Table::item(const String& column_name) {
-	int column_index;
-	if(fcolumns) {
-		int found_index=name2number.get_int(column_name);
-		if(found_index)
-			column_index=found_index-1;
-		else
-			request.operator_error.raise(&column_name, "column not found");
-	} else {
-		column_index=atoi(column_name.cstr());
-		const Array *row=at(fcurrent);
-		if(column_index<0 || column_index>=row->size())
-			request.operator_error.raise(&column_name, 
-				"table column index %d is out of range [0..%d]", 
-				column_index, row->size()-1);
+int Table::column_name2index(const String& column_name, bool bark) const {
+	if(fcolumns) {// named
+		int result=name2number->get(column_name)-1; // -1 = column not found
+		if(bark && result<0)
+			throw Exception(PARSER_RUNTIME,
+				&column_name,
+				"column not found");
+		return result;
+	} else // nameless
+		return column_name.as_int();
+}
+
+const String* Table::item(size_t column) {
+	if(valid(fcurrent)) {
+		element_type row=get(fcurrent);
+		if(column<row->count()) // proper index?
+			return row->get(column);
 	}
+	return 0; // it's OK we don't have row|column, just return nothing
+}
 
-	return item(column_index);
+#ifndef DOXYGEN
+struct Locate_int_string_info {
+	int column;
+	const String* value;
+};
+#endif
+bool locate_int_string(Table& self, Locate_int_string_info* info) {
+	const String *item_value=self.item(info->column);
+	return item_value && *item_value==*info->value;
 }
 
+bool Table::locate(int column, const String& value,
+		   Table::Action_options& options) {
+	Locate_int_string_info info={column, &value};
+	return table_first_that(locate_int_string, &info, options);
+}
+
+bool Table::locate(const String& column, const String& value, 
+		   Table::Action_options& options) {
+	return locate(column_name2index(column, true), value, options);
+}
+
+void Table::offset(bool absolute, int offset) {
+	if(size_t lcount=count())
+		fcurrent=((absolute?0:fcurrent)+offset+lcount)%lcount;
+}