diff options
author | Igor Pashev <pashev.igor@gmail.com> | 2012-06-24 22:28:35 +0000 |
---|---|---|
committer | Igor Pashev <pashev.igor@gmail.com> | 2012-06-24 22:28:35 +0000 |
commit | 3950ffe2a485479f6561c27364d3d7df5a21d124 (patch) | |
tree | 468c6e14449d1b1e279222ec32f676b0311917d2 /src/lib/libast/cdt/dtdisc.c | |
download | ksh-upstream.tar.gz |
Imported Upstream version 93u+upstream
Diffstat (limited to 'src/lib/libast/cdt/dtdisc.c')
-rw-r--r-- | src/lib/libast/cdt/dtdisc.c | 91 |
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; +} |