/*
 * *****************************************************************
 * *															   *
 * *	   Copyright (c) Fast Corporation, 1997					   *
 * *															   *
 * *   All Rights Reserved.	 Unpublished rights	 reserved  under   *
 * *   the copyright laws of the Japan.							   *
 * *															   *
 * *   The software contained on this media	 is	 proprietary  to   *
 * *   and	embodies  the  confidential	 technology	 of	 Fast	   *
 * *   Corporation.	 Possession, use,  duplication	or			   *
 * *   dissemination of the software and media is authorized only  *
 * *   pursuant to a valid written license from Fast Corporation.  *
 * *															   *
 * *****************************************************************
 */

/* ＣＳＣ９０Ｘ　グレイサーチ(パッドを自作する例)			GSBASIC.C */
/*［作成者］H.Yagi */
/*
目的：
関数：
履歴：	Ver 1.0		97/08/15
		Ver 2.0		00/05/15
注記：m_menu.hをインクルードして下さい。
	  m_menu.c及びm_note.cをリンクして下さい。
*/

/*
 * Include compiler runtime library
 */
#include <string.h>
#include <math.h>


/*
 * Include CSC90X library
 */
#include "f_stdlib.h"
#include "f_time.h"
#include "f_gui.h"
#include "f_stdio.h"
#include "f_graph.h"
#include "f_image.h"
#include "f_pinf.h"
#include "f_file.h"
#include "f_video.h"
#include "f_system.h"
#include "f_search.h"


/*
 * Include CSC90X common local
 */
#include "m_menu.h"


/*
 * プロトタイプ宣言
 */
void main( void );
void main_menu_disp( void );
void disp_help( void );
int alloc_ptn_area( void );
void save_file( void );
int load_file( void );
void gs_set( void );
void wind_set( int *, int *, int *, int * );
void ptn_reg( void );
void ptn_disp( void );
void gs_joken( void );
void exec( void );

extern int	message_note( void );

/*
 * メニュー項目
 */
#define LANG_N		 2
#define MAIN_MENU_N	 4
static const char *str_main_menu[MAIN_MENU_N][LANG_N] = {
	{ "  SET GS  ", "サーチ設定" },
	{ "  EXEC    ", "  実  行  " },
	{ "  PROC3   ", "  処理３  " },
	{ "  PROC4   ", "  処理４  " }
};

#define PTN_SIZE   102400

#define	 INIT_CUR_POS_X		255
#define	 INIT_CUR_POS_Y		239

#define	   MAX_NO_GRAY_SEARCH	50

static char *select[3] = { "通常"   , "高　" , "超高"   };

int sts;
static char ss[100];

typedef union
{
	
	char cn[5];		/* パタン名称	*/
	int in;			/* パタン名称	*/
	
} PTN_N;

static PTN_N name;		/*サーチパタン名称		*/

int gs_wxs;				/* サーチ範囲始点Ｘ		*/
int gs_wys;				/* サーチ範囲始点Ｙ		*/
int gs_wxe;				/* サーチ範囲終点Ｘ		*/
int gs_wye;				/* サーチ範囲終点Ｙ		*/
int num;				/* 個数					*/
int seido;				/* 精度					*/
int complex;			/* 複雑度				*/
int mid_lower;			/* 途中下限値			*/
int last_lower;			/* 最終下限値			*/

typedef struct
{
	
	PTN_N name;		/*サーチパタン名称		*/
	int gs_wxs;				/* サーチ範囲始点Ｘ		*/
	int gs_wys;				/* サーチ範囲始点Ｙ		*/
	int gs_wxe;				/* サーチ範囲終点Ｘ		*/
	int gs_wye;				/* サーチ範囲終点Ｙ		*/
	int num;				/* 個数					*/
	int seido;				/* 精度					*/
	int complex;			/* 複雑度				*/
	int mid_lower;			/* 途中下限値			*/
	int last_lower;			/* 最終下限値			*/
	
} DATA;

static char *ptn_adr;


/*
 * メイン
 */
