Home | History | Annotate | Download | only in newtask
      1 /*
      2  * CDDL HEADER START
      3  *
      4  * The contents of this file are subject to the terms of the
      5  * Common Development and Distribution License, Version 1.0 only
      6  * (the "License").  You may not use this file except in compliance
      7  * with the License.
      8  *
      9  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
     10  * or http://www.opensolaris.org/os/licensing.
     11  * See the License for the specific language governing permissions
     12  * and limitations under the License.
     13  *
     14  * When distributing Covered Code, include this CDDL HEADER in each
     15  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
     16  * If applicable, add the following below this CDDL HEADER, with the
     17  * fields enclosed by brackets "[]" replaced with your own identifying
     18  * information: Portions Copyright [yyyy] [name of copyright owner]
     19  *
     20  * CDDL HEADER END
     21  */
     22 /*
     23  * Copyright 1999-2002 Sun Microsystems, Inc.  All rights reserved.
     24  * Use is subject to license terms.
     25  */
     26 
     27 #pragma ident	"%Z%%M%	%I%	%E% SMI"
     28 
     29 #include <libintl.h>
     30 #include <limits.h>
     31 #include <string.h>
     32 #include <stdlib.h>
     33 #include <stdarg.h>
     34 #include <stdio.h>
     35 #include <errno.h>
     36 #include <wchar.h>
     37 
     38 #include <utils.h>
     39 
     40 static const char PNAME_FMT[] = "%s: ";
     41 static const char ERRNO_FMT[] = ": %s\n";
     42 
     43 static const char *pname;
     44 
     45 /*PRINTFLIKE1*/
     46 void
     47 warn(const char *format, ...)
     48 {
     49 	int err = errno;
     50 	va_list alist;
     51 
     52 	if (pname != NULL)
     53 		(void) fprintf(stderr, gettext(PNAME_FMT), pname);
     54 
     55 	va_start(alist, format);
     56 	(void) vfprintf(stderr, format, alist);
     57 	va_end(alist);
     58 
     59 	if (strrchr(format, '\n') == NULL)
     60 		(void) fprintf(stderr, gettext(ERRNO_FMT), strerror(err));
     61 }
     62 
     63 /*PRINTFLIKE1*/
     64 void
     65 die(const char *format, ...)
     66 {
     67 	int err = errno;
     68 	va_list alist;
     69 
     70 	if (pname != NULL)
     71 		(void) fprintf(stderr, gettext(PNAME_FMT), pname);
     72 
     73 	va_start(alist, format);
     74 	(void) vfprintf(stderr, format, alist);
     75 	va_end(alist);
     76 
     77 	if (strrchr(format, '\n') == NULL)
     78 		(void) fprintf(stderr, gettext(ERRNO_FMT), strerror(err));
     79 
     80 	exit(E_ERROR);
     81 }
     82 
     83 const char *
     84 getpname(const char *arg0)
     85 {
     86 	const char *p = strrchr(arg0, '/');
     87 
     88 	if (p == NULL)
     89 		p = arg0;
     90 	else
     91 		p++;
     92 
     93 	pname = p;
     94 	return (p);
     95 }
     96 
     97 void *
     98 safe_malloc(size_t size)
     99 {
    100 	void *a;
    101 
    102 	if ((a = malloc(size)) == NULL)
    103 		die(gettext("out of memory\n"));
    104 
    105 	return (a);
    106 }
    107 
    108 /*
    109  * getdefault() reads from one of the /etc/default files. It takes
    110  * input of the filename, a variable name to search for, and a
    111  * prefix to prepend to the result.
    112  *
    113  * The file and varname arguments are required. The varname argument
    114  * must be of the form "VAR=". If the prefix argument
    115  * is non-null, it will be prepended to the returned string.
    116  * Double and single quotes are stripped from the result.
    117  *
    118  * getdefault() returns NULL if the file cannot be opened, or the
    119  * variable cannot be found.
    120  */
    121 char *
    122 getdefault(char *file, char *varname, char *prefix)
    123 {
    124 	FILE *fp;
    125 	char cp[PATH_MAX];
    126 	char *tmp_cp, *ret_str = NULL;
    127 	size_t varlen;
    128 
    129 	if ((fp = fopen(file, "r")) == NULL)
    130 		return (ret_str);
    131 	varlen = strlen(varname);
    132 	while (fgets(cp, PATH_MAX, fp) != NULL) {
    133 		size_t len;
    134 
    135 		if (cp[0] == '#' || cp[0] == '\n')
    136 			continue;
    137 		len = strlen(cp);
    138 		if (cp[len - 1] == '\n') {
    139 			len--;
    140 			cp[len] = '\0';
    141 		}
    142 		/* Find line containing varname */
    143 		if (strncmp(varname, cp, varlen) == 0) {
    144 			char *cp2, *strip_ptr = NULL;
    145 			size_t tlen;
    146 			int inquotes = 0;
    147 
    148 			cp2 = tmp_cp = cp + varlen;
    149 			/*
    150 			 * Remove extra characters after any space,
    151 			 * tab, or unquoted semicolon, and strip quotes.
    152 			 */
    153 			while ((*cp2 != '\0') &&
    154 			    (*cp2 != ' ') && (*cp2 != '\t') &&
    155 			    !((*cp2 == ';') && (inquotes == 0))) {
    156 				if (*cp2 == '\"' || *cp2 == '\'') {
    157 					if (*cp2 == '\"') {
    158 						inquotes =
    159 						    inquotes == 0 ? 1 : 0;
    160 					}
    161 					if (strip_ptr == NULL) {
    162 						strip_ptr = cp2;
    163 					}
    164 				} else {
    165 					if (strip_ptr != NULL) {
    166 						*strip_ptr++ = *cp2;
    167 					}
    168 				}
    169 				cp2++;
    170 			}
    171 			if (strip_ptr != NULL) {
    172 				*strip_ptr = '\0';
    173 			}
    174 			len = cp2 - tmp_cp;
    175 			if (prefix) {
    176 				tlen = len + strlen(prefix) + 1;
    177 				ret_str = safe_malloc(tlen);
    178 				(void) snprintf(ret_str, tlen, "%s%s",
    179 				    prefix, tmp_cp);
    180 			} else {
    181 				tlen = len + 1;
    182 				ret_str = safe_malloc(tlen);
    183 				(void) snprintf(ret_str, tlen, "%s", tmp_cp);
    184 			}
    185 			break;
    186 		}
    187 	}
    188 	(void) fclose(fp);
    189 	return (ret_str);
    190 }
    191