1/* $NetBSD: pmon.c,v 1.5 2008/04/28 20:23:10 martin Exp $ */ 2 3/*- 4 * Copyright (c) 2001 The NetBSD Foundation, Inc. 5 * All rights reserved. 6 * 7 * This code is derived from software contributed to The NetBSD Foundation 8 * by Jason R. Thorpe. 9 * 10 * Redistribution and use in source and binary forms, with or without 11 * modification, are permitted provided that the following conditions 12 * are met: 13 * 1. Redistributions of source code must retain the above copyright 14 * notice, this list of conditions and the following disclaimer. 15 * 2. Redistributions in binary form must reproduce the above copyright 16 * notice, this list of conditions and the following disclaimer in the 17 * documentation and/or other materials provided with the distribution. 18 * 19 * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS 20 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED 21 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 22 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS 23 * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 24 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 25 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 26 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 27 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 28 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 29 * POSSIBILITY OF SUCH DAMAGE. 30 */ 31 32#include <sys/cdefs.h> 33__KERNEL_RCSID(0, "$NetBSD: pmon.c,v 1.5 2008/04/28 20:23:10 martin Exp $"); 34 35#include <sys/param.h> 36#include <sys/systm.h> 37 38#include <machine/pmon.h> 39 40#ifdef _LP64 41static char *environ[64]; 42#else 43static char **environ; 44#endif 45 46/* 47 * pmon_init: 48 * 49 * Initialize the PMON interface. 50 */ 51void 52pmon_init(char *envp[]) 53{ 54#ifdef _LP64 55 int32_t *envp32 = (void *) envp; 56 57 envp = environ; 58 if (envp32 != NULL) { 59 while (*envp32 != 0) { 60 KASSERT(envp - environ < __arraycount(environ)); 61 *envp++ = (char *)(intptr_t)*envp32++; 62 } 63 } 64 KASSERT(envp - environ < __arraycount(environ)); 65 *envp = NULL; 66#else 67 if (environ == NULL) 68 environ = envp; 69#endif 70#ifdef PMON_DEBUG 71 printf("pmon_init: environ = %p (%p)\n", environ, *environ); 72#endif 73} 74 75/* 76 * pmon_getenv: 77 * 78 * Fetch an environment variable. 79 */ 80const char * 81pmon_getenv(const char *var) 82{ 83 const char *rv = NULL; 84 char **env = environ; 85 int i; 86 87 i = strlen(var); 88 89 while (*env != NULL) { 90#ifdef PMON_DEBUG 91 printf("pmon_getenv: %s\n", *env); 92#endif 93 if (strncasecmp(var, *env, i) == 0 && 94 (*env)[i] == '=') { 95 rv = &(*env)[i + 1]; 96 break; 97 } 98 env++; 99 } 100 101 return (rv); 102} 103