version 1.4, 2006/02/12 08:55:26 |
version 1.6, 2009/02/22 20:27:25 |
|
|
/* $OpenXM: OpenXM/src/asir-doc/extract_func.c,v 1.3 2005/02/09 03:25:50 noro Exp $ */ |
/* $OpenXM: OpenXM/src/asir-doc/extract_func.c,v 1.5 2009/02/22 17:59:25 ohara Exp $ */ |
|
|
#include <stdio.h> |
#include <stdio.h> |
#include <string.h> |
#include <string.h> |
|
#include <stdlib.h> |
|
#include <unistd.h> |
|
#include <ctype.h> |
|
#include <sys/stat.h> |
|
|
|
#if defined(__MINGW32__) |
|
#include <io.h> |
|
#define mkdir(d,m) ((mkdir)((d))) |
|
#endif |
|
|
|
void create_dir(char *); |
|
int fname(char *,char **); |
|
|
|
int |
main(argc,argv) |
main(argc,argv) |
int argc; |
int argc; |
char **argv; |
char **argv; |
|
|
} else |
} else |
fputs(buf1,fp); |
fputs(buf1,fp); |
} |
} |
} else if ( fp ) |
} else if ( fp ) { |
if ( buf[0] == 0x1f ) { |
if ( buf[0] == 0x1f ) { |
fclose(fp); fp = 0; |
fclose(fp); fp = 0; |
if ( jis ) { |
if ( jis ) { |
|
|
fn,fn,fn,fn,fn); |
fn,fn,fn,fn,fn); |
system(cmd); |
system(cmd); |
} |
} |
} else |
} else { |
fputs(buf,fp); |
fputs(buf,fp); |
|
} |
|
} |
} |
} |
} |
} |
|
|
int create_dir(char *fname) |
void create_dir(char *fname) |
{ |
{ |
char *p; |
char *p; |
|
|
|
|
|
|
if ( *buf != '`' ) { |
if ( *buf != '`' ) { |
/* skip X.X.X if exists */ |
/* skip X.X.X if exists */ |
space = index(buf,' '); |
space = strchr(buf,' '); |
if ( !space ) return 0; |
if ( !space ) return 0; |
for ( p = buf; p < space; p++ ) |
for ( p = buf; p < space; p++ ) |
if ( !isdigit(*p) && *p != '.' ) return 0; |
if ( !isdigit(*p) && *p != '.' ) return 0; |
|
|
i = 0; |
i = 0; |
while ( 1 ) { |
while ( 1 ) { |
/* search a back quote */ |
/* search a back quote */ |
bquote = index(buf,'`' ); |
bquote = strchr(buf,'`' ); |
if ( !bquote ) |
if ( !bquote ) |
return 0; |
return 0; |
buf = bquote+1; |
buf = bquote+1; |
|
|
/* buf points to a function; search a quote */ |
/* buf points to a function; search a quote */ |
quote = index(buf,'\''); |
quote = strchr(buf,'\''); |
if ( !quote ) |
if ( !quote ) |
return 0; |
return 0; |
len = quote-buf; |
len = quote-buf; |
|
|
i++; |
i++; |
buf = quote+1; |
buf = quote+1; |
/* buf points to ',' or a space char; search a comma */ |
/* buf points to ',' or a space char; search a comma */ |
comma = index(buf,','); |
comma = strchr(buf,','); |
if ( !comma ) { |
if ( !comma ) { |
/* if the rest chars include a non-space char, then return 0 */ |
/* if the rest chars include a non-space char, then return 0 */ |
while ( *buf && isspace(*buf) ) buf++; |
while ( *buf && isspace(*buf) ) buf++; |