path: root/chinese/pine4/files/patch-ai

--- pico/browse.c.orig	Wed Sep 16 08:19:17 1998
+++ pico/browse.c	Tue Sep 22 17:29:07 1998
@@ -126,12 +126,12 @@
 
 
 static	KEYMENU menu_browse[] = {
-    {"?", "Get Help", KS_SCREENHELP},	{NULL, NULL, KS_NONE},
-    {NULL, NULL, KS_NONE},		{"-", "Prev Pg", KS_PREVPAGE},
-    {"D", "Delete", KS_NONE},		{"C","Copy", KS_NONE},
+    {"?", "���U����", KS_SCREENHELP},	{NULL, NULL, KS_NONE},
+    {NULL, NULL, KS_NONE},		{"-", "�W�@��", KS_PREVPAGE},
+    {"D", "�R��", KS_NONE},		{"C","�ƻs", KS_NONE},
     {NULL, NULL, KS_NONE},		{NULL, NULL, KS_NONE},
-    {"W", "Where is", KS_NONE},		{"Spc", "Next Pg", KS_NEXTPAGE},
-    {"R", "Rename", KS_NONE},		{NULL, NULL, KS_NONE}
+    {"W", "�j�M", KS_NONE},		{"Spc", "�U�@��", KS_NEXTPAGE},
+    {"R", "��W", KS_NONE},		{NULL, NULL, KS_NONE}
 };
 #define	QUIT_KEY	1
 #define	EXEC_KEY	2
@@ -333,7 +333,7 @@
     child[0] = '\0';
 
     if((gmode&MDTREE) && !in_oper_tree(dir)){
-	emlwrite("\007Can't read outside of %s in restricted mode", opertree);
+	emlwrite("\007�L�k�b����Ҧ���Ū�� %s �H�~���F��", opertree);
 	sleep(2);
 	return(0);
     }
@@ -421,7 +421,7 @@
 	else{
 	    if(timeo && (c == NODATA || time_to_check()))
 	      if(pico_new_mail())
-		emlwrite("You may possibly have new mail.", NULL);
+		emlwrite("�z�i�঳�s�H��C", NULL);
 	}
 
 	if(km_popped)
@@ -697,7 +697,7 @@
 			gmp->current->fname);
 		/* make sure selected isn't a directory or executable */
 		if(!LikelyASCII(child)){
-		    emlwrite("Can't edit non-text file.  Try Launch.", NULL);
+		    emlwrite("�L�kŪ���D��r�ɡC�ո� \"�Ұ�\"�C", NULL);
 		    break;
 		}
 
@@ -727,13 +727,13 @@
 		return(0);
 	    }
 
-	    emlwrite("\007Unknown command '%c'", (void *)c);
+	    emlwrite("\007�������R�O '%c'", (void *)c);
 	    break;
 
 	  case 'l':			            /* run Command */
 	  case 'L':
 	    if(!(gmode&MDBRONLY)){
-		emlwrite("\007Unknown command '%c'", (void *)c);
+		emlwrite("\007�������R�O '%c'", (void *)c);
 		break;
 	    }
 
@@ -750,11 +750,11 @@
 		    {NULL, NULL, 0, KS_NONE},
 		};
 
