#module ckvold "1.0-007"

/* C K V O L D  --  C-Kermit file system support for VAX/VMS V4.  */

/* Edit history
 * 001 22-Jan-91 wb  Initial version with memcpy, memmove
 * 002 24-Apr-91 wb  Added memset
 * 003 01-Jul-91 wb  Added strstr
 * 004 26-Nov-91 wb  Added system
 * 006 10-Nov-96 lh  All needed w/ VAXCRTL 4-009 (VMS 4.4)
 *                   Only strstr needed w/ VAXCRTL 4-013 (VMS 4.6)
 * 007 05-Sep-99 wb  Added fmod
 */


char *strstr(a, b)
const char *a;
const char *b;
{
	int len;

	if (!a || !b) return((char *)0);
	if (!*b) return(a);
	len = strlen(b);
	while (*a) {
		if (!strncmp(a, b, len)) return(a);
		a++;
	}
	return((char *)0);
}

#ifndef VMS_V46
void *memcpy(d, s, n)
void *d, *s;
register int n;
{
    register char *ss = (char *)s, *dd = (char *)d;
    while (n-- > 0)
	*dd++ = *ss++;
    return d;
}

void *memmove(d, s, n)
void *d;
const void *s;
register int n;
{
    register char *dd = (char *)d, *ss = (char *)s;
    if (dd < ss || dd - ss >= n) {
	while (n-- > 0)
	    *dd++ = *ss++;
    } else if (n > 0) {
	dd += n;
	ss += n;
	while (n-- > 0)
	    *--dd = *--ss;
    }
    return d;
}

void *memset(d, c, n)
void *d;
register int c;
register int n;
{
    register char *dd = (char *)d;
    while (n-- > 0)
	*dd++ = c;
    return d;
}

int system(s)
char *s;
{
	while (*s == ' ' || *s == '$') s++;
	zsyscmd(s);
	return(1);
}

double fmod(x, y)
double x, y;
{
	int a;
	if (x == 0 || y == 0) {
		a = x;
	} else if ((x > 0 && y > 0) || (x < 0 && y < 0)) {
		a = x - y*floor(x/y);
	} else {
		a = x - y*ceil(x/y);
	}
	return a;
}
#endif /* ! VMS_V46 */