da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/***********************************************************************
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* This software is part of the ast package *
3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner* Copyright (c) 1985-2010 AT&T Intellectual Property *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* and is licensed under the *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Common Public License, Version 1.0 *
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin* by AT&T Intellectual Property *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* A copy of the License is available at *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* http://www.opensource.org/licenses/cpl1.0.txt *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Information and Software Systems Research *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* AT&T Research *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Florham Park NJ *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Glenn Fowler <gsf@research.att.com> *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* David Korn <dgk@research.att.com> *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Phong Vo <kpv@research.att.com> *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin***********************************************************************/
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "dthdr.h"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/* Change discipline.
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin** dt : dictionary
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin** disc : discipline
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin**
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin** Written by Kiem-Phong Vo (5/26/96)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin*/
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if __STD_C
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic Void_t* dtmemory(Dt_t* dt,Void_t* addr,size_t size,Dtdisc_t* disc)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic Void_t* dtmemory(dt, addr, size, disc)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinDt_t* dt; /* dictionary */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinVoid_t* addr; /* address to be manipulate */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinsize_t size; /* size to obtain */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinDtdisc_t* disc; /* discipline */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(addr)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(size == 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { free(addr);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return NIL(Void_t*);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else return realloc(addr,size);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else return size > 0 ? malloc(size) : NIL(Void_t*);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if __STD_C
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinDtdisc_t* dtdisc(Dt_t* dt, Dtdisc_t* disc, int type)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinDtdisc_t* dtdisc(dt,disc,type)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinDt_t* dt;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinDtdisc_t* disc;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinint type;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin reg Dtsearch_f searchf;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin reg Dtlink_t *r, *t;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin reg char* k;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin reg Dtdisc_t* old;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(old = dt->disc) ) /* initialization call from dtopen() */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { dt->disc = disc;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(dt->memoryf = disc->memoryf) )
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin dt->memoryf = dtmemory;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return disc;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!disc) /* only want to know current discipline */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return old;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin searchf = dt->meth->searchf;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin UNFLATTEN(dt);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(old->eventf && (*old->eventf)(dt,DT_DISC,(Void_t*)disc,old) < 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return NIL(Dtdisc_t*);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin dt->disc = disc;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(dt->memoryf = disc->memoryf) )
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin dt->memoryf = dtmemory;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(dt->data->type&(DT_STACK|DT_QUEUE|DT_LIST))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto done;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(dt->data->type&DT_BAG)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(type&DT_SAMEHASH)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto done;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else goto dt_renew;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(dt->data->type&(DT_SET|DT_BAG))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if((type&DT_SAMEHASH) && (type&DT_SAMECMP))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto done;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else goto dt_renew;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else /*if(dt->data->type&(DT_OSET|DT_OBAG))*/
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(type&DT_SAMECMP)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto done;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin dt_renew:
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin r = dtflatten(dt);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin dt->data->type &= ~DT_FLATTEN;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin dt->data->here = NIL(Dtlink_t*);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin dt->data->size = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(dt->data->type&(DT_SET|DT_BAG))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { reg Dtlink_t **s, **ends;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ends = (s = dt->data->htab) + dt->data->ntab;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(s < ends)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *s++ = NIL(Dtlink_t*);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* reinsert them */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(r)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { t = r->right;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(type&DT_SAMEHASH)) /* new hash value */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { k = (char*)_DTOBJ(r,disc->link);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin k = _DTKEY((Void_t*)k,disc->key,disc->size);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin r->hash = _DTHSH(dt,k,disc,disc->size);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin (void)(*searchf)(dt,(Void_t*)r,DT_RENEW);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin r = t;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chindone:
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return old;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}