www.pudn.com > CRGAB.zip > RETABF.C

/* 
	HEADER:		CUG236; 
	TITLE:		Entab/Detab/Strip Combo -- Filter Version; 
	DATE:		05/25/1987; 
	DESCRIPTION:	"Strips upper-order bits, detabifies, then entabifies a 
			text file.  Old and new tab increments can differ.  If 
			new increment is 1, no entabification occurs."; 
	VERSION:	0.0; 
	KEYWORDS:	Tab, Tabs, Tab Expansion, Tab Utility, Tabify, Untab, 
			Detab, Detab Utility; 
	FILENAME:	RETABF.C; 
	COMPILERS:	vanilla; 
	AUTHORS:	W. C. Colley III; 
*/ 
 
/* 
			 Tab Size Readjustment Program 
 
		   Copyright (c) 1987 William C. Colley, III 
 
This program combines the functions of an ENTAB program and a DETAB program 
in the same program.  Combining the two allows a simple means of retabifying 
a program.  For example, let's say you edit a C program with your editor set 
for a tab increment of 4.  Now, you TYPE this file on the console and you find 
that it laps over the right edge of the screen because your terminal expands 
tabs with a tab increment of 8.	 What you really would like to do is delete 
some of the tabs so that your program will TYPE just like it looked inside the 
editor.	 The following command will do just that: 
 
	RETABF -O4 -N8 newfile 
 
In the above command line, the parameters can appear in any order.  The - 
options are optional.  Their default values are set by a pair of #defines 
below.	The -O option specifies the tab increment that the old file was 
created with.  The -N option specifies the desired tab increment of the new 
file. 
 
Note that or -N1 causes no entabification.  Thus, the following command will 
detabify a file: 
 
	RETABF -O8 -N1 newfile 
 
Also note that if the old file contains no tabs, there will be no 
detabification.	 Thus, the following command will entabify a detabified file: 
 
	RETAB -N8 newfile 
 
Blanks and tabs in quoted strings are left alone.  The C conventions regarding 
character constants like '"' and character strings like "Here\'s a \"quote\"." 
are supported. 
*/ 
 
#include  
 
/*  User-adjustable default values:					    */ 
 
#define OLDTABS	    4	    /*	Default old tab increment.		    */ 
#define NEWTABS	    8	    /*	Default new tab increment.		    */ 
 
#define NORMAL	    0	    /*	Normal state.				    */ 
#define QUOTE	    1	    /*	Quoted string skip state.		    */ 
#define BLANK	    2	    /*	Blank parsing state.			    */ 
 
int main(argc,argv) 
int argc; 
char **argv; 
{ 
    int del, i, j, atoi(); 
    static int err = 0, oldtabs = OLDTABS, newtabs = NEWTABS; 
    static int blnks = 0, col = 0, lit = 0, state = NORMAL; 
 
    while (--argc) { 
	if (**++argv == '-') { 
	    switch (i = *(*argv + 1)) { 
		case 'n': 
		case 'N':   if ((i = atoi(*argv + 2)) < 1) { 
				fprintf(stderr, 
				    "ERROR:  New tab increment < 1\n\n"); 
				err = !0; 
			    } 
			    else newtabs = i; 
			    break; 
 
		case 'o': 
		case 'O':   if ((i = atoi(*argv + 2)) < 1) { 
				fprintf(stderr, 
				    "ERROR:  Old tab increment < 1\n\n"); 
				err = !0; 
			    } 
			    else oldtabs = i; 
			    break; 
 
		default:    fprintf(stderr, 
				"ERROR:  Illegal option %s\n\n",*argv); 
			    err = !0;  break; 
	    } 
	} 
	else { 
	    fprintf(stderr,"ERROR:  Illegal parameter %s\n\n",*argv); 
	    err = !0; 
	} 
    } 
    if (err) { 
	fprintf(stderr,"Usage:\tRETABF { -Onn } { -Nnn } oldfile newfile\n\n"); 
	err = !0; 
    } 
    else { 
	while ((i = getchar()) != EOF) { 
	    i &= 0177; 
	    switch (state) { 
		case NORMAL:	switch (i) { 
				    case '\n':	col = 0;  putchar('\n'); 
						break; 
 
				    case '\t':	blnks = oldtabs - 
						    col % oldtabs; 
						state = BLANK;	break; 
 
				    case ' ':	blnks = 1;  state = BLANK; 
						break; 
 
				    case '\'':	del = '\'';  goto quote1; 
 
				    case '"':	del = '"'; 
quote1:						if (!lit) state = QUOTE; 
 
				    default:	++col;	putchar(i);  break; 
				} 
				break; 
 
		case QUOTE:	switch (i) { 
				    case '\n':	if (!lit) state = NORMAL; 
						col = 0;  break; 
 
				    case '\t':	col += newtabs - 
						    col % newtabs; 
						break; 
 
				    case '\'': 
				    case '"':	if (!lit && i == del) 
						    state = NORMAL; 
 
				    default:	++col;	break; 
				} 
				putchar(i);  break; 
 
		case BLANK:	switch (i) { 
				    case '\t':	blnks += oldtabs - (col + 
						    blnks) % oldtabs; 
						break; 
 
				    case ' ':	++blnks;  break; 
 
				    case '"':	del = '"';  goto quote2; 
 
				    case '\'':	del = '\''; 
quote2:						state = QUOTE;	goto entab; 
 
				    default:	state = NORMAL; 
entab:						if (blnks > 1 && 
						    newtabs > 1) 
						    while ((j = newtabs - 
							col % newtabs) 
							<= blnks) { 
							col += j; 
							blnks -= j; 
							putchar('\t'); 
						    } 
						for (; blnks; --blnks) { 
						    ++col;  putchar(' '); 
						} 
						if (i == '\n') col = 0; 
						else ++col; 
						putchar(i);  break; 
				} 
				break; 
	    } 
	    lit = !lit && i == '\\'; 
	} 
    } 
    return err; 
}