/*
 * *****************************************************************
 * *                                                               *
 * *       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.  *
 * *                                                               *
 * *****************************************************************
 */

/* ＣＳＣ９０Ｘ　サーチパタンコピー・サンプルソフト  90xptnc2.c		*/
/*［作成者］A.Sekimori												*/
/*［概要］	サーチパタンコピーのサンプルソフトです。				*/
/*			パタン領域１に登録したサーチパタンをパタン領域２に		*/
/*			コピーします。											*/

/*
目的：
関数：
履歴：	Ver 1.0		97/09/10
		Ver 1.1		99/03/17	パタン名称を共用体に変更
注記：m_menu.hをインクルードして下さい。
	  m_menu.c及びm_note.cをリンクして下さい。
*/

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


/* Include CSC90X library */
#include "f_stdio.h"	/* 標準入出力			*/
#include "f_stdlib.h"	/* メモリ領域割当		*/
#include "f_file.h"		/* ファイルシステム		*/
#include "f_gui.h"		/* ＧＵＩ				*/
#include "f_graph.h"	/* モニタ表示			*/
#include "f_pinf.h"		/* システムパラメータ	*/
#include "f_video.h"	/* ビデオ入力制御		*/
#include "f_image.h"	/* フレームバッファ		*/
#include "f_time.h"		/* 時刻サービス			*/
#include "f_search.h"	/* グレイサーチ			*/
#include "f_system.h"	/* システム制御			*/


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

/* メニュー項目 */
#define LANG_N       2
#define MAIN_MENU_N  4

static const char *str_main_menu[MAIN_MENU_N][LANG_N] = {
	{ " PTN ENTRY", "パタン登録" },
	{ " PTN COPY ", "  コピー  " },
	{ " PTN DISP ", "パタン表\示" },
	{ "   SAVE   ", "  セーブ  " }
};

#define  INIT_CUR_POS_X		255
#define  INIT_CUR_POS_Y		239

#define EXECUTE		 0
#define CANCEL		-1
#define PTN_SIZE   102400

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

static PTN_N name1;		/* パタン名称	*/
static PTN_N name2;		/* パタン名称	*/

static char *ptn_file1;
static char *ptn_file2;

/* プロトタイプ宣言 */
void  main( void );
void  main_menu_disp( void );
void  disp_help( void );

int alloc_ptn_area( void );
int set_entry_ptn_name( void );
int set_copy_ptn_name( void );
void ptn_entry( void );
void ptn_copy( void );
void disp_ptn( void );
int disp_command( void );
void save_ptn_file( void );

extern int  message_note( void );

/* メイン */
void  main( void )
{
	int  sts;
	int  xpos;
	int  ypos;
	int  s_xpos;
	int  s_ypos;
	
	/* カーソル初期化 */
	Lib_init_cursor();
	
	/* 初期メッセージ表示 */
	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;
		
		Lib_sprintf( name1.cn, "%04d", 0 );	/* パタン名称	*/
		Lib_sprintf( name2.cn, "%04d", 1 );	/* パタン名称	*/
		
		/* 入力ビデオ制御 */
		Lib_input_video_control( GRAY_PLANE );
		
		/* ビデオ出力表示項目制御 */
		Lib_display_control( GRAY_PLANE | LINE_PLANE | CHAR_PLANE );
		
		/* ビデオ表示項目クリア */
		Lib_memory_clear( LINE_PLANE | CHAR_PLANE );
		
		/* メインメニューの表示 */
		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 );
					ptn_entry();
					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 );
					ptn_copy();
					Lib_memory_clear( LINE_PLANE | CHAR_PLANE );
					main_menu_disp();
				}
				else if ( xpos > MENU_3_XS && xpos < MENU_3_XE && ypos > MENU_3_YS && ypos < MENU_3_YE )
				{
					/* 「パタン表示」が選択された */
					Lib_memory_clear( LINE_PLANE | CHAR_PLANE );
					disp_ptn();
					Lib_memory_clear( LINE_PLANE | CHAR_PLANE );
					main_menu_disp();
				}
				else if ( xpos > MENU_4_XS && xpos < MENU_4_XE && ypos > MENU_4_YS && ypos < MENU_4_YE )
				{
					/* 「セーブ」が選択された */
					Lib_memory_clear( LINE_PLANE | CHAR_PLANE );
					save_ptn_file();
					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( ( char * )ptn_file1 );
		Lib_lfree( ( char * )ptn_file2 );
	}
	else
		Lib_display_message( 120, 200, "エラー", "パタン格納領域が使用できません" );

}


