diff options
Diffstat (limited to 'ifdef.c')
| -rw-r--r-- | ifdef.c | 357 |
1 files changed, 357 insertions, 0 deletions
@@ -0,0 +1,357 @@ +/* (C) 1992,1996 R de Bath */ + +#include <stdio.h> +#include <ctype.h> + +struct varrec +{ + struct varrec * next; + int state; + char name[1]; +} + *varlist = 0; + +int cuttype = 0; /* 0 = use blank lines */ + /* 1 = use #lines */ + /* 2 = use '# 'oldtext */ + /* 3 = delete unused lines */ + +char linebuf[2048]; + +char * filename; +int lineno; +int prline; +FILE * fd; + +int iflevel = 0; +int keeptext = 1; +int unknown_stat = 0; + +char * commentstr = "#"; + +char names[16][32]; +char state[16]; + +main(argc, argv) +int argc; +char ** argv; +{ + int ar; + char * ptr; + + if( argc <= 1 ) Usage(argv[0]); + + for(ar=1; ar<argc; ar++) if( argv[ar][0] == '-' ) + { + if( argv[ar][1] == 'D' || argv[ar][1] == 'U' ) + { + if( argv[ar][2] ) + save_name(argv[ar]+2, argv[ar][1]); + else + unknown_stat = argv[ar][1]; + } + else if( argv[ar][1] == 'C' ) + { + cuttype = 2; + if( argv[ar][2] ) commentstr = argv[ar]+2; + } + else for(ptr=argv[ar]+1; *ptr; ptr++) switch(*ptr) + { + case 'b': cuttype = 0; break; + case 'l': cuttype = 1; break; + case 'C': + case 'c': cuttype = 2; break; + case 'r': cuttype = 3; break; + + case 'M': manifest_constant(); break; + case 'D': unknown_stat = 'D'; break; + case 'U': unknown_stat = 'U'; break; + + default: Usage(argv[0]); + } + } + else + { + do_file(argv[ar]); + } + exit(0); +} + +Usage(prog) +char * prog; +{ + fprintf(stderr, "Usage: %s [-DFLAG] [-UFLAG] [-blcrMDU] [-C##] files\n", + prog); + exit(1); +} + +save_name(varname, state) +char * varname; +int state; +{ + struct varrec * curr; + struct varrec * prev = 0; + + for(curr=varlist; + curr && strcmp(curr->name, varname) != 0; + prev=curr, curr=curr->next) + ; + + if( curr == 0 ) + { + curr = (struct varrec*) malloc(sizeof(struct varrec)+strlen(varname)); + if( curr == 0 ) + fatal("Out of memory error"); + if( prev ) prev->next = curr; + else varlist = curr; + curr->next = 0; + strcpy(curr->name, varname); + } + curr->state = state; +} + + +do_file(fname) +char * fname; +{ + filename = fname; + prline = lineno = 0; + fd = fopen(fname, "r"); + if( fd == 0 ) + fatal("Cannot open file"); + + if( cuttype == 1 ) + printf("#line 1 \"%s\"\n", filename); + + while( fgets(linebuf, sizeof(linebuf), fd) != 0 ) + { + int f = 1; + lineno++; + if( linebuf[0] == '#' ) + f = do_hashcom(); + if(f) + { + if( keeptext ) + { + if( cuttype == 1 ) set_line(lineno); + printf("%s", linebuf); + } + else + { + if( cuttype == 0 ) printf("\n"); + if( cuttype == 2 ) printf("%s %s", commentstr, linebuf); + } + } + } + fclose(fd); +} + +set_line(lineno) +int lineno; +{ + if( prline+2 == lineno ) + printf("\n"); + else if( prline+1 != lineno ) + printf("#line %d \"%s\"\n", lineno, filename); + prline = lineno; +} + +do_hashcom() +{ + char * p = linebuf+1; + int flg = -1; + while( *p == ' ' || *p == '\t' ) p++; + + if(strncmp(p, "ifdef", 5) == 0) + { + do_ifdef(p+5, 'D'); + } + else + if(strncmp(p, "ifndef", 6) == 0) + { + do_ifdef(p+6, 'U'); + } + else + if(strncmp(p, "if", 2) == 0 && (p[2]==' ' || p[2]=='\t') ) + { + state[iflevel++] = keeptext; + keeptext |= 2; + } + else + if(strncmp(p, "else", 4) == 0) + { + if( iflevel == 0 ) fatal("#else at top level"); + if( iflevel && state[iflevel-1]) keeptext ^= 1; + } + else + if(strncmp(p, "endif", 5) == 0) + { + flg = (keeptext&2); + if( iflevel == 0 ) fatal("Too many endif's"); + iflevel--; + keeptext = state[iflevel]; + } + else if( cuttype != 0 ) return 1; + + if( flg < 0 ) flg = (keeptext&2); + + if( flg ) return 1; + + if( cuttype == 0 ) printf("\n"); + if( cuttype == 2 ) printf("%s %s", commentstr, linebuf); + return 0; +} + +do_ifdef(p, which) +char * p; +int which; +{ + char * nm; + char * s; + struct varrec * curr; + + while( *p == ' ' || *p == '\t') p++; + nm = p; + + for(curr=varlist; curr ; curr = curr->next) + { + s = curr->name; + p = nm; + while( *p == *s ) { p++; s++; } + if( *s == '\0' && *p <= ' ' ) + break; + } + state[iflevel] = keeptext; + iflevel++; + + p=nm; + s=names[iflevel]; + while(*p > ' ') *s++ = *p++; + *s = '\0'; + + if( curr == 0 ) + { + if( unknown_stat == 0 ) + { + if( keeptext ) keeptext |= 2; + return 0; + } + if( keeptext ) + keeptext = (unknown_stat == which); + return 1; + } + if( keeptext ) + keeptext = (curr->state == which); + return 1; +} + +check_name(nm) +char * nm; +{ + char * p; + char * s; + while(*nm == ' ' || *nm == '\t' ) nm++; + s = nm; + if( *s == '\n' || *s == '\r' || *s == '\0' ) return; + p = names[iflevel]; + while(*p) + { + if( *p++ != *s++ ) + goto x_error; + } + if( *s <= ' ' ) return; +x_error: + fprintf(stderr, "Ifdef mis-nesting Line %d Expect '%s' Got '", + lineno, + names[iflevel]); + while(*nm > ' ' ) + fputc(*nm++, stderr); + fputc('\'', stderr); + fputc('\n', stderr); +} + +fatal(msg) +char * msg; +{ + fprintf(stderr, "Fatal error:%s\n", msg); + exit(1); +} + +/* This places manifest constants defined by the C compiler into ifdef + * + * Unfortunatly I can find no way of discovering the variables automatically + */ +manifest_constant() +{ +/* General */ +#ifdef __STDC__ + save_name("__STDC__", 'D'); +#endif +#ifdef __GNUC__ + save_name("__GNUC__", 'D'); +#endif + +/* MSDOS */ +#ifdef MSDOS + save_name("MSDOS", 'D'); +#endif +#ifdef __MSDOS__ + save_name("__MSDOS__", 'D'); +#endif + +/* Linux/unix */ +#ifdef __linux__ + save_name("__linux__", 'D'); +#endif +#ifdef __unix__ + save_name("__unix__", 'D'); +#endif +#ifdef __GNUC__ + save_name("__GNUC__", 'D'); +#endif +#ifdef __ELF__ + save_name("__ELF__", 'D'); +#endif +#ifdef __i386__ + save_name("__i386__", 'D'); +#endif +#ifdef __i486__ + save_name("__i486__", 'D'); +#endif +#ifdef i386 + save_name("i386", 'D'); +#endif +#ifdef linux + save_name("linux", 'D'); +#endif +#ifdef unix + save_name("unix", 'D'); +#endif + +/* BCC */ +#ifdef __BCC__ + save_name("__BCC__", 'D'); +#endif +#ifdef __AS386_16__ + save_name("__AS386_16__", 'D'); +#endif +#ifdef __AS386_32__ + save_name("__AS386_32__", 'D'); +#endif + +/* AIX, RS6000 */ +#ifdef _IBMR2 + save_name("_IBMR2", 'D'); +#endif +#ifdef _AIX + save_name("_AIX", 'D'); +#endif +#ifdef _AIX32 + save_name("_AIX32", 'D'); +#endif + +/* Ugh! Minix is actually _very_ nasty */ +#ifdef __minix + save_name("__minix", 'D'); +#endif +} |