home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / cmd / sh / print.c < prev    next >
Encoding:
C/C++ Source or Header  |  1979-01-12  |  1.1 KB  |  98 lines
  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.  
  98.