/* メインメニュー表示 */
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 *)str_main_menu[2][iLanguage],
					(char *)str_main_menu[3][iLanguage]
					);
}


/* ヘルプ表示 */
static void  disp_help( void )
{
    Lib_chrdisp( 4,  8, "【機能\概要】                                      90XPTNC2" );
    Lib_chrdisp( 5, 10, "サーチパタンコピーサンプルソ\フトです。" );
    Lib_chrdisp( 5, 13, "【パタン登録】 パタン領域１にパタン登録を行います。" );
    Lib_chrdisp( 5, 15, "【コピー】     パタン領域１から２へパタンのコピーを行います。" );
    Lib_chrdisp( 5, 17, "【パタン表\示】 パタンの表\示を行います。" );
    Lib_chrdisp( 5, 19, "【セーブ】     パタンファイルのセーブを行います。" );
}

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

int mode1,mode2;
int error;

	if ( NULL != ( ptn_file1 = Lib_mlalloc( PTN_SIZE ) ) &&
				NULL != ( ptn_file2 = Lib_mlalloc( PTN_SIZE ) ) )
	{
		/* パタンファイル１のロード */
		if ( ( unsigned long )NULL != Lib_fload( "\\FS0\\PTNFILE1.DAT", ptn_file1, PTN_SIZE ) )
			mode1 = CONTINUE_PTN_AREA; /* パタンエリアは継続して使用する */
		else
		{
			mode1 = INITIAL_PTN_AREA; /* パタンエリアは初期化して使用する */
			/*Lib_cls( CHAR_PLANE , BLACK_COLOR );*/
			Lib_display_message( 70, 200, "パタンファイル１無し", "パタン領域１は初期化して使用します" );
		}
		
		/* パタンファイル２のロード */
		if ( ( unsigned long )NULL != Lib_fload( "\\FS0\\PTNFILE2.DAT", ptn_file2, PTN_SIZE ) )
			mode2 = CONTINUE_PTN_AREA; /* パタンエリアは継続して使用する */
		else
		{
			mode2 = INITIAL_PTN_AREA; /* パタンエリアは初期化して使用する */
			/*Lib_cls( CHAR_PLANE , BLACK_COLOR );*/
			Lib_display_message( 70, 200, "パタンファイル２無し", "パタン領域２は初期化して使用します" );
		}
		
		if ( 0 == Lib_gs_defadrs( ptn_file1, PTN_SIZE, mode1 ) &&
							0 == Lib_gs_defadrs( ptn_file2, PTN_SIZE, mode2 ) )
			error = NORMAL_RETURN;
		else
			error = ERROR_RETURN;
	}
	else
		error = ERROR_RETURN;
	
	return( error );
	
}

/***** 登録パタン名称設定 *****/
int set_entry_ptn_name( void )
{

PVAL value[1];
int no;
int pad_level;
int status;

	pad_level = Lib_view_open(); /* ﾊﾟｯﾄﾞのｵｰﾌﾟﾝ */
	
	Lib_view_set_title( pad_level, "パタン登録" ); /* ﾊﾟｯﾄﾞﾀｲﾄﾙの登録 */
	
	/* 各属性ﾒﾆｭｰの登録 */
	Lib_view_set_uniq_string ( pad_level, 5, 5, "パタン名称", name1.cn, 4, 0 );
	
	/* ﾊﾟｯﾄﾞの表示位置の登録 */
	Lib_view_set_size( pad_level, 80, 80, 5, 5 );
	
	Lib_draw_menu( pad_level ); /* ﾒﾆｭｰﾊﾟｯﾄﾞの表示 */
	
	if ( ERROR_RETURN != ( no = Lib_process_menu( pad_level, value ) ) ) /* ﾒﾆｭｰ値の取得 */
	{
		switch( no )
		{
			case 101: /*「実行」が選択された */
						strcpy( name1.cn, value[0].string_type );
						status = EXECUTE;
						break;
			case 102: /*「取り消し」が選択された */
						status = CANCEL;
						break;
		}
	}
	
	Lib_erase_menu( pad_level ); /* ﾒﾆｭｰﾊﾟｯﾄﾞの消去 */
	Lib_view_close( pad_level ); /* ﾊﾟｯﾄﾞのｸﾛｰｽﾞ */
	
	return( status );
}

