/*
 * filecheck.c  save/load file existance and kanjicode check 
 *
 * Copyright (C) 1997-1998 Masaki Chikama (Wren) <chikama@kasumi.ipl.mech.nagoya-u.ac.jp>
 *               1998-                           <masaki-c@is.aist-nara.ac.jp>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 *
*/
/* $Id: filecheck.c,v 1.4 2003/07/21 23:06:47 chikama Exp $ */

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/types.h>
#include <dirent.h>

#include "eucsjis.h"

struct fnametable {
	char *realname;
	char *transname;
};

#define FILEMAX 100 /* ???? */
static struct fnametable tbl[FILEMAX];
static int fnametable_cnt;
static boolean initilized = FALSE;
static boolean newfile_kanjicode_euc = TRUE;

/* list up file in current directory */
/*   name : save/load directory      */
void fc_init(char *name) {
	DIR *dir;
	struct dirent *entry;
	int c = 0;
	
	initilized = FALSE;
	
	if (NULL == (dir = opendir(name))) {
		return;
	}
	
	while(0 < (entry = readdir(dir))) {
		if (c >= FILEMAX) {
			fprintf(stderr, "Over " "FILEMAX" "files in savefile directry\n");
			break;
		}
		tbl[c].realname = strdup(entry->d_name);
		tbl[c].transname = strdup(entry->d_name);
		sjis_toupper(tbl[c].transname);
		c++;
	}
	fnametable_cnt = c;
	closedir(dir);
	initilized = TRUE;
}

/* req must sjis */
char *fc_search(char *req) {
	int i;
	BYTE *b;
	
	if (!initilized) return req;
	
	for (i = 0; i < fnametable_cnt; i++) {
		/* match exeactly */
		if (0 == strcmp(req, tbl[i].realname)) return req;

		/* capital match */
		b = sjis_toupper2(req);
		if (0 == strcmp(b, tbl[i].transname)) {
			free(b);
			return tbl[i].realname;
		}
		
		/* euc match */
		b = sjis2euc(req);
		sjis_toupper(b);
		if (0 == strcmp(b, tbl[i].transname)) {
			free(b);
			return tbl[i].realname;
		} 
		free(b);
	}
	return NULL;
}

/* add new file to entry */
char *fc_add(char *req) {
	BYTE *b;
	
	if (!initilized) return req;
	
	if (fnametable_cnt >= FILEMAX) {
		fprintf(stderr, "Over " "FILEMAX" "files in savefile directry\n");
		return req;
	}

	if (newfile_kanjicode_euc) {
		tbl[fnametable_cnt].realname = sjis2euc(req);
	} else {
		tbl[fnametable_cnt].realname = strdup(req);
	}

	b = sjis_toupper2(req);
	tbl[fnametable_cnt].transname = b;
	
	b = tbl[fnametable_cnt].realname;
	fnametable_cnt++;
	return b;
}

/* QE で新規ファイルをセーブする時のファイル名の漢字コード */
void fc_set_default_kanjicode(int c) {
	if (c == 0) {
		newfile_kanjicode_euc = TRUE;
	} else {
		newfile_kanjicode_euc = FALSE;
	}
}