home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume12 / hershtools / part05 / dif-eplot.c < prev    next >
Encoding:
Text File  |  1987-10-24  |  1.1 KB  |  41 lines
  1. *** eplot.c    Mon Oct 12 03:08:16 1987
  2. --- ../eplot.c    Mon Oct 12 01:51:48 1987
  3. ***************
  4. *** 106,112
  5.           if (!(svpt = cindex[sletter])) continue;
  6.           /*if (kbhit()) return;*/
  7.   
  8. !         if (sletter < ' ') fprintf(obuf, "^%c': ", sletter);
  9.           else fprintf(obuf, "'%c': ", sletter);
  10.   
  11.           while (!(dspc(store[svpt], store[svpt+1]))) svpt +=2;
  12.  
  13. --- 106,113 -----
  14.           if (!(svpt = cindex[sletter])) continue;
  15.           /*if (kbhit()) return;*/
  16.   
  17. !         if (sletter < ' ') fprintf(obuf, "^%c': ", sletter+64);
  18. !         else if (sletter >= 127) fprintf(obuf, "\\%o: ", sletter);
  19.           else fprintf(obuf, "'%c': ", sletter);
  20.   
  21.           while (!(dspc(store[svpt], store[svpt+1]))) svpt +=2;
  22. ***************
  23. *** 726,731
  24.   
  25.       if (sscanf(ins + itempt, "^%c':", &letter))
  26.       {    match(':');    letter &=  0x1F; return(2); }
  27.   
  28.       if (sscanf(ins + itempt, "Bounds(%d,%d)", &co1, &co2))
  29.       {    match(')');    return(65); }
  30.  
  31. --- 727,735 -----
  32.   
  33.       if (sscanf(ins + itempt, "^%c':", &letter))
  34.       {    match(':');    letter &=  0x1F; return(2); }
  35. + 
  36. +     if (sscanf(ins + itempt, "\\%o:", &letter))
  37. +     {    match(':');    return(2); }
  38.   
  39.       if (sscanf(ins + itempt, "Bounds(%d,%d)", &co1, &co2))
  40.       {    match(')');    return(65); }
  41.