ogatool

Fork

/*
 *	filer[.x] : ファイルを選択し、環境変数 FILE_NAME にセットする。(X68000)
 *                                    標準エラー出力に出力する         (3050RX)
 *
 *   X680x0  usage : filer [ <X> <Y> off_y [-aster] ]
 *
 *		IN  -aster             : 漢字を*に変換する。
 *		OUT (環境変数)
 *	             FILE_NAME         : 選択したファイル名
 *	             LOCATE_X,LOCATE_Y : カーソルX,Y位置
 *	             OFF_Y             : ファイル選択時の表示ページ
 *	             DEL_F             : 削除要求フラグ 
 *	             VI_F              : エディタ起動要求フラグ 
 *
 *
 *   H3050R  usage : filer [ <X> <Y> off_y ]
 *
 *		IN  off_y      	      : 表示ページ(ファイルが多い場合)
 *		OUT (標準エラー出力)      1    2 3  4    5     6     7
 *	   	    		      FILENAME X Y CWD OFF_Y DEL_F VI_F
 *		    CWD   : カレントディレクトリ
 *		    OFF_Y : ファイル選択時の表示ページ
 *		    DEL_F : 削除要求フラグ
 *	            VI_F  : エディタ起動要求フラグ 
 *
 *
 *		related files : cur.h, vvi[.bat]
 *
 *   CAUTION : driveコマンドでドライブ名を入れ替えていると正常に動作しません。
 *
 *			1994.04.20  V0.01	Initial Version. by おが★
 *			1994.04.26  V1.00	add readdir.
 *			1994.05.07  V1.01	X,Y save support for X68000.
 *			1994.05.07  V1.02	chdir support.
 *			1994.05.08  V1.03	-aster support for X68000's vi.
 *			1994.05.08  V1.04	ESC support.
 *			1994.10.13  V1.10	TERM size and dir ind. support.
 *			1994.10.21  V1.11	'D'(delete file) support.
 *			1995.01.29  V1.12	X68K COLUMNS/LINES support.
 *			1995.03.17  V1.13	cursor shift support.
 *			1995.03.18  V1.14	add nocbreak() for eof="^@"
 *			1995.04.10  V1.15	add endwin()   for stty -echo 
 *			1995.05.14  V1.16	'v' force invoke editor suport.
 *			1996.03.24  V1.17	port to Linux
 *			2006.07.03  V1.18	check getenv() NULL
 *
 */

#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <dirent.h>
#include "cur.h"
#include <sys/stat.h>

#ifdef X68000
#include <sys/dos.h>
#include <sys/iocs.h>
#include <unistd.h>			
#else /* H3050RX */
#include <curses.h>
#include <sys/param.h>
#endif

#define FILE_LEN 20
#define MAX_ENT  2000
#define CALXY  	 x*y_max+y+off_y*x_max*y_max

int x_max = 0, y_max = 0, off_y = 0;

char	dirf[MAX_ENT];

