xref: /original-bsd/usr.bin/pascal/libpc/RELSLE.c (revision aba77441)
1 /* Copyright (c) 1979 Regents of the University of California */
2 
3 static char sccsid[] = "@(#)RELSLE.c 1.2 03/07/81";
4 
5 #include "h00vars.h"
6 
7 bool
8 RELSLE(siz, str1, str2)
9 
10 	long		siz;
11 	register char	*str1;
12 	register char	*str2;
13 {
14 	register int size = siz;
15 
16 	while (*str1++ == *str2++ && --size)
17 		/* void */;
18 	if ((size == 0) || (*--str1 <= *--str2))
19 		return TRUE;
20 	return FALSE;
21 }
22