-		status = mlreply("Command to execute: ",
+		status = mlreply("�����檺�R�O�G",
 				 tmp, NLINE, QNORML, opts);
 		switch(status){
 		  case HELPCH:
-		    emlwrite("\007No help yet!", NULL);
+		    emlwrite("\007�|�L���U����!", NULL);
 /* remove break and sleep after help text is installed */
 		    sleep(3);
 		    break;
@@ -765,7 +765,7 @@
 		    PaintBrowser(gmp, 0, &crow, &ccol);
 		    break;
 		  case ABORT:
-		    emlwrite("Command cancelled", NULL);
+		    emlwrite("�R�O�w����", NULL);
 		    i++;
 		    break;
 		  case FALSE:
@@ -773,7 +773,7 @@
 		    i++;
 
 		    if(tmp[0] == '\0'){
-			emlwrite("No command specified", NULL);
+			emlwrite("�|���U�F�R�O", NULL);
 			break;
 		    }
 
@@ -792,12 +792,12 @@
 	  case 'D':
 	    if(gmp->current->mode == FIODIR){
 /* BUG: if dir is empty it should be deleted */
-		emlwrite("\007Can't delete a directory", NULL);
+		emlwrite("\007�L�k�R���ӥؿ�", NULL);
 		break;
 	    }
 
 	    if(gmode&MDSCUR){				/* not allowed! */
-		emlwrite("Delete not allowed in restricted mode",NULL);
+		emlwrite("�L�k�b����Ҧ����ϥΧR�����O",NULL);
 		break;
 	    }
 
@@ -808,17 +808,17 @@
 	    while(i++ < 2){		/* verify twice!! */
 		if(i == 1){
 		    if(fexist(child, "w", (off_t *)NULL) != FIOSUC)
-		      strcpy(tmp, "File is write protected! OVERRIDE");
+		      strcpy(tmp, "�ɮ׬����g! �n���L���g�O�@");
 		    else
-		      sprintf(tmp, "Delete file \"%.*s\"", NLINE - 20, child);
+		      sprintf(tmp, "�R���ɮ� \"%.*s\"", NLINE - 20, child);
 		}
 		else
-		  strcpy(tmp, "File CANNOT be UNdeleted!  Really delete");
+		  strcpy(tmp, "�ɮױN�L�k�Q�ϧR��! �T�w�R��");
 
 		if((status = mlyesno(tmp, FALSE)) != TRUE){
 		    emlwrite((status ==  ABORT)
-			       ? "Delete Cancelled"
-			       : "File Not Deleted",
+			       ? "�����R��"
+			       : "�ɮרS���Q�R��",
 			     NULL);
 		    break;
 		}
@@ -826,7 +826,7 @@
 
 	    if(status == TRUE){
 		if(unlink(child) < 0){
-		    emlwrite("Delete Failed: %s", errstr(errno));
+		    emlwrite("�R�����ѡG%s", errstr(errno));
 		}
 		else{			/* fix up pointers and redraw */
 		    tp = gmp->current;
@@ -903,12 +903,12 @@
  
 	    while(!i){
  
-		status = mlreply("Directory to go to: ", child, NLINE, QNORML,
+		status = mlreply("�����ܭ��@�ӥؿ��G", child, NLINE, QNORML,
 				 NULL);
  
 		switch(status){
 		  case HELPCH:
-		    emlwrite("\007No help yet!", NULL);
+		    emlwrite("\007�|�L���U����!", NULL);
 		    /* remove break and sleep after help text is installed */
 		    sleep(3);
 		    break;
@@ -916,7 +916,7 @@
 		    PaintBrowser(gmp, 0, &crow, &ccol);
 		  break;
 		  case ABORT:
-		    emlwrite("Goto cancelled", NULL);
+		    emlwrite("���������ؿ�", NULL);
 		    i++;
 		    break;
 		  case FALSE:
@@ -927,17 +927,17 @@
 		      strcpy(child, gethomedir(NULL));
  
 		    if(!compresspath(gmp->dname, child, NLINE)){
-			emlwrite("Invalid Directory: %s", child);
+			emlwrite("�L�Ī��ؿ��G%s", child);
 			break;
 		    }
 
 		    if((gmode&MDSCUR) && homeless(child)){
-			emlwrite("Restricted mode browsing limited to home directory",NULL);
+			emlwrite("����Ҧ����ȯ��s�� home directory",NULL);
 			break;
 		    }
  
 		    if((gmode&MDTREE) && !in_oper_tree(child)){
-		      emlwrite("\007 Can't go outside of %s in restricted mode",
+		      emlwrite("\007 ����Ҧ����L�k���} %s",
 			       opertree);
 			break;
 		    }
@@ -954,7 +954,7 @@
 			PaintBrowser(gmp, 0, &crow, &ccol);
 		    }
 		    else
-		      emlwrite("\007Not a directory: \"%s\"", child);
+		      emlwrite("\007\"%s\"���O�@�ӥؿ�", child);
  
 		    break;
 		  default:
@@ -976,10 +976,10 @@
 
 	    while(!i){
 
-		switch(status=mlreply("Name of file to add: ", child, NLINE,
+		switch(status=mlreply("���s�W���ɦW�G", child, NLINE,
 				      QFFILE, NULL)){
 		  case HELPCH:
-		    emlwrite("\007No help yet!", NULL);
+		    emlwrite("\007�|�L���U�����I", NULL);
 /* remove break and sleep after help text is installed */
 		    sleep(3);
 		    break;
@@ -987,7 +987,7 @@
 		    PaintBrowser(gmp, 0, &crow, &ccol);
 		    break;
 		  case ABORT:
-		    emlwrite("Add File Cancelled", NULL);
+		    emlwrite("�����s�W�ɮ�", NULL);
 		    i++;
 		    break;
 		  case FALSE:
@@ -998,23 +998,23 @@
 		    i++;
 
 		    if(child[0] == '\0'){
-			emlwrite("No file named.  Add Cancelled.", NULL);
+			emlwrite("�����w�ɦW�A�����s�W�ɮסC", NULL);
 			break;
 		    }
 
 		    if(!compresspath(gmp->dname, child, NLINE)){
-			emlwrite("Too many ..'s in name", NULL);
+			emlwrite("�ɦW�����Ӧh�� .. �F", NULL);
 			break;
 		    }
 
 		    if((gmode&MDTREE) && !in_oper_tree(child)){
-		       emlwrite("\007Restricted mode allows Add in %s only",
+		       emlwrite("\007����Ҧ����Ȥ��\\�b %s ���s�W�ɮ�",
 				opertree);
 			break;
 		    }
 
 		    if((status = fexist(child, "w", (off_t *)NULL)) == FIOSUC){
-			sprintf(tmp,"File \"%.*s\" already exists!",
+			sprintf(tmp,"�ɮ� \"%.*s\" �w�s�b�I",
 				NLINE - 20, child);
 			emlwrite(tmp, NULL);
 			break;
@@ -1030,7 +1030,7 @@
 		    }
 		    else{			/* highlight new file */
 			ffclose();
-			emlwrite("Added File \"%s\"", child);
+			emlwrite("�s�W�ɮ� \"%s\"", child);
 
 			if((p = strrchr(child, C_FILESEP)) == NULL){
 			    emlwrite("Problems refiguring browser", NULL);
@@ -1078,12 +1078,12 @@
 	  case 'c':					/* copy */
 	  case 'C':
 	    if(gmp->current->mode == FIODIR){
-		emlwrite("\007Can't copy a directory", NULL);
+		emlwrite("\007�L�k�ƻs�ؿ�", NULL);
 		break;
 	    }
 
 	    if(gmode&MDSCUR){				/* not allowed! */
-		emlwrite("Copy not allowed in restricted mode",NULL);
+		emlwrite("�L�k�b����Ҧ����ƻs�ɮ�",NULL);
 		break;
 	    }
 
@@ -1092,10 +1092,10 @@
 
 	    while(!i){
 
-		switch(status=mlreply("Name of new copy: ", child, NLINE,
+		switch(status=mlreply("�s�ƻs�ɦW�G", child, NLINE,
 				      QFFILE, NULL)){
 		  case HELPCH:
-		    emlwrite("\007No help yet!", NULL);
+		    emlwrite("\007�|�L���U����!", NULL);
 /* remove break and sleep after help text is installed */
 		    sleep(3);
 		    break;
@@ -1103,7 +1103,7 @@
 		    PaintBrowser(gmp, 0, &crow, &ccol);
 		    break;
 		  case ABORT:
-		    emlwrite("Make Copy Cancelled", NULL);
+		    emlwrite("�����ƻs�ɮ�", NULL);
 		    i++;
 		    break;
 		  case FALSE:
@@ -1114,33 +1114,33 @@
 		    i++;
 
 		    if(child[0] == '\0'){
-			emlwrite("No destination, file not copied", NULL);
+			emlwrite("�����w�ئa�ɦW�A�ɮרS���Q�ƻs�C", NULL);
 			break;
 		    }
 
 		    if(!strcmp(gmp->current->fname, child)){
-			emlwrite("\007Can't copy file on to itself!", NULL);
+			emlwrite("\007�L�k�N�ɮ׽ƻs�ܥ��ۤv!", NULL);
 			break;
 		    }
 
 		    if(!compresspath(gmp->dname, child, NLINE)){
-			emlwrite("Too many ..'s in name", NULL);
+			emlwrite("�ɦW�����Ӧh�� .. �F", NULL);
 			break;
 		    }
 
 		    if((gmode&MDTREE) && !in_oper_tree(child)){
-		       emlwrite("\007Restricted mode allows Copy in %s only",
+		       emlwrite("\007����Ҧ����Ȥ��\\�b %s ���ƻs�ɮ�",
 				opertree);
 			break;
 		    }
 
 		    if((status = fexist(child, "w", (off_t *)NULL)) == FIOSUC){
-			sprintf(tmp,"File \"%.*s\" exists! OVERWRITE",
+			sprintf(tmp,"�ɮ� \"%.*s\" �w�s�b! �n�л\\��",
 				NLINE - 20, child);
 			if((status = mlyesno(tmp, 0)) != TRUE){
 			    emlwrite((status == ABORT)
-				      ? "Make copy cancelled" 
-				      : "File Not Renamed",
+				      ? "�����ƻs" 
+				      : "�ɮרS���Q�ƻs",
 				     NULL);
 			    break;
 			}
@@ -1158,7 +1158,7 @@
 			break;
 		    }
 		    else{			/* highlight new file */
-			emlwrite("File copied to %s", child);
+			emlwrite("�ƻs�ɮר� %s", child);
 
 			if((p = strrchr(child, C_FILESEP)) == NULL){
 			    emlwrite("Problems refiguring browser", NULL);
@@ -1201,12 +1201,12 @@
 	    i = 0;
 
 	    if(!strcmp(gmp->current->fname, "..")){
-		emlwrite("\007Can't rename \"..\"", NULL);
+		emlwrite("\007�L�k��� \"..\" ���W��", NULL);
 		break;
 	    }
 
 	    if(gmode&MDSCUR){				/* not allowed! */
-		emlwrite("Rename not allowed in restricted mode",NULL);
+		emlwrite("�L�k�b����Ҧ�������ɮצW",NULL);
 		break;
 	    }
 
@@ -1214,10 +1214,10 @@
 
 	    while(!i){
 
-		switch(status=mlreply("Rename file to: ", child, NLINE, QFFILE,
+		switch(status=mlreply("�ɮצW�٧�אּ�G", child, NLINE, QFFILE,
 				      NULL)){
 		  case HELPCH:
-		    emlwrite("\007No help yet!", NULL);
+		    emlwrite("\007�|�L���U����!", NULL);
 /* remove break and sleep after help text is installed */
 		    sleep(3);
 		    break;
@@ -1225,7 +1225,7 @@
 		    PaintBrowser(gmp, 0, &crow, &ccol);
 		    break;
 		  case ABORT:
-		    emlwrite("Rename cancelled", NULL);
+		    emlwrite("��������ɮצW��", NULL);
 		    i++;
 		    break;
 		  case FALSE:
@@ -1238,12 +1238,12 @@
 		    }
 
 		    if(!compresspath(gmp->dname, child, NLINE)){
-			emlwrite("Too many ..'s in name", NULL);
+			emlwrite("�ɦW�����Ӧh�� .. �F", NULL);
 			break;
 		    }
 
 		    if((gmode&MDTREE) && !in_oper_tree(child)){
-		       emlwrite("\007Restricted mode allows Rename in %s only",
+		       emlwrite("\007����Ҧ����Ȥ��\\�b %s ������ɦW",
 				opertree);
 			break;
 		    }
@@ -1251,13 +1251,13 @@
 		    status = fexist(child, "w", (off_t *)NULL);
 		    if(status == FIOSUC || status == FIOFNF){
 			if(status == FIOSUC){
-			    sprintf(tmp,"File \"%.*s\" exists! OVERWRITE",
+			    sprintf(tmp,"�ɮ� \"%.*s\" �w�s�b! �n�л\\��",
 				    NLINE - 20, child);
 
 			    if((status = mlyesno(tmp, FALSE)) != TRUE){
 				emlwrite((status ==  ABORT)
-					  ? "Rename cancelled"
-					  : "Not Renamed",
+					  ? "������W"
+					  : "�ɮרS���Q��W",
 					 NULL);
 				break;
 			    }
@@ -1267,7 +1267,7 @@
 				gmp->current->fname);
 
 			if(rename(tmp, child) < 0){
-			    emlwrite("Rename Failed: %s", errstr(errno));
+			    emlwrite("��W���ѡG%s", errstr(errno));
 			}
 			else{
 			    if((p = strrchr(child, C_FILESEP)) == NULL){
@@ -1326,7 +1326,7 @@
 
 			if((gmode&MDTREE) && !in_oper_tree(tmp)){
 			    emlwrite(
-				   "\007Can't visit parent in restricted mode",
+				   "\007�L�k�b����Ҧ����˵��W�h�ؿ�",
 				   NULL);
 			    break;
 			}
@@ -1347,7 +1347,7 @@
 			        strcpy(tmp, S_FILESEP);
 #endif
 			      else{
-				  emlwrite("\007Can't move up a directory",
+				  emlwrite("\007�L�k�����ܤW�@�h�ؿ�",
 					   NULL);
 				  break;
 			      }
@@ -1374,12 +1374,12 @@
 			PlaceCell(gmp, gmp->current, &row, &col);
 		    }
 		    else
-		      emlwrite("\007Problem finding dir \"%s\"",child);
+		      emlwrite("\007�j�M�ؿ� \"%s\" �ɥX�F���D",child);
 		}
 
 		PaintBrowser(gmp, 0, &crow, &ccol);
 		if(!*child)
-		  emlwrite("Select/View \".. parent dir\" to return to previous directory.",
+		  emlwrite("�H [���]/[�˵�] \".. parent dir\" �^��e�@�ӥؿ��C",
 			   NULL);
 
 		break;
@@ -1425,7 +1425,7 @@
 
 		switch(readpattern("File name to find")){
 		  case HELPCH:
-		    emlwrite("\007No help yet!", NULL);
+		    emlwrite("\007�|�L���U����!", NULL);
 /* remove break and sleep after help text is installed */
 		    sleep(3);
 		    break;
@@ -1456,10 +1456,10 @@
 			}
 			while(tp->next);
 
-			emlwrite("Searched to end of directory", NULL);
+			emlwrite("�j�M�ܥؿ�����", NULL);
 		    }
 		    else
-		      emlwrite("Searched to start of directory", NULL);
+		      emlwrite("�j�M�ܥؿ��_�l", NULL);
 
 		    if(tp){
 			PlaceCell(gmp, gmp->current, &row, &col);
@@ -1478,7 +1478,7 @@
 		    i++;			/* make sure we jump out */
 		    break;
 		  case ABORT:
-		    emlwrite("Whereis cancelled", NULL);
+		    emlwrite("�����j�M", NULL);
 		    i++;
 		    break;
 		  case FALSE:
@@ -1502,7 +1502,7 @@
 			mlerase();
 		    }
 		    else
-		      emlwrite("\"%s\" not found", pat);
+		      emlwrite("�䤣�� \"%s\"", pat);
 
 		    i++;
 		    break;
@@ -1524,11 +1524,11 @@
 	  default:				/* what? */
 	  Default:
 	    if(c < 0xff)
-	      emlwrite("\007Unknown command: '%c'", (void *) c);
+	      emlwrite("\007�������R�O�G'%c'", (void *) c);
 	    else if(c & CTRL)
-	      emlwrite("\007Unknown command: ^%c", (void *)(c&0xff));
+	      emlwrite("\007�������R�O�G^%c", (void *)(c&0xff));
 	    else
-	      emlwrite("\007Unknown command", NULL);
+	      emlwrite("\007�������R�O", NULL);
 	  case NODATA:				/* no op */
 	    break;
 	}
@@ -1560,7 +1560,7 @@
 
     errbuf[0] = '\0';
     if((mp=(struct bmaster *)malloc(sizeof(struct bmaster))) == NULL){
-	emlwrite("\007Can't malloc space for master filename cell", NULL);
+	emlwrite("\007�L�k�t�m�O����Ŷ��� master filename cell", NULL);
 	return(NULL);
     }
 
@@ -1584,7 +1584,7 @@
     mp->cpf = mp->fpl = 0;
     mp->longest = 5;				/* .. must be labeled! */
 
-    emlwrite("Building file list of %s...", mp->dname);
+    emlwrite("���b�إ� %s ���ɮצC��...", mp->dname);
 
     if((mp->names = getfnames(mp->dname, NULL, &nentries, errbuf)) == NULL){
 	free((char *) mp);
@@ -1603,7 +1603,7 @@
      * easily be made a user option later on...
      */
     if((filtnames=(char **)malloc((nentries+1) * sizeof(char *))) == NULL){
-	emlwrite("\007Can't malloc space for name array", NULL);
+	emlwrite("\007�L�k�t�m�O����Ŷ��� name array", NULL);
 	zotmaster(&mp);
 	return(NULL);
     }
@@ -1654,7 +1654,7 @@
     while(nentries--){				/* stat filtered files */
 	/* get a new cell */
 	if((ncp=(struct fcell *)malloc(sizeof(struct fcell))) == NULL){
-	    emlwrite("\007Can't malloc cells for browser!", NULL);
+	    emlwrite("\007�L�k�t�m�O����Ŷ��� browser!", NULL);
 	    zotfcells(mp->head);		/* clean up cells */
 	    free((char *) filtnames);
 	    free((char *) mp);
@@ -1840,22 +1840,22 @@
 BrowserKeys()
 {
     menu_browse[QUIT_KEY].name  = (gmode&MDBRONLY) ? "Q" : "E";
-    menu_browse[QUIT_KEY].label = (gmode&MDBRONLY) ? "Quit" : "Exit Brwsr";
+    menu_browse[QUIT_KEY].label = (gmode&MDBRONLY) ? "���}" : "���}�s����";
     menu_browse[GOTO_KEY].name  = (gmode&MDGOTO) ? "G" : NULL;
-    menu_browse[GOTO_KEY].label = (gmode&MDGOTO) ? "Goto" : NULL;
+    menu_browse[GOTO_KEY].label = (gmode&MDGOTO) ? "����" : NULL;
     if(gmode & MDBRONLY){
 	menu_browse[EXEC_KEY].name  = "L";
-	menu_browse[EXEC_KEY].label = "Launch";
+	menu_browse[EXEC_KEY].label = "�Ұ�";
 	menu_browse[SELECT_KEY].name  = "V";
-	menu_browse[SELECT_KEY].label = "[View]";
+	menu_browse[SELECT_KEY].label = "[�˵�]";
 	menu_browse[PICO_KEY].name  = "E";
-	menu_browse[PICO_KEY].label = "Edit";
+	menu_browse[PICO_KEY].label = "�s��";
     }
     else{
 	menu_browse[SELECT_KEY].name  = "S";
-	menu_browse[SELECT_KEY].label = "[Select]";
+	menu_browse[SELECT_KEY].label = "[���]";
 	menu_browse[PICO_KEY].name  = "A";
-	menu_browse[PICO_KEY].label = "Add";
+	menu_browse[PICO_KEY].label = "�s�W";
     }
 
     wkeyhelp(menu_browse);
@@ -1958,7 +1958,7 @@
 
 	if((tp = tp->next) == NULL){		/* above top? */
 	    if(secondtry++){
-		emlwrite("\007Internal error: can't find fname cell", NULL);
+		emlwrite("\007�������~�G �䤣�� fname cell", NULL);
 		return(-1);
 	    }
 	    else{
@@ -2124,10 +2124,10 @@
 	if(!p)					/* no suitable length! */
 	  p = &dir[l-(term.t_ncol-i-19)];
 
-	sprintf(buf, "%s Dir ...%s", (gmode&MDBRONLY) ? "" : " BROWSER  ", p);
+	sprintf(buf, "%s �ؿ� ...%s", (gmode&MDBRONLY) ? "" : " BROWSER  ", p);
     }
     else 
-      sprintf(buf,"%s  Dir: %s", (gmode&MDBRONLY) ? "" : " BROWSER  ", dir);
+      sprintf(buf,"%s  �ؿ��G %s", (gmode&MDBRONLY) ? "" : " BROWSER  ", dir);
 
     if(i < j)					/* keep it centered */
       j = j - i;				/* as long as we can */
@@ -2256,18 +2256,18 @@
 	      if((line = (buf[i] == '\n') ? 0 : line + 1) >= LA_LINE_LIMIT
 		 || !buf[i]){
 		  rv = FALSE;
-		  emlwrite("Can't display non-text file.  Try \"Launch\".",
+		  emlwrite("�L�k��ܫD��r�ɡC�ո� \"�Ұ�\"�C",
 			   NULL);
 		  break;
 	      }
 	}
 	else
-	  emlwrite("Can't read file: %s", file);
+	  emlwrite("�L�kŪ���ɮסG%s", file);
 
 	fclose(fp);
     }
     else
-      emlwrite("Can't open file: %s", file);
+      emlwrite("�L�k�}���ɮסG%s", file);
 
     return(rv);
 }