xref: /original-bsd/usr.bin/pascal/libpc/RELSGT.c (revision 762f7e24)
1ab0b9960Sbostic /*-
2*762f7e24Sbostic  * Copyright (c) 1979, 1993
3*762f7e24Sbostic  *	The Regents of the University of California.  All rights reserved.
4ab0b9960Sbostic  *
5ab0b9960Sbostic  * %sccs.include.redist.c%
6ab0b9960Sbostic  */
73bcf97d3Smckusick 
8ab0b9960Sbostic #ifndef lint
9*762f7e24Sbostic static char sccsid[] = "@(#)RELSGT.c	8.1 (Berkeley) 06/06/93";
10ab0b9960Sbostic #endif /* not lint */
113bcf97d3Smckusick 
123bcf97d3Smckusick #include "h00vars.h"
133bcf97d3Smckusick 
14eddaccd6Smckusic bool
RELSGT(siz,str1,str2)15eddaccd6Smckusic RELSGT(siz, str1, str2)
163bcf97d3Smckusick 
17eddaccd6Smckusic 	long		siz;
183bcf97d3Smckusick 	register char	*str1;
193bcf97d3Smckusick 	register char	*str2;
203bcf97d3Smckusick {
21eddaccd6Smckusic 	register int size = siz;
22eddaccd6Smckusic 
233bcf97d3Smckusick 	while (*str1++ == *str2++ && --size)
243bcf97d3Smckusick 		/* void */;
253bcf97d3Smckusick 	if ((size == 0) || (*--str1 <= *--str2))
263bcf97d3Smckusick 		return FALSE;
273bcf97d3Smckusick 	return TRUE;
283bcf97d3Smckusick }
29