xref: /original-bsd/usr.bin/pascal/libpc/RELSGT.c (revision c3e32dec)
1 /*-
2  * Copyright (c) 1979, 1993
3  *	The Regents of the University of California.  All rights reserved.
4  *
5  * %sccs.include.redist.c%
6  */
7 
8 #ifndef lint
9 static char sccsid[] = "@(#)RELSGT.c	8.1 (Berkeley) 06/06/93";
10 #endif /* not lint */
11 
12 #include "h00vars.h"
13 
14 bool
15 RELSGT(siz, str1, str2)
16 
17 	long		siz;
18 	register char	*str1;
19 	register char	*str2;
20 {
21 	register int size = siz;
22 
23 	while (*str1++ == *str2++ && --size)
24 		/* void */;
25 	if ((size == 0) || (*--str1 <= *--str2))
26 		return FALSE;
27 	return TRUE;
28 }
29