/*
	strfname.l
*/

/*
#f strfname.h
#end
*/

--
#define NULL 0

-strext.c
char *strext( char *b, char *s, char *e ){

	char *d;
	d = b;
	while( *s != '.' && *s != NULL ) {
		*d++ = *s++;
	}
	*d++ = '.';
	while( *e != NULL ){
		*d++ = *e++;
	}
	*d = NULL;
	return b;
}