===================================================================
RCS file: /home/cvs/OpenXM/src/asir-doc/extract_func.c,v
retrieving revision 1.1.1.1
retrieving revision 1.3
diff -u -p -r1.1.1.1 -r1.3
--- OpenXM/src/asir-doc/extract_func.c	1999/12/08 05:47:43	1.1.1.1
+++ OpenXM/src/asir-doc/extract_func.c	2005/02/09 03:25:50	1.3
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM/src/asir99/doc/extract_func.c,v 1.1 1999/11/12 09:21:36 noro Exp $ */
+/* $OpenXM: OpenXM/src/asir-doc/extract_func.c,v 1.2 2000/01/20 03:26:22 noro Exp $ */
 
 #include <stdio.h>
 #include <string.h>
@@ -14,15 +14,24 @@ char **argv;
 	char *name[BUFSIZ];
 	char cmd[BUFSIZ];
 	char fn[BUFSIZ];
+	char *file;
+	int jis;
 	int i,j;
 
-	if ( argc != 2 ) {
-		fprintf(stderr,"usage : extract_func infofile\n");
+	if ( (argc != 2) && (argc != 3) ) {
+		fprintf(stderr,"usage : extract_func [-j] infofile\n");
 		exit(0);
 	}
-	in = fopen(argv[1],"rb");
+	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",argv[1]);
+		fprintf(stderr,"%s : not found",file);
 		exit(0);
 	}
 	fp = 0;
@@ -40,6 +49,7 @@ char **argv;
 			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]);
@@ -49,21 +59,39 @@ char **argv;
 				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);
+					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;
-				sprintf(cmd,"nkf %s > %s.tmp; rm -f %s; mv %s.tmp %s",
-					fn,fn,fn,fn,fn);
-				system(cmd);
+				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)