home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 September / Simtel20_Sept92.cdr / msdos / c / cc02.arc / ENTAB.C < prev    next >
Text File  |  1985-08-28  |  3KB  |  80 lines
  1. /* ------------------------------------------- */
  2. /*     ENTAB - Convert blanks to tabs          */
  3. /*             Adapted from Software Tools     */
  4. /*             By Kernighan and Plauger        */
  5. /*                                             */
  6. /*             written by Michael Burton       */
  7. /*             Last Update: 14 Jan 1984       */
  8. /* ------------------------------------------- */
  9. /*     USAGE:                                  */
  10. /*             ENTAB FROMFILE TOFILE N         */
  11. /*               N is the number of columns    */
  12. /*                 between tab stops           */
  13. /* ------------------------------------------- */
  14. #include "stdio.h"
  15.  
  16. main(argc,argv)
  17.        int argc;
  18.        char *argv[];
  19. {
  20.        static int col = 1, n, *fd, *td, newcol;
  21.        static char c, *sp;
  22.  
  23.        if (argc != 4)
  24.        {
  25.                fputs("Usage: ENTAB FROMFILE TOFILE N\007\n",stdout);
  26.                return;
  27.        }
  28.        sp = argv[1];
  29.        while ((*sp = toupper(*sp)) != EOS) sp++;
  30.        sp = argv[2];
  31.        while ((*sp = toupper(*sp)) != EOS) sp++;
  32.        if ((fd = fopen(argv[1],"r")) == 0)
  33.        {
  34.                fputs(argv[1],stdout);
  35.                fputs(" not found\007\n",stdout);
  36.                return;
  37.        }
  38.        if ((td = fopen(argv[2],"w")) == 0)
  39.        {
  40.                fputs("Unable to open ",stdout);
  41.                fputs(argv[2],stdout);
  42.                fputs("\007\n",stdout);
  43.                return;
  44.        }
  45.        n = atoi(argv[3]);
  46.        if (n < 1 || n > 32) fputs("Tabs < 1 or > 32\007\n",stdout);
  47.  
  48.        while(1)
  49.        {
  50.                newcol = col;
  51.                while ((c = fgetc(fd)) == ' ')
  52.                {
  53.                        newcol++;
  54.                        if ((newcol % n) == 0)
  55.                        {
  56.                                fputc('\t',td);
  57.                                col = newcol;
  58.                        }
  59.                }
  60.                for (; col < newcol; col++) fputc(' ',td);
  61.                if (c == EOF) return;
  62.                fputc(c,td);
  63.                switch(c)
  64.                {
  65.                        case '\n':
  66.                                col = 1;
  67.                                break;
  68.                        case '\t':
  69.                                col += n-(col % n);
  70.                                break;
  71.                        default:
  72.                                col++;
  73.                }
  74.        }
  75.        fflush(fd);
  76.        fflush(td);
  77.        fclose(fd);
  78.        fclose(td);
  79. }
  80.