home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume8 / se / part03 / scriptse.c < prev    next >
Encoding:
C/C++ Source or Header  |  1987-01-25  |  824 b   |  56 lines
  1. #ifndef lint
  2. static char RCSid[] = "$Header: scriptse.c,v 1.1 86/05/06 13:38:32 osadr Exp $";
  3. #endif
  4.  
  5. /*
  6.  * $Log:    scriptse.c,v $
  7.  * Revision 1.1  86/05/06  13:38:32  osadr
  8.  * Initial revision
  9.  * 
  10.  * 
  11.  */
  12.  
  13. /*
  14. ** scriptse.c
  15. **
  16. ** turn input into a form se
  17. ** can use as a script.
  18. **
  19. ** This is very quick-and-dirty, not checking
  20. ** for any of se's control characters.
  21. */
  22.  
  23. #include <stdio.h>
  24.  
  25. main (argc, argv)
  26. int argc;
  27. char **argv;
  28. {
  29.     register int c;
  30.     register int dflag = 0;
  31.  
  32.     if (argc > 1)
  33.         if (strcmp (argv[1], "-d") == 0)
  34.             dflag = 1;
  35.         else
  36.         {
  37.             fprintf (stderr, "usage: %s [-d] < file > newfile\n",
  38.                 argv[0]);
  39.             exit (1);
  40.         }
  41.  
  42.     while ((c = getchar()) != EOF)
  43.     {
  44.         if (c != '\n')        /* most frequent case */
  45.             putchar (c);
  46.         else
  47.         {
  48.             putchar ('\r');
  49.             if (! dflag)
  50.                 putchar ('\177');
  51.         }
  52.     }
  53.     
  54.     exit (0);
  55. }
  56.