Hi,

Anyways, this patch and the functionality introduced herein will be useful
> in the "CREATE .. INCLUDING INDEXES" case too.

No doubt.  But those are different features and we shouldn't confuse
'em; in particular not put behavior into the INCLUDING CONSTRAINTS case
that shouldn't be there.


PFA, a patch which provides the "CREATE .. INCLUDING INDEXES" functionality.
This patch uses the same functionality introduced by the earlier patches in
this thread albeit for the "INCLUDING INDEXES" case.

For ease of review, this patch is based on the latest version which was
posted by Neil.
Please let me know if there are any issues.

Regards,
Nikhils
--
EnterpriseDB               http://www.enterprisedb.com
Index: doc/src/sgml/ref/create_table.sgml
===================================================================
RCS file: /repositories/postgreshome/cvs/pgsql/doc/src/sgml/ref/create_table.sgml,v
retrieving revision 1.108
diff -c -r1.108 create_table.sgml
*** doc/src/sgml/ref/create_table.sgml	3 Jun 2007 17:06:03 -0000	1.108
--- doc/src/sgml/ref/create_table.sgml	5 Jun 2007 09:20:14 -0000
***************
*** 263,275 ****
        <literal>INCLUDING CONSTRAINTS</literal> is specified; other types of
        constraints will never be copied. Also, no distinction is made between
        column constraints and table constraints &mdash; when constraints are
!       requested, all check constraints are copied.
       </para>
       <para>
        Note also that unlike <literal>INHERITS</literal>, copied columns and
        constraints are not merged with similarly named columns and constraints.
        If the same name is specified explicitly or in another
!       <literal>LIKE</literal> clause an error is signalled.
       </para>
      </listitem>
     </varlistentry>
--- 263,278 ----
        <literal>INCLUDING CONSTRAINTS</literal> is specified; other types of
        constraints will never be copied. Also, no distinction is made between
        column constraints and table constraints &mdash; when constraints are
!       requested, all check constraints are copied. <literal>UNIQUE</literal>,
! 	  and <literal>PRIMARY KEY</literal> constraints along with other index
! 	  entries will be copied if <literal>INCLUDING INDEXES</literal> is
! 	  specified.
       </para>
       <para>
        Note also that unlike <literal>INHERITS</literal>, copied columns and
        constraints are not merged with similarly named columns and constraints.
        If the same name is specified explicitly or in another
!       <literal>LIKE</literal> clause, an error is signalled.
       </para>
      </listitem>
     </varlistentry>
Index: src/backend/bootstrap/bootparse.y
===================================================================
RCS file: /repositories/postgreshome/cvs/pgsql/src/backend/bootstrap/bootparse.y,v
retrieving revision 1.88
diff -c -r1.88 bootparse.y
*** src/backend/bootstrap/bootparse.y	13 Mar 2007 00:33:39 -0000	1.88
--- src/backend/bootstrap/bootparse.y	5 Jun 2007 09:20:14 -0000
***************
*** 252,258 ****
  								LexIDStr($8),
  								NULL,
  								$10,
! 								NULL, NIL,
  								false, false, false,
  								false, false, true, false, false);
  					do_end();
--- 252,258 ----
  								LexIDStr($8),
  								NULL,
  								$10,
! 								NULL, NIL, NULL,
  								false, false, false,
  								false, false, true, false, false);
  					do_end();
***************
*** 270,276 ****
  								LexIDStr($9),
  								NULL,
  								$11,
! 								NULL, NIL,
  								true, false, false,
  								false, false, true, false, false);
  					do_end();
--- 270,276 ----
  								LexIDStr($9),
  								NULL,
  								$11,
! 								NULL, NIL, NULL,
  								true, false, false,
  								false, false, true, false, false);
  					do_end();
Index: src/backend/commands/indexcmds.c
===================================================================
RCS file: /repositories/postgreshome/cvs/pgsql/src/backend/commands/indexcmds.c,v
retrieving revision 1.159
diff -c -r1.159 indexcmds.c
*** src/backend/commands/indexcmds.c	3 Jun 2007 17:06:16 -0000	1.159
--- src/backend/commands/indexcmds.c	5 Jun 2007 09:20:14 -0000
***************
*** 100,105 ****
--- 100,106 ----
  			List *attributeList,
  			Expr *predicate,
  			List *options,
+ 			char *inhreloptions,
  			bool unique,
  			bool primary,
  			bool isconstraint,
***************
*** 393,400 ****
  
  	/*
  	 * Parse AM-specific options, convert to text array form, validate.
  	 */
! 	reloptions = transformRelOptions((Datum) 0, options, false, false);
  
  	(void) index_reloptions(amoptions, reloptions, true);
  
--- 394,408 ----
  
  	/*
  	 * Parse AM-specific options, convert to text array form, validate.
+ 	 * The inh reloptions introduced due to using indexes via
+ 	 * the "CREATE LIKE INCLUDING INDEXES" statement also need to be merged here
  	 */
! 	if (inhreloptions)
! 		reloptions = deflatten_reloptions(inhreloptions);
! 	else
! 		reloptions = (Datum) 0;
! 
! 	reloptions = transformRelOptions(reloptions, options, false, false);
  
  	(void) index_reloptions(amoptions, reloptions, true);
  