void  main( void )
{
	int	 sts;
	int	 xpos;
	int	 ypos;
	int	 s_xpos;
	int	 s_ypos;
	
	/* 初期メッセージ表示 */
	if( NORMAL_RETURN != message_note() )
		return;
	
	/* サーチパタン格納領域の確保 */
	if ( NORMAL_RETURN == alloc_ptn_area() )
	{
		/* パラメタ初期化 */
		xpos = INIT_CUR_POS_X;
		ypos = INIT_CUR_POS_Y;
		s_xpos = INIT_CUR_POS_X;
		s_ypos = INIT_CUR_POS_Y;
		
		/* パラメータファイルのロード */
		if ( ERROR_RETURN == load_file() )
		{
			Lib_sprintf( name.cn, "%04d", 0 );		/* パタン名称	*/
			gs_wxs		=	0;
			gs_wys		=	0;
			gs_wxe		=	511;
			gs_wye		=	479;
			num			=	1;
			seido		=	1;
			complex		=	1;
			mid_lower	=	5000;
			last_lower	=	7000;
		}
		
		/* 入力ビデオ制御 */
		Lib_input_video_control( GRAY_PLANE );
		
		/* ビデオ出力表示項目制御 */
		Lib_display_control( GRAY_PLANE | LINE_PLANE | CHAR_PLANE );
		
		/* ビデオ表示項目クリア */
		Lib_memory_clear( LINE_PLANE | CHAR_PLANE );
		
		/* カーソル初期化 */
		Lib_init_cursor();
		
		/* メインメニューの表示 */
		main_menu_disp();
		
		/* マウスカーソルの表示 */
		Lib_draw_cursor( INIT_CUR_POS_X, INIT_CUR_POS_Y );
		
		/* メニュー制御 */
		for (;;)
		{
			sts = 0;
			
			/* マウス位置読みとり */
			sts = Lib_see_current_position( &xpos, &ypos );
			if ( s_xpos != xpos || s_ypos != ypos )
			{
				/* マウス表示位置移動 */
				Lib_move_cursor( xpos, ypos );
				s_xpos = xpos;
				s_ypos = ypos;
			}
			
			/* 処理振り分け */
			if( CURSOR_EXECUTE == sts )
			{
				if ( xpos > MENU_1_XS && xpos < MENU_1_XE && ypos > MENU_1_YS && ypos < MENU_1_YE )
				{
					Lib_memory_clear( LINE_PLANE | CHAR_PLANE );
					gs_set();											/*サーチ設定*/
					Lib_memory_clear( LINE_PLANE | CHAR_PLANE );
					main_menu_disp();
				}
				else if ( xpos > MENU_2_XS && xpos < MENU_2_XE && ypos > MENU_2_YS && ypos < MENU_2_YE )
				{
					Lib_memory_clear( LINE_PLANE | CHAR_PLANE );
					exec();												/*実行*/
					Lib_memory_clear( LINE_PLANE | CHAR_PLANE );
					main_menu_disp();
				}
				else if ( xpos > MENU_H_XS && xpos < MENU_H_XE && ypos > MENU_H_YS && ypos < MENU_H_YE )
				{
					Lib_memory_clear( LINE_PLANE | CHAR_PLANE );
					disp_help();										/* ヘルプ */
					main_menu_disp();
				}
				else if ( xpos > MENU_E_XS && xpos < MENU_E_XE && ypos > MENU_E_YS && ypos < MENU_E_YE )
				{
					break;												/* 終了 */
				}
			}
		}
		
		Lib_lfree( ptn_adr );
	}
	
}


/*
 * メインメニュー表示
 */
static void	 main_menu_disp( void )
{
	int iLanguage;

	/* 日本語／英語表示文字列切替情報取得 */
	iLanguage = Lib_get_disp_language();

	/* 整列キー表示 -> ( m_menu.c ) */
	SUB_menu_disp4he( (char *)str_main_menu[0][iLanguage],
					(char *)str_main_menu[1][iLanguage],
					(char *)NULL,
					(char *)NULL
					);
}


/*
 * ヘルプ表示
 */
static void	 disp_help( void )
{
	Lib_chrdisp( 10,  8, "【機能\概要】                        GSBASIC" );
	Lib_chrdisp( 11, 10, "グレイサーチを行いサーチ結果を表\示します。" );
	Lib_chrdisp( 11, 12, "サーチのパラメータのパッドを自作する例です。" );
	Lib_chrdisp( 11, 14, "サーチパタン格納領域はメモリを確保して作成します。" );
}

