home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / D / CLISP / CLISPSRC.TAR / clisp-1995-01-01 / utils / deema.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-07-23  |  445 b   |  22 lines
  1. /* C-Programm-PrΣprozessor-Hilfe:
  2.    Fⁿgt _EMA_ in leere Macro-Argumente ein.
  3.    ─quivalent zu  sed -e 's/,)/,_EMA_)/g'
  4.    Bruno Haible 29.12.1993
  5. */
  6.  
  7. #include <stdio.h>
  8.  
  9. main ()
  10.   { int c;
  11.     int c1 = -1;
  12.     while (1)
  13.       { c = getchar(); if (c==EOF) break;
  14.         if ((c == ')') && (c1 == ',')) { fputs("_EMA_",stdout); }
  15.         putchar(c);
  16.         c1 = c;
  17.       }
  18.     if (ferror(stdin) || ferror(stdout)) { exit(1); }
  19.     exit(0);
  20.   }
  21.  
  22.