From 566d54fe549286895fdef8aa9f385686405dd290 Mon Sep 17 00:00:00 2001
From: Nicholas Noll <nbnoll@eml.cc>
Date: Wed, 13 Oct 2021 16:46:20 -0700
Subject: RM(rc): old code. too many assumptions baked in

---
 sys/cmd/rc/io.c | 263 --------------------------------------------------------
 1 file changed, 263 deletions(-)
 delete mode 100644 sys/cmd/rc/io.c

(limited to 'sys/cmd/rc/io.c')

diff --git a/sys/cmd/rc/io.c b/sys/cmd/rc/io.c
deleted file mode 100644
index c06137c..0000000
--- a/sys/cmd/rc/io.c
+++ /dev/null
@@ -1,263 +0,0 @@
-#include <limits.h>
-#include "rc.h"
-#include "exec.h"
-#include "io.h"
-#include "fns.h"
-
-Io *err;
-int pfmtnest = 0;
-
-void
-pfmt(Io *f, char *fmt, ...)
-{
-	va_list ap;
-	char err[ERRMAX];
-	va_start(ap, fmt);
-	pfmtnest++;
-	for(;*fmt;fmt++)
-		if(*fmt!='%')
-			pchr(f, *fmt);
-		else switch(*++fmt){
-		case '\0':
-			va_end(ap);
-			return;
-		case 'c':
-			pchr(f, va_arg(ap, int));
-			break;
-		case 'd':
-			pdec(f, va_arg(ap, int));
-			break;
-		case 'o':
-			poct(f, va_arg(ap, unsigned));
-			break;
-		case 'p':
-			pptr(f, va_arg(ap, void*));
-			break;
-		case 'Q':
-			pquo(f, va_arg(ap, char *));
-			break;
-		case 'q':
-			pwrd(f, va_arg(ap, char *));
-			break;
-		case 'r':
-			rerrstr(err, sizeof err); pstr(f, err);
-			break;
-		case 's':
-			pstr(f, va_arg(ap, char *));
-			break;
-		case 't':
-			pcmd(f, va_arg(ap, struct Tree *));
-			break;
-		case 'v':
-			pval(f, va_arg(ap, struct Word *));
-			break;
-		default:
-			pchr(f, *fmt);
-			break;
-		}
-	va_end(ap);
-	if(--pfmtnest==0)
-		flush(f);
-}
-
-void
-pchr(Io *b, int c)
-{
-	if(b->bufp==b->ebuf)
-		fullbuf(b, c);
-	else *b->bufp++=c;
-}
-
-int
-rchr(Io *b)
-{
-	if(b->bufp==b->ebuf)
-		return emptybuf(b);
-	return *b->bufp++ & 0xFF;
-}
-
-void
-pquo(Io *f, char *s)
-{
-	pchr(f, '\'');
-	for(;*s;s++)
-		if(*s=='\'')
-			pfmt(f, "''");
-		else pchr(f, *s);
-	pchr(f, '\'');
-}
-
-void
-pwrd(Io *f, char *s)
-{
-	char *t;
-	for(t = s;*t;t++) if(!wordchr(*t)) break;
-	if(t==s || *t)
-		pquo(f, s);
-	else pstr(f, s);
-}
-
-void
-pptr(Io *f, void *v)
-{
-	int n;
-	uintptr p;
-
-	p = (uintptr)v;
-	if(sizeof(uintptr) == sizeof(uvlong) && p>>32)
-		for(n = 60;n>=32;n-=4) pchr(f, "0123456789ABCDEF"[(p>>n)&0xF]);
-
-	for(n = 28;n>=0;n-=4) pchr(f, "0123456789ABCDEF"[(p>>n)&0xF]);
-}
-
-void
-pstr(Io *f, char *s)
-{
-	if(s==0)
-		s="(null)";
-	while(*s) pchr(f, *s++);
-}
-
-void
-pdec(Io *f, int n)
-{
-	if(n<0){
-		if(n!=INT_MIN){
-			pchr(f, '-');
-			pdec(f, -n);
-			return;
-		}
-		/* n is two's complement minimum integer */
-		n = -(INT_MIN+1);
-		pchr(f, '-');
-		pdec(f, n/10);
-		pchr(f, n%10+'1');
-		return;
-	}
-	if(n>9)
-		pdec(f, n/10);
-	pchr(f, n%10+'0');
-}
-
-void
-poct(Io *f, unsigned n)
-{
-	if(n>7)
-		poct(f, n>>3);
-	pchr(f, (n&7)+'0');
-}
-
-void
-pval(Io *f, Word *a)
-{
-	if(a){
-		while(a->next && a->next->word){
-			pwrd(f, a->word);
-			pchr(f, ' ');
-			a = a->next;
-		}
-		pwrd(f, a->word);
-	}
-}
-
-int
-fullbuf(Io *f, int c)
-{
-	flush(f);
-	return *f->bufp++=c;
-}
-
-void
-flush(Io *f)
-{
-	int n;
-	char *s;
-	if(f->strp){
-		n = f->ebuf-f->strp;
-		f->strp = realloc(f->strp, n+101);
-		if(f->strp==0)
-			panic("Can't realloc %d bytes in flush!", n+101);
-		f->bufp = f->strp+n;
-		f->ebuf = f->bufp+100;
-		for(s = f->bufp;s<=f->ebuf;s++) *s='\0';
-	}
-	else{
-		n = f->bufp-f->buf;
-		if(n && Write(f->fd, f->buf, n) < 0){
-			Write(3, "Write error\n", 12);
-			if(ntrap)
-				dotrap();
-		}
-		f->bufp = f->buf;
-		f->ebuf = f->buf+NBUF;
-	}
-}
-
-Io*
-openfd(int fd)
-{
-	Io *f = new(struct Io);
-	f->fd = fd;
-	f->bufp = f->ebuf = f->buf;
-	f->strp = 0;
-	return f;
-}
-
-Io*
-openstr(void)
-{
-	Io *f = new(struct Io);
-	char *s;
-	f->fd=-1;
-	f->bufp = f->strp = emalloc(101);
-	f->ebuf = f->bufp+100;
-	for(s = f->bufp;s<=f->ebuf;s++) *s='\0';
-	return f;
-}
-/*
- * Open a corebuffer to read.  EOF occurs after reading len
- * characters from buf.
- */
-
-Io*
-opencore(char *s, int len)
-{
-	Io *f = new(struct Io);
-	char *buf = emalloc(len);
-	f->fd= -1 /*open("/dev/null", 0)*/;
-	f->bufp = f->strp = buf;
-	f->ebuf = buf+len;
-	Memcpy(buf, s, len);
-	return f;
-}
-
-void
-iorewind(Io *io)
-{
-	if(io->fd==-1)
-		io->bufp = io->strp;
-	else{
-		io->bufp = io->ebuf = io->buf;
-		Seek(io->fd, 0L, 0);
-	}
-}
-
-void
-closeio(Io *io)
-{
-	if(io->fd>=0)
-		close(io->fd);
-	if(io->strp)
-		efree(io->strp);
-	efree((char *)io);
-}
-
-int
-emptybuf(Io *f)
-{
-	int n;
-	if(f->fd==-1 || (n = Read(f->fd, f->buf, NBUF))<=0) return EOF;
-	f->bufp = f->buf;
-	f->ebuf = f->buf+n;
-	return *f->bufp++&0xff;
-}
-- 
cgit v1.2.1