1da2e3ebdSchin /***********************************************************************
2da2e3ebdSchin *                                                                      *
3da2e3ebdSchin *               This software is part of the ast package               *
4*b30d1939SAndy Fiddaman *          Copyright (c) 1985-2012 AT&T Intellectual Property          *
5da2e3ebdSchin *                      and is licensed under the                       *
6*b30d1939SAndy Fiddaman *                 Eclipse Public License, Version 1.0                  *
77c2fbfb3SApril Chin *                    by AT&T Intellectual Property                     *
8da2e3ebdSchin *                                                                      *
9da2e3ebdSchin *                A copy of the License is available at                 *
10*b30d1939SAndy Fiddaman *          http://www.eclipse.org/org/documents/epl-v10.html           *
11*b30d1939SAndy Fiddaman *         (with md5 checksum b35adb5213ca9657e911e9befb180842)         *
12da2e3ebdSchin *                                                                      *
13da2e3ebdSchin *              Information and Software Systems Research               *
14da2e3ebdSchin *                            AT&T Research                             *
15da2e3ebdSchin *                           Florham Park NJ                            *
16da2e3ebdSchin *                                                                      *
17da2e3ebdSchin *                 Glenn Fowler <gsf@research.att.com>                  *
18da2e3ebdSchin *                  David Korn <dgk@research.att.com>                   *
19da2e3ebdSchin *                   Phong Vo <kpv@research.att.com>                    *
20da2e3ebdSchin *                                                                      *
21da2e3ebdSchin ***********************************************************************/
22da2e3ebdSchin #include	"dthdr.h"
23da2e3ebdSchin 
24da2e3ebdSchin /*	Change discipline.
25da2e3ebdSchin **	dt :	dictionary
26da2e3ebdSchin **	disc :	discipline
27da2e3ebdSchin **
28da2e3ebdSchin **	Written by Kiem-Phong Vo (5/26/96)
29da2e3ebdSchin */
30da2e3ebdSchin 
31da2e3ebdSchin #if __STD_C
dtmemory(Dt_t * dt,Void_t * addr,size_t size,Dtdisc_t * disc)32*b30d1939SAndy Fiddaman static Void_t* dtmemory(Dt_t* dt, Void_t* addr, size_t size, Dtdisc_t* disc)
33da2e3ebdSchin #else
34da2e3ebdSchin static Void_t* dtmemory(dt, addr, size, disc)
35da2e3ebdSchin Dt_t* 		dt;	/* dictionary			*/
36da2e3ebdSchin Void_t* 	addr;	/* address to be manipulate	*/
37da2e3ebdSchin size_t		size;	/* size to obtain		*/
38da2e3ebdSchin Dtdisc_t* 	disc;	/* discipline			*/
39da2e3ebdSchin #endif
40da2e3ebdSchin {
41da2e3ebdSchin 	if(addr)
42da2e3ebdSchin 	{	if(size == 0)
43da2e3ebdSchin 		{	free(addr);
44da2e3ebdSchin 			return NIL(Void_t*);
45da2e3ebdSchin 		}
46da2e3ebdSchin 		else	return realloc(addr,size);
47da2e3ebdSchin 	}
48da2e3ebdSchin 	else	return size > 0 ? malloc(size) : NIL(Void_t*);
49da2e3ebdSchin }
50da2e3ebdSchin 
51da2e3ebdSchin #if __STD_C
dtdisc(Dt_t * dt,Dtdisc_t * disc,int type)52da2e3ebdSchin Dtdisc_t* dtdisc(Dt_t* dt, Dtdisc_t* disc, int type)
53da2e3ebdSchin #else
54da2e3ebdSchin Dtdisc_t* dtdisc(dt,disc,type)
55da2e3ebdSchin Dt_t*		dt;
56da2e3ebdSchin Dtdisc_t*	disc;
57da2e3ebdSchin int		type;
58da2e3ebdSchin #endif
59da2e3ebdSchin {
60*b30d1939SAndy Fiddaman 	Dtdisc_t	*old;
61*b30d1939SAndy Fiddaman 	Dtlink_t	*list;
62da2e3ebdSchin 
63da2e3ebdSchin 	if(!(old = dt->disc) )	/* initialization call from dtopen() */
64da2e3ebdSchin 	{	dt->disc = disc;
65da2e3ebdSchin 		if(!(dt->memoryf = disc->memoryf) )
66da2e3ebdSchin 			dt->memoryf = dtmemory;
67da2e3ebdSchin 		return disc;
68da2e3ebdSchin 	}
69da2e3ebdSchin 
70*b30d1939SAndy Fiddaman 	if(!disc) /* only want to know current discipline */
71da2e3ebdSchin 		return old;
72da2e3ebdSchin 
73da2e3ebdSchin 	if(old->eventf && (*old->eventf)(dt,DT_DISC,(Void_t*)disc,old) < 0)
74da2e3ebdSchin 		return NIL(Dtdisc_t*);
75da2e3ebdSchin 
76*b30d1939SAndy Fiddaman 	if((type & (DT_SAMEHASH|DT_SAMECMP)) != (DT_SAMEHASH|DT_SAMECMP) )
77*b30d1939SAndy Fiddaman 		list = dtextract(dt); /* grab the list of objects if any */
78*b30d1939SAndy Fiddaman 	else	list = NIL(Dtlink_t*);
79*b30d1939SAndy Fiddaman 
80da2e3ebdSchin 	dt->disc = disc;
81da2e3ebdSchin 	if(!(dt->memoryf = disc->memoryf) )
82da2e3ebdSchin 		dt->memoryf = dtmemory;
83da2e3ebdSchin 
84*b30d1939SAndy Fiddaman 	if(list ) /* reinsert extracted objects (with new discipline) */
85*b30d1939SAndy Fiddaman 		dtrestore(dt, list);
86da2e3ebdSchin 
87da2e3ebdSchin 	return old;
88da2e3ebdSchin }
89