File: [local] / OpenXM / src / asir-doc / extract_func.c (download)
Revision 1.4, Sun Feb 12 08:55:26 2006 UTC (18 years, 7 months ago) by noro
Branch: MAIN
CVS Tags: KNOPPIX_2006, DEB_REL_1_2_3-9 Changes since 1.3: +10 -6
lines
Corrected an incorrect behavior of fname() in extract_func.c.
It now skips a leading section number.
|
/* $OpenXM: OpenXM/src/asir-doc/extract_func.c,v 1.4 2006/02/12 08:55:26 noro Exp $ */
#include <stdio.h>
#include <string.h>
main(argc,argv)
int argc;
char **argv;
{
int c;
FILE *in,*fp;
char buf[BUFSIZ*100];
char buf1[BUFSIZ*100];
char *name[BUFSIZ];
char cmd[BUFSIZ];
char fn[BUFSIZ];
char *file;
int jis;
int i,j;
if ( (argc != 2) && (argc != 3) ) {
fprintf(stderr,"usage : extract_func [-j] infofile\n");
exit(0);
}
if ( argc == 3 ) {
jis = 1;
file = argv[2];
} else {
jis = 0;
file = argv[1];
}
in = fopen(file,"rb");
if ( !in ) {
fprintf(stderr,"%s : not found",file);
exit(0);
}
fp = 0;
while ( 1 ) {
c = getc(in);
if ( c == EOF )
exit(0);
else if ( !fp && c == '\n' )
continue;
ungetc(c,in);
fgets(buf,BUFSIZ,in);
if ( fname(buf,name) ) {
fgets(buf1,BUFSIZ,in);
for ( i = 0; buf1[i] && buf1[i] == '-'; i++ );
if ( i >= 3 && buf1[i] == '\n' ) {
fputs(buf,stderr);
strcpy(fn,name[0]);
create_dir(fn);
fp = fopen(fn,"w");
for ( j = 1; name[j]; j++ )
symlink(fn,name[j]);
fputs(buf,fp);
fputs(buf1,fp);
} else if ( fp ) {
fputs(buf,fp);
if ( buf1[0] == 0x1f ) {
fclose(fp); fp = 0;
if ( jis ) {
sprintf(cmd,"nkf %s > %s.tmp; rm -f %s; mv %s.tmp %s",
name[0],name[0],name[0]);
system(cmd);
}
} else
fputs(buf1,fp);
}
} else if ( fp )
if ( buf[0] == 0x1f ) {
fclose(fp); fp = 0;
if ( jis ) {
sprintf(cmd,"nkf %s > %s.tmp; rm -f %s; mv %s.tmp %s",
fn,fn,fn,fn,fn);
system(cmd);
}
} else
fputs(buf,fp);
}
}
int create_dir(char *fname)
{
char *p;
p = fname;
while ( *p && (p = strchr(p,'/')) ) {
*p = 0;
mkdir(fname,0755);
*p = '/';
p++;
}
}
int fname(buf,name)
char *buf;
char **name;
{
int i,len;
char *quote,*bquote,*comma,*space,*p;
if ( *buf != '`' ) {
/* skip X.X.X if exists */
space = index(buf,' ');
if ( !space ) return 0;
for ( p = buf; p < space; p++ )
if ( !isdigit(*p) && *p != '.' ) return 0;
buf = space+1;
}
i = 0;
while ( 1 ) {
/* search a back quote */
bquote = index(buf,'`' );
if ( !bquote )
return 0;
buf = bquote+1;
/* buf points to a function; search a quote */
quote = index(buf,'\'');
if ( !quote )
return 0;
len = quote-buf;
name[i] = (char *)malloc(len+1);
strncpy(name[i],buf,len);
name[i][len] = 0;
i++;
buf = quote+1;
/* buf points to ',' or a space char; search a comma */
comma = index(buf,',');
if ( !comma ) {
/* if the rest chars include a non-space char, then return 0 */
while ( *buf && isspace(*buf) ) buf++;
if ( *buf )
return 0;
else {
name[i] = 0;
return 1;
}
}
}
}