Return to span.c CVS log

Up to [MW Coherent from dump] / coherent / g / usr / lib / misc

coherent

/*
 * One or more characters matching some criterion.
 * span(s1, matcher, fin)
 */
#include <stdio.h>
char *
span(s1, matcher, fin)
register char *s1;
int (*matcher)();
register char **fin;
{
	char c;
	char *start = s1;

	for (*fin = NULL; (c = *s1++) && (*matcher)(c); *fin = s1)
		;
	if (NULL == *fin)
		return (NULL);
	return (start);
}
#ifdef TEST
#include <ctype.h>
#include "local_misc.h"

/* eliminate under ansi */
digit(s)
char s;
{
	return (isdigit(s));
}

main()
{
	char s1[80], *fin;

	for (;;) {
		ask(s1, "s1");
		if (!strcmp(s1, "quit"))
			exit(0);
		if (NULL == span(s1, digit, &fin))
			printf("No digits\n");
		else {
			*fin = '\0';
			printf("%s\n", s1);
		}
	}
}
#endif

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.