main(a,b)
int a;
char *b[];
{
	int	c, i=0, j;
	int	x=0,y=0,cnt=0, f_aster=0, del_f = 0, vi_f = 0;
	int 	env_x, env_y;
	DIR	*dirp;
	int	move_dir_f = 0;			/* 94.11.02 for move dir */
	struct	dirent *dp;
	struct	stat statbuf;
	char	*file[MAX_ENT];
#ifdef X68000
	char	buf[PATH_MAX+1];
#else /* H3050RX */
	char	buf[MAXPATHLEN+1];
#endif

	if (a >= 3) {
		x = atoi(b[1]);
		y = atoi(b[2]);
	}

	if (a >= 4) {
		off_y = atoi(b[3]);
	}

	if (a == 5) {
		if (strcmp(b[4],"-aster") == 0)
			f_aster = 1;
	}

#ifdef X68000
	if (_iocs_crtmod(-1) == 16) {
		env_x = 100;				/* 96 */
		env_y = 31;
		x_max = env_x / FILE_LEN;
	} else {
		env_x = 64;
		env_y = 31;
		x_max = env_x / FILE_LEN;
		if (x > x_max-1) x=x_max-1;
	}
	/*
	if (i = atoi(getenv("COLUMNS"))) {
		env_x = i;
		x_max = env_x / FILE_LEN;
		if (x > x_max-1) x=x_max-1;
	}
	if (i = atoi(getenv("LINES"))) {
		env_y = i-1;
	}
	*/
#else
	if (getenv("COLUMNS")) {
		env_x = atoi(getenv("COLUMNS"));
	} else {
		env_x = 80;
	}
	if (getenv("LINES")) {
		env_y = atoi(getenv("LINES"));
	} else {
		env_y = 24;
	}
	x_max = env_x / FILE_LEN;
#endif

	do {
#ifdef X68000
		cls();
		CUR_OFF;		/* カーソルオフ */
#else
		initscr();
		/* nonl(); */
		cbreak();
		noecho();
		clear();
		refresh();
#endif
	
		for (i=0; i<MAX_ENT; i++)  {
			file[i] = (char *)0;		/* filename ptr  */
			dirf[i] = 0;			/* dir indicator */
		}	
		i=0;
		dirp = opendir(".");

	        while((dp=readdir(dirp)) !=NULL){
			file[i] = (char *)malloc(strlen(dp->d_name)+1);
			strcpy(file[i],dp->d_name);
			i++;
			if (i >= MAX_ENT) {
				printf("filer : エントリオーバーフロー  ");
				printf("(MAX is %d)\n",MAX_ENT);
#ifndef X68000
				sleep(1);
#endif
				break;
			}
	    	}
	    	closedir(dirp);
	    	xsort(file,i);

		j=0;
		while (file[j]) {
			stat(file[j],&statbuf);
#if defined(X68000) || defined(LINUX)
			if (statbuf.st_mode & S_IFDIR ) { 
#else
			if (statbuf.st_mode & _S_IFDIR ) { 
#endif
				dirf[j] = '/';
			}
			j++;
		}

		if (move_dir_f)			/* 94.11.02 for move dir */
			off_y = 0;		/* 94.10.25 for move dir */
		dispdir(buf);
	
		/* noecho(); */
		y_max = (i-1) / x_max + 1;

		if (y_max >= env_y - 2) {
			y_max = env_y - 3;
		}

		dispall(file);
		if (y > y_max-1) y = y_max-1;
		while (file[CALXY] == (char *)0)
				--x;
		disp(file,x,y,1);
#ifdef X68000
		while ((c = getch()) != 13) { 	/* } */
#else  /* H3050RX */
		while ((c = getch()) != '\n') {
#endif
			switch(c) {
				case 'j' :
				case 'J' :
					disp(file,x,y,0);
					if (++y >= y_max) {
						y -= y_max;
						if (++x >= x_max) x -= x_max;
					}
					if (file[CALXY] == (char *)0) {
						x = 0;
						y = 0;
					}
					disp(file,x,y,1);
					break;
				case 'k' :
				case 'K' :
					disp(file,x,y,0);
					if (--y < 0) {
						y += y_max;
						if (--x < 0) x += x_max;
					}
					while (file[CALXY] == (char *)0) {
						if (--y < 0) {
							y += y_max;
							if (--x < 0) x += x_max;
						}
					}
					disp(file,x,y,1);
					break;
				case 'h' :
				case 'H' :
					disp(file,x,y,0);
					if (--x < 0) {
						x += x_max;
						if (--y < 0) y += y_max;
					}
					while (file[CALXY] == (char *)0) {
						if (--x < 0) {
							x += x_max;
							if (--y < 0) y += y_max;
						}
					}
					disp(file,x,y,1);
					break;
				case 'l' :
				case 'L' :
					disp(file,x,y,0);
					if (++x >= x_max) {
						x -= x_max;
						if (++y >= y_max) y -= y_max;
					}
					if (file[CALXY] == (char *)0) {
						x = 0;
						if (++y >= y_max) y -= y_max;
						if (file[CALXY] == (char *)0) y = 0;
					}
					disp(file,x,y,1);
					break;
				case 6   :		/* ^F and ↓(X68000) */
#ifndef X68000
				case 'B' :		/* ↓ H3050R */
#endif
					++off_y;
					if (file[off_y*x_max*y_max] == (char *)0) {
						--off_y;
					} else {
						/* 94.10.25 */
						if (file[CALXY] == (char *)0) {
							x = y = 0;
						}
#ifdef X68000
						cls();
#else
						clear();
						refresh();
#endif
						dispdir(buf);
						dispall(file);
						disp(file,x,y,1);
					}
					break;
				case 2   :		/* ^B  */
#ifdef X68000
				case 1   :		/* ↑ X68000 */
#else
				case 'A' :		/* ↑ H3050R */
#endif
					--off_y;
					if (off_y < 0) {
						off_y = 0;
					} else {
						/* 94.10.25 */
						if (file[CALXY] == (char *)0) {
							x = y = 0;
						}
#ifdef X68000
						cls();
#else
						clear();
						refresh();
#endif
						dispdir(buf);
						dispall(file);
						disp(file,x,y,1);
					}
					break;
				case 'D' :		/* D(delete)        V1.11 */
					del_f = 1;
					break;
				case 'v' :		/* v(invode editor) V1.16 */
				case 'V' :		
					vi_f = 1;
					break;
				case 27 :		/* ESC */
					disp(file,x,y,0);
					if (y_max == 1) {
						x = 1;
						y = 0;
					} else {
						x = 0;
						y = 1;
					}
					if (off_y) {
						off_y = 0;
#ifdef X68000
						cls();
#else
						clear();
						refresh();
#endif
						dispdir(buf);
						dispall(file);
					}
					disp(file,x,y,1);
					break;
				case 'q' :
				case 'Q' :
					freex(file);
#ifdef X68000
					cls();
					CUR_ON;		/* カーソルオン */
#else
					clear();
					nocbreak();
					refresh();
					endwin();
#endif
					exit(1);	/* end vvi (no EXEC vi) */
					break;
			}
			if (del_f || vi_f)
				break;
		}

		move_dir_f = 1;			/* 94.11.02 for move dir */

	} while (chdir(file[CALXY]) == 0);	/* ディレクトリならば移動する。 */

#ifdef X68000
	if (f_aster) {				/* 漢字をアスタリスク一個に変換する */
		for (i=0; i<strlen(file[CALXY]); i++) {
			if ((unsigned char) *(file[CALXY]+ i) > 127) {	/* たぶん漢字 */
				*(file[CALXY]+ i) = '*';
				*(file[CALXY]+ i+1) = '\0';
				break;
			}
		}
	}
	_dos_setenv("FILE_NAME",0,file[CALXY]); /* 親の環境変数にファイル名をセット */
	sprintf(buf,"%d",x);			/* X位置のセーブ	*/
	_dos_setenv("LOCATE_X",0,buf);
	sprintf(buf,"%d",y);			/* Y位置のセーブ	*/
	_dos_setenv("LOCATE_Y",0,buf);
	sprintf(buf,"%d",off_y);		/* カレントページ	*/
	_dos_setenv("OFF_Y",0,buf);
	sprintf(buf,"%d",del_f);		/* 削除フラグ    	*/
	_dos_setenv("DEL_F",0,buf);
	sprintf(buf,"%d",vi_f);			/* エディタ起動フラグ 	*/
	_dos_setenv("VI_F",0,buf);
	CUR_ON;					/* カーソルオン */
#else
   	/* stderrにファイル名とX位置,Y位置,pwd, off_y, del_f を出力  */
	fprintf(stderr,"%s %d %d %s %d %d %d",file[CALXY],x,y,getcwd(buf,MAXPATHLEN+1),off_y, del_f,vi_f);	

	sprintf(buf,"FILE_NAME=%s",file[CALXY]); /* <= あまり意味はない  */
	putenv(buf);
	sprintf(buf,"LOCATE_X=%d",x);		/* X位置のセーブ	*/
	putenv(buf);
	sprintf(buf,"LOCATE_Y=%d",y);		/* Y位置のセーブ	*/
	putenv(buf);
	nocbreak();
	endwin();
#endif
	freex(file);
	exit(0);				/* EXEC "vi"        */
}

disp(file,x,y,sw)
char **file;
int x,y,sw;
{
	locate(x*FILE_LEN,y+3);
#ifdef X68000
	if (sw) 
		printf("%s%c\n",file[CALXY],dirf[CALXY]); /*  リバース表示  */
	else 
		printf("%s%c\n",file[CALXY],dirf[CALXY]);	/*  ノーマル表示  */
#else  /* for H3050RX mjpterm */
	if (sw) 
		printf("%s%c\n",file[CALXY],dirf[CALXY]); /*  リバース表示  */

	else 
		printf("%s%c\n",file[CALXY],dirf[CALXY]);	/*  ノーマル表示  */
#endif
	/* locate(x*FILE_LEN,y+3-1); */
	locate(0,0); 
	printf("\n");
#ifdef LINUX
	refresh();
#endif

}

dispall(file)
char *file[];
{
	int i,j;

	for (j=0; j<x_max ; j++) {
		for (i=0; i<y_max ; i++) {
			if (file[j*y_max+i])
				disp(file,j,i,0);
			else
				break;
		}
	}
}
freex(file)
char *file[];
{
	int i=0;
	while (file[i])
		free(file[i++]);

}

xsort(file,n)
char *file[];
int n;
{
	char *wk;
	int i,j;

	for (i=1;i<n;i++) {
		for (j=0;j<n-1;j++) {
			if (strcmp(file[j],file[j+1]) > 0 ) {
				wk 	  = file[j];
				file[j]   = file[j+1];
				file[j+1] = wk;
			}
		}
	}
}

dispdir(buf)
char *buf;
{
#ifdef X68000
	printf("  Current Directory : %s (No.%d)\n",getcwd(buf,PATH_MAX+1),off_y+1); 
#else  /* H3050RX */
	printf("  Current Directory : %s (No.%d)\n",getcwd(buf,MAXPATHLEN+1),off_y+1); 
#endif
}