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