date and time created 80/10/30 00:35:04 by mckusick

SCCS-vsn: usr.bin/pascal/libpc/RELSLT.c 1.1

diff --git a/usr/src/usr.bin/pascal/libpc/RELSLT.c b/usr/src/usr.bin/pascal/libpc/RELSLT.c
new file mode 100644 (file)
index 0000000..43b115a
--- /dev/null
+++ b/usr/src/usr.bin/pascal/libpc/RELSLT.c
@@ -0,0 +1,18 @@
+/* Copyright (c) 1979 Regents of the University of California */
+
+static char sccsid[] = "@(#)RELSLT.c 1.1 %G%";
+
+#include "h00vars.h"
+
+RELSLT(size, str1, str2)
+
+       register int    size;
+       register char   *str1;
+       register char   *str2;
+{
+       while (*str1++ == *str2++ && --size)
+               /* void */;
+       if ((size == 0) || (*--str1 >= *--str2))
+               return FALSE;
+       return TRUE;
+}