1*b30d1939SAndy Fiddaman /***********************************************************************
2*b30d1939SAndy Fiddaman *                                                                      *
3*b30d1939SAndy Fiddaman *               This software is part of the ast package               *
4*b30d1939SAndy Fiddaman *          Copyright (c) 1985-2011 AT&T Intellectual Property          *
5*b30d1939SAndy Fiddaman *                      and is licensed under the                       *
6*b30d1939SAndy Fiddaman *                 Eclipse Public License, Version 1.0                  *
7*b30d1939SAndy Fiddaman *                    by AT&T Intellectual Property                     *
8*b30d1939SAndy Fiddaman *                                                                      *
9*b30d1939SAndy Fiddaman *                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)         *
12*b30d1939SAndy Fiddaman *                                                                      *
13*b30d1939SAndy Fiddaman *              Information and Software Systems Research               *
14*b30d1939SAndy Fiddaman *                            AT&T Research                             *
15*b30d1939SAndy Fiddaman *                           Florham Park NJ                            *
16*b30d1939SAndy Fiddaman *                                                                      *
17*b30d1939SAndy Fiddaman *                 Glenn Fowler <gsf@research.att.com>                  *
18*b30d1939SAndy Fiddaman *                  David Korn <dgk@research.att.com>                   *
19*b30d1939SAndy Fiddaman *                   Phong Vo <kpv@research.att.com>                    *
20*b30d1939SAndy Fiddaman *                                                                      *
21*b30d1939SAndy Fiddaman ***********************************************************************/
22*b30d1939SAndy Fiddaman #include	"dthdr.h"
23*b30d1939SAndy Fiddaman 
24*b30d1939SAndy Fiddaman /*	Change search method.
25*b30d1939SAndy Fiddaman **
26*b30d1939SAndy Fiddaman **	Written by Kiem-Phong Vo (05/25/96)
27*b30d1939SAndy Fiddaman */
28*b30d1939SAndy Fiddaman 
29*b30d1939SAndy Fiddaman #if __STD_C
dtmethod(Dt_t * dt,Dtmethod_t * meth)30*b30d1939SAndy Fiddaman Dtmethod_t* dtmethod(Dt_t* dt, Dtmethod_t* meth)
31*b30d1939SAndy Fiddaman #else
32*b30d1939SAndy Fiddaman Dtmethod_t* dtmethod(dt, meth)
33*b30d1939SAndy Fiddaman Dt_t*		dt;
34*b30d1939SAndy Fiddaman Dtmethod_t*	meth;
35*b30d1939SAndy Fiddaman #endif
36*b30d1939SAndy Fiddaman {
37*b30d1939SAndy Fiddaman 	Dtlink_t	*list;
38*b30d1939SAndy Fiddaman 	Dtdisc_t	*disc = dt->disc;
39*b30d1939SAndy Fiddaman 	Dtmethod_t	*oldmt = dt->meth;
40*b30d1939SAndy Fiddaman 	Dtdata_t	*newdt, *olddt = dt->data;
41*b30d1939SAndy Fiddaman 
42*b30d1939SAndy Fiddaman 	if(!meth || meth == oldmt)
43*b30d1939SAndy Fiddaman 		return oldmt;
44*b30d1939SAndy Fiddaman 
45*b30d1939SAndy Fiddaman 	/* ask discipline if switching to new method is ok */
46*b30d1939SAndy Fiddaman 	if(disc->eventf && (*disc->eventf)(dt,DT_METH,(Void_t*)meth,disc) < 0)
47*b30d1939SAndy Fiddaman 		return NIL(Dtmethod_t*);
48*b30d1939SAndy Fiddaman 
49*b30d1939SAndy Fiddaman 	list = dtextract(dt); /* extract elements out of dictionary */
50*b30d1939SAndy Fiddaman 
51*b30d1939SAndy Fiddaman 	/* try to create internal structure for new method */
52*b30d1939SAndy Fiddaman 	if(dt->searchf == oldmt->searchf) /* ie, not viewpathing */
53*b30d1939SAndy Fiddaman 		dt->searchf = meth->searchf;
54*b30d1939SAndy Fiddaman 	dt->meth = meth;
55*b30d1939SAndy Fiddaman 	dt->data = NIL(Dtdata_t*);
56*b30d1939SAndy Fiddaman 	if((*dt->meth->eventf)(dt, DT_OPEN, NIL(Void_t*)) < 0 )
57*b30d1939SAndy Fiddaman 		newdt = NIL(Dtdata_t*);
58*b30d1939SAndy Fiddaman 	else	newdt = dt->data;
59*b30d1939SAndy Fiddaman 
60*b30d1939SAndy Fiddaman 	/* see what need to be done to data of the old method */
61*b30d1939SAndy Fiddaman 	if(dt->searchf == meth->searchf)
62*b30d1939SAndy Fiddaman 		dt->searchf = oldmt->searchf;
63*b30d1939SAndy Fiddaman 	dt->meth = oldmt;
64*b30d1939SAndy Fiddaman 	dt->data = olddt;
65*b30d1939SAndy Fiddaman 	if(newdt) /* switch was successful, remove old data */
66*b30d1939SAndy Fiddaman 	{	(void)(*dt->meth->eventf)(dt, DT_CLOSE, NIL(Void_t*));
67*b30d1939SAndy Fiddaman 
68*b30d1939SAndy Fiddaman 		if(dt->searchf == oldmt->searchf)
69*b30d1939SAndy Fiddaman 			dt->searchf = meth->searchf;
70*b30d1939SAndy Fiddaman 		dt->meth = meth;
71*b30d1939SAndy Fiddaman 		dt->data = newdt;
72*b30d1939SAndy Fiddaman 		dtrestore(dt, list);
73*b30d1939SAndy Fiddaman 		return oldmt;
74*b30d1939SAndy Fiddaman 	}
75*b30d1939SAndy Fiddaman 	else /* switch failed, restore dictionary to previous states */
76*b30d1939SAndy Fiddaman 	{	dtrestore(dt, list);
77*b30d1939SAndy Fiddaman 		return NIL(Dtmethod_t*);
78*b30d1939SAndy Fiddaman 	}
79*b30d1939SAndy Fiddaman }
80*b30d1939SAndy Fiddaman 
81*b30d1939SAndy Fiddaman /* customize certain actions in a container data structure */
dtcustomize(Dt_t * dt,int type,int action)82*b30d1939SAndy Fiddaman int dtcustomize(Dt_t* dt, int type, int action)
83*b30d1939SAndy Fiddaman {
84*b30d1939SAndy Fiddaman 	int	done = 0;
85*b30d1939SAndy Fiddaman 
86*b30d1939SAndy Fiddaman 	if((type&DT_SHARE) &&
87*b30d1939SAndy Fiddaman 	   (!dt->meth->eventf || (*dt->meth->eventf)(dt, DT_SHARE, (Void_t*)((long)action)) >= 0) )
88*b30d1939SAndy Fiddaman 	{	if(action <= 0 )
89*b30d1939SAndy Fiddaman 			dt->data->type &= ~DT_SHARE;
90*b30d1939SAndy Fiddaman 		else	dt->data->type |=  DT_SHARE;
91*b30d1939SAndy Fiddaman 		done |= DT_SHARE;
92*b30d1939SAndy Fiddaman 	}
93*b30d1939SAndy Fiddaman 
94*b30d1939SAndy Fiddaman 	if((type&DT_ANNOUNCE) &&
95*b30d1939SAndy Fiddaman 	   (!dt->meth->eventf || (*dt->meth->eventf)(dt, DT_ANNOUNCE, (Void_t*)((long)action)) >= 0) )
96*b30d1939SAndy Fiddaman 	{	if(action <= 0 )
97*b30d1939SAndy Fiddaman 			dt->data->type &= ~DT_ANNOUNCE;
98*b30d1939SAndy Fiddaman 		else	dt->data->type |=  DT_ANNOUNCE;
99*b30d1939SAndy Fiddaman 		done |= DT_ANNOUNCE;
100*b30d1939SAndy Fiddaman 	}
101*b30d1939SAndy Fiddaman 
102*b30d1939SAndy Fiddaman 	if((type&DT_OPTIMIZE) &&
103*b30d1939SAndy Fiddaman 	   (!dt->meth->eventf || (*dt->meth->eventf)(dt, DT_OPTIMIZE, (Void_t*)((long)action)) >= 0) )
104*b30d1939SAndy Fiddaman 		done |= DT_OPTIMIZE;
105*b30d1939SAndy Fiddaman 
106*b30d1939SAndy Fiddaman 	return done;
107*b30d1939SAndy Fiddaman }
108