#include #include #include #include #include #include #include #include #include #include #include #include char *guiEgbPtr ; /* EGB のワークアドレス */ #define MinMem (1024*128) /* 必要とする動作メモリの定義 */ /* アラートメッセージ */ static char *alertStrMem[] = {"動くざんすレリーフ：\nメモリが不足しています", "確認"}; /* checkMemFunc関数／alertMemFunc関数の追い越し禁止フラグ */ static int checkMemFlag = 0x00 ; /****************************************************************/ /* メモリ不足時のアラート関数（イベント登録関数） */ /****************************************************************/ void alertMemFunc() { /* メモリ不足のアラート表示 */ MMI_CallMessage(MMI_GetApliId(), GM_ALERT, AM_ALERT1 | AM_ALERTB0E,(int)alertStrMem) ; /* checkMemFunc関数/alertMemFunc関数の追い越し禁止解除 */ checkMemFlag &= 0xef ; } /****************************************************************/ /* メモリ開放関数 */ /****************************************************************/ int checkMemFunc(useMem) int useMem ; { int ret ; /* メモリチェック */ if(TL_checkMemory(1) * 4096 >= useMem) return NOERR ; /* メモリがあれば正常復帰 */ do { /* メモリ開放処理 */ ret = MMI_CallMessage(MMI_GetApliId(), GM_PURGE, 0, 0) ; /* メモリチェック */ if(TL_checkMemory(1) * 4096 >= useMem) break ; } while(ret == NOERR) ; return ret ; } /****************************************************************/ /* Townsシェル呼び出し関数 */ /****************************************************************/ int userFunc(aplId, messId, info, data) int aplId ; int messId ; int info ; int data ; { register int ret ; int sw ; POOLDATA *ptr ; ret = ILLEGAL_FUNCTION ; switch (messId) { case GM_WAKE : { EVENT ev ; /* checkMemFunc関数の追い越し禁止判定 */ if(checkMemFlag & 0x01) break ; /* 動作メモリのチェック */ /* checkMemFunc関数の追い越し禁止 */ checkMemFlag |= 0x01 ; if(checkMemFunc(MinMem) != NOERR) { /* alertMemFunc関数の追い越し禁止 */ checkMemFlag |= 0x10 ; /* メモリ不足の場合はアラート処理関数をイベント登録する */ MMI_FlushEvnt() ; ev.what = EVEXEC ; ev.shift = 0 ; ev.info = (int)alertMemFunc ; MMI_SetEvnt(&ev) ; break ; } break ; } case GM_SLEEP : { /* alertMemFunc関数がイベント登録されてなければ、checkMemFunc関数 の追い越し禁止解除 */ if((checkMemFlag & 0x10) == 0x00) checkMemFlag &= 0xfe ; break ; } case GM_QUIT : { extern int quitFunc2() ; ret = quitFunc2() ; break ; } } return ret ; } void main() { extern int APL_init() ; extern int initEtc() ; MMICTRL ctrl ; int kobj ; /* 初期化処理 */ /* 初期化処理 */ ctrl.page0 = 3 ; ctrl.page1 = 10 ; ctrl.writePage = 0 ; ctrl.displayPage = 3 ; // 1 ctrl.priority = 0 ; ctrl.mode = 0 ; ctrl.width = 512 ; ctrl.size = 0 ; ctrl.ptr = NULL ; ctrl.asize = 0 ; ctrl.aptr = NULL ; ctrl.fr.lupx = 0 ; ctrl.fr.lupy = 0 ; ctrl.fr.rdwx = 639 ; ctrl.fr.rdwy = 479 ; ctrl.move.lupx = 0 ; ctrl.move.lupy = 20 ; /* ダイアログの移動範囲に制限を付ける(y座標) */ ctrl.move.rdwx = 639 ; ctrl.move.rdwy = 479 ; ctrl.white = 15 ; ctrl.black = 8 ; /* パレット変更に伴いGUIの表示色を変更(黒) */ ctrl.gray = 7 ; /* 〃 (灰色) */ ctrl.xor = 7 ; /* 〃 (反転色) */ /* 二重起動のチェック */ kobj = MMI_CallMessage(MMI_GetApliId(), GM_QUERYID, QM_KIND, 1) ; if( kobj > NOERR ) /* 自分自身を消す */ { MMI_CallMessage(MMI_GetApliId(), GM_SWITCH, FALSE, kobj) ; } /* 初期化処理 */ else if(MMI_Open(&ctrl) == NOERR) { /* 初期化に成功すればメインループに入る. */ if (APL_init() == NOERR) { /* 動作メモリのチェック */ /* checkMemFunc関数の追い越し禁止 */ checkMemFlag |= 0x01 ; if(checkMemFunc(MinMem) != NOERR) { /* alertMemFunc関数の追い越し禁止 */ checkMemFlag |= 0x10 ; alertMemFunc(); /* メモリ不足のアラート表示 */ } /* checkMemFunc関数の追い越し禁止解除 */ checkMemFlag &= 0xfe ; FDG_SaveCurDir() ; /* カレントディレクトリ保存 */ FDG_InitFileDlg() ; /* ファイルダイアログ初期化 */ if( initEtc() == NOERR ) /* 自家製init */ MMI_ExecSystem() ; /* メインのイベントループ */ FDG_FreeFileDlg() ; /* ファイルダイアログ終了処理 */ FDG_RecovCurDir() ; /* カレントディレクトリ復元 */ MMI_SendMessage(MMI_GetSleepObj(), MM_SLEEP, 0) ; MMI_SetWakeObj(UNUSED); } /* 終了処理 */ MMI_Close() ; } } int APL_init() { extern int setPalette( char * ) ; /* パレット設定関数 */ extern int mouseDsp( int ) ; /* マウス表示関数 */ extern int mItemId[] ; extern MMIINIT initDataIMEABOU2 ; extern MMIINIT initDataIMEDSK ; extern MMIINIT initDataIMEDSK2 ; extern MMIINIT initDataIMEDSK3 ; extern MMIINIT initDataIMEERR ; extern MMIINIT initDataIMETIF ; extern MMIINIT initDataIMEFILE ; register int ret ; /* EGB ワークアドレスの取得. */ guiEgbPtr = MMI_GetEgbPtr() ; /* ハイパ型部品の初期化 */ if ((ret = MMI_initHyper()) < 0) return ret ; /* ダイアログ型部品の初期化 */ if ((ret = MMI_initDialogL40()) < 0) return ret ; /* アラート型部品の初期化 */ if ((ret = MMI_initAlertL40()) < 0) return ret ; /* メッセージ型部品の初期化 */ if ((ret = MMI_initMessageL40()) < 0) return ret ; /* メニュー型部品の初期化 */ if ((ret = MMI_initMenuL40()) < 0) return ret ; /* ボタン型部品の初期化 */ if ((ret = MMI_initButtonL40()) < 0) return ret ; /* ドロウボタン型部品の初期化 */ if ((ret = MMI_initDrawButtonL40()) < 0) return ret ; /* アイコンボタン型部品の初期化 */ if ((ret = MMI_initIconL40()) < 0) return ret ; /* トグルアイコン型部品の初期化 */ if ((ret = MMI_initToggleIconL40()) < 0) return ret ; /* メニューアイテム型部品の初期化 */ if ((ret = MMI_initMenuItemL40()) < 0) return ret ; /* スクロール型部品の初期化 */ if ((ret = MMI_initScrollBarL40()) < 0) return ret ; /* テキスト型部品の初期化 */ if ((ret = MMI_initTextL40()) < 0) return ret ; /* リストメニュー型部品の初期化 */ if ((ret = MMI_initListMenuL40()) < 0) return ret ; /* 数値入力型部品の初期化 */ if ((ret = MMI_initNumBoxL40()) < 0) return ret ; /* パレット変更････２画面使用の影響を受けるため */ ret = setPalette( guiEgbPtr ) ; /* マウスカーソル表示関数の変更････２画面使用の影響を受けるため */ MMI_SetPtrFunc( mouseDsp ) ; /* 背景データの初期化 */ /* データの登録 */ if ((ret = MMI_Init(&initDataIMEABOU2)) < 0) return ret ; if ((ret = MMI_Init(&initDataIMEDSK)) < 0) return ret ; if ((ret = MMI_Init(&initDataIMEDSK2)) < 0) return ret ; if ((ret = MMI_Init(&initDataIMEDSK3)) < 0) return ret ; if ((ret = MMI_Init(&initDataIMEERR)) < 0) return ret ; if ((ret = MMI_Init(&initDataIMETIF)) < 0) return ret ; if ((ret = MMI_Init(&initDataIMEFILE)) < 0) return ret ; /* タスクリストとサイドワークメニューを登録する */ MMI_SetUpPrgMenu( mItemId[0], 2 ) ; MMI_SetUpSDKMenu( mItemId[0], 4 ) ; /* 呼び出し関数を登録する */ MMI_SendMessage(MMI_GetBaseObj(), MM_SETEXEC, 1, userFunc) ; /* アプリケーション名を登録する */ MMI_CallMessage(MMI_GetApliId(), GM_TITLE, (int)"動くざんすレリーフ", 0); /* 背景を表示する */ MMI_SendMessage(MMI_GetBaseObj(), MM_SHOW, 0) ; return NOERR ; }