| version 1.6, 2009/02/22 20:27:25 |
version 1.8, 2020/09/05 00:57:16 |
|
|
| /* $OpenXM: OpenXM/src/asir-doc/extract_func.c,v 1.5 2009/02/22 17:59:25 ohara Exp $ */ |
/* $OpenXM: OpenXM/src/asir-doc/extract_func.c,v 1.7 2016/08/29 04:56:58 noro Exp $ */ |
| |
|
| #include <stdio.h> |
#include <stdio.h> |
| #include <string.h> |
#include <string.h> |
|
|
| if ( buf1[0] == 0x1f ) { |
if ( buf1[0] == 0x1f ) { |
| fclose(fp); fp = 0; |
fclose(fp); fp = 0; |
| if ( jis ) { |
if ( jis ) { |
| sprintf(cmd,"nkf %s > %s.tmp; rm -f %s; mv %s.tmp %s", |
sprintf(cmd,"nkf -w %s > %s.tmp; rm -f %s; mv %s.tmp %s", |
| name[0],name[0],name[0]); |
name[0],name[0],name[0],name[0]); |
| system(cmd); |
system(cmd); |
| } |
} |
| } else |
} else |
|
|
| if ( buf[0] == 0x1f ) { |
if ( buf[0] == 0x1f ) { |
| fclose(fp); fp = 0; |
fclose(fp); fp = 0; |
| if ( jis ) { |
if ( jis ) { |
| sprintf(cmd,"nkf %s > %s.tmp; rm -f %s; mv %s.tmp %s", |
sprintf(cmd,"nkf -w %s > %s.tmp; rm -f %s; mv %s.tmp %s", |
| fn,fn,fn,fn,fn); |
fn,fn,fn,fn,fn); |
| system(cmd); |
system(cmd); |
| } |
} |
|
|
| } |
} |
| i = 0; |
i = 0; |
| while ( 1 ) { |
while ( 1 ) { |
| /* search a back quote */ |
/* makeinfo v5 outputs 'fname', while makeinfo v4 output `fname' */ |
| |
/* search a (back) quote */ |
| bquote = strchr(buf,'`' ); |
bquote = strchr(buf,'`' ); |
| if ( !bquote ) |
if ( !bquote ) |
| return 0; |
bquote = strchr(buf,'\''); |
| |
if ( !bquote ) return 0; |
| buf = bquote+1; |
buf = bquote+1; |
| |
|
| /* buf points to a function; search a quote */ |
/* buf points to a function; search a quote */ |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to extract_func.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / asir-doc