이거 기반은 llm이 준 정보가 아닌,  C로 만든 CLoop가 기반

Ada로 정말로 재작성하고 있음.

저걸 이용하여 Guiyom 툴킷 메인루프 및 앱 메인루프 돌릴거다.

Guiyom 툴킷의 메인루프는 두 가지 모드로 작동될 수 있다.

1. 전통적인 방식의 GUI 툴킷처럼 GUI 메인루프가 앱의 메인루프인 경우.

2. 앱의 메인루프와 GUI 스레드 메인루프가 서로 통신하는 방식.

2번 방식의 경우, GUI 가 멈추더라도 앱은 멈추지 않는다.

호스트 루프 비차단이 특징.

그리고

디스플레이 서버 <---> 클라이언트 통신 방식을

GUI 스레드 (서버) <----> 앱 메인 스레드 통신 방법으로

옮겨 놓은 것.

안전성이 뛰어나다 할 수 있다.

저거 구현 성공하면

nimf에서 non-GUI 콘솔 입력, GUI 입력 동시 사용 가능

ㅋㅋㅋ

전에 non-GUI 환경에서 돌릴 때, GUI 루프에서 멈춤이 발생했는데 그거 때문에

ㅋㅋㅋ 고안한 방식. CEF, Storyboard라는 툴킷에서도 제공하는 기능임.

CEF는 일반 앱에서 사용하기 곤란하고,

Storyboard는 상업용 툴킷이고.. 일단 내가 돈이 없어 사용 불가함.

ㅋㅋㅋ

-- clair-event_loop.ads
-- Copyright (c) 2025 Hodong Kim <hodong@nimfsoft.art>
--
-- Permission to use, copy, modify, and/or distribute this software for any
-- purpose with or without fee is hereby granted.
--
-- THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
-- WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
-- MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
-- ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
-- WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
-- ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
-- OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
--
-- THIS FILE IS AUTOMATICALLY GENERATED.
-- DO NOT EDIT THIS FILE MANUALLY.

with Clair.File;

package Clair.Event_Loop is

  type Context is limited private;
  type Context_Access is access all Context;

  -- 감시자 리소스를 식별하는 ID (제거 시 사용)
  type Handle_Id is new Interfaces.C.int;
  Invalid_Handle : constant Handle_Id := -1;

  type Event_Mask is mod 2 ** 8;

  Event_Read  : constant Event_Mask := 16#1#;
  Event_Write : constant Event_Mask := 16#2#;
  Event_Error : constant Event_Mask := 16#4#;

  type Event_Callback is access procedure (
     fd        : Clair.File.Descriptor;
     events    : Event_Mask;
     user_data : System.Address
  );

  procedure run  (self : in out Context);
  procedure stop (self : in out Context);

  function add_io_watch (
    self      : in out Context;
    fd        : Clair.File.Descriptor;
    events    : Event_Mask;
    callback  : Event_Callback;
    user_data : System.Address := System.NULL_ADDRESS
  ) return Handle_Id;

  procedure remove_io_watch (
     self : in out Context;
     id   : Handle_Id
  );

  procedure modify_io_watch (
     self   : in out Context;
     fd     : Clair.IO.Descriptor;
     events : Clair.IO.Event_Mask
  );

private

  type Context is limited record
    is_running : Boolean := False;
  end record;

end Clair.Event_Loop;