/***** サーチ・パタン領域の確保（起動時）*****/
int alloc_ptn_area( void )
{

int mode;
int error;

	if ( NULL != ( ptn_adr = Lib_mlalloc( PTN_SIZE ) ) )
	{
		if ( ( unsigned long )NULL != Lib_fload( "\\FS0\\USER_PTN.DAT", ptn_adr, PTN_SIZE ) )
			mode = CONTINUE_PTN_AREA; /* パタンエリアは継続して使用する */
		else
			mode = INITIAL_PTN_AREA; /* パタンエリアは初期化して使用する */
		
		if ( 0 == Lib_gs_defadrs( ptn_adr, PTN_SIZE, mode ) )
			error = NORMAL_RETURN;
		else
		{
			error = ERROR_RETURN;
			Lib_cls( CHAR_PLANE , BLACK_COLOR );
			Lib_display_message( 100, 200, "エラー", "パタンエリアは使用できません" );
		}
	}
	else
	{
		error = ERROR_RETURN;
		Lib_display_message( 100, 200, "エラー", "パタン用メモリーが確保できません" );
	}
	
	return( error );
	
}

/***** データのセーブ *****/
void save_file( void )
{

DATA *ap;
int idc;

	idc = Lib_shelter_plane( 0, 0, (Lib_get_dx_size() - 1), (Lib_get_dy_size() - 1), CHAR_PLANE );
	
	Lib_set_cursor_shape( HOURGLASS_TYPE );
	
	if ( ( DATA * )NULL != ( ap = ( DATA * )Lib_mlalloc( sizeof( DATA ) ) ) )
	{
		ap->name = name;				/* パタン名称			*/
		ap->gs_wxs = gs_wxs;			/* サーチ範囲			*/
		ap->gs_wys = gs_wys;
		ap->gs_wxe = gs_wxe;
		ap->gs_wye = gs_wye;
		ap->num = num;					/* 個数					*/
		ap->seido = seido;				/* 精度					*/
		ap->complex = complex;			/* 複雑度				*/
		ap->mid_lower = mid_lower;		/* 途中下限値			*/
		ap->last_lower = last_lower;	/* 最終下限値			*/
		
		/* 設定ファイルのセーブ */
		Lib_display_comment( 144, 228, "設定ファイルをセーブ中です" );
		if ( ( unsigned long )NULL == Lib_fsave( "\\FS0\\GSBASIC.DAT", ( char * )ap, sizeof( DATA ) ) )
		{
			Lib_cls( CHAR_PLANE, BLACK_COLOR );
			Lib_display_message( 120, 200, "エラー", "設定ファイルをセーブできません" );
		}
		
		/* パタン・ファイルのセーブ */
		Lib_display_comment( 144, 228, "パタンファイルをセーブ中です" );
		if ( ( unsigned long )NULL == Lib_fsave( "\\FS0\\USER_PTN.DAT", ptn_adr, PTN_SIZE ) )
		{
			Lib_cls( CHAR_PLANE, BLACK_COLOR );
			Lib_display_message( 112, 200, "エラー", "パタン・ファイルをセーブできません" );
		}
		
		Lib_lfree( ( char * )ap );
	}
	else
		Lib_display_message( 120, 200, "エラー", "メモリーが確保できません" );
	
    Lib_cls( ( LINE_PLANE | CHAR_PLANE ), BLACK_COLOR );
	Lib_set_cursor_shape( ARROW_TYPE );
	Lib_recover_plane( idc );
	
}

/***** 設定ファイルのロード *****/
int load_file( void )
{

DATA *ap;
int error_status;

	if ( ( DATA * )NULL != ( ap = ( DATA * )Lib_mlalloc( sizeof( DATA ) ) ) )
	{
		/* 設定ファイルのロード */
		if ( ( unsigned long )NULL != Lib_fload( "\\FS0\\GSBASIC.DAT", ( char * )ap, sizeof( DATA ) ) )
		{
			name = ap->name;				/* パタン名称			*/
			gs_wxs = ap->gs_wxs;			/* サーチ範囲			*/
			gs_wys = ap->gs_wys;
			gs_wxe = ap->gs_wxe;
			gs_wye = ap->gs_wye;
			num = ap->num;					/* 個数					*/
			seido = ap->seido;				/* 精度					*/
			complex = ap->complex;			/* 複雑度				*/
			mid_lower = ap->mid_lower;		/* 途中下限値			*/
			last_lower = ap->last_lower;	/* 最終下限値			*/
			
			error_status = NORMAL_RETURN;
		}
		else
			error_status = ERROR_RETURN;
		
		Lib_lfree( ( char * )ap );
	}
	else
	{
		Lib_display_message( 120, 200, "エラー", "メモリーが確保できません" );
		error_status = ERROR_RETURN;
	}
	
	return( error_status );
	
}

