diff options
Diffstat (limited to 'src/backend/lib')
| -rw-r--r-- | src/backend/lib/Makefile | 4 | ||||
| -rw-r--r-- | src/backend/lib/lispsort.c | 57 |
2 files changed, 2 insertions, 59 deletions
diff --git a/src/backend/lib/Makefile b/src/backend/lib/Makefile index 4b920b12341..4d8935ffb8b 100644 --- a/src/backend/lib/Makefile +++ b/src/backend/lib/Makefile @@ -4,7 +4,7 @@ # Makefile for lib (miscellaneous stuff) # # IDENTIFICATION -# $PostgreSQL: pgsql/src/backend/lib/Makefile,v 1.18 2003/11/29 19:51:49 pgsql Exp $ +# $PostgreSQL: pgsql/src/backend/lib/Makefile,v 1.19 2004/04/25 18:23:56 neilc Exp $ # #------------------------------------------------------------------------- @@ -12,7 +12,7 @@ subdir = src/backend/lib top_builddir = ../../.. include $(top_builddir)/src/Makefile.global -OBJS = dllist.o lispsort.o stringinfo.o +OBJS = dllist.o stringinfo.o all: SUBSYS.o diff --git a/src/backend/lib/lispsort.c b/src/backend/lib/lispsort.c deleted file mode 100644 index 7de12b0c6dd..00000000000 --- a/src/backend/lib/lispsort.c +++ /dev/null @@ -1,57 +0,0 @@ -/*------------------------------------------------------------------------- - * - * lispsort.c - * - * Portions Copyright (c) 1996-2003, PostgreSQL Global Development Group - * Portions Copyright (c) 1994, Regents of the University of California - * - * - * IDENTIFICATION - * $PostgreSQL: pgsql/src/backend/lib/lispsort.c,v 1.20 2003/11/29 19:51:49 pgsql Exp $ - * - *------------------------------------------------------------------------- - */ - -#include "postgres.h" - - -#ifdef NOT_USED -/* -** lisp_qsort: Takes a lisp list as input, copies it into an array of lisp -** nodes which it sorts via qsort() with the comparison function -** as passed into lisp_qsort(), and returns a new list with -** the nodes sorted. The old list is *not* freed or modified (?) -*/ -List * -lisp_qsort(List *the_list, /* the list to be sorted */ - int (*compare) ()) /* function to compare two nodes */ -{ - int i; - size_t num; - List **nodearray; - List *tmp, - *output; - - /* find size of list */ - num = length(the_list); - if (num < 2) - return copyObject(the_list); - - /* copy elements of the list into an array */ - nodearray = (List **) palloc(num * sizeof(List *)); - - for (tmp = the_list, i = 0; tmp != NIL; tmp = lnext(tmp), i++) - nodearray[i] = copyObject(lfirst(tmp)); - - /* sort the array */ - pg_qsort(nodearray, num, sizeof(List *), compare); - - /* lcons together the array elements */ - output = NIL; - for (i = num - 1; i >= 0; i--) - output = lcons(nodearray[i], output); - - return output; -} - -#endif |