Return to ole.c CVS log | Up to [local] / OpenXM / src / kan96xx / Doc |
File: [local] / OpenXM / src / kan96xx / Doc / ole.c (download)
Revision 1.2, Thu Mar 9 05:37:22 2000 UTC (24 years, 6 months ago) by takayama
Added a -q flag (quiet) to ole.c (ole is used for preprocessing documents). |
/* $OpenXM: OpenXM/src/kan96xx/Doc/ole.c,v 1.2 2000/03/09 05:37:22 takayama Exp $ */ #include <stdio.h> main(int argc,char *argv[]) { FILE *fp; int c; char fname[1024]; int i; int Quiet = 0; for (i=1; i<argc; i++) { if (strcmp(argv[i],"-q") ==0) { Quiet = 1;} } if (!Quiet) { printf("\\def\\at{\\catcode`@=11{@}\\catcode`@=12 } \n"); } while ((c=getchar()) != EOF) { if (c != '@') { putchar(c); }else{ i = 0; while (1) { c = getchar(); if (c <= ' ') { fname[i]='\0'; break; } fname[i++] = c; } fp = fopen(fname,"r"); if (fp == (FILE *)NULL) { fprintf(stderr,"I cannot find the file %s.\n",fname); }else{ printf("\\begin{verbatim}\n"); while ((c =fgetc(fp)) != EOF) putchar(c); printf("\n\\end{verbatim}\n"); } } } exit(0); }