From f29a2ef27612e6c74968bf1d76e1bebefb11024c Mon Sep 17 00:00:00 2001
From: hades <hades>
Date: Thu, 18 May 2000 21:29:46 +0000
Subject: [PATCH] Put into hwtapechar.[ch].

---
 hadaq/hwtapeansichar.c | 165 -----------------------------------------
 hadaq/hwtapeansichar.h |   7 --
 hadaq/hwtapeunixchar.c |  22 ------
 hadaq/hwtapeunixchar.h |   7 --
 4 files changed, 201 deletions(-)
 delete mode 100644 hadaq/hwtapeansichar.c
 delete mode 100644 hadaq/hwtapeansichar.h
 delete mode 100644 hadaq/hwtapeunixchar.c
 delete mode 100644 hadaq/hwtapeunixchar.h

diff --git a/hadaq/hwtapeansichar.c b/hadaq/hwtapeansichar.c
deleted file mode 100644
index 59b81fb..0000000
--- a/hadaq/hwtapeansichar.c
+++ /dev/null
@@ -1,165 +0,0 @@
-#include "hwtapeansichar.h"
-
-const char *ansichar(const char *s, int length) {
-	char *r;
-	int i, end;
-	end = 0;
-	*r = *s;
-	for(i=0 ; i<length ; i++) {
-		if (end == 0) {
-			switch (s[i]) {
-				case ('A'):
-				case ('B'):
-				case ('C'):
-				case ('D'):
-				case ('E'):
-				case ('F'):
-				case ('G'):
-				case ('H'):
-				case ('I'):
-				case ('J'):
-				case ('K'):
-				case ('L'):
-				case ('M'):
-				case ('N'):
-				case ('O'):
-				case ('P'):
-				case ('Q'):
-				case ('R'):
-				case ('S'):
-				case ('T'):
-				case ('U'):
-				case ('V'):
-				case ('W'):
-				case ('X'):
-				case ('Y'):
-				case ('Z'):
-	
-				case ('0'):
-				case ('1'):
-				case ('2'):
-				case ('3'):
-				case ('4'):
-				case ('5'):
-				case ('6'):
-				case ('7'):
-				case ('8'):
-				case ('9'):
-	
-				case (' '):
-				case ('!'):
-				case ('"'):
-				case ('%'):
-				case ('&'):
-				case ('\''):
-				case ('('):
-				case (')'):
-				case ('*'):
-				case ('+'):
-				case (','):
-				case ('-'):
-				case ('_'):
-				case ('.'):
-				case ('/'):
-				case (':'):
-				case (';'):
-				case ('<'):
-				case ('='):
-				case ('>'):
-				case ('?'):
-					break;
-				case ('a'):
-					r[i] = 'A';
-					break;
-				case ('b'):
-					r[i] = 'B';
-					break;
-				case ('c'):
-					r[i] = 'C';
-					break;
-				case ('d'):
-					r[i] = 'D';
-					break;
-				case ('e'):
-					r[i] = 'E';
-					break;
-				case ('f'):
-					r[i] = 'F';
-					break;
-				case ('g'):
-					r[i] = 'G';
-					break;
-				case ('h'):
-					r[i] = 'H';
-					break;
-				case ('i'):
-					r[i] = 'I';
-					break;
-				case ('j'):
-					r[i] = 'J';
-					break;
-				case ('k'):
-					r[i] = 'K';
-					break;
-				case ('l'):
-					r[i] = 'L';
-					break;
-				case ('m'):
-					r[i] = 'M';
-					break;
-				case ('n'):
-					r[i] = 'N';
-					break;
-				case ('o'):
-					r[i] = 'O';
-					break;
-				case ('p'):
-					r[i] = 'P';
-					break;
-				case ('q'):
-					r[i] = 'Q';
-					break;
-				case ('r'):
-					r[i] = 'R';
-					break;
-				case ('s'):
-					r[i] = 'S';
-					break;
-				case ('t'):
-					r[i] = 'T';
-					break;
-				case ('u'):
-					r[i] = 'U';
-					break;
-				case ('v'):
-					r[i] = 'V';
-					break;
-				case ('w'):
-					r[i] = 'W';
-					break;
-				case ('x'):
-					r[i] = 'X';
-					break;
-				case ('y'):
-					r[i] = 'Y';
-					break;
-				case ('z'):
-					r[i] = 'Z';
-					break;
-				case ('\0'):
-					r[i] = ' ';
-					end = 1;
-					break;
-				default:
-					r[i] = 'Z';
-					break;
-			}
-		} else {
-			r[i] = ' ';
-		}
-	}
-	r[length] = '\0';
-
-	return r;
-}
-
diff --git a/hadaq/hwtapeansichar.h b/hadaq/hwtapeansichar.h
deleted file mode 100644
index b013ad4..0000000
--- a/hadaq/hwtapeansichar.h
+++ /dev/null
@@ -1,7 +0,0 @@
-#ifndef HWTAPEANSICHAR_H
-#define HWTAPEANSICHAR_H
-
-const char *ansichar(const char *, int);
-
-#endif
-
diff --git a/hadaq/hwtapeunixchar.c b/hadaq/hwtapeunixchar.c
deleted file mode 100644
index 01ae504..0000000
--- a/hadaq/hwtapeunixchar.c
+++ /dev/null
@@ -1,22 +0,0 @@
-#include "hwtapeunixchar.h"
-
-const char *unixchar(const char *s, int length) {
-	char *r;
-	int i, end;
-	*r = *s;
-	end = 0;
-	for(i=0 ; i<length ; i++) {
-		if (end == 0) {
-			if(s[i] == '\0') {
-				r[i] = ' ';
-				end = 1;
-			}
-		} else {
-			r[i] = ' ';
-		}
-	}
-	r[length] = '\0';
-
-	return r;
-}
-
diff --git a/hadaq/hwtapeunixchar.h b/hadaq/hwtapeunixchar.h
deleted file mode 100644
index 264f376..0000000
--- a/hadaq/hwtapeunixchar.h
+++ /dev/null
@@ -1,7 +0,0 @@
-#ifndef HWTAPEUNIXCHAR_H
-#define HWTAPEUNIXCHAR_H
-
-const char *unixchar(const char *, int);
-
-#endif
-
-- 
2.43.0