1 /* $MirOS: src/usr.bin/oldroff/tbl/ts.c,v 1.3 2008/11/08 23:04:54 tg Exp $ */
2
3 /*-
4 * Copyright (c) 1979, 1980, 1981, 1986, 1988, 1990, 1991, 1992
5 * The Regents of the University of California.
6 * Copyright (C) Caldera International Inc. 2001-2002.
7 * Copyright (c) 2003, 2004
8 * Thorsten "mirabilos" Glaser <tg@mirbsd.org>
9 * All rights reserved.
10 *
11 * Redistribution and use in source and binary forms,
12 * with or without modification, are permitted provided
13 * that the following conditions are met:
14 *
15 * Redistributions of source code and documentation must retain
16 * the above copyright notice, this list of conditions and the
17 * following disclaimer. Redistributions in binary form must
18 * reproduce the above copyright notice, this list of conditions
19 * and the following disclaimer in the documentation and/or other
20 * materials provided with the distribution.
21 *
22 * All advertising materials mentioning features or use of this
23 * software must display the following acknowledgement:
24 * This product includes software developed or owned by
25 * Caldera International, Inc.
26 *
27 * Neither the name of Caldera International, Inc. nor the names
28 * of other contributors may be used to endorse or promote products
29 * derived from this software without specific prior written permission.
30 *
31 * USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
32 * INTERNATIONAL, INC. AND CONTRIBUTORS "AS IS" AND ANY EXPRESS
33 * OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
34 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
35 * ARE DISCLAIMED. IN NO EVENT SHALL CALDERA INTERNATIONAL, INC. BE
36 * LIABLE FOR ANY DIRECT, INDIRECT INCIDENTAL, SPECIAL, EXEMPLARY, OR
37 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
38 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
39 * BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
40 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
41 * OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
42 * EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
43 */
44
45 #include <sys/cdefs.h>
46 __SCCSID("@(#)ts.c 4.3 (Berkeley) 4/18/91");
47 __RCSID("$MirOS: src/usr.bin/oldroff/tbl/ts.c,v 1.3 2008/11/08 23:04:54 tg Exp $");
48
49 /* ts.c: minor string processing subroutines */
50
match(s1,s2)51 match (s1, s2)
52 char *s1, *s2;
53 {
54 while (*s1 == *s2)
55 if (*s1++ == '\0')
56 return(1);
57 else
58 s2++;
59 return(0);
60 }
prefix(small,big)61 prefix(small, big)
62 char *small, *big;
63 {
64 int c;
65 while ((c= *small++) == *big++)
66 if (c==0) return(1);
67 return(c==0);
68 }
letter(ch)69 letter (ch)
70 {
71 if (ch >= 'a' && ch <= 'z')
72 return(1);
73 if (ch >= 'A' && ch <= 'Z')
74 return(1);
75 return(0);
76 }
numb(str)77 numb(str)
78 char *str;
79 {
80 /* convert to integer */
81 int k;
82 for (k=0; *str >= '0' && *str <= '9'; str++)
83 k = k*10 + *str - '0';
84 return(k);
85 }
digit(x)86 digit(x)
87 {
88 return(x>= '0' && x<= '9');
89 }
max(a,b)90 max(a,b)
91 {
92 return( a>b ? a : b);
93 }
tcopy(s,t)94 tcopy (s,t)
95 char *s, *t;
96 {
97 while (*s++ = *t++);
98 }
99