Return to print.c CVS log

Up to [CSRG BSD Unix] / 3BSD / cmd / sh

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

1.1       root        1: #
                      2: /*
                      3:  * UNIX shell
                      4:  *
                      5:  * S. R. Bourne
                      6:  * Bell Telephone Laboratories
                      7:  *
                      8:  */
                      9: 
                     10: #include       "defs.h"
                     11: 
                     12: CHAR           numbuf[6];
                     13: 
                     14: 
                     15: /* printing and io conversion */
                     16: 
                     17: newline()
                     18: {      prc(NL);
                     19: }
                     20: 
                     21: blank()
                     22: {      prc(SP);
                     23: }
                     24: 
                     25: prp()
                     26: {
                     27:        IF (flags&prompt)==0 ANDF cmdadr
                     28:        THEN    prs(cmdadr); prs(colon);
                     29:        FI
                     30: }
                     31: 
                     32: VOID   prs(as)
                     33:        STRING          as;
                     34: {
                     35:        REG STRING      s;
                     36: 
                     37:        IF s=as
                     38:        THEN    write(output,s,length(s)-1);
                     39:        FI
                     40: }
                     41: 
                     42: VOID   prc(c)
                     43:        CHAR            c;
                     44: {
                     45:        IF c
                     46:        THEN    write(output,&c,1);
                     47:        FI
                     48: }
                     49: 
                     50: prt(t)
                     51:        L_INT           t;
                     52: {
                     53:        REG INT hr, min, sec;
                     54: 
                     55:        t += 30; t /= 60;
                     56:        sec=t%60; t /= 60;
                     57:        min=t%60;
                     58:        IF hr=t/60
                     59:        THEN    prn(hr); prc('h');
                     60:        FI
                     61:        prn(min); prc('m');
                     62:        prn(sec); prc('s');
                     63: }
                     64: 
                     65: prn(n)
                     66:        INT             n;
                     67: {
                     68:        itos(n); prs(numbuf);
                     69: }
                     70: 
                     71: itos(n)
                     72: {
                     73:        REG char *abuf; REG POS a, i; INT pr, d;
                     74:        abuf=numbuf; pr=FALSE; a=n;
                     75:        FOR i=10000; i!=1; i/=10
                     76:        DO      IF (pr |= (d=a/i)) THEN *abuf++=d+'0' FI
                     77:                a %= i;
                     78:        OD
                     79:        *abuf++=a+'0';
                     80:        *abuf++=0;
                     81: }
                     82: 
                     83: stoi(icp)
                     84: STRING icp;
                     85: {
                     86:        REG CHAR        *cp = icp;
                     87:        REG INT         r = 0;
                     88:        REG CHAR        c;
                     89: 
                     90:        WHILE (c = *cp, digit(c)) ANDF c ANDF r>=0
                     91:        DO r = r*10 + c - '0'; cp++ OD
                     92:        IF r<0 ORF cp==icp
                     93:        THEN    failed(icp,badnum);
                     94:        ELSE    return(r);
                     95:        FI
                     96: }
                     97: 

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