/***** コピーパタン名称設定 *****/
int set_copy_ptn_name( void )
{

PVAL value[2];
int no;
int pad_level;
int status;

	pad_level = Lib_view_open(); /* ﾊﾟｯﾄﾞのｵｰﾌﾟﾝ */
	
	Lib_view_set_title( pad_level, "コピー" ); /* ﾊﾟｯﾄﾞﾀｲﾄﾙの登録 */
	
	/* 各属性ﾒﾆｭｰの登録 */
	Lib_view_set_uniq_string ( pad_level, 5,  5, "コピー元", name1.cn, 4, 0 );
	Lib_view_set_uniq_string ( pad_level, 5, 35, "コピー先", name2.cn, 4, 1 );
	
	/* ﾊﾟｯﾄﾞの表示位置の登録 */
	Lib_view_set_size( pad_level, 80, 80, 5, 5 );
	
	Lib_draw_menu( pad_level ); /* ﾒﾆｭｰﾊﾟｯﾄﾞの表示 */
	
	if ( ERROR_RETURN != ( no = Lib_process_menu( pad_level, value ) ) ) /* ﾒﾆｭｰ値の取得 */
	{
		switch( no )
		{
			case 101: /*「実行」が選択された */
						strcpy( name1.cn, value[0].string_type );
						strcpy( name2.cn, value[1].string_type );
						status = EXECUTE;
						break;
			case 102: /*「取り消し」が選択された */
						status = CANCEL;
						break;
		}
	}
	
	Lib_erase_menu( pad_level ); /* ﾒﾆｭｰﾊﾟｯﾄﾞの消去 */
	Lib_view_close( pad_level ); /* ﾊﾟｯﾄﾞのｸﾛｰｽﾞ */
	
	return( status );
}

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

int error;
	
	/* 使用するパタン領域をPTNFILE1に切り替える */
	if ( 0 == Lib_gs_defadrs( ptn_file1, PTN_SIZE, CONTINUE_PTN_AREA ) )
	{
		if ( EXECUTE == set_entry_ptn_name() )
		{
			Lib_freeze( TRANSMIT );
			
			if ( -1 == ( error = Lib_gs_defpat( name1.in ) ) )
				Lib_display_message( 150, 200, "エラー", "既に200個登録済みです" );
			else if ( -2 == error )
				Lib_display_message( 150, 200, "エラー", "パタン格納領域不足です" );
			
			Lib_freerun();
		}
	}
	else
		Lib_display_message( 70, 200, "エラー", "パタンエリア１は継続使用できません" );
}

