Clair.IO.Poller: 이번에 설계했다가 gg친 API ㅋㅋ

나르시

2025.11.24 02:59:21

조회 127 추천 0 댓글 1

AI한테 일시키니까.. 이렇게 코드도 작성해 줌. ㅋㅋ

with System;

package Clair.IO.Poller is

   -- ----------------------------------------------------------------------
   -- 타입 정의
   -- ----------------------------------------------------------------------

   -- Poller 인스턴스를 나타내는 불투명 타입입니다.
   -- Limited Private으로 선언하여 할당 및 복사를 제한합니다.
   type Context is limited private;

   -- 감시할 이벤트의 종류를 정의합니다.
   type Event_Condition is (Input, Output, Error, Hang_Up);

   -- 여러 이벤트를 동시에 지정하기 위한 배열 타입입니다.
   type Event_Flags is array (Event_Condition) of Boolean;
   pragma pack (Event_Flags);

   -- ----------------------------------------------------------------------
   -- Poller API
   -- ----------------------------------------------------------------------

   -- [create]
   -- 새로운 Poller 인스턴스를 생성하고 초기화합니다.
   -- 반환값: 초기화된 Poller Context
   function create return Context;

   -- [destroy]
   -- 사용이 완료된 Poller 인스턴스를 파기하고 리소스를 해제합니다.
   -- self: 파기할 Context
   procedure destroy (self : in out Context);

   -- [add]
   -- 감시할 파일 디스크립터(fd)와 이벤트를 Poller에 등록합니다.
   -- self: Poller Context
   -- fd   : 감시 대상 파일 디스크립터
   -- events: 감시할 이벤트 목록
   procedure add (self   : in out Context;
                  fd     : Clair.File.Descriptor;
                  events : Event_Flags);

   -- [modify]
   -- 이미 등록된 파일 디스크립터의 감시 이벤트를 변경합니다.
   -- self: Poller Context
   -- fd   : 대상 파일 디스크립터
   -- events: 변경할 새로운 이벤트 목록
   procedure modify (self   : in out Context;
                     fd     : Clair.File.Descriptor;
                     events : Event_Flags);

   -- [delete]
   -- 특정 파일 디스크립터를 감시 목록에서 제거합니다.
   -- self: Poller Context
   -- fd   : 제거할 파일 디스크립터
   procedure delete (self : in out Context;
                     fd   : Clair.File.Descriptor);

   -- [wait]
   -- 등록된 이벤트가 발생할 때까지 대기합니다.
   -- self       : Poller Context
   -- timeout_ms : 대기 시간 (밀리초). -1인 경우 무한 대기.
   -- Count      : 발생한 이벤트의 수 (output)
   procedure wait (self       : in out Context;
                   results    : out Result_Array; -- [핵심] 커널이 여기에 씀
                   count      : out Natural;
                   timeout_ms : Integer);

private

   -- 내부 구현 상세 (운영체제 의존적 데이터 저장)
   -- 예시를 위해 간단한 레코드로 정의하며, 실제 구현부는 Body에 작성됩니다.
   type Context is record
      Handle : System.Address := System.NULL_ADDRESS;
   end record;

end Clair.IO.Poller;

내부 구현은 kqueue 및 epoll 겸용으로 할 건데,

Result_Array는 kevent, epoll_event을 추상화한 타입이지.

그런데 wait에서 results가 있는데 그게 루프 돌면서 kevent를 복사해와야하는 것임.

성능 저하가 발생됨.

그래서 gg치고...

API는 똑같게할 것임.

예전에 설계한 Clair.Event_Loop라고 있는데,

Clair.IO.Poller를 제거하고,

Clair.Event_Loop를 kqueue, epoll로 구현할 것임.

API는 다음과 같음.

with Clair.File;
with Clair.IO;