Index: src/backend/commands/tablecmds.c
===================================================================
RCS file: /repositories/postgreshome/cvs/pgsql/src/backend/commands/tablecmds.c,v
retrieving revision 1.227
diff -c -r1.227 tablecmds.c
*** src/backend/commands/tablecmds.c	3 Jun 2007 22:16:03 -0000	1.227
--- src/backend/commands/tablecmds.c	5 Jun 2007 09:20:14 -0000
***************
*** 3781,3786 ****
--- 3781,3787 ----
  				stmt->indexParams,		/* parameters */
  				(Expr *) stmt->whereClause,
  				stmt->options,
+ 				stmt->inhreloptions,
  				stmt->unique,
  				stmt->primary,
  				stmt->isconstraint,
Index: src/backend/nodes/copyfuncs.c
===================================================================
RCS file: /repositories/postgreshome/cvs/pgsql/src/backend/nodes/copyfuncs.c,v
retrieving revision 1.376
diff -c -r1.376 copyfuncs.c
*** src/backend/nodes/copyfuncs.c	22 May 2007 23:23:55 -0000	1.376
--- src/backend/nodes/copyfuncs.c	5 Jun 2007 09:20:14 -0000
***************
*** 2162,2167 ****
--- 2162,2168 ----
  	COPY_STRING_FIELD(tableSpace);
  	COPY_NODE_FIELD(indexParams);
  	COPY_NODE_FIELD(options);
+ 	COPY_STRING_FIELD(inhreloptions);
  	COPY_NODE_FIELD(whereClause);
  	COPY_SCALAR_FIELD(unique);
  	COPY_SCALAR_FIELD(primary);
Index: src/backend/parser/analyze.c
===================================================================
RCS file: /repositories/postgreshome/cvs/pgsql/src/backend/parser/analyze.c,v
retrieving revision 1.363
diff -c -r1.363 analyze.c
*** src/backend/parser/analyze.c	27 Apr 2007 22:05:48 -0000	1.363
--- src/backend/parser/analyze.c	5 Jun 2007 09:20:14 -0000
***************
*** 27,40 ****
--- 27,43 ----
  
  #include "postgres.h"
  
+ #include "access/genam.h"
  #include "access/heapam.h"
  #include "catalog/heap.h"
  #include "catalog/index.h"
  #include "catalog/namespace.h"
+ #include "catalog/pg_opclass.h"
  #include "catalog/pg_type.h"
  #include "commands/defrem.h"
  #include "commands/prepare.h"
  #include "commands/tablecmds.h"
+ #include "commands/tablespace.h"
  #include "miscadmin.h"
  #include "nodes/makefuncs.h"
  #include "optimizer/clauses.h"
***************
*** 54,59 ****
--- 57,63 ----
  #include "utils/acl.h"
  #include "utils/builtins.h"
  #include "utils/lsyscache.h"
+ #include "utils/relcache.h"
  #include "utils/syscache.h"
  
  
***************
*** 150,155 ****
--- 154,162 ----
  static FromExpr *makeFromExpr(List *fromlist, Node *quals);
  static bool check_parameter_resolution_walker(Node *node,
  								check_parameter_resolution_context *context);
