xref: /minix3/bin/sh/mystring.c (revision d90bee97498b3043241050f61aed100786c59df4)
1*d90bee97SLionel Sambuc /*	$NetBSD: mystring.c,v 1.17 2013/04/28 17:01:28 dholland Exp $	*/
2*d90bee97SLionel Sambuc 
3*d90bee97SLionel Sambuc /*-
4*d90bee97SLionel Sambuc  * Copyright (c) 1991, 1993
5*d90bee97SLionel Sambuc  *	The Regents of the University of California.  All rights reserved.
6*d90bee97SLionel Sambuc  *
7*d90bee97SLionel Sambuc  * This code is derived from software contributed to Berkeley by
8*d90bee97SLionel Sambuc  * Kenneth Almquist.
9*d90bee97SLionel Sambuc  *
10*d90bee97SLionel Sambuc  * Redistribution and use in source and binary forms, with or without
11*d90bee97SLionel Sambuc  * modification, are permitted provided that the following conditions
12*d90bee97SLionel Sambuc  * are met:
13*d90bee97SLionel Sambuc  * 1. Redistributions of source code must retain the above copyright
14*d90bee97SLionel Sambuc  *    notice, this list of conditions and the following disclaimer.
15*d90bee97SLionel Sambuc  * 2. Redistributions in binary form must reproduce the above copyright
16*d90bee97SLionel Sambuc  *    notice, this list of conditions and the following disclaimer in the
17*d90bee97SLionel Sambuc  *    documentation and/or other materials provided with the distribution.
18*d90bee97SLionel Sambuc  * 3. Neither the name of the University nor the names of its contributors
19*d90bee97SLionel Sambuc  *    may be used to endorse or promote products derived from this software
20*d90bee97SLionel Sambuc  *    without specific prior written permission.
21*d90bee97SLionel Sambuc  *
22*d90bee97SLionel Sambuc  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
23*d90bee97SLionel Sambuc  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
24*d90bee97SLionel Sambuc  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
25*d90bee97SLionel Sambuc  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
26*d90bee97SLionel Sambuc  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
27*d90bee97SLionel Sambuc  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
28*d90bee97SLionel Sambuc  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
29*d90bee97SLionel Sambuc  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
30*d90bee97SLionel Sambuc  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
31*d90bee97SLionel Sambuc  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
32*d90bee97SLionel Sambuc  * SUCH DAMAGE.
33*d90bee97SLionel Sambuc  */
34*d90bee97SLionel Sambuc 
35*d90bee97SLionel Sambuc #include <sys/cdefs.h>
36*d90bee97SLionel Sambuc #ifndef lint
37*d90bee97SLionel Sambuc #if 0
38*d90bee97SLionel Sambuc static char sccsid[] = "@(#)mystring.c	8.2 (Berkeley) 5/4/95";
39*d90bee97SLionel Sambuc #else
40*d90bee97SLionel Sambuc __RCSID("$NetBSD: mystring.c,v 1.17 2013/04/28 17:01:28 dholland Exp $");
41*d90bee97SLionel Sambuc #endif
42*d90bee97SLionel Sambuc #endif /* not lint */
43*d90bee97SLionel Sambuc 
44*d90bee97SLionel Sambuc /*
45*d90bee97SLionel Sambuc  * String functions.
46*d90bee97SLionel Sambuc  *
47*d90bee97SLionel Sambuc  *	equal(s1, s2)		Return true if strings are equal.
48*d90bee97SLionel Sambuc  *	scopy(from, to)		Copy a string.
49*d90bee97SLionel Sambuc  *	scopyn(from, to, n)	Like scopy, but checks for overflow.
50*d90bee97SLionel Sambuc  *	number(s)		Convert a string of digits to an integer.
51*d90bee97SLionel Sambuc  *	is_number(s)		Return true if s is a string of digits.
52*d90bee97SLionel Sambuc  */
53*d90bee97SLionel Sambuc 
54*d90bee97SLionel Sambuc #include <stdlib.h>
55*d90bee97SLionel Sambuc #include "shell.h"
56*d90bee97SLionel Sambuc #include "syntax.h"
57*d90bee97SLionel Sambuc #include "error.h"
58*d90bee97SLionel Sambuc #include "mystring.h"
59*d90bee97SLionel Sambuc 
60*d90bee97SLionel Sambuc 
61*d90bee97SLionel Sambuc const char nullstr[1];		/* zero length string */
62*d90bee97SLionel Sambuc 
63*d90bee97SLionel Sambuc /*
64*d90bee97SLionel Sambuc  * equal - #defined in mystring.h
65*d90bee97SLionel Sambuc  */
66*d90bee97SLionel Sambuc 
67*d90bee97SLionel Sambuc /*
68*d90bee97SLionel Sambuc  * scopy - #defined in mystring.h
69*d90bee97SLionel Sambuc  */
70*d90bee97SLionel Sambuc 
71*d90bee97SLionel Sambuc 
72*d90bee97SLionel Sambuc /*
73*d90bee97SLionel Sambuc  * scopyn - copy a string from "from" to "to", truncating the string
74*d90bee97SLionel Sambuc  *		if necessary.  "To" is always nul terminated, even if
75*d90bee97SLionel Sambuc  *		truncation is performed.  "Size" is the size of "to".
76*d90bee97SLionel Sambuc  */
77*d90bee97SLionel Sambuc 
78*d90bee97SLionel Sambuc void
scopyn(const char * from,char * to,int size)79*d90bee97SLionel Sambuc scopyn(const char *from, char *to, int size)
80*d90bee97SLionel Sambuc {
81*d90bee97SLionel Sambuc 
82*d90bee97SLionel Sambuc 	while (--size > 0) {
83*d90bee97SLionel Sambuc 		if ((*to++ = *from++) == '\0')
84*d90bee97SLionel Sambuc 			return;
85*d90bee97SLionel Sambuc 	}
86*d90bee97SLionel Sambuc 	*to = '\0';
87*d90bee97SLionel Sambuc }
88*d90bee97SLionel Sambuc 
89*d90bee97SLionel Sambuc 
90*d90bee97SLionel Sambuc /*
91*d90bee97SLionel Sambuc  * prefix -- see if pfx is a prefix of string.
92*d90bee97SLionel Sambuc  */
93*d90bee97SLionel Sambuc 
94*d90bee97SLionel Sambuc int
prefix(const char * pfx,const char * string)95*d90bee97SLionel Sambuc prefix(const char *pfx, const char *string)
96*d90bee97SLionel Sambuc {
97*d90bee97SLionel Sambuc 	while (*pfx) {
98*d90bee97SLionel Sambuc 		if (*pfx++ != *string++)
99*d90bee97SLionel Sambuc 			return 0;
100*d90bee97SLionel Sambuc 	}
101*d90bee97SLionel Sambuc 	return 1;
102*d90bee97SLionel Sambuc }
103*d90bee97SLionel Sambuc 
104*d90bee97SLionel Sambuc 
105*d90bee97SLionel Sambuc /*
106*d90bee97SLionel Sambuc  * Convert a string of digits to an integer, printing an error message on
107*d90bee97SLionel Sambuc  * failure.
108*d90bee97SLionel Sambuc  */
109*d90bee97SLionel Sambuc 
110*d90bee97SLionel Sambuc int
number(const char * s)111*d90bee97SLionel Sambuc number(const char *s)
112*d90bee97SLionel Sambuc {
113*d90bee97SLionel Sambuc 
114*d90bee97SLionel Sambuc 	if (! is_number(s))
115*d90bee97SLionel Sambuc 		error("Illegal number: %s", s);
116*d90bee97SLionel Sambuc 	return atoi(s);
117*d90bee97SLionel Sambuc }
118*d90bee97SLionel Sambuc 
119*d90bee97SLionel Sambuc 
120*d90bee97SLionel Sambuc 
121*d90bee97SLionel Sambuc /*
122*d90bee97SLionel Sambuc  * Check for a valid number.  This should be elsewhere.
123*d90bee97SLionel Sambuc  */
124*d90bee97SLionel Sambuc 
125*d90bee97SLionel Sambuc int
is_number(const char * p)126*d90bee97SLionel Sambuc is_number(const char *p)
127*d90bee97SLionel Sambuc {
128*d90bee97SLionel Sambuc 	do {
129*d90bee97SLionel Sambuc 		if (! is_digit(*p))
130*d90bee97SLionel Sambuc 			return 0;
131*d90bee97SLionel Sambuc 	} while (*++p != '\0');
132*d90bee97SLionel Sambuc 	return 1;
133*d90bee97SLionel Sambuc }
134