home *** CD-ROM | disk | FTP | other *** search
- /* texexpand: to expand TeX and LaTeX \input and include files
- * to compile: cc texexpand.c -o texexpand
- */
-
- char *documentation[] = {
- " SYNTAX",
- " texexpand [-w] [parameters] [inputfiles]",
- "",
- " flags:",
- " -w does not check matching",
- "",
- " parameters:",
- " in=filename filename is the input file",
- " (Default: in=stdin)",
- "",
- " out=filename filename is the output file",
- " (Default: out=stdout)",
- ""
- };
-
- /* Author: Kamal Al-Yahya, Stanford University, 11/1/83 */
- /* Modified: 6/30/86 */
-
- int doclength = { sizeof documentation/sizeof documentation[0] };
-
- #include <stdio.h>
- #include <sys/ioctl.h>
- #include <sgtty.h>
- #define MAXLEN 100000 /* maximum character in a document */
-
- char string[100],filename[100];
- struct sgttyb ttystat;
- extern char *strcpy(), *mktemp();
- char scratch_file[100];
- FILE *out_file;
-
- int wflag;
- int xargc;
- char **xargv;
-
- main(argc,argv)
- int argc;
- char *argv[];
- {
- char big[MAXLEN];
- FILE *temp,*scr;
- register char *cptr;
- int piped_in;
- int i,w;
-
- /* If no arguments, and not in a pipeline, self document */
- piped_in = ioctl ((fileno (stdin)), TIOCGETP, &ttystat);
- if (argc == 1 && !piped_in)
- {
- for( i=0; i<doclength; i++)
- printf("%s\n",documentation[i]);
- exit (0);
- }
-
- out_file=stdout; /* default standard output */
-
- /* process option flags */
- xargc = argc;
- xargv = argv;
- for (xargc--,xargv++; xargc; xargc--,xargv++)
- {
- cptr = *xargv;
- if( *cptr=='-' )
- {
- while( *(++cptr))
- {
- switch( *cptr )
- {
- case 'w':
- wflag=1;
- break;
- default:
- fprintf(stderr,
- "unknown flag -%c\n",*cptr);
- break;
- }
- }
- }
- }
-
- /* process getpar parameters */
- xargc = argc;
- xargv = argv;
-
- if(getpar_("out","s",string))
- {
- sscanf(string,"%s",filename);
- if((temp=fopen(filename,"w")) == NULL)
- fprintf(stderr,"texexpand: Cannot open output file %s\n",filename);
- else
- out_file = temp;
- }
-
-
- /* first process pipe input */
- if(piped_in)
- {
- if (wflag != 1)
- {
- /* need to buffer; can's seek in pipes */
- /* make a temporary and volatile file in /tmp */
- strcpy(scratch_file,"/tmp/texXXXXXX");
- mktemp(scratch_file);
- scr=fopen(scratch_file,"w");
- scrbuf(stdin,scr);
- fclose(scr);
- scr=fopen(scratch_file,"r");
- unlink(scratch_file);
- fprintf(stderr,"Checking matching...\n");
- TeXMatch(scr);
- fseek(scr,0,0);
- TeXExpand(scr,big,MAXLEN);
- fprintf(stderr,"Checking matching done\n\n");
- fclose(scr);
- }
- else
- TeXExpand(stdin,big,MAXLEN);
-
- fprintf(stdout,"%s\n",big);
- }
-
- /* next process in=inputfiles */
- if(getpar_("in","s",string))
- {
- sscanf(string,"%s",filename);
- if((temp=fopen(filename,"r")) != NULL)
- {
- if (wflag != 1)
- {
- fprintf(stderr,"Checking matching...\n");
- fprintf(stderr,"%s:\n",cptr);
- TeXMatch(temp);
- fprintf(stderr,"\n");
- fseek(temp,0,0);
- }
- TeXExpand(temp,big,MAXLEN);
- if (wflag != 1)
- fprintf(stderr,"Checking matching done\n\n");
- fprintf(stdout,"%s",big);
- fclose(temp);
- }
- else
- fprintf(stderr,"texexpand: Cannot open %s\n",filename);
- }
-
- /* then process input line for arguments and assume they are input files */
- for (xargc--,xargv++; xargc; xargc--,xargv++)
- {
- cptr = *xargv;
- if( *cptr=='-' ) continue; /* this is a flag */
- while (*cptr)
- {
- if (*cptr == '=') break; /* this is for getpar */
- cptr++;
- }
- if (*cptr) continue;
- cptr = *xargv;
- if((temp=fopen(cptr,"r")) != NULL)
- {
- if (wflag != 1)
- {
- fprintf(stderr,"Checking matching...\n");
- fprintf(stderr,"%s:\n",cptr);
- TeXMatch(temp);
- fprintf(stderr,"\n");
- fseek(temp,0,0);
- }
- TeXExpand(temp,big,MAXLEN);
- if (wflag != 1)
- fprintf(stderr,"Checking matching done\n\n");
- fprintf(stdout,"%s",big);
- fclose(temp);
- }
- else
- fprintf(stderr,"texexpand: Cannot open %s\n",cptr);
- }
-
- }
-