home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / rat / r2.c < prev    next >
Encoding:
C/C++ Source or Header  |  1975-05-13  |  1.6 KB  |  125 lines
  1. #include "r.h"
  2.  
  3. char    outbuf[80];
  4. int    outp    0;
  5. int    cont    0;
  6.  
  7. outcode(p) char *p; {
  8.     int i,j,c,c1;
  9.     char *q;
  10.     if( p == 0 ){
  11.         outbuf[outp] = '\0';
  12.         printf("%s\n", outbuf);
  13.         outp = cont = 0;
  14.         return;
  15.     }
  16.     while( (c = *p++) ){
  17.         c1 = *p;
  18.         switch(c){
  19.  
  20.         case '"':
  21.         case '\'':
  22.             for( q=p; *q != c; q++ );
  23.             outnum(q-p);
  24.             ptc('h');
  25.             while( p != q )
  26.                 ptc(*p++);
  27.             p++;
  28.             break;
  29.         case '>':
  30.             if( c1=='=' ){
  31.                 pts(".ge."); p++;
  32.             } else
  33.                 pts(".gt.");
  34.             break;
  35.         case '<':
  36.             if( c1=='=' ){
  37.                 pts(".le."); p++;
  38.             } else if( c1=='>' ){
  39.                 pts(".ne."); p++;
  40.             } else
  41.                 pts(".lt.");
  42.             break;
  43.         case '=':
  44.             if( c1=='=' ){
  45.                 pts(".eq."); p++;
  46.             } else
  47.                 ptc('=');
  48.             break;
  49.         case '!':
  50.             if( c1=='=' ){
  51.                 pts(".ne."); p++;
  52.             } else
  53.                 pts(".not.");
  54.             break;
  55.         case '&':
  56.             if( c1=='&' )
  57.                 p++;
  58.             pts(".and.");
  59.             break;
  60.         case '|':
  61.             if( c1=='|' )
  62.                 p++;
  63.             pts(".or.");
  64.             break;
  65.         case '\t':
  66.             tabs();
  67.             break;
  68.         case '\n':
  69.             ptc(' ');
  70.             break;
  71.         default:
  72.             ptc(c);
  73.             break;
  74.         }
  75.     }
  76. }
  77.  
  78. ptc(c) char c; {
  79.     if( outp > 71 )
  80.         contcard();
  81.     outbuf[outp++] = c;
  82. }
  83.  
  84. pts(s) char *s; {
  85.     while(*s)
  86.         ptc(*s++);
  87. }
  88.  
  89. int    contfld    0;
  90.  
  91. contcard(){
  92.     outbuf[outp] = '\0';
  93.     printf("%s\n", outbuf);
  94.     for( outp=0; outp<contfld-1; outbuf[outp++] = ' ' );
  95.     outbuf[outp++] = '&';
  96. }
  97.  
  98. tabs(){
  99.     ptc(' ');
  100.     while( outp<7 )
  101.         ptc(' ');
  102.     while( outp%3 != 1)
  103.         ptc(' ');
  104. }
  105.  
  106. outnum(n) int n; {
  107.     int a;
  108.     if( a = n/10 )
  109.         outnum(a);
  110.     ptc(n%10 + '0');
  111. }
  112.  
  113. outcont(n) int n; {
  114.     if( n > 0 )
  115.         outnum(n);
  116.     outcode("\tcontinue");
  117.     outcode(0);
  118. }
  119.  
  120. outgoto(n) int n; {
  121.     outcode("\tgoto ");
  122.     outnum(n);
  123.     outcode(0);
  124. }
  125.