18462SApril.Chin@Sun.COM /*********************************************************************** 28462SApril.Chin@Sun.COM * * 38462SApril.Chin@Sun.COM * This software is part of the ast package * 4*12068SRoger.Faulkner@Oracle.COM * Copyright (c) 1985-2010 AT&T Intellectual Property * 58462SApril.Chin@Sun.COM * and is licensed under the * 68462SApril.Chin@Sun.COM * Common Public License, Version 1.0 * 78462SApril.Chin@Sun.COM * by AT&T Intellectual Property * 88462SApril.Chin@Sun.COM * * 98462SApril.Chin@Sun.COM * A copy of the License is available at * 108462SApril.Chin@Sun.COM * http://www.opensource.org/licenses/cpl1.0.txt * 118462SApril.Chin@Sun.COM * (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) * 128462SApril.Chin@Sun.COM * * 138462SApril.Chin@Sun.COM * Information and Software Systems Research * 148462SApril.Chin@Sun.COM * AT&T Research * 158462SApril.Chin@Sun.COM * Florham Park NJ * 168462SApril.Chin@Sun.COM * * 178462SApril.Chin@Sun.COM * Glenn Fowler <gsf@research.att.com> * 188462SApril.Chin@Sun.COM * David Korn <dgk@research.att.com> * 198462SApril.Chin@Sun.COM * Phong Vo <kpv@research.att.com> * 208462SApril.Chin@Sun.COM * * 218462SApril.Chin@Sun.COM ***********************************************************************/ 228462SApril.Chin@Sun.COM #pragma prototyped 238462SApril.Chin@Sun.COM 248462SApril.Chin@Sun.COM #include "intercepts.h" 258462SApril.Chin@Sun.COM 268462SApril.Chin@Sun.COM /* 278462SApril.Chin@Sun.COM * NOTE: the "intercepts" definition is in getenv.c because some static linkers 288462SApril.Chin@Sun.COM * miss lone references to "intercepts" without "astintercept()" 298462SApril.Chin@Sun.COM */ 308462SApril.Chin@Sun.COM 318462SApril.Chin@Sun.COM /* 328462SApril.Chin@Sun.COM * set/clear ast intercept callouts 338462SApril.Chin@Sun.COM */ 348462SApril.Chin@Sun.COM 358462SApril.Chin@Sun.COM int astintercept(Shbltin_t * call,int set)368462SApril.Chin@Sun.COMastintercept(Shbltin_t* call, int set) 378462SApril.Chin@Sun.COM { 388462SApril.Chin@Sun.COM if (call->shgetenv) 398462SApril.Chin@Sun.COM { 408462SApril.Chin@Sun.COM if (set) 418462SApril.Chin@Sun.COM intercepts.intercept_getenv = call->shgetenv; 428462SApril.Chin@Sun.COM else 438462SApril.Chin@Sun.COM intercepts.intercept_getenv = 0; 448462SApril.Chin@Sun.COM } 458462SApril.Chin@Sun.COM if (call->shsetenv) 468462SApril.Chin@Sun.COM { 478462SApril.Chin@Sun.COM if (set) 488462SApril.Chin@Sun.COM intercepts.intercept_setenviron = call->shsetenv; 498462SApril.Chin@Sun.COM else 508462SApril.Chin@Sun.COM intercepts.intercept_setenviron = 0; 518462SApril.Chin@Sun.COM } 528462SApril.Chin@Sun.COM return 0; 538462SApril.Chin@Sun.COM } 54