+ static IndexStmt *generateClonedIndexStmt(CreateStmtContext *cxt, 
+ 							Relation parent_index, AttrNumber *attmap);
+ static void get_opclass(Oid opclass, Oid actual_datatype, List **name_list);
  
  
  /*
***************
*** 1274,1284 ****
  		}
  	}
  
- 	if (including_indexes)
- 		ereport(ERROR,
- 				(errcode(ERRCODE_FEATURE_NOT_SUPPORTED),
- 				 errmsg("LIKE INCLUDING INDEXES is not implemented")));
- 
  	/*
  	 * Insert the copied attributes into the cxt for the new table
  	 * definition.
--- 1281,1286 ----
***************
*** 1376,1381 ****
--- 1378,1422 ----
  		}
  	}
  
+ 	if (including_indexes && relation->rd_rel->relhasindex)
+ 	{
+ 		AttrNumber *attmap;
+ 		List	   *parent_indexes;
+ 		ListCell   *l;
+ 
+ 		attmap = varattnos_map_schema(tupleDesc, cxt->columns);
+ 
+ 		parent_indexes = RelationGetIndexList(relation);
+ 		foreach(l, parent_indexes)
+ 		{
+ 			Oid        		 parent_index_oid = lfirst_oid(l);
+ 			Relation   		 parent_index;
+ 			IndexStmt  		*index_stmt;
+ 
+ 			parent_index = index_open(parent_index_oid, AccessShareLock);
+ 
+ 			/*
+ 			 * It would be best to generate IndexStmts here and append
+ 			 * them to the ixconstraints list. Constraint structure does
+ 			 * not contain all the index-relevant fields as well and
+ 			 * hence we use IndexStmts here.
+ 			 */
+ 			index_stmt = generateClonedIndexStmt(cxt, parent_index,
+ 													 attmap);
+ 			if (index_stmt == NULL)
+ 			{
+ 				index_close(parent_index, AccessShareLock);
+ 				continue;
+ 			}
+ 
+ 			/* Add the new IndexStmt to the create context */
+ 			cxt->ixconstraints = lappend(cxt->ixconstraints, index_stmt);
+ 
+ 			/* Keep our lock on the index till xact commit */
+ 			index_close(parent_index, NoLock);
+ 		}
+ 	}
+ 
  	/*
  	 * Close the parent rel, but keep our AccessShareLock on it until xact
  	 * commit.	That will prevent someone else from deleting or ALTERing the
***************
*** 1396,1568 ****
  	 * Run through the constraints that need to generate an index. For PRIMARY
  	 * KEY, mark each column as NOT NULL and create an index. For UNIQUE,
  	 * create an index as for PRIMARY KEY, but do not insist on NOT NULL.
  	 */
  	foreach(listptr, cxt->ixconstraints)
  	{
! 		Constraint *constraint = lfirst(listptr);
  		ListCell   *keys;
  		IndexElem  *iparam;
  
! 		Assert(IsA(constraint, Constraint));
! 		Assert((constraint->contype == CONSTR_PRIMARY)
! 			   || (constraint->contype == CONSTR_UNIQUE));
  
! 		index = makeNode(IndexStmt);
! 
! 		index->unique = true;
! 		index->primary = (constraint->contype == CONSTR_PRIMARY);
! 		if (index->primary)
  		{
! 			if (cxt->pkey != NULL)
! 				ereport(ERROR,
! 						(errcode(ERRCODE_INVALID_TABLE_DEFINITION),
! 						 errmsg("multiple primary keys for table \"%s\" are not allowed",
! 								cxt->relation->relname)));
! 			cxt->pkey = index;
! 
! 			/*
! 			 * In ALTER TABLE case, a primary index might already exist, but
! 			 * DefineIndex will check for it.
! 			 */
  		}
- 		index->isconstraint = true;
- 
- 		if (constraint->name != NULL)
- 			index->idxname = pstrdup(constraint->name);
  		else
! 			index->idxname = NULL;		/* DefineIndex will choose name */
! 
! 		index->relation = cxt->relation;
! 		index->accessMethod = DEFAULT_INDEX_TYPE;
! 		index->options = constraint->options;
! 		index->tableSpace = constraint->indexspace;
! 		index->indexParams = NIL;
! 		index->whereClause = NULL;
! 		index->concurrent = false;
! 
! 		/*
! 		 * Make sure referenced keys exist.  If we are making a PRIMARY KEY
! 		 * index, also make sure they are NOT NULL, if possible. (Although we
! 		 * could leave it to DefineIndex to mark the columns NOT NULL, it's
! 		 * more efficient to get it right the first time.)
! 		 */
! 		foreach(keys, constraint->keys)
! 		{
! 			char	   *key = strVal(lfirst(keys));
! 			bool		found = false;
! 			ColumnDef  *column = NULL;
! 			ListCell   *columns;
  
! 			foreach(columns, cxt->columns)
! 			{
! 				column = (ColumnDef *) lfirst(columns);
! 				Assert(IsA(column, ColumnDef));
! 				if (strcmp(column->colname, key) == 0)
! 				{
! 					found = true;
! 					break;
! 				}
! 			}
! 			if (found)
! 			{
! 				/* found column in the new table; force it to be NOT NULL */
! 				if (constraint->contype == CONSTR_PRIMARY)
! 					column->is_not_null = TRUE;
! 			}
! 			else if (SystemAttributeByName(key, cxt->hasoids) != NULL)
  			{
  				/*
! 				 * column will be a system column in the new table, so accept
! 				 * it.	System columns can't ever be null, so no need to worry
! 				 * about PRIMARY/NOT NULL constraint.
  				 */
- 				found = true;
  			}
! 			else if (cxt->inhRelations)
  			{
! 				/* try inherited tables */
! 				ListCell   *inher;
  
! 				foreach(inher, cxt->inhRelations)
  				{
! 					RangeVar   *inh = (RangeVar *) lfirst(inher);
! 					Relation	rel;
! 					int			count;
! 
! 					Assert(IsA(inh, RangeVar));
! 					rel = heap_openrv(inh, AccessShareLock);
! 					if (rel->rd_rel->relkind != RELKIND_RELATION)
! 						ereport(ERROR,
! 								(errcode(ERRCODE_WRONG_OBJECT_TYPE),
! 						   errmsg("inherited relation \"%s\" is not a table",
! 								  inh->relname)));
! 					for (count = 0; count < rel->rd_att->natts; count++)
  					{
! 						Form_pg_attribute inhattr = rel->rd_att->attrs[count];
! 						char	   *inhname = NameStr(inhattr->attname);
  
! 						if (inhattr->attisdropped)
! 							continue;
! 						if (strcmp(key, inhname) == 0)
  						{
! 							found = true;
  
! 							/*
! 							 * We currently have no easy way to force an
! 							 * inherited column to be NOT NULL at creation, if
! 							 * its parent wasn't so already. We leave it to
! 							 * DefineIndex to fix things up in this case.
! 							 */
! 							break;
  						}
  					}
- 					heap_close(rel, NoLock);
- 					if (found)
- 						break;
  				}
- 			}
  
! 			/*
! 			 * In the ALTER TABLE case, don't complain about index keys not
! 			 * created in the command; they may well exist already.
! 			 * DefineIndex will complain about them if not, and will also take
! 			 * care of marking them NOT NULL.
! 			 */
! 			if (!found && !cxt->isalter)
! 				ereport(ERROR,
! 						(errcode(ERRCODE_UNDEFINED_COLUMN),
! 						 errmsg("column \"%s\" named in key does not exist",
! 								key)));
  
! 			/* Check for PRIMARY KEY(foo, foo) */
! 			foreach(columns, index->indexParams)
! 			{
! 				iparam = (IndexElem *) lfirst(columns);
! 				if (iparam->name && strcmp(key, iparam->name) == 0)
  				{
! 					if (index->primary)
! 						ereport(ERROR,
  								(errcode(ERRCODE_DUPLICATE_COLUMN),
  								 errmsg("column \"%s\" appears twice in primary key constraint",
! 										key)));
! 					else
! 						ereport(ERROR,
  								(errcode(ERRCODE_DUPLICATE_COLUMN),
  								 errmsg("column \"%s\" appears twice in unique constraint",
! 										key)));
  				}
  			}
  
- 			/* OK, add it to the index definition */
- 			iparam = makeNode(IndexElem);
- 			iparam->name = pstrdup(key);
- 			iparam->expr = NULL;
- 			iparam->opclass = NIL;
- 			iparam->ordering = SORTBY_DEFAULT;
- 			iparam->nulls_ordering = SORTBY_NULLS_DEFAULT;
- 			index->indexParams = lappend(index->indexParams, iparam);
  		}
- 
  		indexlist = lappend(indexlist, index);
  	}
  
