Return to sh.print.c CVS log

Up to [CSRG BSD Unix] / 41BSD / cmd / csh

Annotation of 41BSD/cmd/csh/sh.print.c, revision 1.1.1.1

1.1       root        1: static char *sccsid = "@(#)sh.print.c 4.1 10/9/80";
                      2: 
                      3: #include "sh.h"
                      4: 
                      5: /*
                      6:  * C Shell
                      7:  */
                      8: 
                      9: p60ths(l)
                     10:        long l;
                     11: {
                     12: 
                     13:        l += 3;
                     14:        printf("%d.%d", (int) (l / 60), (int) ((l % 60) / 6));
                     15: }
                     16: 
                     17: psecs(l)
                     18:        long l;
                     19: {
                     20:        register int i;
                     21: 
                     22:        i = l / 3600;
                     23:        if (i) {
                     24:                printf("%d:", i);
                     25:                i = l % 3600;
                     26:                p2dig(i / 60);
                     27:                goto minsec;
                     28:        }
                     29:        i = l;
                     30:        printf("%d", i / 60);
                     31: minsec:
                     32:        i %= 60;
                     33:        printf(":");
                     34:        p2dig(i);
                     35: }
                     36: 
                     37: p2dig(i)
                     38:        register int i;
                     39: {
                     40: 
                     41:        printf("%d%d", i / 10, i % 10);
                     42: }
                     43: 
                     44: char   linbuf[128];
                     45: char   *linp = linbuf;
                     46: 
                     47: putchar(c)
                     48:        register int c;
                     49: {
                     50: 
                     51:        if ((c & QUOTE) == 0 && (c == 0177 || c < ' ' && c != '\t' && c != '\n')) {
                     52:                putchar('^');
                     53:                if (c == 0177)
                     54:                        c = '?';
                     55:                else
                     56:                        c |= 'A' - 1;
                     57:        }
                     58:        c &= TRIM;
                     59:        *linp++ = c;
                     60:        if (c == '\n' || linp >= &linbuf[sizeof linbuf - 2])
                     61:                flush();
                     62: }
                     63: 
                     64: draino()
                     65: {
                     66: 
                     67:        linp = linbuf;
                     68: }
                     69: 
                     70: flush()
                     71: {
                     72:        register int unit;
                     73:        int lmode = 0;
                     74: 
                     75: #include <sys/ioctl.h>
                     76: 
                     77:        if (linp == linbuf)
                     78:                return;
                     79:        if (haderr)
                     80:                unit = didfds ? 2 : SHDIAG;
                     81:        else
                     82:                unit = didfds ? 1 : SHOUT;
                     83: #ifdef TIOCLGET
                     84:        if (didfds==0 && ioctl(unit, TIOCLGET, &lmode)==0 &&
                     85:            lmode & LFLUSHO) {
                     86:                lmode = LFLUSHO;
                     87:                ioctl(unit, TIOCLBIC, &lmode);
                     88:                write(unit, "\n", 1);
                     89:        }
                     90: #endif
                     91:        write(unit, linbuf, linp - linbuf);
                     92:        linp = linbuf;
                     93: }
                     94: 
                     95: plist(vp)
                     96:        register struct varent *vp;
                     97: {
                     98: 
                     99:        if (setintr)
                    100:                sigrelse(SIGINT);
                    101:        for (vp = vp->link; vp != 0; vp = vp->link) {
                    102:                int len = blklen(vp->vec);
                    103: 
                    104:                printf(vp->name);
                    105:                printf("\t");
                    106:                if (len != 1)
                    107:                        putchar('(');
                    108:                blkpr(vp->vec);
                    109:                if (len != 1)
                    110:                        putchar(')');
                    111:                printf("\n");
                    112:        }
                    113:        if (setintr)
                    114:                sigrelse(SIGINT);
                    115: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.