Warning: Attempt to read property "date" on null in /usr/local/www/websvn.planix.org/blame.php on line 247

Warning: Attempt to read property "msg" on null in /usr/local/www/websvn.planix.org/blame.php on line 247
WebSVN – planix.SVN – Blame – /os/branches/feature_fixcpp/sys/src/cmd/tbl/ts.c – Rev 2

Subversion Repositories planix.SVN

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 1 
/* ts.c: minor string processing subroutines */
2 
#include "t.h"
3 
 
4 
int
5 
match (char *s1, char *s2)
6 
{
7 
	while (*s1 == *s2)
8 
		if (*s1++ == '\0')
9 
			return(1);
10 
		else
11 
			s2++;
12 
	return(0);
13 
}
14 
 
15 
 
16 
int
17 
prefix(char *small, char *big)
18 
{
19 
	int	c;
20 
 
21 
	while ((c = *small++) == *big++)
22 
		if (c == 0)
23 
			return(1);
24 
	return(c == 0);
25 
}
26 
 
27 
 
28 
int
29 
letter (int ch)
30 
{
31 
	if (ch >= 'a' && ch <= 'z')
32 
		return(1);
33 
	if (ch >= 'A' && ch <= 'Z')
34 
		return(1);
35 
	return(0);
36 
}
37 
 
38 
 
39 
int
40 
numb(char *str)
41 
{
42 
				/* convert to integer */
43 
	int	k;
44 
	for (k = 0; *str >= '0' && *str <= '9'; str++)
45 
		k = k * 10 + *str - '0';
46 
	return(k);
47 
}
48 
 
49 
 
50 
int
51 
digit(int x)
52 
{
53 
	return(x >= '0' && x <= '9');
54 
}
55 
 
56 
 
57 
int
58 
max(int a, int b)
59 
{
60 
	return( a > b ? a : b);
61 
}
62 
 
63 
 
64 
void
65 
tcopy (char *s, char *t)
66 
{
67 
	while (*s++ = *t++)
68 
		;
69 
}
70 
 
71