Primary keys additional

My changes for primary key support weren't quite right. This change
completes the job.

*** ../src.original/./backend/parser/analyze.c	Mon Jan 25 23:44:26 1999
--- ./backend/parser/analyze.c	Tue Jan 26 08:39:05 1999
***************
*** 714,719 ****
--- 714,720 ----
  		index = makeNode(IndexStmt);

index->unique = TRUE;
+ index->primary = (constraint->contype == CONSTR_PRIMARY ? TRUE:FALSE);
if (constraint->name != NULL)
index->idxname = constraint->name;
else if (constraint->contype == CONSTR_PRIMARY)
***************
*** 722,735 ****
elog(ERROR, "CREATE TABLE/PRIMARY KEY multiple keys for table %s are not legal", stmt->relname);

have_pkey = TRUE;
- index->primary = TRUE;
index->idxname = makeTableName(stmt->relname, "pkey", NULL);
}
else
- {
- index->primary = FALSE;
index->idxname = NULL;
- }

  		index->relname = stmt->relname;
  		index->accessMethod = "btree";
--- 723,732 ----
*** ../src.original/./backend/tcop/utility.c	Mon Jan 25 23:40:17 1999
--- ./backend/tcop/utility.c	Mon Jan 25 23:40:34 1999
***************
*** 404,410 ****
  							stmt->indexParams,	/* parameters */
  							stmt->withClause,
  							stmt->unique,
! 							0,		/* CREATE INDEX can't be primary */
  							(Expr *) stmt->whereClause,
  							stmt->rangetable);
  			}
--- 404,410 ----
  							stmt->indexParams,	/* parameters */
  							stmt->withClause,
  							stmt->unique,
! 							stmt->primary,
  							(Expr *) stmt->whereClause,
  							stmt->rangetable);
  			}

-- 
D'Arcy J.M. Cain <darcy@{druid|vex}.net>   |  Democracy is three wolves
http://www.druid.net/darcy/                |  and a sheep voting on
+1 416 424 2871     (DoD#0082)    (eNTP)   |  what's for dinner.