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 search method.
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin**
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin** Written by Kiem-Phong Vo (05/25/96)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin*/
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if __STD_C
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinDtmethod_t* dtmethod(Dt_t* dt, Dtmethod_t* meth)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinDtmethod_t* dtmethod(dt, meth)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinDt_t* dt;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinDtmethod_t* meth;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin reg Dtlink_t *list, *r;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin reg Dtdisc_t* disc = dt->disc;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin reg Dtmethod_t* oldmeth = dt->meth;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!meth || meth->type == oldmeth->type)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return oldmeth;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(disc->eventf &&
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin (*disc->eventf)(dt,DT_METH,(Void_t*)meth,disc) < 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return NIL(Dtmethod_t*);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin dt->data->minp = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* get the list of elements */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin list = dtflatten(dt);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(dt->data->type&(DT_LIST|DT_STACK|DT_QUEUE) )
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin dt->data->head = NIL(Dtlink_t*);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(dt->data->type&(DT_SET|DT_BAG) )
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(dt->data->ntab > 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin (*dt->memoryf)(dt,(Void_t*)dt->data->htab,0,disc);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin dt->data->ntab = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin dt->data->htab = NIL(Dtlink_t**);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin dt->data->here = NIL(Dtlink_t*);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin dt->data->type = (dt->data->type&~(DT_METHODS|DT_FLATTEN)) | meth->type;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin dt->meth = meth;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(dt->searchf == oldmeth->searchf)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin dt->searchf = meth->searchf;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(meth->type&(DT_LIST|DT_STACK|DT_QUEUE) )
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(!(oldmeth->type&(DT_LIST|DT_STACK|DT_QUEUE)) )
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if((r = list) )
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { reg Dtlink_t* t;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for(t = r->right; t; r = t, t = t->right )
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin t->left = r;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin list->left = r;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin dt->data->head = list;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(meth->type&(DT_OSET|DT_OBAG))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { dt->data->size = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(list)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { r = list->right;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin (*meth->searchf)(dt,(Void_t*)list,DT_RENEW);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin list = r;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(!((meth->type&DT_BAG) && (oldmeth->type&DT_SET)) )
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { int rehash;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((meth->type&(DT_SET|DT_BAG)) && !(oldmeth->type&(DT_SET|DT_BAG)))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin rehash = 1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else rehash = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin dt->data->size = dt->data->loop = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(list)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { r = list->right;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(rehash)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { reg Void_t* key = _DTOBJ(list,disc->link);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin key = _DTKEY(key,disc->key,disc->size);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin list->hash = _DTHSH(dt,key,disc,disc->size);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin (void)(*meth->searchf)(dt,(Void_t*)list,DT_RENEW);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin list = r;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return oldmeth;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}