Return to extract_func.c CVS log

Up to [local] / OpenXM / src / asir-doc

Annotation of OpenXM/src/asir-doc/extract_func.c, Revision 1.1.1.1

1.1       noro        1: /* $OpenXM: OpenXM/src/asir99/doc/extract_func.c,v 1.1 1999/11/12 09:21:36 noro Exp $ */
                      2:
                      3: #include <stdio.h>
                      4: #include <string.h>
                      5:
                      6: main(argc,argv)
                      7: int argc;
                      8: char **argv;
                      9: {
                     10:        int c;
                     11:        FILE *in,*fp;
                     12:        char buf[BUFSIZ*100];
                     13:        char buf1[BUFSIZ*100];
                     14:        char *name[BUFSIZ];
                     15:        char cmd[BUFSIZ];
                     16:        char fn[BUFSIZ];
                     17:        int i,j;
                     18:
                     19:        if ( argc != 2 ) {
                     20:                fprintf(stderr,"usage : extract_func infofile\n");
                     21:                exit(0);
                     22:        }
                     23:        in = fopen(argv[1],"rb");
                     24:        if ( !in ) {
                     25:                fprintf(stderr,"%s : not found",argv[1]);
                     26:                exit(0);
                     27:        }
                     28:        fp = 0;
                     29:        while ( 1 ) {
                     30:                c = getc(in);
                     31:                if ( c == EOF )
                     32:                        exit(0);
                     33:                else if ( !fp && c == '\n' )
                     34:                        continue;
                     35:                ungetc(c,in);
                     36:                fgets(buf,BUFSIZ,in);
                     37:                if ( fname(buf,name) ) {
                     38:                        fgets(buf1,BUFSIZ,in);
                     39:                        for ( i = 0; buf1[i] && buf1[i] == '-'; i++ );
                     40:                        if ( i >= 3 && buf1[i] == '\n' ) {
                     41:                                fputs(buf,stderr);
                     42:                                strcpy(fn,name[0]);
                     43:                                fp = fopen(fn,"w");
                     44:                                for ( j = 1; name[j]; j++ )
                     45:                                        symlink(fn,name[j]);
                     46:                                fputs(buf,fp);
                     47:                                fputs(buf1,fp);
                     48:                        } else if ( fp ) {
                     49:                                fputs(buf,fp);
                     50:                                if ( buf1[0] == 0x1f ) {
                     51:                                        fclose(fp); fp = 0;
                     52:                                        sprintf(cmd,"nkf %s > %s.tmp; rm -f %s; mv %s.tmp %s",
                     53:                                                name[0],name[0],name[0]);
                     54:                                        system(cmd);
                     55:                                } else
                     56:                                        fputs(buf1,fp);
                     57:                        }
                     58:                } else if ( fp )
                     59:                        if ( buf[0] == 0x1f ) {
                     60:                                fclose(fp); fp = 0;
                     61:                                sprintf(cmd,"nkf %s > %s.tmp; rm -f %s; mv %s.tmp %s",
                     62:                                        fn,fn,fn,fn,fn);
                     63:                                system(cmd);
                     64:                        } else
                     65:                                fputs(buf,fp);
                     66:        }
                     67: }
                     68:
                     69: int fname(buf,name)
                     70: char *buf;
                     71: char **name;
                     72: {
                     73:        int i,len;
                     74:        char *quote,*bquote,*comma;
                     75:
                     76:        /* XXX */
                     77:        if ( *buf != '`' )
                     78:                return 0;
                     79:
                     80:        i = 0;
                     81:        while ( 1 ) {
                     82:                /* search a back quote */
                     83:                bquote = index(buf,'`' );
                     84:                if ( !bquote )
                     85:                        return 0;
                     86:                buf = bquote+1;
                     87:
                     88:                /* buf points to a function; search a quote */
                     89:                quote = index(buf,'\'');
                     90:                if ( !quote )
                     91:                        return 0;
                     92:                len = quote-buf;
                     93:                name[i] = (char *)malloc(len+1);
                     94:                strncpy(name[i],buf,len);
                     95:                name[i][len] = 0;
                     96:                i++;
                     97:                buf = quote+1;
                     98:                /* buf points to ',' or a space char; search a comma */
                     99:                comma = index(buf,',');
                    100:                if ( !comma ) {
                    101:                        /* if the rest chars include a non-space char, then return 0 */
                    102:                        while ( *buf && isspace(*buf) ) buf++;
                    103:                        if ( *buf )
                    104:                                return 0;
                    105:                        else {
                    106:                                name[i] = 0;
                    107:                                return 1;
                    108:                        }
                    109:                }
                    110:        }
                    111: }