/************************************************************************/
/*	 サーチ設定															*/
/************************************************************************/
void gs_set( void )
{

int pad_level_ptn;
int status_flag;
int rtn;

	pad_level_ptn = Lib_view_open();
	Lib_view_set_title( pad_level_ptn, "サーチ設定" );
	
	Lib_view_set_null( pad_level_ptn, 5,   5, "サーチ条件"	, 0 );
	Lib_view_set_null( pad_level_ptn, 5,  35, "パタン登録"	, 1 );
	Lib_view_set_null( pad_level_ptn, 5,  65, "パタン表\示" , 2 );
	Lib_view_set_null( pad_level_ptn, 5,  95, "サーチ範囲"	, 3 );
	Lib_view_set_null( pad_level_ptn, 5, 125, "セーブ"		, 4 );
	
	Lib_view_set_size( pad_level_ptn, 50, 80, 30, 5 );
	
	Lib_draw_command( pad_level_ptn );
	
	for ( status_flag = ON; OFF != status_flag; )
	{
		if ( ERROR_RETURN != ( rtn = Lib_process_command( pad_level_ptn ) ) )
		{
			switch( rtn )
			{
				case   0:/* サーチ条件 */
							gs_joken();
							break;
				case   1:/* パタン登録 */
							ptn_reg();
							break;
				case   2:/*パタン表示*/
							ptn_disp();
							break;
				case   3:/* サーチ範囲 */
							wind_set( &gs_wxs, &gs_wys, &gs_wxe, &gs_wye );
							break;
				case   4:/* セーブ */
							save_file();
							break;
				case 102:/* 終了 */
							status_flag = OFF;
							break;
			}
		}
	}
	
	Lib_erase_command( pad_level_ptn );
	Lib_view_close( pad_level_ptn );
	Lib_cls( ( LINE_PLANE | CHAR_PLANE ), BLACK_COLOR );
	
}


/*********************************************************************/
/*	　ウインド設定　　　　　　　　　　　　　　　　　　　　　　　　　 */
/*********************************************************************/
void wind_set( xs, ys, xe, ye )
int *xs, *ys, *xe, *ye;		/* 入出力：ウインド位置 */
{
int pad_level_wind;
PVAL value_wind[2];
int no;
int x_size,y_size;
int idc;

	idc = Lib_shelter_plane( 0, 0, (Lib_get_dx_size() - 1), (Lib_get_dy_size() - 1), CHAR_PLANE );
	
	pad_level_wind = Lib_view_open();
	
	Lib_view_set_title( pad_level_wind, "サーチ範囲" );
	
	x_size  = *xe - *xs + 1;
	y_size  = *ye - *ys + 1;
	
	Lib_view_set_box( pad_level_wind, 5,  5, "始点"	 , *xs   , *ys   , 3, 1, 0 );
	Lib_view_set_box( pad_level_wind, 5, 35, "サイズ", x_size, y_size, 3, 0, 1 );
	
	Lib_view_set_size( pad_level_wind, 100, 130, 5, 5 );
	
	Lib_draw_menu( pad_level_wind );
	
	if( ERROR_RETURN != ( no = Lib_process_menu( pad_level_wind, value_wind ) ) )
	{
		switch( no )
		{
			case 101: /*「実行」が選択された */
						*xs = value_wind[0].box_type.x;
						*ys = value_wind[0].box_type.y;
						*xe = value_wind[0].box_type.x + value_wind[1].box_type.x - 1;
						*ye = value_wind[0].box_type.y + value_wind[1].box_type.y - 1;
						break;
			case 102: /*「取り消し」が選択された */
						break;
		}
	}
	
	Lib_erase_menu( pad_level_wind );
	Lib_view_close( pad_level_wind );
	Lib_recover_plane( idc );
	
}


/************************************************************************/
/*	パタン登録															*/
/************************************************************************/
void ptn_reg( void )
{

int error;
int idc;

	idc = Lib_shelter_plane( 0, 0, (Lib_get_dx_size() - 1), (Lib_get_dy_size() - 1), CHAR_PLANE );
	
	Lib_freeze( TRANSMIT );
	
	if ( -1 == ( error = Lib_gs_defpat( name.in ) ) )
		Lib_display_message( 150, 200, "エラー", "既に200個登録済みです" );
	else if ( -2 == error )
		Lib_display_message( 150, 200, "エラー", "パタン格納領域不足です" );
	
	Lib_freerun();
	
	Lib_recover_plane( idc );
	
}

