Moved src/extend to contrib

1 files changed, 0 insertions, 251 deletions

diff --git a/src/extend/array/array_iterator.c b/src/extend/array/array_iterator.c
deleted file mode 100644
index 95ab119f853..00000000000
--- a/src/extend/array/array_iterator.c
+++ /dev/null
@@ -1,251 +0,0 @@
-/*
- * array_iterator.c --
- *
- * This file defines a new group of operators which take an
- * array and a scalar value, iterate a scalar operator over the
- * elements of the array and the value and compute a result as
- * the logical OR or AND of the results.
- * For example array_int4eq returns true if some of the elements
- * of an array of int4 is equal to the given value:
- *
- *	array_int4eq({1,2,3}, 1)  -->  true
- *	array_int4eq({1,2,3}, 4)  -->  false
- *
- * If we have defined T array types and O scalar operators
- * we can define T x O array operators, each of them has a name
- * like "array_<basetype><operation>" and takes an array of type T
- * iterating the operator O over all the elements. Note however
- * that some of the possible combination are invalid, for example
- * the array_int4_like because there is no like operator for int4.
- * It is now possible to write queries which look inside the arrays:
- *
- *      create table t(id int4[], txt text[]);
- *	select * from t where t.id *= 123;
- *	select * from t where t.txt *~ '[a-z]';
- *	select * from t where t.txt[1:3] **~ '[a-z]';
- *
- * Copyright (c) 1996, Massimo Dal Zotto <dz@cs.unitn.it>
- */
-
-#include <ctype.h>
-#include <stdio.h>
-#include <sys/types.h>
-#include <string.h>
-
-#include "postgres.h"
-#include "pg_type.h"
-#include "miscadmin.h"
-#include "syscache.h"
-#include "access/xact.h"
-#include "utils/builtins.h"
-#include "utils/elog.h"
-
-static int32
-array_iterator(Oid elemtype, Oid proc, int and, ArrayType *array, Datum value)
-{
-    HeapTuple typ_tuple;
-    TypeTupleForm typ_struct;
-    bool typbyval;
-    int typlen;
-    func_ptr proc_fn;
-    int pronargs;
-    int nitems, i, result;
-    int ndim, *dim;
-    char *p;
-
-    /* Sanity checks */
-    if ((array == (ArrayType *) NULL)
-	|| (ARR_IS_LO(array) == true)) {
-	/* elog(NOTICE, "array_iterator: array is null"); */
-        return (0);
-    }
-    ndim = ARR_NDIM(array);
-    dim = ARR_DIMS(array);
-    nitems = getNitems(ndim, dim);
-    if (nitems == 0) {
-	/* elog(NOTICE, "array_iterator: nitems = 0"); */
-        return (0);
-    }
-
-    /* Lookup element type information */
-    typ_tuple = SearchSysCacheTuple(TYPOID, ObjectIdGetDatum(elemtype),0,0,0);
-    if (!HeapTupleIsValid(typ_tuple)) {
-        elog(WARN,"array_iterator: cache lookup failed for type %d", elemtype);
-        return 0;
-    }
-    typ_struct = (TypeTupleForm) GETSTRUCT(typ_tuple);
-    typlen   = typ_struct->typlen;
-    typbyval = typ_struct->typbyval;
-
-    /* Lookup the function entry point */
-    proc_fn == (func_ptr) NULL;
-    fmgr_info(proc, &proc_fn, &pronargs);
-    if ((proc_fn == NULL) || (pronargs != 2)) {
-	elog(WARN, "array_iterator: fmgr_info lookup failed for oid %d", proc);
-        return (0);
-    }
-
-    /* Scan the array and apply the operator to each element */
-    result = 0;
-    p = ARR_DATA_PTR(array);
-    for (i = 0; i < nitems; i++) {
-        if (typbyval) {
-            switch(typlen) {
-	      case 1:
-		result = (int) (*proc_fn)(*p, value);
-		break;
-	    case 2:
-		result = (int) (*proc_fn)(* (int16 *) p, value);
-		break;
-	    case 3:
-	    case 4:
-		result = (int) (*proc_fn)(* (int32 *) p, value);
-		break;
-            }
-            p += typlen;
-        } else {
-	    result = (int) (*proc_fn)(p, value);
-            if (typlen > 0) {
-		p += typlen;
-	    } else {
-                p += INTALIGN(* (int32 *) p);
-	    }
-        }
-	if (result) {
-	    if (!and) {
-		return (1);
-	    }
-	} else {
-	    if (and) {
-		return (0);
-	    }
-	}
-    }
-
-    if (and && result) {
-	return (1);
-    } else {
-	return (0);
-    }
-}
-
-/*
- * Iterators for type _text
- */
-
-int32
-array_texteq(ArrayType *array, char* value)
-{
-    return array_iterator((Oid) 25,	/* text */
-			  (Oid) 67,	/* texteq */
-			  0,		/* logical or */
-			  array, (Datum)value);
-}
-
-int32
-array_all_texteq(ArrayType *array, char* value)
-{
-    return array_iterator((Oid) 25,	/* text */
-			  (Oid) 67,	/* texteq */
-			  1,		/* logical and */
-			  array, (Datum)value);
-}
-
-int32
-array_textregexeq(ArrayType *array, char* value)
-{
-    return array_iterator((Oid) 25,	/* text */
-			  (Oid) 81,	/* textregexeq */
-			  0,		/* logical or */
-			  array, (Datum)value);
-}
-
-int32
-array_all_textregexeq(ArrayType *array, char* value)
-{
-    return array_iterator((Oid) 25,	/* text */
-			  (Oid) 81,	/* textregexeq */
-			  1,		/* logical and */
-			  array, (Datum)value);
-}
-
-/*
- * Iterators for type _char16. Note that the regexp operators
- * take the second argument of type text.
- */
-
-int32
-array_char16eq(ArrayType *array, char* value)
-{
-    return array_iterator((Oid) 20,	/* char16 */
-			  (Oid) 490,	/* char16eq */
-			  0,		/* logical or */
-			  array, (Datum)value);
-}
-
-int32
-array_all_char16eq(ArrayType *array, char* value)
-{
-    return array_iterator((Oid) 20,	/* char16 */
-			  (Oid) 490,	/* char16eq */
-			  1,		/* logical and */
-			  array, (Datum)value);
-}
-
-int32
-array_char16regexeq(ArrayType *array, char* value)
-{
-    return array_iterator((Oid) 20,	/* char16 */
-			  (Oid) 700,	/* char16regexeq */
-			  0,		/* logical or */
-			  array, (Datum)value);
-}
-
-int32
-array_all_char16regexeq(ArrayType *array, char* value)
-{
-    return array_iterator((Oid) 20,	/* char16 */
-			  (Oid) 700,	/* char16regexeq */
-			  1,		/* logical and */
-			  array, (Datum)value);
-}
-
-/*
- * Iterators for type _int4
- */
-
-int32
-array_int4eq(ArrayType *array, int4 value)
-{
-    return array_iterator((Oid) 23,	/* int4 */
-			  (Oid) 65,	/* int4eq */
-			  0,		/* logical or */
-			  array, (Datum)value);
-}
-
-int32
-array_all_int4eq(ArrayType *array, int4 value)
-{
-    return array_iterator((Oid) 23,	/* int4 */
-			  (Oid) 65,	/* int4eq */
-			  1,		/* logical and */
-			  array, (Datum)value);
-}
-
-int32
-array_int4gt(ArrayType *array, int4 value)
-{
-    return array_iterator((Oid) 23,	/* int4 */
-			  (Oid) 147,	/* int4gt */
-			  0,		/* logical or */
-			  array, (Datum)value);
-}
-
-int32
-array_all_int4gt(ArrayType *array, int4 value)
-{
-    return array_iterator((Oid) 23,	/* int4 */
-			  (Oid) 147,	/* int4gt */
-			  1,		/* logical and */
-			  array, (Datum)value);
-}