From c3f352d4ad515968c54d216a0e53252eff8ab3ef Mon Sep 17 00:00:00 2001
From: peter <peter@FreeBSD.org>
Date: Sat, 30 Dec 1995 19:02:48 +0000
Subject: This commit was generated by cvs2svn to compensate for changes in
 r13122, which included commits to RCS files with non-trunk default branches.

---
 lib/libF77/s_catow.c | 69 ----------------------------------------------------
 1 file changed, 69 deletions(-)
 delete mode 100644 lib/libF77/s_catow.c

(limited to 'lib/libF77')

diff --git a/lib/libF77/s_catow.c b/lib/libF77/s_catow.c
deleted file mode 100644
index 6dd641c..0000000
--- a/lib/libF77/s_catow.c
+++ /dev/null
@@ -1,69 +0,0 @@
-/* Variant of s_cat that allows the target of a concatenation to */
-/* appear on its right-hand side (contrary to the Fortran 77 Standard). */
-
-#include "f2c.h"
-#undef abs
-#ifdef KR_headers
- extern char *malloc();
- extern void free();
-#else
-#include "stdlib.h"
-#endif
-#include "string.h"
-
- static VOID
-#ifdef KR_headers
-s_cat0(lp, rpp, rnp, n, ll) char *lp, *rpp[]; ftnlen rnp[], n, ll;
-#else
-s_cat0(char *lp, char *rpp[], ftnlen rnp[], ftnlen n, ftnlen ll)
-#endif
-{
-	ftnlen i, nc;
-	char *rp;
-
-	for(i = 0 ; i < n ; ++i) {
-		nc = ll;
-		if(rnp[i] < nc)
-			nc = rnp[i];
-		ll -= nc;
-		rp = rpp[i];
-		while(--nc >= 0)
-			*lp++ = *rp++;
-		}
-	while(--ll >= 0)
-		*lp++ = ' ';
-	}
-
- VOID
-#ifdef KR_headers
-s_cat(lp, rpp, rnp, np, ll) char *lp, *rpp[]; ftnlen rnp[], *np, ll;
-#else
-s_cat(char *lp, char *rpp[], ftnlen rnp[], ftnlen *np, ftnlen ll)
-#endif
-{
-	ftnlen i, L, m, n;
-	char *lpe, *rp;
-
-	n = *np;
-	lpe = lp;
-	L = ll;
-	i = 0;
-	while(i < n) {
-		rp = rpp[i];
-		m = rnp[i++];
-		if (rp >= lpe || rp + m <= lp) {
-			if ((L -= m) <= 0) {
-				n = i;
-				break;
-				}
-			lpe += m;
-			continue;
-			}
-		lpe = malloc(ll);
-		s_cat0(lpe, rpp, rnp, n, ll);
-		memcpy(lp, lpe, ll);
-		free(lpe);
-		return;
-		}
-	s_cat0(lp, rpp, rnp, n, ll);
-	}
-- 
cgit v1.1