File: [local] / OpenXM / src / asir-doc / html_tools / extract_func.c (download)
Revision 1.1.1.1 (vendor branch), Wed Dec 8 05:47:44 1999 UTC (24 years, 9 months ago) by noro
Branch: NORO, MAIN
CVS Tags: maekawa-ipv6, R_1_3_1-2, RELEASE_20000124, RELEASE_1_3_1_13b, RELEASE_1_2_3_12, RELEASE_1_2_3, RELEASE_1_2_2_KNOPPIX_b, RELEASE_1_2_2_KNOPPIX, RELEASE_1_2_2, RELEASE_1_2_1, RELEASE_1_1_3, RELEASE_1_1_2, KNOPPIX_2006, HEAD, DEB_REL_1_2_3-9, ASIR2000 Changes since 1.1: +0 -0
lines
Imported OpenXM/src/asir-doc.
|
/* $OpenXM: OpenXM/src/asir-doc/html_tools/extract_func.c,v 1.1.1.1 1999/12/08 05:47:44 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];
int i,j;
if ( argc != 2 ) {
fprintf(stderr,"usage : extract_func infofile\n");
exit(0);
}
in = fopen(argv[1],"rb");
if ( !in ) {
fprintf(stderr,"%s : not found",argv[1]);
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]);
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;
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;
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 fname(buf,name)
char *buf;
char **name;
{
int i,len;
char *quote,*bquote,*comma;
/* XXX */
if ( *buf != '`' )
return 0;
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;
}
}
}
}