New relkind ('S') for sequence relations.

New funcs (nextval & currval) in pg_proc.h

src/include/catalog/pg_class.h

@@ -7,7 +7,7 @@
  *
  * Copyright (c) 1994, Regents of the University of California
  *
- * $Id: pg_class.h,v 1.4 1996/11/13 20:50:56 scrappy Exp $
+ * $Id: pg_class.h,v 1.5 1997/04/02 03:29:35 vadim Exp $
  *
  * NOTES
  *    ``pg_relation'' is being replaced by ``pg_class''.  currently
@@ -160,6 +160,7 @@ DATA(insert OID = 1273 (  pg_hosts 101           PGUID 0 0 0 0 0 f t s n 3 0 - -
 #define       RELKIND_INDEX           'i'     /* secondary index */
 #define       RELKIND_RELATION        'r'     /* cataloged heap */
 #define       RELKIND_SPECIAL         's'     /* special (non-heap) */
+#define       RELKIND_SEQUENCE        'S'     /* SEQUENCE relation */
 #define       RELKIND_UNCATALOGED     'u'     /* temporary heap */
 
 #endif /* PG_RELATION_H */

src/include/catalog/pg_proc.h

@@ -6,7 +6,7 @@
  *
  * Copyright (c) 1994, Regents of the University of California
  *
- * $Id: pg_proc.h,v 1.14 1997/03/25 08:10:50 scrappy Exp $
+ * $Id: pg_proc.h,v 1.15 1997/04/02 03:29:37 vadim Exp $
  *
  * NOTES
  *    The script catalog/genbki.sh reads this file and generates .bki
@@ -814,6 +814,12 @@ DATA(insert OID =  881 (  ltrim             PGUID 14 f t f 1 f 25 "25" 100 0 0 1
 DATA(insert OID =  882 (  rtrim             PGUID 14 f t f 1 f 25 "25" 100 0 0 100  "select rtrim($1, \' \')" - ));
 DATA(insert OID =  883 (  substr            PGUID 14 f t f 2 f 25 "25 23" 100 0 0 100  "select substr($1, $2, 10000)" - ));
 
+/* SEQUENCEs nextval & currval functions */
+DATA(insert OID =  1317 (  nextval          PGUID 11 f t f 1 f 23 "25" 100 0 0 100  foo bar ));
+DATA(insert OID =  1319 (  currval          PGUID 11 f t f 1 f 23 "25" 100 0 0 100  foo bar ));
+#define SeqNextValueRegProcedure 1317
+#define SeqCurrValueRegProcedure 1319
+
 /* 
  * prototypes for functions pg_proc.c 
  */