package Clair.Event_Loop is

  type Context is limited private;
  type Context_Access is access all Context;
  type Watch_Condition is (Input_Ready, Output_Ready, Error_Occurred);
  type Handle_Id is new Interfaces.C.int;

  Invalid_Handle : constant Handle_Id := -1;

  type Event_Callback is access procedure (
     fd        : Clair.File.Descriptor;
     events    : Clair.IO.Event_Mask;
     user_data : System.Address
  ) with convention => c;

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

  --  루프의 한 사이클(Step)을 실행
  -- 이벤트를 확인하고, 준비된 이벤트가 있다면 콜백을 실행한 뒤 복귀합니다.
  -- Timeout: 대기 시간 (초). 0.0이면 즉시 리턴(Polling).
  procedure iterate (self : Context);

  -- io_wait -- polling

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

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

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

private

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

end Clair.Event_Loop;

외부에 kqueue, epoll 관련한 것들을 노출하지 않지.

원래는 Clair.IO.Poller에서 kqueue, epoll을 래핑 후,

Clair.Event_Loop를 Clair.IO.Poller로 구현하려 했는데

오버헤드가 미세하게 추가되기 때문에,

오버헤드 0으로 만들기 위해,

Clair.IO.Poller 추상화 API를 제거하고

Clair.Event_Loop를 kqueue, epoll로 직접 구현하기로 함.

ㅋㅋㅋ

이거 때문에 설레어 잠을 못 이루는 중 ㅎㅎ

미쳤어 정말~~

고정닉 0

전체 댓글 0개

등록순 최신순 답글순

본문 보기

타인의 권리를 침해하거나 명예를 훼손하는 댓글은 운영원칙 및 관련 법률에 제재를 받을 수 있습니다.
Shift+Enter 키를 동시에 누르면 줄바꿈이 됩니다.

