[unix-history] / .ref-BSD-1 / ex-1.1 / ex_subr.c

#
/*
 * Ex - a text editor
 * Bill Joy UCB September 1977
 */

#include "ex.h"

skipwh()
{
	register int wh;

	wh = 0;
	while (white(peekchar())) {
		wh++;
		getchar();
	}
	return (wh);
}


strcmp(left, right)
	register char *left, *right;
{

	while (*left == *right++)
		if (*left++ == 0)
			return (0);
	return (*left - *--right);
}

letter(c)
	register int c;
{

	if (c >= 'a' && c <= 'z')
		return (c);
	if (c >= 'A' && c <= 'Z')
		return (c + 'a' - 'A');
	return (0);
}

strlen(cp)
	register char *cp;
{
	register int i;

	i = 0;
	while (*cp++)
		i++;
	return (i);
}

white(c)
	char c;
{

	return (c == ' ' || c == '\t');
}

digit(c)
	char c;
{
	return (c >= '0' && c <= '9');
}

ucletter(c)
	char c;
{
	return (c >= 'A' && c <= 'Z');
}
Commit	Line	Data
d43bb1bf BJ	1	#
	2	/*
	3	* Ex - a text editor
	4	* Bill Joy UCB September 1977
	5	*/
	6
	7	#include "ex.h"
	8
	9	skipwh()
	10	{
	11	register int wh;
	12
	13	wh = 0;
	14	while (white(peekchar())) {
	15	wh++;
	16	getchar();
	17	}
	18	return (wh);
	19	}
	20
	21
	22	strcmp(left, right)
	23	register char left, right;
	24	{
	25
	26	while (left == right++)
	27	if (*left++ == 0)
	28	return (0);
	29	return (left - --right);
	30	}
	31
	32	letter(c)
	33	register int c;
	34	{
	35
	36	if (c >= 'a' && c <= 'z')
	37	return (c);
	38	if (c >= 'A' && c <= 'Z')
	39	return (c + 'a' - 'A');
	40	return (0);
	41	}
	42
	43	strlen(cp)
	44	register char *cp;
	45	{
	46	register int i;
	47
	48	i = 0;
	49	while (*cp++)
	50	i++;
	51	return (i);
	52	}
	53
	54	white(c)
	55	char c;
	56	{
	57
	58	return (c == ' ' \|\| c == '\t');
	59	}
	60
	61	digit(c)
	62	char c;
	63	{
	64	return (c >= '0' && c <= '9');
65	}
66
67	ucletter(c)
68	char c;
69	{
70	return (c >= 'A' && c <= 'Z');
71	}