Home | History | Annotate | Line # | Download | only in algor 
      1 /*	$NetBSD: pmon.c,v 1.6 2009/12/14 00:45:59 matt 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.6 2009/12/14 00:45:59 matt Exp $");
     34 
     35 #include <sys/param.h>
     36 #include <sys/systm.h>
     37 
     38 #include <machine/pmon.h>
     39 
     40 #ifdef _LP64
     41 static char *environ[64];
     42 #else
     43 static char **environ;
     44 #endif
     45 
     46 /*
     47  * pmon_init:
     48  *
     49  *	Initialize the PMON interface.
     50  */
     51 void
     52 pmon_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  */
     80 const char *
     81 pmon_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