aboutsummaryrefslogtreecommitdiff
path: root/src/extend/array
diff options
context:
space:
mode:
Diffstat (limited to 'src/extend/array')
-rw-r--r--src/extend/array/array_iterator.c251
-rw-r--r--src/extend/array/array_iterator.doc26
-rw-r--r--src/extend/array/array_iterator.sql137
3 files changed, 0 insertions, 414 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);
-}
diff --git a/src/extend/array/array_iterator.doc b/src/extend/array/array_iterator.doc
deleted file mode 100644
index 01c1b2195cf..00000000000
--- a/src/extend/array/array_iterator.doc
+++ /dev/null
@@ -1,26 +0,0 @@
-From: Massimo Dal Zotto <dz@cs.unitn.it>
-Date: Mon, 6 May 1996 01:03:37 +0200 (MET DST)
-Subject: [PG95]: new operators for arrays
-
-- -----BEGIN PGP SIGNED MESSAGE-----
-
-Hi,
-
-I have written an extension to Postgres95 which allows to use qualification
-clauses based on the values of single elements of arrays.
-For example I can now select rows having some or all element of an array
-attribute equal to a given value or matching a regular expression:
-
-select * from t where t.foo *= 'bar';
-select * from t where t.foo **~ '^ba[rz]';
-
-The scheme is quite general, each operator which operates on a base type can
-be iterated over the elements of an array. It seem to work well but defining
-each new operators requires writing a different C function. Furthermore in
-each function there are two hardcoded OIDs which reference a base type and
-a procedure. Not very portable. Can anyone suggest a better and more portable
-way to do it ? Do you think this could be a useful feature for next release ?
-Here is my code, it can be compiled and loaded as a dynamic module without
-need to recompile the backend. I have defined only the few operators I needed,
-the list can be extended. Feddback is welcome.
-
diff --git a/src/extend/array/array_iterator.sql b/src/extend/array/array_iterator.sql
deleted file mode 100644
index 7a3356266c1..00000000000
--- a/src/extend/array/array_iterator.sql
+++ /dev/null
@@ -1,137 +0,0 @@
-/*
- * SQL code
-
-- - -- load the new functions
-- - --
-load '/home/dz/lib/postgres/array_iterator.so';
-
-- - -- define the array operators *=, **=, *~ and **~ for type _text
-- - --
-create function array_texteq(_text, text)
- returns bool
- as '/home/dz/lib/postgres/array_iterator.so'
- language 'c';
-
-create function array_all_texteq(_text, text)
- returns bool
- as '/home/dz/lib/postgres/array_iterator.so'
- language 'c';
-
-create function array_textregexeq(_text, text)
- returns bool
- as '/home/dz/lib/postgres/array_iterator.so'
- language 'c';
-
-create function array_all_textregexeq(_text, text)
- returns bool
- as '/home/dz/lib/postgres/array_iterator.so'
- language 'c';
-
-create operator *= (
- leftarg=_text,
- rightarg=text,
- procedure=array_texteq);
-
-create operator **= (
- leftarg=_text,
- rightarg=text,
- procedure=array_all_texteq);
-
-create operator *~ (
- leftarg=_text,
- rightarg=text,
- procedure=array_textregexeq);
-
-create operator **~ (
- leftarg=_text,
- rightarg=text,
- procedure=array_all_textregexeq);
-
-- - -- define the array operators *=, **=, *~ and **~ for type _char16
-- - --
-create function array_char16eq(_char16, char16)
- returns bool
- as '/home/dz/lib/postgres/array_iterator.so'
- language 'c';
-
-create function array_all_char16eq(_char16, char16)
- returns bool
- as '/home/dz/lib/postgres/array_iterator.so'
- language 'c';
-
-create function array_char16regexeq(_char16, text)
- returns bool
- as '/home/dz/lib/postgres/array_iterator.so'
- language 'c';
-
-create function array_all_char16regexeq(_char16, text)
- returns bool
- as '/home/dz/lib/postgres/array_iterator.so'
- language 'c';
-
-create operator *= (
- leftarg=_char16,
- rightarg=char16,
- procedure=array_char16eq);
-
-create operator **= (
- leftarg=_char16,
- rightarg=char16,
- procedure=array_all_char16eq);
-
-create operator *~ (
- leftarg=_char16,
- rightarg=text,
- procedure=array_char16regexeq);
-
-create operator **~ (
- leftarg=_char16,
- rightarg=text,
- procedure=array_all_char16regexeq);
-
-- - -- define the array operators *=, **=, *> and **> for type _int4
-- - --
-create function array_int4eq(_int4, int4)
- returns bool
- as '/home/dz/lib/postgres/array_iterator.so'
- language 'c';
-
-create function array_all_int4eq(_int4, int4)
- returns bool
- as '/home/dz/lib/postgres/array_iterator.so'
- language 'c';
-
-create function array_int4gt(_int4, int4)
- returns bool
- as '/home/dz/lib/postgres/array_iterator.so'
- language 'c';
-
-create function array_all_int4gt(_int4, int4)
- returns bool
- as '/home/dz/lib/postgres/array_iterator.so'
- language 'c';
-
-create operator *= (
- leftarg=_int4,
- rightarg=int4,
- procedure=array_int4eq);
-
-create operator **= (
- leftarg=_int4,
- rightarg=int4,
- procedure=array_all_int4eq);
-
-create operator *> (
- leftarg=_int4,
- rightarg=int4,
- procedure=array_int4gt);
-
-create operator **> (
- leftarg=_int4,
- rightarg=int4,
- procedure=array_all_int4gt);
-
-*/
-
-/* end of file */
-
generated by cgit v1.2.3 (git 2.25.1) at 2025-06-21 21:09:00 +0000