--- nono/cli/cli_app.cpp	2026/04/29 17:04:48	1.1.1.5
+++ nono/cli/cli_app.cpp	2026/04/29 17:05:13	1.1.1.10
@@ -4,24 +4,34 @@
 // Licensed under nono-license.txt
 //
 
+//
+// CLI アプリケーションのエントリポイント
+//
+
 #include "header.h"
+#include "cuimessage.h"
+#include "kevent.h"
 #include "mainapp.h"
 #include "mpu680x0.h"
 #include "pluto.h"
+#include "power.h"
 #include "vm.h"
 
-void cli_halt_callback(void *);
-
 // wxApp と相似にするためのクラス
 class CLIApp
 {
  public:
 	int OnInit();
 	bool Parse();
-	[[noreturn]] void OnCreate();
+	int OnCreate();
+	void OnHalt();
+	void OnAppExit();
 
-	int ac;
-	char **av;
+	int ac {};
+	char **av {};
+
+	autofd kq {};
+	bool exit_request {};
 };
 
 int
@@ -41,11 +51,17 @@ CLIApp::OnInit()
 {
 	int rv;
 
-	rv = gMainApp.Init(true, ac, av);
+	// CLI 側では関係ないが wx 側で必要なので初期化は2ステージに分かれている
+	rv = gMainApp.Init1(true, ac, av);
 	if (rv != MainApp::PASS) {
 		return rv;
 	}
-	if (!gMainApp.Start()) {
+	// UIMessage の初期化はなんとなくスレッド開始前のほうがよかろう
+	kq = CUIMessage::Init();
+	if (kq < 0) {
+		return EXIT_FAILURE;
+	}
+	if (!gMainApp.Init2()) {
 		return EXIT_FAILURE;
 	}
 
@@ -56,27 +72,63 @@ CLIApp::OnInit()
 }
 
 // メインウィンドウ作成後のイベントに相当するところ
-void
+int
 CLIApp::OnCreate()
 {
-	// VM にコールバックを登録
+	CUIMessage::Connect(UIMessage::APPEXIT,
+		[&](const UIMessage&) { OnAppExit(); });
 	if (gMPU680x0) {
-		gMPU680x0->SetHaltCallback(cli_halt_callback, NULL);
+		CUIMessage::Connect(UIMessage::HALT,
+			[&](const UIMessage&) { OnHalt(); });
 	}
+	// UIMessage の処理を開始する。
+	UIMessage::Attach(&CUIMessage::Process);
+
+	// 電源投入
+	gPower->PowerButton();
 
-	// VM 実行開始
-	gVM->PowerButton();
+	// メッセージを待つ
+	while (exit_request == false) {
+		struct kevent kev;
+
+		if (kevent_poll(kq, &kev, 1, NULL) < 0) {
+			if (errno == EINTR) {
+				continue;
+			}
+			warn("CLIApp::OnCreate: kevent_poll");
+			// XXX どうする?
+			continue;
+		}
+
+		// パイプから1メッセージ分読み出す
+		UIMessage m;
+		if (read((int)kev.ident, &m, sizeof(m)) < 0) {
+			warn("CLIApp::OnCreate: read");
+			// XXX どうする?
+			continue;
+		}
 
-	// ?
-	for (;;) {
-		sleep(1);
+		// ディスパッチ
+		CUIMessage::Dispatch(m);
 	}
+
+	// VM を解放
+	gVM->Dispose();
+
+	return 0;
 }
 
 // m680x0 ダブルバスフォールト時に呼ばれるコールバック。
 void
-cli_halt_callback(void *dummy)
+CLIApp::OnHalt()
 {
 	// どうする?
 	warnx("Double bus fault has occurred in VM");
 }
+
+// アプリケーションの終了要求で呼ばれるコールバック。
+void
+CLIApp::OnAppExit()
+{
+	exit_request = true;
+}