dtmethod.c revision 3f54fd611f536639ec30dd53c48e5ec1897cc7d9
51b1633dc0785a542da974fae21fa7d6622c934eChristian Maeder/***********************************************************************
94de88ad0e7b83991208ade9d4b78e35a759a5c4Christian Maeder* *
f6a16d60a0d5c672e5525ec04b82373e754b2facChristian Maeder* This software is part of the BSD package *
f6a16d60a0d5c672e5525ec04b82373e754b2facChristian Maeder*Copyright (c) 1978-1996 The Regents of the University of California an*
f6a16d60a0d5c672e5525ec04b82373e754b2facChristian Maeder* *
f6a16d60a0d5c672e5525ec04b82373e754b2facChristian Maeder* Redistribution and use in source and binary forms, with or *
f6a16d60a0d5c672e5525ec04b82373e754b2facChristian Maeder* without modification, are permitted provided that the following *
94de88ad0e7b83991208ade9d4b78e35a759a5c4Christian Maeder* conditions are met: *
f6a16d60a0d5c672e5525ec04b82373e754b2facChristian Maeder* *
1ebbae20f83de4e62abad59c96405bb4f88e548fMihai Codescu* 1. Redistributions of source code must retain the above *
1ebbae20f83de4e62abad59c96405bb4f88e548fMihai Codescu* copyright notice, this list of conditions and the *
f6a16d60a0d5c672e5525ec04b82373e754b2facChristian Maeder* following disclaimer. *
f6a16d60a0d5c672e5525ec04b82373e754b2facChristian Maeder* *
f6a16d60a0d5c672e5525ec04b82373e754b2facChristian Maeder* 2. Redistributions in binary form must reproduce the above *
f6a16d60a0d5c672e5525ec04b82373e754b2facChristian Maeder* copyright notice, this list of conditions and the *
e935c1f2e814bb143017bb25b32ff7a406299d37Christian Maeder* following disclaimer in the documentation and/or other *
e935c1f2e814bb143017bb25b32ff7a406299d37Christian Maeder* materials provided with the distribution. *
f6a16d60a0d5c672e5525ec04b82373e754b2facChristian Maeder* *
1ebbae20f83de4e62abad59c96405bb4f88e548fMihai Codescu* 3. Neither the name of The Regents of the University of California*
51b1633dc0785a542da974fae21fa7d6622c934eChristian Maeder* names of its contributors may be used to endorse or *
51b1633dc0785a542da974fae21fa7d6622c934eChristian Maeder* promote products derived from this software without *
51b1633dc0785a542da974fae21fa7d6622c934eChristian Maeder* specific prior written permission. *
51b1633dc0785a542da974fae21fa7d6622c934eChristian Maeder* *
51b1633dc0785a542da974fae21fa7d6622c934eChristian Maeder* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND *
34cfe17cf88a9d6f532e8170384e877e49ddd091Christian Maeder* CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, *
0d930670ed64e9eb81680a764e2a13d363ea452cChristian Maeder* INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF *
34cfe17cf88a9d6f532e8170384e877e49ddd091Christian Maeder* MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE *
34cfe17cf88a9d6f532e8170384e877e49ddd091Christian Maeder* DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS *
34cfe17cf88a9d6f532e8170384e877e49ddd091Christian Maeder* BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, *
34cfe17cf88a9d6f532e8170384e877e49ddd091Christian Maeder* EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED *
51b1633dc0785a542da974fae21fa7d6622c934eChristian Maeder* TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, *
0d930670ed64e9eb81680a764e2a13d363ea452cChristian Maeder* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON *
0d930670ed64e9eb81680a764e2a13d363ea452cChristian Maeder* ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, *
51b1633dc0785a542da974fae21fa7d6622c934eChristian Maeder* OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY *
51b1633dc0785a542da974fae21fa7d6622c934eChristian Maeder* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE *
51b1633dc0785a542da974fae21fa7d6622c934eChristian Maeder* POSSIBILITY OF SUCH DAMAGE. *
51b1633dc0785a542da974fae21fa7d6622c934eChristian Maeder* *
51b1633dc0785a542da974fae21fa7d6622c934eChristian Maeder* Redistribution and use in source and binary forms, with or without *
51b1633dc0785a542da974fae21fa7d6622c934eChristian Maeder* modification, are permitted provided that the following conditions *
51b1633dc0785a542da974fae21fa7d6622c934eChristian Maeder* are met: *
51b1633dc0785a542da974fae21fa7d6622c934eChristian Maeder* 1. Redistributions of source code must retain the above copyright *
51b1633dc0785a542da974fae21fa7d6622c934eChristian Maeder* notice, this list of conditions and the following disclaimer. *
51b1633dc0785a542da974fae21fa7d6622c934eChristian Maeder* 2. Redistributions in binary form must reproduce the above copyright *
* notice, this list of conditions and the following disclaimer in *
* the documentation and/or other materials provided with the *
* distribution. *
* 3. Neither the name of the University nor the names of its *
* contributors may be used to endorse or promote products derived *
* from this software without specific prior written permission. *
* *
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS "AS IS" *
* AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED *
* TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A *
* PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS *
* OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, *
* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT *
* LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF *
* USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND *
* ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, *
* OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT *
* OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF *
* SUCH DAMAGE. *
* *
* Kurt Shoens (UCB) *
* gsf *
* *
***********************************************************************/
#include "dthdr.h"
/*
** Change searching method.
**
** Written by Kiem-Phong Vo (07/15/95)
*/
#if __STD_C
Dtmethod_t* dtmethod(Dt_t* dt, Dtmethod_t* meth)
#else
Dtmethod_t* dtmethod(dt, meth)
Dt_t* dt;
Dtmethod_t* meth;
#endif
{
reg Dtlink_t *list, *t, **slot, **eslot;
reg int nhash, n;
reg Dtsearch_f searchf;
reg Dtdisc_t* disc = dt->disc;
reg Dtmethod_t* oldmeth = dt->meth;
if(!meth || meth->type == oldmeth->type)
return oldmeth;
/* these methods cannot be changed */
if((dt->data->type&(DT_STACK|DT_QUEUE)) ||
(meth && (meth->type&(DT_STACK|DT_QUEUE))) )
return NIL(Dtmethod_t*);
if(disc->eventf &&
(*disc->eventf)(dt,DT_METH,(Void_t*)meth,disc) < 0)
return NIL(Dtmethod_t*);
/* get the list of elements */
list = dtflatten(dt);
if(dt->data->type&DT_LIST)
dt->data->head = NIL(Dtlink_t*);
else if(dt->data->type&DT_HASH)
{ if(dt->data->ntab > 0)
(*dt->memoryf)(dt,(Void_t*)dt->data->htab,0,disc);
dt->data->ntab = 0;
dt->data->htab = NIL(Dtlink_t**);
}
dt->data->here = NIL(Dtlink_t*);
nhash = dt->data->size;
dt->data->size = 0;
dt->data->type = (dt->data->type&~(DT_METHODS|DT_FLATTEN)) | meth->type;
dt->meth = meth;
searchf = meth->searchf;
if(dt->searchf == oldmeth->searchf)
dt->searchf = searchf;
if((meth->type&DT_HASH) && nhash > 0)
{ /* set hash table to proper size */
for(n = HSLOT; HLOAD(n) < nhash; )
n = HRESIZE(n);
slot = (Dtlink_t**)(*dt->memoryf)
(dt,NIL(Void_t*),n*sizeof(Dtlink_t*),disc);
if(!slot)
return NIL(Dtmethod_t*);
dt->data->ntab = n;
dt->data->htab = slot;
for(eslot = slot+n; slot < eslot; ++slot)
*slot = NIL(Dtlink_t*);
}
/* reinsert */
n = meth->type&DT_HASH;
while(list)
{ t = list->right;
if(n)
{ reg char* key = (char*)OBJ(list,disc);
key = KEY((Void_t*)key,disc);
list->hash = HASH(dt,key,disc);
}
(void)(*searchf)(dt,(Void_t*)list,DT_RENEW);
list = t;
}
return oldmeth;
}