home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / D / CLISP / CLISPSRC.TAR / clisp-1995-01-01 / atari / crlf-to-nl.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-07-23  |  517 b   |  25 lines
  1. /* Konversionsprogramm CR/LF -> NL */
  2. /* Bruno Haible 17.1.1991 */
  3.  
  4. #include <stdio.h>
  5.  
  6. #define CR 13
  7. #define LF 10
  8. #define NL 10
  9. main ()
  10.   { int c;
  11.     loop:
  12.       c = getchar(); if (c==EOF) goto eof;
  13.       if (c==CR)
  14.         { c = getchar(); if (c==EOF) { putchar(CR); goto eof; }
  15.           if (!(c==LF)) { putchar(CR); putchar(c); }
  16.              else { putchar(NL); }
  17.         }
  18.         else
  19.         { putchar(c); }
  20.       goto loop;
  21.     eof: ;
  22.     if (ferror(stdin) || ferror(stdout)) { exit(1); }
  23.     exit(0);
  24.   }
  25.