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

나르시

2025.11.24 02:59:21

조회 136 추천 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	루틴 ON! 운동 찐템! 지금 할인 중	운영자	25/11/27	-	-
2905472	35살 모욕죄 전과자+좆견인인데, 관세사따면 결혼 가능 스펙임? [1]	ㅇㅇ(203.232)	11.29	118	0
2905471	우왓, 연회중에 피분수가..ㅡㅡ;; [2]	박정희대통령	11.29	92	4
2905465	모기로 프린터를 만들어	발명도둑잡기(211.235)	11.29	49	0
2905464	청소년이 밤 10시 이후에	발명도둑잡기(211.235)	11.29	48	0
2905463	❤✨☀⭐⚡☘⛩☃나님 시작합니당☃⛩☘⚡⭐☀✨❤	♥멘헤라냥덩♥	11.29	83	0
2905461	사람인하고 점핏하고 다른 회사임?	ㅇㅇ(182.228)	11.29	61	0
2905460	경력 1년이상, 3년이상 뽑는 회사 [2]	ㅇㅇ	11.29	106	0
2905456	유관순은 3.1운동할 때 인공기 흔들었냐? [2]	chironpractor	11.29	86	0
2905454	중·일 갈등 ‘패싱’ 미국에···일본은 불안하다	발명도둑잡기(118.216)	11.29	65	0
2905453	‘한미일 vs 북중러’ 구도 위험성 더 커진다 [2]	발명도둑잡기(118.216)	11.29	71	0
2905452	이젠 뭐가 ai이고 진짜인지 분간이 잘 안 간당.. [5]	♥멘헤라냥덩♥	11.29	155	0
2905451	밤에도 못 자고 일하니까 출생률이 떨어지는 것이다 [1]	발명도둑잡기(118.216)	11.29	52	0
2905450	윤석열 “전한길은 하나님이 한국에 보낸 선물” 옥중 편지	발명도둑잡기(118.216)	11.29	59	0
2905448	'아쉽다. 뽀뽀'…부하 여경 손 깍지·허리 감싼 경찰관 유죄 확정	발명도둑잡기(118.216)	11.29	40	0
2905447	美서 의미 퇴색한 '블프 세일'…"행사 진정성 사라져"	발명도둑잡기(118.216)	11.29	43	0
2905446	'케네디家' 끝없는 비극?…35살 외손녀 시한부 판정	발명도둑잡기(118.216)	11.29	50	0
2905445	5억짜리 ‘인간 세탁기’	발명도둑잡기(118.216)	11.29	48	0
2905444	노동장관 "해 뜨면 일하고 해 지면 휴식. 야간 노동자 사망' 쿠팡	발명도둑잡기(118.216)	11.29	43	0
2905441	젤렌스키, 러시아 침공전 방어체제 이끈 '분신' 잃었다	발명도둑잡기(118.216)	11.29	53	0
2905440	회사다니면서 우울증 생겼는데.. [17]	ㅇㅇ(1.244)	11.29	137	0
2905437	기분 좋은 주말이다	RyuDOG	11.29	47	0
2905436	[대한민국] 국힘 책임당원 일동 입장문	ㅇㅇ(121.172)	11.29	47	0
2905432	이마트가즈아	넥도리아(223.38)	11.29	41	0
2905431	나 한동훈 인간적이어서 좋아했습니다.	넥도리아(223.38)	11.29	58	0
2905428	내냔 상반기 ㄹㅇ 존나 바쁠거 확정임 ㅅㅂ [2]	♥멘헤라냥덩♥	11.29	108	0
2905425	뭔가 있어보이는 Ada 코딩법 ㅋㅋ [2]	나르시	11.29	76	2
2905424	책 사는거 이거 맞는건가? [1]	넥도리아(220.74)	11.29	109	0
2905420	주술회전 최신화	♥멘헤라냥덩♥	11.29	51	0
2905419	Watsn.ai - 최첨단 AI 구라 탐지기 만들어 봤다	Watsn(47.230)	11.29	61	0
2905418	이태원 모욕죄로 벌금100 너무 분하고 억울하다.. 이딴걸로 전과라니; [3]	ㅇㅇ(39.7)	11.29	105	1
2905414	오늘자 민주주의 파괴 진척 경과 현황 [5]	chironpractor	11.29	89	0
2905413	저장용	♥멘헤라냥덩♥	11.29	55	0
2905410	❤✨☀⭐⚡☘⛩☃나님 시작합니당☃⛩☘⚡⭐☀✨❤	♥멘헤라냥덩♥	11.29	47	0
2905409	내가 만나고 싶은 여자 이상형 적어봄.txt [1]	ㅁㅁㅅ	11.29	78	0
2905407	이직하려면 여기서 어떤부분을 좀더 집중하는게 좋을까? [6]	프갤러(58.76)	11.29	115	0
2905406	평론가, 평론의 중요성, 필요성, 위대한 평론 등이 잘 드러난 작품	발명도둑잡기(118.216)	11.29	206	0
2905405	인지과학조져라	손발이시립디다	11.29	90	0
2905403	프랑스의 쓰레기방지법과 유럽의 '그린 뉴딜'	발명도둑잡기(118.216)	11.29	45	0
2905398	CUDA 때문에 절대 안된다? 구글 TPU 사태의 본질, 엔비디아가 급해	발명도둑잡기(118.216)	11.29	79	0
2905397	공원 ㅇㅅㅇ	헤르 미온느	11.29	54	0
2905396	태연 ㅇㅅㅇ [1]	헤르 미온느	11.29	61	0
2905395	하루 한 번 헤르미온느 찬양	헤르 미온느	11.29	82	0
2905394	7,000명이 호흡할 공기를 걸러낸다고? 도심 한복판에 '이끼'를	발명도둑잡기(118.216)	11.29	60	0
2905393	국내에서 네카라쿠배 위에 어떤 회사들 있음?	프갤러(1.229)	11.29	66	0
2905391	초월지능신교 來世經文	프갤러(49.165)	11.29	66	0
2905389	지식in 조회수만 도전해봅니다.	넥도리아(220.74)	11.29	65	0
2905388	초월지능신교의 교리와 경전 그리고 기도문	프갤러(49.165)	11.29	71	0
2905387	초월지능신교 경문	프갤러(49.165)	11.29	52	0
2905386	이제 사이비종교를 만들 때다.	프갤러(49.165)	11.29	57	0
2905385	디시는 모자이크 안되냐 네이버 지식in은 되던데 모자이크 기능 오늘 처음	넥도리아(220.74)	11.29	60	0