Return to ole.c CVS log

Up to [local] / OpenXM / src / kan96xx / Doc

Annotation of OpenXM/src/kan96xx/Doc/ole.c, Revision 1.1

1.1     ! maekawa     1: #include <stdio.h>
        !             2:
        !             3: main() {
        !             4:   FILE *fp;
        !             5:   int c;
        !             6:   char fname[1024];
        !             7:   int i;
        !             8:   printf("\\def\\at{\\catcode`@=11{@}\\catcode`@=12 } \n");
        !             9:   while ((c=getchar()) != EOF) {
        !            10:     if (c != '@') {
        !            11:        putchar(c);
        !            12:     }else{
        !            13:        i = 0;
        !            14:        while (1) {
        !            15:          c = getchar();
        !            16:         if (c <= ' ') {
        !            17:            fname[i]='\0';
        !            18:            break;
        !            19:         }
        !            20:         fname[i++] = c;
        !            21:        }
        !            22:        fp = fopen(fname,"r");
        !            23:        if (fp == (FILE *)NULL) {
        !            24:           fprintf(stderr,"I cannot find the file %s.\n",fname);
        !            25:        }else{
        !            26:           printf("\\begin{verbatim}\n");
        !            27:           while ((c =fgetc(fp)) != EOF) putchar(c);
        !            28:           printf("\n\\end{verbatim}\n");
        !            29:        }
        !            30:     }
        !            31:   }
        !            32:   exit(0);
        !            33: }