1*8462SApril.Chin@Sun.COM /*********************************************************************** 2*8462SApril.Chin@Sun.COM * * 3*8462SApril.Chin@Sun.COM * This software is part of the ast package * 4*8462SApril.Chin@Sun.COM * Copyright (c) 1985-2008 AT&T Intellectual Property * 5*8462SApril.Chin@Sun.COM * and is licensed under the * 6*8462SApril.Chin@Sun.COM * Common Public License, Version 1.0 * 7*8462SApril.Chin@Sun.COM * by AT&T Intellectual Property * 8*8462SApril.Chin@Sun.COM * * 9*8462SApril.Chin@Sun.COM * A copy of the License is available at * 10*8462SApril.Chin@Sun.COM * http://www.opensource.org/licenses/cpl1.0.txt * 11*8462SApril.Chin@Sun.COM * (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) * 12*8462SApril.Chin@Sun.COM * * 13*8462SApril.Chin@Sun.COM * Information and Software Systems Research * 14*8462SApril.Chin@Sun.COM * AT&T Research * 15*8462SApril.Chin@Sun.COM * Florham Park NJ * 16*8462SApril.Chin@Sun.COM * * 17*8462SApril.Chin@Sun.COM * Glenn Fowler <gsf@research.att.com> * 18*8462SApril.Chin@Sun.COM * David Korn <dgk@research.att.com> * 19*8462SApril.Chin@Sun.COM * Phong Vo <kpv@research.att.com> * 20*8462SApril.Chin@Sun.COM * * 21*8462SApril.Chin@Sun.COM ***********************************************************************/ 22*8462SApril.Chin@Sun.COM #pragma prototyped 23*8462SApril.Chin@Sun.COM 24*8462SApril.Chin@Sun.COM #include "intercepts.h" 25*8462SApril.Chin@Sun.COM 26*8462SApril.Chin@Sun.COM /* 27*8462SApril.Chin@Sun.COM * NOTE: the "intercepts" definition is in getenv.c because some static linkers 28*8462SApril.Chin@Sun.COM * miss lone references to "intercepts" without "astintercept()" 29*8462SApril.Chin@Sun.COM */ 30*8462SApril.Chin@Sun.COM 31*8462SApril.Chin@Sun.COM /* 32*8462SApril.Chin@Sun.COM * set/clear ast intercept callouts 33*8462SApril.Chin@Sun.COM */ 34*8462SApril.Chin@Sun.COM 35*8462SApril.Chin@Sun.COM int 36*8462SApril.Chin@Sun.COM astintercept(Shbltin_t* call, int set) 37*8462SApril.Chin@Sun.COM { 38*8462SApril.Chin@Sun.COM if (call->shgetenv) 39*8462SApril.Chin@Sun.COM { 40*8462SApril.Chin@Sun.COM if (set) 41*8462SApril.Chin@Sun.COM intercepts.intercept_getenv = call->shgetenv; 42*8462SApril.Chin@Sun.COM else 43*8462SApril.Chin@Sun.COM intercepts.intercept_getenv = 0; 44*8462SApril.Chin@Sun.COM } 45*8462SApril.Chin@Sun.COM if (call->shsetenv) 46*8462SApril.Chin@Sun.COM { 47*8462SApril.Chin@Sun.COM if (set) 48*8462SApril.Chin@Sun.COM intercepts.intercept_setenviron = call->shsetenv; 49*8462SApril.Chin@Sun.COM else 50*8462SApril.Chin@Sun.COM intercepts.intercept_setenviron = 0; 51*8462SApril.Chin@Sun.COM } 52*8462SApril.Chin@Sun.COM return 0; 53*8462SApril.Chin@Sun.COM } 54