Return to extract_func.c CVS log

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

asir help files (UTF-8) are created from EUC files.

/* $OpenXM: OpenXM/src/asir-doc/extract_func.c,v 1.8 2020/09/05 00:57:16 noro Exp $ */

#include <stdio.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)
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 -w %s > %s.tmp; rm -f %s; mv %s.tmp %s",
							name[0],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 -w %s > %s.tmp; rm -f %s; mv %s.tmp %s",
						fn,fn,fn,fn,fn);
					system(cmd);
				}
			} else {
				fputs(buf,fp);
			}
		}
	}
}

void 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 = strchr(buf,' ');
		if ( !space ) return 0;
		for ( p = buf; p < space; p++ )
			if ( !isdigit(*p) && *p != '.' ) return 0;
		buf = space+1;
	}
	i = 0;
	while ( 1 ) {
    /* makeinfo v5 outputs 'fname', while makeinfo v4 output `fname' */
		/* search a (back) quote */
		bquote = strchr(buf,'`' );
		if ( !bquote )
      bquote = strchr(buf,'\'');
      if ( !bquote ) return 0;
		buf = bquote+1;

		/* buf points to a function; search a quote */
		quote = strchr(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 = strchr(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;
			}
		}
	}
}