/************************************************************************/
/*	パタン表示															*/
/************************************************************************/
void ptn_disp( void )
{
int idc;

	idc = Lib_shelter_plane( 0, 0, (Lib_get_dx_size() - 1), (Lib_get_dy_size() - 1), CHAR_PLANE );
	
	Lib_gs_dsppat( );
	Lib_freerun();
	
	Lib_recover_plane( idc );
	
}

/************************************************************************/
/*	サーチ条件設定														*/
/************************************************************************/
void gs_joken( void )
{
int pad_level_gs;
PVAL value_gs[6];
int no;
int idc;

	idc = Lib_shelter_plane( 0, 0, (Lib_get_dx_size() - 1), (Lib_get_dy_size() - 1), CHAR_PLANE );
	
	pad_level_gs = Lib_view_open();
	Lib_view_set_title( pad_level_gs, "サーチ条件" );
	
	Lib_view_set_uniq_string ( pad_level_gs, 5,   5, "パタン名称", name.cn, 4, 0 );
	Lib_view_set_uniq_numeral( pad_level_gs, 5,  35, "個数"		 , num, 1, 5, 1 );
	Lib_view_set_select		 ( pad_level_gs, 5,  65, "精度"		 , seido - 1, 3 , select, 2 );
	Lib_view_set_uniq_numeral( pad_level_gs, 5,  95, "複雑度"	 , complex, 1, 9, 3 );
	Lib_view_set_uniq_numeral( pad_level_gs, 5, 125, "途中下限値", mid_lower , 1000, 9999 , 4 );
	Lib_view_set_uniq_numeral( pad_level_gs, 5, 155, "最終下限値", last_lower, 1000, 9999 , 5 );
	
	Lib_view_set_size( pad_level_gs, 100, 130, 35, 5 );
	
	Lib_draw_menu( pad_level_gs );
	
	if( ERROR_RETURN != ( no = Lib_process_menu( pad_level_gs, value_gs ) ) )
	{
		switch( no )
		{
			case 101: /*「実行」が選択された */
						strcpy( name.cn, value_gs[0].string_type );
						num		   = value_gs[1].value_type;
						seido	   = value_gs[2].select_type + 1;
						complex	   = value_gs[3].value_type;
						mid_lower  = value_gs[4].value_type;
						last_lower = value_gs[5].value_type;
						break;
			case 102: /*「取り消し」が選択された */
						break;
		}
	}
	
	Lib_erase_menu( pad_level_gs );
	Lib_view_close( pad_level_gs );
	
	Lib_recover_plane( idc );
	
}


/************************************************************************/
/*	実行																*/
/************************************************************************/
void exec( void )
{

int Rslt_Buf[(MAX_NO_GRAY_SEARCH * 3)];
int rtn;
int ct;
int id;
int yy;

	Lib_cls( ( LINE_PLANE | CHAR_PLANE ), BLACK_COLOR );
	
	Lib_strtclk_count();		/*タイマーカウントモードのスタート*/
	
	Lib_freeze( TRANSMIT );
	
	Lib_gs_window( ON_DISPLAY, gs_wxs, gs_wys, gs_wxe, gs_wye );
	
	if ( 0 < ( rtn = Lib_gs_search( ON_DISPLAY, name.in, num, seido, complex, mid_lower, last_lower, Rslt_Buf ) ) )
	{
		yy = 30 - rtn + 1;
		for ( ct = 0; ct < rtn; ct++ )
		{
			id = ct * 3;
			Lib_sprintf( ss, "( x, y ) = ( %5.1lf, %5.1f )  相関値 %4d",
							(double)Rslt_Buf[id] / 10.0, (double)Rslt_Buf[id+1] / 10.0, Rslt_Buf[id+2] );
			Lib_chrdisp( 1, yy, ss );
			yy++;
		}
		
		Lib_time_disp( 0, 0 );
		Lib_display_keyinput( 460, 0, "確認" );
	}
	else if ( 0 == rtn )
		Lib_display_message( 100, 200, "エラー", "対象物がありません" );
	else if ( -1 == rtn )
		Lib_display_message( 100, 200, "エラー", "パタンが登録されていません" );
	
	Lib_freerun();
	Lib_cls( ( GRAY_PLANE | LINE_PLANE | CHAR_PLANE ), BLACK_COLOR );
	
}