Imported Upstream version 93u+upstream

1 files changed, 91 insertions, 0 deletions

diff --git a/src/lib/libast/cdt/dtdisc.c b/src/lib/libast/cdt/dtdisc.c
new file mode 100644
index 0000000..166aa7c
--- /dev/null
+++ b/src/lib/libast/cdt/dtdisc.c
@@ -0,0 +1,91 @@
+/***********************************************************************
+*                                                                      *
+*               This software is part of the ast package               *
+*          Copyright (c) 1985-2011 AT&T Intellectual Property          *
+*                      and is licensed under the                       *
+*                 Eclipse Public License, Version 1.0                  *
+*                    by AT&T Intellectual Property                     *
+*                                                                      *
+*                A copy of the License is available at                 *
+*          http://www.eclipse.org/org/documents/epl-v10.html           *
+*         (with md5 checksum b35adb5213ca9657e911e9befb180842)         *
+*                                                                      *
+*              Information and Software Systems Research               *
+*                            AT&T Research                             *
+*                           Florham Park NJ                            *
+*                                                                      *
+*                 Glenn Fowler <gsf@research.att.com>                  *
+*                  David Korn <dgk@research.att.com>                   *
+*                   Phong Vo <kpv@research.att.com>                    *
+*                                                                      *
+***********************************************************************/
+#include	"dthdr.h"
+
+/*	Change discipline.
+**	dt :	dictionary
+**	disc :	discipline
+**
+**	Written by Kiem-Phong Vo (5/26/96)
+*/
+
+#if __STD_C
+static Void_t* dtmemory(Dt_t* dt, Void_t* addr, size_t size, Dtdisc_t* disc)
+#else
+static Void_t* dtmemory(dt, addr, size, disc)
+Dt_t* 		dt;	/* dictionary			*/
+Void_t* 	addr;	/* address to be manipulate	*/
+size_t		size;	/* size to obtain		*/
+Dtdisc_t* 	disc;	/* discipline			*/
+#endif
+{
+	if(addr)
+	{	if(size == 0)
+		{	free(addr);
+			return NIL(Void_t*);
+		}
+		else	return realloc(addr,size);
+	}
+	else	return size > 0 ? malloc(size) : NIL(Void_t*);
+}
+
+#if __STD_C
+Dtdisc_t* dtdisc(Dt_t* dt, Dtdisc_t* disc, int type)
+#else
+Dtdisc_t* dtdisc(dt,disc,type)
+Dt_t*		dt;
+Dtdisc_t*	disc;
+int		type;
+#endif
+{
+	Dtsearch_f	searchf;
+	Dtdisc_t	*old;
+	Dtlink_t	*list;
+
+	if(!(old = dt->disc) )	/* initialization call from dtopen() */
+	{	dt->disc = disc;
+		if(!(dt->memoryf = disc->memoryf) )
+			dt->memoryf = dtmemory;
+		return disc;
+	}
+
+	if(!disc) /* only want to know current discipline */
+		return old;
+
+	searchf = dt->meth->searchf;
+
+	if(old->eventf && (*old->eventf)(dt,DT_DISC,(Void_t*)disc,old) < 0)
+		return NIL(Dtdisc_t*);
+
+	if((type & (DT_SAMEHASH|DT_SAMECMP)) != (DT_SAMEHASH|DT_SAMECMP) )
+		list = dtextract(dt); /* grab the list of objects if any */
+	else	list = NIL(Dtlink_t*);
+
+	dt->disc = disc;
+	if(!(dt->memoryf = disc->memoryf) )
+		dt->memoryf = dtmemory;
+
+	if(list ) /* reinsert extracted objects (with new discipline) */
+		dtrestore(dt, list);
+
+	return old;
+}