date and time created 88/07/21 17:34:09 by marc

SCCS-vsn: local/toolchest/ksh/sh/print.c 1.1

diff --git a/usr/src/local/toolchest/ksh/sh/print.c b/usr/src/local/toolchest/ksh/sh/print.c
new file mode 100644 (file)
index 0000000..8482b26
--- /dev/null
+++ b/usr/src/local/toolchest/ksh/sh/print.c
@@ -0,0 +1,274 @@
+/*
+
+ *      Copyright (c) 1984, 1985, 1986 AT&T
+ *      All Rights Reserved
+
+ *      THIS IS UNPUBLISHED PROPRIETARY SOURCE 
+ *      CODE OF AT&T.
+ *      The copyright notice above does not 
+ *      evidence any actual or intended
+ *      publication of such source code.
+
+ */
+/* @(#)print.c 1.1 */
+/*
+ * UNIX shell
+ *
+ * S. R. Bourne
+ * Rewritten by David Korn
+ * AT&T Bell Laboratories
+ *
+ */
+
+#include       "flags.h"
+#include       "defs.h"
+#include       "io.h"
+#include       "shtype.h"
+#ifndef BSD
+# ifdef XENIX
+# include      <sys/types.h>
+# endif /* XENIX */
+#include       <sys/param.h>
+#endif /* BSD */
+#include       "name.h"
+#include       "builtins.h"
+
+/* This module defines the following routines */
+void   p_flush();
+void   p_list();
+void   p_nchr();
+void   p_num();
+void   p_prp();
+void   p_setout();
+void   p_str();
+void   p_sub();
+void   p_time();
+
+/* This module references the following externals */
+extern char    *itos();
+extern char    *qvalup();
+extern void    rjust();
+extern void    setbuf();
+extern char    *strcpy();
+
+/* printing and io conversion */
+#ifdef BSD
+#define TIC_SEC                60      /* number of ticks per second */
+#else
+#define TIC_SEC                HZ      /* number of ticks per second */
+#endif /* BSD */
+
+
+/*
+ *  flush the output queue and reset the output stream
+ */
+
+void   p_setout(fd)
+register FILE *fd;
+{
+       if(output==fd)
+               return;
+       p_flush();
+       output = fd;
+       setbuf(fd,(char*)_sobuf);
+}
+
+/*
+ * flush the output if necessary and null terminate the buffer
+ */
+
+void p_flush()
+{
+       register FILE *oldfd = output;
+       register char *cp;
+       if(oldfd)
+       {
+               if((cp=(char*)(oldfd->_ptr)) > (char*)(oldfd->_base))
+               {
+                       fflush(oldfd);
+                       /* leave the previous buffer as a null terminated string */
+               }
+               if(cp)
+                       *cp = 0;
+       }
+}
+
+/*
+ * print a message preceded by the command name
+ */
+
+void p_prp(s1,ch)
+char *s1;
+{
+       register unsigned char *cp;
+       register int c;
+       register FILE *fd = output;
+       if(cp=(unsigned char *)cmdadr)
+       {
+               if(*cp=='-')
+                       cp++;
+               c = ((cmdline>1&&ch!=SP)?0:':');
+               p_str(cp,c);
+               if(c==0)
+                       p_sub(cmdline,':');
+               putc(SP,fd);
+       }
+       for(cp=(unsigned char *)s1;c= *cp;cp++)
+       {
+               if(!isprint(c))
+               {
+                       putc(HAT,fd);
+                       c ^= TO_PRINT;
+               }
+               putc(c,fd);
+       }
+       if(ch)
+               putc(ch,fd);
+}
+
+/*
+ * print a time and a separator 
+ */
+
+void   p_time(t,c)
+long int  t;
+char c;
+{
+       register int  min, sec, frac;
+       register int hr;
+       frac = t%TIC_SEC;
+       frac = (frac*100)/TIC_SEC;
+       t /= TIC_SEC;
+       sec=t%60; t /= 60;
+       min=t%60;
+       if(hr=t/60)
+       {
+               p_num(hr,'h');
+       }
+       p_num(min,'m');
+       p_num(sec,'.');
+       if(frac<10)
+               putc('0',output);
+       p_num(frac,'s');
+       putc(c,output);
+}
+
+/*
+ * print a number optionally followed by a character
+ */
+
+void   p_num(n,c)
+int    n;
+char c;
+{
+       p_str(itos(n),c);
+}
+
+/*
+ * print a string optionally followed by a character
+ */
+
+void   p_str(string,c)
+register char *string;
+register int c;
+{
+       register FILE *fd = output;
+       fputs(string,fd);
+       if(c)
+               putc(c,fd);
+}
+
+/*
+ * print a given character a given number of times
+ */
+
+void   p_nchr(c,n)
+register int c,n;
+{
+       register FILE *fd = output;
+       while(n-- > 0)
+               putc(c,fd);
+}
+
+/* 
+ * print a list of arguments in columns
+ */
+#define NROW   15      /* number of rows in output before going to multi-columns */
+#define LBLSIZ 3       /* size of label field and interfield spacing */
+
+void   p_list(argn,com)
+char *com[];
+{
+       register int i,j;
+       register char **arg;
+       char a1[12];
+       int nrow = NROW;
+       int ncol = 1;
+       int ndigits = 1;
+       int fldsize;
+#if ESH || VSH
+       int wsize = e_window();
+#else
+       int wsize = 80;
+#endif
+       char *cp = qvalup(LINES);
+       nrow = (cp?1+2*(atoi(cp)/3):NROW);
+       for(i=argn;i >= 10;i /= 10)
+               ndigits++;
+       if(argn < nrow)
+       {
+               nrow = argn;
+               goto skip;
+       }
+       i = 0;
+       for(arg=com; *arg;arg++)
+       {
+               i = max(i,strlen(*arg));
+       }
+       i += (ndigits+LBLSIZ);
+       if(i < wsize)
+               ncol = wsize/i;
+       if(argn > nrow*ncol)
+       {
+               nrow = 1 + (argn-1)/ncol;
+       }
+       else
+       {
+               ncol = 1 + (argn-1)/nrow;
+               nrow = 1 + (argn-1)/ncol;
+       }
+skip:
+       fldsize = (wsize/ncol)-(ndigits+LBLSIZ);
+       for(i=0;i<nrow;i++)
+       {
+               j = i;
+               while(1)
+               {
+                       arg = com+j;
+                       strcpy(a1,itos(j+1));
+                       rjust(a1,ndigits,' ');
+                       p_str(a1,')');
+                       putc(SP,output);
+                       fputs(*arg,output);
+                       j += nrow;
+                       if(j >= argn)
+                               break;
+                       p_nchr(SP,fldsize-strlen(*arg));
+               }
+               newline();
+       }
+}
+
+/*
+ * Print a number enclosed in [] followed by a character
+ */
+
+void   p_sub(n,c)
+register int n;
+register int c;
+{
+       register FILE *fd=output;
+       putc('[',fd);
+       p_num(n,']');
+       putc(c,fd);
+}