갤러리 리스트
번호	제목	글쓴이	작성일	조회	추천
설문	이제는 의미 없어진 것 같은 시상식은?	운영자	25/12/01	-	-
AD	따뜻한 겨울나기! 방한용품 SALE	운영자	25/11/27	-	-
2904840	const는 상수 아니냐? [4]	ㅇㅇ	11.26	111	0
2904839	아 걍 취업하지 말고 농사나 지을까 [4]	프갤러(121.152)	11.26	145	1
2904838	퇴직하고 나니까 드는 생각인데 주 3일제 해야한다. [5]	프갤러(110.8)	11.26	108	0
2904837	진보당 뽑으면 주4일제 된다	발명도둑잡기(118.216)	11.26	83	0
2904836	크레마 루팅 검색하다가 이 블로그가 나왔는데 [1]	발명도둑잡기(118.216)	11.26	69	0
2904834	책사풍후 난중일기	책사풍후	11.26	64	0
2904833	백수라 가난 때문에 고민이 많다	발명도둑잡기(118.216)	11.26	88	0
2904831	나는 8년쯤전 영화 '슈퍼사이즈미' 보고 햄버거 끊었다	발명도둑잡기(118.216)	11.26	69	0
2904828	크레마 전자책 단종됐는데	발명도둑잡기(118.216)	11.26	79	0
2904827	내일부터 버거킹 대신 라면 먹어야겠다.	프갤러(110.8)	11.26	82	0
2904826	이제 슬슬 대가리 깨지지?	RyuDOG	11.26	139	0
2904824	결국 내 말중 틀린게 없잖아 [5]	RyuDOG	11.26	145	1
2904823	광장시장 바가지를 욕하지만 엔비디아 지피유 독과점 바가지는 침묵	발명도둑잡기(118.216)	11.26	78	0
2904819	법원행정처, '법정 모욕' 극우 변호사들 고발‥"법치주의 훼손"	발명도둑잡기(118.216)	11.26	82	0
2904818	후 남의 돈 날로 처먹고 싶다. [5]	프갤러(110.8)	11.26	104	0
2904817	Hello world도 모르는 컴맹인데 이거 ai가 앰뒤진거임?	라그네파	11.26	87	0
2904816	"대만 문제 이해한다고"…트럼프가? 일본 난처해진 상황	발명도둑잡기(118.216)	11.26	76	0
2904814	냥덩이도	발명도둑잡기(118.216)	11.26	68	0
2904813	그 세글자 닉 우울증갤러리 출신이잖아 [4]	프갤러(106.101)	11.26	110	2
2904810	계속 진화하는 고급 아파트 커뮤니티 시설	발명도둑잡기(118.216)	11.26	75	0
2904808	‘범죄도시 마동석’ 실제 모델 경찰관, 음주운전 적발	발명도둑잡기(118.216)	11.26	83	0
2904807	취업이 막히던 날, 릴스 하나가 길이 됐다… 종구형님의 인생 2막	발명도둑잡기(118.216)	11.26	153	0
2904805	Elite: "The game that couldn't be writte	발명도둑잡기(118.216)	11.25	71	0
2904804	싱클레어 ZX81 게임	발명도둑잡기(118.216)	11.25	77	0
2904803	삶이 점점 퍽퍽해지네 환경의 영향이란 [1]	RyuDOG	11.25	142	1
2904802	니혼고 구다사이~ [8]	개멍청한유라	11.25	131	0
2904800	google 이 진성 홍어새끼들	타이밍뒷.통수한방(1.213)	11.25	74	0
2904799	나 쫒아다니면서 글쓰는건 정체가 뭐냐	프갤러(59.8)	11.25	66	0
2904797	보답으로 나도 주식추천해준다 [1]	프갤러(59.8)	11.25	88	0
2904792	나사도 감탄했다는 조선의 천재 왕 [1]	발명도둑잡기(118.216)	11.25	102	1
2904790	인텔=구글=애플=엔비디아=팔란티어=공공기관=CIA=FBI=NSA	발명도둑잡기(118.216)	11.25	58	0
2904789	나 요즘에 입에 손넣고 침흘려 [4]	재현	11.25	122	0
2904788	도둑이 많아지는 시대 특징	발명도둑잡기(118.216)	11.25	175	0
2904787	나만 잘되면 되는거야.	재현	11.25	69	0
2904784	나좀 살려주라 똥지렸는데... [3]	넥도리아(223.38)	11.25	86	1
2904783	해킹당하는중인데 어떡함? [12]	프갤러(59.8)	11.25	159	0
2904781	뉴비들을 위한 입시 면접 합격 가이드(따뜻한 조언)!=	프갤러(121.142)	11.25	72	1
2904780	인텔 다시 분리형 칩으로 돌아간것 같넹;; [3]	♥냥덩이의우웅한하룽♥	11.25	98	0
2904774	위험한 냥덩이	발명도둑잡기(118.216)	11.25	93	2
2904771	씨언어나 해라 [1]	CANON	11.25	92	0
2904768	내란무새 찢재명 ㅋㅅㅋ	♥냥덩이의우웅한하룽♥	11.25	73	0
2904767	☀+ 짧아지니 나님 빨리 주무시게 되는듯 ⭐+ [8]	♥냥덩이의우웅한하룽♥	11.25	125	0
2904760	Skia: C 스타일 API와 모던 C++의 절묘한 조합 [4]	나르시	11.25	110	0
2904759	C++, Rust, Ada 라이브러리를 다른 언어에서 사용하려면?	나르시	11.25	96	0
2904758	환율 떡락과 일본 지진으로 보건대 [5]	프갤러(49.165)	11.25	96	0
2904757	Rust와 C FFI에서 패닉 전파에 대한 정리	나르시	11.25	91	0
2904756	삼성 컴퓨터 광고	발명도둑잡기(118.216)	11.25	126	0
2904755	여름에 남겨놓은 아이스크림이 하나 있었던 듯	발명도둑잡기(118.216)	11.25	66	0
2904754	요새 만원이면 알리에서 리눅스 지원 싱글보드를 산다 [6]	발명도둑잡기(118.216)	11.25	108	0
2904753	고철	발명도둑잡기(118.216)	11.25	65	0