Upload

Digital Research

CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v102a/alclib/putchar.c

@@ -0,0 +1,54 @@
+
+/*
+	Copyright 1983
+	Alcyon Corporation
+	8716 Production Ave.
+	San Diego, CA  92121
+
+	@(#) putchar.c - Sep 12, 1983  REGULUS 4.1
+*/
+
+/* version 6 putchar library routine */
+
+#define BSIZE 512
+
+struct iob {
+	int fd;		/* file descriptor */
+	int cc;		/* char count */
+	char *cp;	/* prt to next char */
+	char cbuf[BSIZE];	/* char buffer */
+} fout = {0,BSIZE,&fout.cbuf[0]};
+
+putchar(cc)
+char cc;
+{
+	if (fout.fd <= 1) {
+		if (write(1,&cc,1) != 1)
+			return(-1);
+		return(cc);
+	}
+
+	/* buffered output */
+	if (fout.cc <= 0) {
+		fout.cp = &(fout.cbuf[0]);
+		if (write(fout.fd,fout.cp,BSIZE) != BSIZE)
+			return(-1);
+		fout.cc = BSIZE;
+	}
+	*(fout.cp)++ = cc;
+	fout.cc--;
+	return(cc);
+}
+
+flush()
+{
+	register i;
+
+	i = BSIZE - fout.cc;
+	fout.cc = BSIZE;
+	fout.cp = &(fout.cbuf[0]);
+	if (write(fout.fd,fout.cp,i) != i)
+		return(-1);
+	return(0);
+}
+