--- 1437,1633 ----
  	 * Run through the constraints that need to generate an index. For PRIMARY
  	 * KEY, mark each column as NOT NULL and create an index. For UNIQUE,
  	 * create an index as for PRIMARY KEY, but do not insist on NOT NULL.
+ 	 *
+ 	 * If the table is being created using LIKE INCLUDING INDEXES, the
+ 	 * ixconstraints list will contain a mix of Constraint and IndexStmt
+ 	 * entries
  	 */
  	foreach(listptr, cxt->ixconstraints)
  	{
! 		Node	   *node = lfirst(listptr);
! 		Constraint *constraint;
  		ListCell   *keys;
  		IndexElem  *iparam;
  
! 		Assert(IsA(node, Constraint) || IsA(node, IndexStmt));
  
! 		if (IsA(node, IndexStmt))
  		{
! 			index = (IndexStmt *)node;	
! 			if (index->primary)
! 			{
! 				if (cxt->pkey != NULL)
! 					ereport(ERROR,
! 							(errcode(ERRCODE_INVALID_TABLE_DEFINITION),
! 							 errmsg("multiple primary keys for table \"%s\" are not allowed",
! 									cxt->relation->relname)));
! 				cxt->pkey = index;
! 			}
  		}
  		else
! 		{
! 			Assert(IsA(node, Constraint));
  
! 			constraint = (Constraint *)node;
! 			Assert(constraint->contype == CONSTR_PRIMARY ||
! 				   constraint->contype == CONSTR_UNIQUE);
! 			index = makeNode(IndexStmt);
! 
! 			index->unique = true;
! 			index->primary = (constraint->contype == CONSTR_PRIMARY);
! 			if (index->primary)
  			{
+ 				if (cxt->pkey != NULL)
+ 					ereport(ERROR,
+ 							(errcode(ERRCODE_INVALID_TABLE_DEFINITION),
+ 							 errmsg("multiple primary keys for table \"%s\" are not allowed",
+ 									cxt->relation->relname)));
+ 				cxt->pkey = index;
+ 
  				/*
! 				 * In ALTER TABLE case, a primary index might already exist, but
! 				 * DefineIndex will check for it.
  				 */
  			}
! 			index->isconstraint = true;
! 
! 			if (constraint->name != NULL)
! 				index->idxname = pstrdup(constraint->name);
! 			else
! 				index->idxname = NULL;		/* DefineIndex will choose name */
! 
! 			index->relation = cxt->relation;
! 			index->accessMethod = DEFAULT_INDEX_TYPE;
! 			index->options = constraint->options;
! 			index->tableSpace = constraint->indexspace;
! 			index->indexParams = NIL;
! 			index->whereClause = NULL;
! 			index->concurrent = false;
! 
! 			/*
! 			 * Make sure referenced keys exist.  If we are making a PRIMARY KEY
! 			 * index, also make sure they are NOT NULL, if possible. (Although we
! 			 * could leave it to DefineIndex to mark the columns NOT NULL, it's
! 			 * more efficient to get it right the first time.)
! 			 */
! 			foreach(keys, constraint->keys)
  			{
! 				char	   *key = strVal(lfirst(keys));
! 				bool		found = false;
! 				ColumnDef  *column = NULL;
! 				ListCell   *columns;
  
! 				foreach(columns, cxt->columns)
  				{
! 					column = (ColumnDef *) lfirst(columns);
! 					Assert(IsA(column, ColumnDef));
! 					if (strcmp(column->colname, key) == 0)
  					{
! 						found = true;
! 						break;
! 					}
! 				}
! 				if (found)
! 				{
! 					/* found column in the new table; force it to be NOT NULL */
! 					if (constraint->contype == CONSTR_PRIMARY)
! 						column->is_not_null = TRUE;
! 				}
! 				else if (SystemAttributeByName(key, cxt->hasoids) != NULL)
! 				{
! 					/*
! 					 * column will be a system column in the new table, so accept
! 					 * it.	System columns can't ever be null, so no need to worry
! 					 * about PRIMARY/NOT NULL constraint.
! 					 */
! 					found = true;
! 				}
! 				else if (cxt->inhRelations)
! 				{
! 					/* try inherited tables */
! 					ListCell   *inher;
  
! 					foreach(inher, cxt->inhRelations)
! 					{
! 						RangeVar   *inh = (RangeVar *) lfirst(inher);
! 						Relation	rel;
! 						int			count;
! 
! 						Assert(IsA(inh, RangeVar));
! 						rel = heap_openrv(inh, AccessShareLock);
! 						if (rel->rd_rel->relkind != RELKIND_RELATION)
! 							ereport(ERROR,
! 									(errcode(ERRCODE_WRONG_OBJECT_TYPE),
! 									 errmsg("inherited relation \"%s\" is not a table",
! 											inh->relname)));
! 						for (count = 0; count < rel->rd_att->natts; count++)
  						{
! 							Form_pg_attribute inhattr = rel->rd_att->attrs[count];
! 							char	   *inhname = NameStr(inhattr->attname);
  
! 							if (inhattr->attisdropped)
! 								continue;
! 							if (strcmp(key, inhname) == 0)
! 							{
! 								found = true;
! 
! 								/*
! 								 * We currently have no easy way to force an
! 								 * inherited column to be NOT NULL at creation, if
! 								 * its parent wasn't so already. We leave it to
! 								 * DefineIndex to fix things up in this case.
! 								 */
! 								break;
! 							}
  						}
+ 						heap_close(rel, NoLock);
+ 						if (found)
+ 							break;
  					}
  				}
  
! 				/*
! 				 * In the ALTER TABLE case, don't complain about index keys not
! 				 * created in the command; they may well exist already.
! 				 * DefineIndex will complain about them if not, and will also take
! 				 * care of marking them NOT NULL.
! 				 */
! 				if (!found && !cxt->isalter)
! 					ereport(ERROR,
! 							(errcode(ERRCODE_UNDEFINED_COLUMN),
! 							 errmsg("column \"%s\" named in key does not exist",
! 									key)));
  
! 				/* Check for PRIMARY KEY(foo, foo) */
! 				foreach(columns, index->indexParams)
  				{
! 					iparam = (IndexElem *) lfirst(columns);
! 					if (iparam->name && strcmp(key, iparam->name) == 0)
! 					{
! 						if (index->primary)
! 							ereport(ERROR,
  								(errcode(ERRCODE_DUPLICATE_COLUMN),
  								 errmsg("column \"%s\" appears twice in primary key constraint",
! 								key)));
! 						else
! 							ereport(ERROR,
  								(errcode(ERRCODE_DUPLICATE_COLUMN),
  								 errmsg("column \"%s\" appears twice in unique constraint",
! 								key)));
! 					}
  				}
+ 
+ 				/* OK, add it to the index definition */
+ 				iparam = makeNode(IndexElem);
+ 				iparam->name = pstrdup(key);
+ 				iparam->expr = NULL;
+ 				iparam->opclass = NIL;
+ 				iparam->ordering = SORTBY_DEFAULT;
+ 				iparam->nulls_ordering = SORTBY_NULLS_DEFAULT;
+ 				index->indexParams = lappend(index->indexParams, iparam);
  			}
  
  		}
  		indexlist = lappend(indexlist, index);
  	}
  
