home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / cmd / cb.c < prev    next >
Encoding:
C/C++ Source or Header  |  1979-01-19  |  5.9 KB  |  365 lines
  1. #include <stdio.h>
  2. int    slevel[10];
  3. int    clevel    = 0;
  4. int    spflg[20][10];
  5. int    sind[20][10];
  6. int    siflev[10];
  7. int    sifflg[10];
  8. int    iflev    = 0;
  9. int    ifflg    = -1;
  10. int    level    = 0;
  11. int    ind[10]    = {
  12.     0,0,0,0,0,0,0,0,0,0 };
  13. int    eflg    = 0;
  14. int    paren    = 0;
  15. int    pflg[10] = {
  16.     0,0,0,0,0,0,0,0,0,0 };
  17. char    lchar;
  18. char    pchar;
  19. int    aflg    = 0;
  20. int    ct;
  21. int    stabs[20][10];
  22. int    qflg    = 0;
  23. char    *wif[] = {
  24.     "if",0};
  25. char    *welse[] = {
  26.     "else",0};
  27. char    *wfor[] = {
  28.     "for",0};
  29. char    *wds[] = {
  30.     "case","default",0};
  31. int    j    = 0;
  32. char    string[200];
  33. char    cc;
  34. int    sflg    = 1;
  35. int    peek    = -1;
  36. int    tabs    = 0;
  37. int    lastchar;
  38. int    c;
  39. main(argc,argv) int argc;
  40. char argv[];
  41. {
  42.     while((c = getch()) != EOF){
  43.         switch(c){
  44.         case ' ':
  45.         case '\t':
  46.             if(lookup(welse) == 1){
  47.                 gotelse();
  48.                 if(sflg == 0 || j > 0)string[j++] = c;
  49.                 puts();
  50.                 sflg = 0;
  51.                 if(getnl() == 1){
  52.                     puts();
  53.                     printf("\n");
  54.                     sflg = 1;
  55.                     pflg[level]++;
  56.                     tabs++;
  57.                 }
  58.                 continue;
  59.             }
  60.             if(sflg == 0 || j > 0)string[j++] = c;
  61.             continue;
  62.         case '\n':
  63.             if((eflg = lookup(welse)) == 1)gotelse();
  64.             puts();
  65.             printf("\n");
  66.             sflg = 1;
  67.             if(eflg == 1){
  68.                 pflg[level]++;
  69.                 tabs++;
  70.             }
  71.             else
  72.                 if(pchar == lchar)
  73.                     aflg = 1;
  74.             continue;
  75.         case '{':
  76.             if(lookup(welse) == 1)gotelse();
  77.             siflev[clevel] = iflev;
  78.             sifflg[clevel] = ifflg;
  79.             iflev = ifflg = 0;
  80.             clevel++;
  81.             if(sflg == 1 && pflg[level] != 0){
  82.                 pflg[level]--;
  83.                 tabs--;
  84.             }
  85.             string[j++] = c;
  86.             puts();
  87.             getnl();
  88.             puts();
  89.             printf("\n");
  90.             tabs++;
  91.             sflg = 1;
  92.             if(pflg[level] > 0){
  93.                 ind[level] = 1;
  94.                 level++;
  95.                 slevel[level] = clevel;
  96.             }
  97.             continue;
  98.         case '}':
  99.             clevel--;
  100.             if((iflev = siflev[clevel]-1) < 0)iflev = 0;
  101.             ifflg = sifflg[clevel];
  102.             if(pflg[level] >0 && ind[level] == 0){
  103.                 tabs -= pflg[level];
  104.                 pflg[level] = 0;
  105.             }
  106.             puts();
  107.             tabs--;
  108.             ptabs();
  109.             if((peek = getch()) == ';'){
  110.                 printf("%c;",c);
  111.                 peek = -1;
  112.             }
  113.             else printf("%c",c);
  114.             getnl();
  115.             puts();
  116.             printf("\n");
  117.             sflg = 1;
  118.             if(clevel < slevel[level])if(level > 0)level--;
  119.             if(ind[level] != 0){
  120.                 tabs -= pflg[level];
  121.                 pflg[level] = 0;
  122.                 ind[level] = 0;
  123.             }
  124.             continue;
  125.         case '"':
  126.         case '\'':
  127.             string[j++] = c;
  128.             while((cc = getch()) != c){
  129.                 string[j++] = cc;
  130.                 if(cc == '\\'){
  131.                     string[j++] = getch();
  132.                 }
  133.                 if(cc == '\n'){
  134.                     puts();
  135.                     sflg = 1;
  136.                 }
  137.             }
  138.             string[j++] = cc;
  139.             if(getnl() == 1){
  140.                 lchar = cc;
  141.                 peek = '\n';
  142.             }
  143.             continue;
  144.         case ';':
  145.             string[j++] = c;
  146.             puts();
  147.             if(pflg[level] > 0 && ind[level] == 0){
  148.                 tabs -= pflg[level];
  149.                 pflg[level] = 0;
  150.             }
  151.             getnl();
  152.             puts();
  153.             printf("\n");
  154.             sflg = 1;
  155.             if(iflev > 0)
  156.                 if(ifflg == 1){iflev--;
  157.                     ifflg = 0;
  158.                 }
  159.                 else iflev = 0;
  160.             continue;
  161.         case '\\':
  162.             string[j++] = c;
  163.             string[j++] = getch();
  164.             continue;
  165.         case '?':
  166.             qflg = 1;
  167.             string[j++] = c;
  168.             continue;
  169.         case ':':
  170.             string[j++] = c;
  171.             if(qflg == 1){
  172.                 qflg = 0;
  173.                 continue;
  174.             }
  175.             if(lookup(wds) == 0){
  176.                 sflg = 0;
  177.                 puts();
  178.             }
  179.             else{
  180.                 tabs--;
  181.                 puts();
  182.                 tabs++;
  183.             }
  184.             if((peek = getch()) == ';'){
  185.                 printf(";");
  186.                 peek = -1;
  187.             }
  188.             getnl();
  189.             puts();
  190.             printf("\n");
  191.             sflg = 1;
  192.             continue;
  193.         case '/':
  194.             string[j++] = c;
  195.             if((peek = getch()) != '*')continue;
  196.             string[j++] = peek;
  197.             peek = -1;
  198.             comment();
  199.             continue;
  200.         case ')':
  201.             paren--;
  202.             string[j++] = c;
  203.             puts();
  204.             if(getnl() == 1){
  205.                 peek = '\n';
  206.                 if(paren != 0)aflg = 1;
  207.                 else if(tabs > 0){
  208.                     pflg[level]++;
  209.                     tabs++;
  210.                     ind[level] = 0;
  211.                 }
  212.             }
  213.             continue;
  214.         case '#':
  215.             string[j++] = c;
  216.             while((cc = getch()) != '\n')string[j++] = cc;
  217.             string[j++] = cc;
  218.             sflg = 0;
  219.             puts();
  220.             sflg = 1;
  221.             continue;
  222.         case '(':
  223.             string[j++] = c;
  224.             paren++;
  225.             if(lookup(wfor) == 1){
  226.                 while((c = gets()) != ';');
  227.                 ct=0;
  228. cont:
  229.                 while((c = gets()) != ')'){
  230.                     if(c == '(') ct++;
  231.                 }
  232.                 if(ct != 0){
  233.                     ct--;
  234.                     goto cont;
  235.                 }
  236.                 paren--;
  237.                 puts();
  238.                 if(getnl() == 1){
  239.                     peek = '\n';
  240.                     pflg[level]++;
  241.                     tabs++;
  242.                     ind[level] = 0;
  243.                 }
  244.                 continue;
  245.             }
  246.             if(lookup(wif) == 1){
  247.                 puts();
  248.                 stabs[clevel][iflev] = tabs;
  249.                 spflg[clevel][iflev] = pflg[level];
  250.                 sind[clevel][iflev] = ind[level];
  251.                 iflev++;
  252.                 ifflg = 1;
  253.             }
  254.             continue;
  255.         default:
  256.             string[j++] = c;
  257.             if(c != ',')lchar = c;
  258.         }
  259.     }
  260. }
  261. ptabs(){
  262.     int i;
  263.     for(i=0; i < tabs; i++)printf("\t");
  264. }
  265. getch(){
  266.     if(peek < 0 && lastchar != ' ' && lastchar != '\t')pchar = lastchar;
  267.     lastchar = (peek<0) ? getc(stdin):peek;
  268.     peek = -1;
  269.     return(lastchar);
  270. }
  271. puts(){
  272.     if(j > 0){
  273.         if(sflg != 0){
  274.             ptabs();
  275.             sflg = 0;
  276.             if(aflg == 1){
  277.                 aflg = 0;
  278.                 if(tabs > 0)printf("    ");
  279.             }
  280.         }
  281.         string[j] = '\0';
  282.         printf("%s",string);
  283.         j = 0;
  284.     }
  285.     else{
  286.         if(sflg != 0){
  287.             sflg = 0;
  288.             aflg = 0;
  289.         }
  290.     }
  291. }
  292. lookup(tab)
  293. char *tab[];
  294. {
  295.     char r;
  296.     int l,kk,k,i;
  297.     if(j < 1)return(0);
  298.     kk=0;
  299.     while(string[kk] == ' ')kk++;
  300.     for(i=0; tab[i] != 0; i++){
  301.         l=0;
  302.         for(k=kk;(r = tab[i][l++]) == string[k] && r != '\0';k++);
  303.         if(r == '\0' && (string[k] < 'a' || string[k] > 'z' || k >= j))return(1);
  304.     }
  305.     return(0);
  306. }
  307. gets(){
  308.     char ch;
  309. beg:
  310.     if((ch = string[j++] = getch()) == '\\'){
  311.         string[j++] = getch();
  312.         goto beg;
  313.     }
  314.     if(ch == '\'' || ch == '"'){
  315.         while((cc = string[j++] = getch()) != ch)if(cc == '\\')string[j++] = getch();
  316.         goto beg;
  317.     }
  318.     if(ch == '\n'){
  319.         puts();
  320.         aflg = 1;
  321.         goto beg;
  322.     }
  323.     else return(ch);
  324. }
  325. gotelse(){
  326.     tabs = stabs[clevel][iflev];
  327.     pflg[level] = spflg[clevel][iflev];
  328.     ind[level] = sind[clevel][iflev];
  329.     ifflg = 1;
  330. }
  331. getnl(){
  332.     while((peek = getch()) == '\t' || peek == ' '){
  333.         string[j++] = peek;
  334.         peek = -1;
  335.     }
  336.     if((peek = getch()) == '/'){
  337.         peek = -1;
  338.         if((peek = getch()) == '*'){
  339.             string[j++] = '/';
  340.             string[j++] = '*';
  341.             peek = -1;
  342.             comment();
  343.         }
  344.         else string[j++] = '/';
  345.     }
  346.     if((peek = getch()) == '\n'){
  347.         peek = -1;
  348.         return(1);
  349.     }
  350.     return(0);
  351. }
  352. comment(){
  353. rep:
  354.     while((c = string[j++] = getch()) != '*')
  355.         if(c == '\n'){
  356.             puts();
  357.             sflg = 1;
  358.         }
  359. gotstar:
  360.     if((c = string[j++] = getch()) != '/'){
  361.         if(c == '*')goto gotstar;
  362.         goto rep;
  363.     }
  364. }
  365.