/***** パタンコピー *****/
void ptn_copy( void )
{

char s[50];
int status;
int out_inf[8];

	/* 使用するパタン領域をコピー元PTNFILE1に切り替える */
	if ( 0 == Lib_gs_defadrs( ptn_file1, PTN_SIZE, CONTINUE_PTN_AREA ) )
	{
		if ( EXECUTE == set_copy_ptn_name() )
		{
			Lib_freeze( NOT_TRANSMIT ); /* フレームバッファの固定 */
			
			/* コピー元パタンの情報を取得する */
			if ( NORMAL_RETURN == ( status = Lib_gs_infpat( name1.in, out_inf ) ) )
			{
				/* コピー元パタンを表示する */
				if ( NORMAL_RETURN == ( status = Lib_gs_1dsppat( name1.in, 0, 1,
												out_inf[4], out_inf[5], out_inf[2], out_inf[3] ) ) )
				{
					Lib_display_keyinput( 460, 0, "確認" );
					
					/* 使用するパタン領域をコピー先PTNFILE2に切り替える */
					if ( 0 == Lib_gs_defadrs( ptn_file2, PTN_SIZE, CONTINUE_PTN_AREA ) )
					{
						/* パタンをコピー */
						if ( NORMAL_RETURN != ( status = Lib_gs_usepat( name2.in, out_inf[4], out_inf[5],
																out_inf[0], out_inf[1], out_inf[2], out_inf[3] ) ) )
						{
							Lib_sprintf( s, "Lib_gs_usepat error : %d", status );
							Lib_display_message( 100, 200, "エラー", s );
						}
					}
					else
						Lib_display_message( 70, 200, "エラー", "パタンエリア２は継続使用できません" );
				}
				else
				{
					Lib_sprintf( s, "Lib_gs_1dsppat error : %d", status );
					Lib_display_message( 100, 200, "エラー", s );
				}
			}
			else
			{
				Lib_sprintf( s, "Lib_gs_infpat error : %d", status );
				Lib_display_message( 100, 200, "エラー", s );
			}
			
			Lib_freerun();
		}
	}
	else
		Lib_display_message( 70, 200, "エラー", "パタンエリア１は継続使用できません" );
    
    Lib_cls( ( GRAY_PLANE | LINE_PLANE | CHAR_PLANE ), BLACK_COLOR );
	
}

/***** パタン表示 *****/
void disp_ptn( void )
{

int status;

	for ( ; ; )
	{
		if ( 102 == ( status = disp_command() ) )
			break;
		else
		{
			if ( 0 == status )
				Lib_gs_defadrs( ptn_file1, PTN_SIZE, CONTINUE_PTN_AREA );
			else if ( 1 == status )
				Lib_gs_defadrs( ptn_file2, PTN_SIZE, CONTINUE_PTN_AREA );
			
			Lib_gs_dsppat();
			Lib_freerun();
		}
	}
	
}

/***** 表示パタンファイル選択 *****/
int disp_command( void )
{

int pad_level;
int status;

	Lib_set_pad_maxstring( 16 );
	pad_level = Lib_view_open();
	
	Lib_view_set_title( pad_level, "パタン領域選択" );
	
	Lib_view_set_null( pad_level, 5,  5, "パタンファイル１", 0 );
	Lib_view_set_null( pad_level, 5, 35, "パタンファイル２", 1 );
	
	Lib_view_set_size( pad_level, 50, 50, 5, 5 );
	
	Lib_draw_command( pad_level );
	
	status = Lib_process_command( pad_level );
	
    Lib_erase_command( pad_level );
    Lib_view_close( pad_level );
	Lib_set_pad_maxstring( 10 );
    
    return( status );
    
}

/***** パタンファイルのセーブ *****/
void save_ptn_file( void )
{

	/* パタンファイル１のセーブ */
	Lib_display_comment( 144, 228, "パタンファイルをセーブ中です" );
	if ( ( unsigned long )NULL == Lib_fsave( "\\FS0\\PTNFILE1.DAT", ( char * )ptn_file1, PTN_SIZE ) )
	{
		Lib_cls( ( CHAR_PLANE | LINE_PLANE ), BLACK_COLOR );
		Lib_display_message( 120, 200, "エラー", "パタンファイル１をセーブできません" );
	}
	
	/* パタンファイル２のセーブ */
	Lib_display_comment( 144, 228, "パタンファイルをセーブ中です" );
	if ( ( unsigned long )NULL == Lib_fsave( "\\FS0\\PTNFILE2.DAT", ( char * )ptn_file2, PTN_SIZE ) )
	{
		Lib_cls( ( CHAR_PLANE | LINE_PLANE ), BLACK_COLOR );
		Lib_display_message( 120, 200, "エラー", "パタンファイル２をセーブできません" );
	}
	
	Lib_cls( ( CHAR_PLANE | LINE_PLANE ), BLACK_COLOR );
	
}