***************
*** 3735,3737 ****
--- 3800,4032 ----
  	return expression_tree_walker(node, check_parameter_resolution_walker,
  								  (void *) context);
  }
+ 
+ /*
+  * Generate an IndexStmt entry using information from an already
+  * existing index "source_idx".
+  *
+  * Note: The guts of this function are similar to the pg_get_indexdef
+  * functionality
+  */
+ static IndexStmt *
+ generateClonedIndexStmt(CreateStmtContext *cxt, Relation source_idx,
+ 							AttrNumber *attmap)
+ {
+ 	HeapTuple			 ht_idx;
+ 	HeapTuple			 ht_idxrel;
+ 	HeapTuple			 ht_am;
+ 	Form_pg_index 		 idxrec;
+ 	Form_pg_class 		 idxrelrec;
+ 	Form_pg_am			 amrec;
+ 	List	   			*indexprs = NIL;
+ 	ListCell   			*indexpr_item;
+ 	Oid					 indrelid;
+ 	Oid 				 source_relid;
+ 	int					 keyno;
+ 	Oid					 keycoltype;
+ 	Datum				 indclassDatum;
+ 	Datum				 indoptionDatum;
+ 	bool				 isnull;
+ 	oidvector  			*indclass;
+ 	int2vector 			*indoption;
+ 	IndexStmt  			*index;
+ 	Datum				 reloptions;
+ 
+ 	source_relid = RelationGetRelid(source_idx);
+ 
+ 	/* Fetch pg_index tuple for source index */
+ 	ht_idx = SearchSysCache(INDEXRELID,
+ 							ObjectIdGetDatum(source_relid),
+ 							0, 0, 0);
+ 	if (!HeapTupleIsValid(ht_idx))
+ 		elog(ERROR, "cache lookup failed for index %u", source_relid);
+ 	idxrec = (Form_pg_index) GETSTRUCT(ht_idx);
+ 
+ 	Assert(source_relid == idxrec->indexrelid);
+ 	indrelid = idxrec->indrelid;
+ 
+ 	index = makeNode(IndexStmt);
+ 	index->unique = idxrec->indisunique;
+ 	index->concurrent = false;
+ 	index->primary = idxrec->indisprimary;
+ 	index->relation = cxt->relation;
+ 	index->isconstraint = false;
+ 
+ 	/*
+ 	 * We don't try to preserve the name of the source index; instead, just
+ 	 * let DefineIndex() choose a reasonable name.
+ 	 */
+ 	index->idxname = NULL;
+ 
+ 	/* Must get indclass and indoption the hard way */
+ 	indclassDatum = SysCacheGetAttr(INDEXRELID, ht_idx,
+ 									Anum_pg_index_indclass, &isnull);
+ 	Assert(!isnull);
+ 	indclass = (oidvector *) DatumGetPointer(indclassDatum);
+ 	indoptionDatum = SysCacheGetAttr(INDEXRELID, ht_idx,
+ 									 Anum_pg_index_indoption, &isnull);
+ 	Assert(!isnull);
+ 	indoption = (int2vector *) DatumGetPointer(indoptionDatum);
+ 
+ 	/* Fetch pg_class tuple of source index */
+ 	ht_idxrel = SearchSysCache(RELOID,
+ 							   ObjectIdGetDatum(source_relid),
+ 							   0, 0, 0);
+ 	if (!HeapTupleIsValid(ht_idxrel))
+ 		elog(ERROR, "cache lookup failed for relation %u", source_relid);
+ 
+ 	/*
+ 	 * Store the reloptions for later use by this new index
+ 	 */
+ 	reloptions = SysCacheGetAttr(RELOID, ht_idxrel,
+ 								 Anum_pg_class_reloptions, &isnull);
+ 	if (!isnull)
+ 		index->inhreloptions = flatten_reloptions(source_relid);
+ 
+ 	idxrelrec = (Form_pg_class) GETSTRUCT(ht_idxrel);
+ 
+ 	/* Fetch pg_am tuple for the index's access method */
+ 	ht_am = SearchSysCache(AMOID,
+ 						   ObjectIdGetDatum(idxrelrec->relam),
+ 						   0, 0, 0);
+ 	if (!HeapTupleIsValid(ht_am))
+ 		elog(ERROR, "cache lookup failed for access method %u",
+ 			 idxrelrec->relam);
+ 	amrec = (Form_pg_am) GETSTRUCT(ht_am);
+ 	index->accessMethod = pstrdup(NameStr(amrec->amname));
+ 
+ 	/*
+ 	 * Get the index expressions, if any.
+ 	 */
+ 	if (!heap_attisnull(ht_idx, Anum_pg_index_indexprs))
+ 	{
+ 		Datum		exprsDatum;
+ 		bool		isnull;
+ 		char	   *exprsString;
+ 
+ 		exprsDatum = SysCacheGetAttr(INDEXRELID, ht_idx,
+ 									 Anum_pg_index_indexprs, &isnull);
+ 		exprsString = DatumGetCString(DirectFunctionCall1(textout,
+ 														  exprsDatum));
+ 		Assert(!isnull);
+ 		indexprs = (List *) stringToNode(exprsString);
+ 	}
+ 
+ 	indexpr_item = list_head(indexprs);
+ 
+ 	for (keyno = 0; keyno < idxrec->indnatts; keyno++)
+ 	{
+ 		IndexElem	*iparam;
+ 		AttrNumber	attnum = idxrec->indkey.values[keyno];
+ 		int16		opt = indoption->values[keyno];
+ 
+ 		iparam = makeNode(IndexElem);
+ 
+ 		if (attnum != 0)
+ 		{
+ 			/* Simple index column */
+ 			char	   *attname;
+ 
+ 			attname = get_relid_attribute_name(indrelid, attnum);
+ 			keycoltype = get_atttype(indrelid, attnum);
+ 
+ 			iparam->name = attname;
+ 			iparam->expr = NULL;
+ 		}
+ 		else
+ 		{
+ 			/* Expressional index */
+ 			Node	   *indexkey;
+ 
+ 			if (indexpr_item == NULL)
+ 				elog(ERROR, "too few entries in indexprs list");
+ 			indexkey = (Node *) lfirst(indexpr_item);
+ 			change_varattnos_of_a_node(indexkey, attmap);
+ 			iparam->name = NULL;
+ 			iparam->expr = indexkey;
+ 
+ 			indexpr_item = lnext(indexpr_item);
+ 			keycoltype = exprType(indexkey);
+ 		}
+ 
+ 		/* Add the operator class name */
+ 		get_opclass(indclass->values[keyno], keycoltype, &(iparam->opclass));
+ 
+ 		iparam->ordering = SORTBY_DEFAULT;
+ 		iparam->nulls_ordering = SORTBY_NULLS_DEFAULT;
+ 
+ 		/* Adjust options if relevant */
+ 		if (amrec->amcanorder)
+ 		{
+ 			/* If it supports sort ordering, report DESC and NULLS opts */
+ 			if (opt & INDOPTION_DESC)
+ 				iparam->ordering = SORTBY_DESC;
+ 			if (opt & INDOPTION_NULLS_FIRST)
+ 				iparam->nulls_ordering = SORTBY_NULLS_FIRST;
+ 		}
+ 
+ 		index->indexParams = lappend(index->indexParams, iparam);
+ 	}
+ 
+ 	/* Use the same tablespace as the source index */
+ 	index->tableSpace = get_tablespace_name(source_idx->rd_node.spcNode);
+ 
+ 	/*
+ 	 * If it's a partial index, decompile and append the predicate
+ 	 */
+ 	if (!heap_attisnull(ht_idx, Anum_pg_index_indpred))
+ 	{
+ 		Datum		pred_datum;
+ 		bool		isnull;
+ 		char	   *pred_str;
+ 
+ 		/* Convert text string to node tree */
+ 		pred_datum = SysCacheGetAttr(INDEXRELID, ht_idx,
+ 									 Anum_pg_index_indpred, &isnull);
+ 		Assert(!isnull);
+ 		pred_str = DatumGetCString(DirectFunctionCall1(textout,
+ 													   pred_datum));
+ 		index->whereClause = (Node *) stringToNode(pred_str);
+ 		change_varattnos_of_a_node(index->whereClause, attmap);
+ 	}
+ 
+ 	/* Clean up */
+ 	ReleaseSysCache(ht_idx);
+ 	ReleaseSysCache(ht_idxrel);
+ 	ReleaseSysCache(ht_am);
+ 
+ 	return index;
+ }
+ 
+ /*
+  * get_opclass			- fetch name of an index operator class
+  *
+  * If the opclass is the default for the given actual_datatype, then
+  * name_list is NIL.
+  */
+ static void
+ get_opclass(Oid opclass, Oid actual_datatype, List **name_list)
+ {
+ 	HeapTuple			ht_opc;
+ 	Form_pg_opclass 	opc_rec;
+ 
+ 	*name_list = NIL;
+ 
+ 	ht_opc = SearchSysCache(CLAOID,
+ 							ObjectIdGetDatum(opclass),
+ 							0, 0, 0);
+ 	if (!HeapTupleIsValid(ht_opc))
+ 		elog(ERROR, "cache lookup failed for opclass %u", opclass);
+ 	opc_rec = (Form_pg_opclass) GETSTRUCT(ht_opc);
+ 
+ 	if (!OidIsValid(actual_datatype) ||
+ 		GetDefaultOpClass(actual_datatype, opc_rec->opcmethod) != opclass)
+ 	{
+ 		char *nsp_name = get_namespace_name(opc_rec->opcnamespace);
+ 		char *opc_name = NameStr(opc_rec->opcname);
+ 
+ 		*name_list = list_make2(makeString(nsp_name), makeString(opc_name));
+ 	}
+ 
+ 	ReleaseSysCache(ht_opc);
+ }
Index: src/backend/tcop/utility.c
===================================================================
RCS file: /repositories/postgreshome/cvs/pgsql/src/backend/tcop/utility.c,v
retrieving revision 1.280
diff -c -r1.280 utility.c
*** src/backend/tcop/utility.c	30 May 2007 20:12:01 -0000	1.280
--- src/backend/tcop/utility.c	5 Jun 2007 09:20:14 -0000
***************
*** 823,828 ****
--- 823,829 ----
  							stmt->indexParams,	/* parameters */
  							(Expr *) stmt->whereClause,
  							stmt->options,
+ 							stmt->inhreloptions,
  							stmt->unique,
  							stmt->primary,
  							stmt->isconstraint,
Index: src/backend/utils/adt/ruleutils.c
===================================================================
RCS file: /repositories/postgreshome/cvs/pgsql/src/backend/utils/adt/ruleutils.c,v
retrieving revision 1.258
diff -c -r1.258 ruleutils.c
*** src/backend/utils/adt/ruleutils.c	24 May 2007 18:58:42 -0000	1.258
--- src/backend/utils/adt/ruleutils.c	5 Jun 2007 09:20:14 -0000
***************
*** 193,199 ****
  static char *generate_function_name(Oid funcid, int nargs, Oid *argtypes);
  static char *generate_operator_name(Oid operid, Oid arg1, Oid arg2);
  static text *string_to_text(char *str);
- static char *flatten_reloptions(Oid relid);
  
  #define only_marker(rte)  ((rte)->inh ? "" : "ONLY ")
  
--- 193,198 ----
***************
*** 5378,5384 ****
  /*
   * Generate a C string representing a relation's reloptions, or NULL if none.
   */
! static char *
  flatten_reloptions(Oid relid)
  {
  	char	   *result = NULL;
--- 5377,5383 ----
  /*
   * Generate a C string representing a relation's reloptions, or NULL if none.
   */
! char *
  flatten_reloptions(Oid relid)
  {
  	char	   *result = NULL;
***************
*** 5414,5416 ****
--- 5413,5443 ----
  
  	return result;
  }
+ 
+ /*
+  * Generate an Array Datum representing a relation's reloptions using a char
+  * string
+  */
+ Datum
+ deflatten_reloptions(char *reloptstring)
+ {
+ 	Datum		result = (Datum) 0;
+ 
+ 	if (reloptstring)
+ 	{
+ 		Datum		sep, relopts;
+ 
+ 		/*
+ 		 * We want to use text_to_array(reloptstring, ', ') --- but
+ 		 * DirectFunctionCall2(text_to_array) does not work, because
+ 		 * text_to_array() relies on fcinfo to be valid.  So use
+ 		 * OidFunctionCall2.
+ 		 */
+ 		sep = DirectFunctionCall1(textin, CStringGetDatum(", "));
+ 		relopts = DirectFunctionCall1(textin, CStringGetDatum(reloptstring));
+ 
+ 		result = OidFunctionCall2(F_TEXT_TO_ARRAY, relopts, sep);
+ 	}
+ 
+ 	return result;
+ }
Index: src/include/commands/defrem.h
===================================================================
RCS file: /repositories/postgreshome/cvs/pgsql/src/include/commands/defrem.h,v
retrieving revision 1.81
diff -c -r1.81 defrem.h
*** src/include/commands/defrem.h	13 Mar 2007 00:33:43 -0000	1.81
--- src/include/commands/defrem.h	5 Jun 2007 09:20:14 -0000
***************
*** 26,31 ****
--- 26,32 ----
  			List *attributeList,
  			Expr *predicate,
  			List *options,
+ 			char *inhreloptions,
  			bool unique,
  			bool primary,
  			bool isconstraint,
Index: src/include/nodes/parsenodes.h
===================================================================
RCS file: /repositories/postgreshome/cvs/pgsql/src/include/nodes/parsenodes.h,v
retrieving revision 1.348
diff -c -r1.348 parsenodes.h
*** src/include/nodes/parsenodes.h	27 Apr 2007 22:05:49 -0000	1.348
--- src/include/nodes/parsenodes.h	5 Jun 2007 09:20:14 -0000
***************
*** 1499,1504 ****
--- 1499,1505 ----
  	char	   *tableSpace;		/* tablespace, or NULL to use parent's */
  	List	   *indexParams;	/* a list of IndexElem */
  	List	   *options;		/* options from WITH clause */
+ 	char	   *inhreloptions;	/* relopts inherited from parent index */
  	Node	   *whereClause;	/* qualification (partial-index predicate) */
  	bool		unique;			/* is index unique? */
  	bool		primary;		/* is index on primary key? */
Index: src/include/utils/builtins.h
===================================================================
RCS file: /repositories/postgreshome/cvs/pgsql/src/include/utils/builtins.h,v
retrieving revision 1.294
diff -c -r1.294 builtins.h
*** src/include/utils/builtins.h	1 Jun 2007 23:40:19 -0000	1.294
--- src/include/utils/builtins.h	5 Jun 2007 09:20:14 -0000
***************
*** 571,576 ****
--- 571,578 ----
  extern const char *quote_identifier(const char *ident);
  extern char *quote_qualified_identifier(const char *namespace,
  						   const char *ident);
+ extern char *flatten_reloptions(Oid relid);
+ extern Datum deflatten_reloptions(char *reloptstring);
  
  /* tid.c */
  extern Datum tidin(PG_FUNCTION_ARGS);
Index: src/test/regress/expected/inherit.out
===================================================================
RCS file: /repositories/postgreshome/cvs/pgsql/src/test/regress/expected/inherit.out,v
retrieving revision 1.21
diff -c -r1.21 inherit.out
*** src/test/regress/expected/inherit.out	3 Jun 2007 22:16:03 -0000	1.21
--- src/test/regress/expected/inherit.out	5 Jun 2007 09:20:14 -0000
***************
*** 633,638 ****
--- 633,650 ----
  (2 rows)
  
  DROP TABLE inhg;
+ CREATE TABLE inhg (x text, LIKE inhx INCLUDING INDEXES, y text); /* copies indexes */
+ DROP TABLE inhg;
+ /* Multiple primary keys creation should fail */
+ CREATE TABLE inhg (x text, LIKE inhx INCLUDING INDEXES, PRIMARY KEY(x)); /* fails */
+ ERROR:  multiple primary keys for table "inhg" are not allowed
+ CREATE TABLE inhz (xx text DEFAULT 'text', yy int UNIQUE);
+ NOTICE:  CREATE TABLE / UNIQUE will create implicit index "inhz_yy_key" for table "inhz"
+ /* Ok to create multiple unique indexes */
+ CREATE TABLE inhg (x text UNIQUE, LIKE inhz INCLUDING INDEXES);
+ NOTICE:  CREATE TABLE / UNIQUE will create implicit index "inhg_x_key" for table "inhg"
+ DROP TABLE inhg;
+ DROP TABLE inhz;
  -- Test changing the type of inherited columns
  insert into d values('test','one','two','three');
  alter table a alter column aa type integer using bit_length(aa);
Index: src/test/regress/sql/inherit.sql
===================================================================
RCS file: /repositories/postgreshome/cvs/pgsql/src/test/regress/sql/inherit.sql,v
retrieving revision 1.10
diff -c -r1.10 inherit.sql
*** src/test/regress/sql/inherit.sql	27 Jun 2006 03:43:20 -0000	1.10
--- src/test/regress/sql/inherit.sql	5 Jun 2007 09:20:14 -0000
***************
*** 156,161 ****
--- 156,170 ----
  SELECT * FROM inhg; /* Two records with three columns in order x=x, xx=text, y=y */
  DROP TABLE inhg;
  
+ CREATE TABLE inhg (x text, LIKE inhx INCLUDING INDEXES, y text); /* copies indexes */
+ DROP TABLE inhg;
+ /* Multiple primary keys creation should fail */
+ CREATE TABLE inhg (x text, LIKE inhx INCLUDING INDEXES, PRIMARY KEY(x)); /* fails */
+ CREATE TABLE inhz (xx text DEFAULT 'text', yy int UNIQUE);
+ /* Ok to create multiple unique indexes */
+ CREATE TABLE inhg (x text UNIQUE, LIKE inhz INCLUDING INDEXES);
+ DROP TABLE inhg;
+ DROP TABLE inhz;
  
  -- Test changing the type of inherited columns
  insert into d values('test','one','two','three');
---------------------------(end of broadcast)---------------------------
TIP 4: Have you searched our list archives?

               http://archives.postgresql.org

Reply via email to