Ada 언어 Cara 플젝에 Ruby 코드 사용하는 이유

나르시

2025.07.19 10:27:07

조회 76 추천 0 댓글 0

cloc 로 보겠습니다.

hodong@:~/projects/cada/src $ cloc .

19 text files.

17 unique files.

5 files ignored.

github.com/AlDanial/cloc v 2.04 T=0.01 s (1182.6 files/s, 87513.2 lines/s)

-------------------------------------------------------------------------------

Language files blank comment code

-------------------------------------------------------------------------------

Ada 14 133 186 720

Ruby 2 29 35 133

C 1 4 6 12

-------------------------------------------------------------------------------

SUM: 17 166 227 865

-------------------------------------------------------------------------------

이렇습니다.

루비 코드도 많이쓰죠.

웰까요.

소스코드 자동 생성 때문에 그렇습니다.

ㅎㅎㅎ

이런 식으로 코드 자동생성 ㅋㅋ

#!/usr/bin/env ruby

# frozen_string_literal: true

require 'fiddle/import'

# =============================================================================

# 1. C 라이브러리(libc)의 strerror 함수를 호출하기 위한 설정

# =============================================================================

module LibC

extend Fiddle::Importer

LIBC_PATH = case RUBY_PLATFORM

when /linux/

'libc.so.6'

when /darwin/ # macOS

'libc.dylib'

when /freebsd/

'libc.so.7'

else

'libc.so'

end

begin

dlload LIBC_PATH

extern 'char* strerror(int)'

rescue Fiddle::DLError => e

warn "Warning: Could not load libc. Cannot generate error messages."

warn "Details: #{e.message}"

# strerror를 찾을 수 없을 때 빈 함수를 정의하여 스크립트가 완전히 죽는 것을 방지

def self.strerror(errnum); "libc not found"; end

end

# =============================================================================

# 2. strerror 메시지를 Ada 예외 이름으로 변환하는 로직

# =============================================================================

def message_to_ada_name(message)

# 'Can't'/'can't' 같은 예외적인 단어들을 먼저 처리

processed_message = message.gsub(/can't/i, "cannot")

# 각종 구분자(공백, /, :, ., -)로 단어를 나누고, 빈 조각은 제거

parts = processed_message.split(/[ \/:.-]/).reject(&:empty?)

# 각 단어의 첫 글자를 대문자로 만들고 언더스코어(_)로 합침

return parts.map(&:capitalize).join('_')

end

input_file = ARGV[0]

unless input_file && File.exist?(input_file)

puts "Usage: #{$0} <path_to_errno_h.ads>"

exit 1

end

# 1. 'errno_h.ads' 파일을 읽어 문자열로 저장합니다.

file_contents = File.read(input_file)

# 2. 정규표현식으로 파일 내용에서 C 상수 이름과 숫자 값을 모두 찾아냅니다.

# 결과는 [["EPERM", "1"], ["ENOENT", "2"], ...] 형태의 배열이 됩니다.

c_constants = file_contents.scan(/^\s*(\w+)\s*:\s*constant\s*:=\s*(\d+);/)

# 3. 최종 결과를 담을 빈 배열을 준비합니다.

errors = {}

# 4. 찾아낸 각 상수 쌍([name, val])에 대해 반복 작업을 수행합니다.

c_constants.each do |name, val|

# 5. 숫자 값을 정수로 변환하고, strerror를 호출하여 메시지를 가져옵니다.

error_number = val.to_i

message = LibC.strerror(error_number).to_s

# 6. 메시지가 유효하지 않으면 스크립트를 중단시킵니다.

if message.nil? || message.empty? || message.start_with?('Unknown error')

raise "Invalid message for errno #{error_number}"

end

# 7. 메시지를 Ada 예외 이름 형식으로 변환합니다.

ada_name = message_to_ada_name(message)

# 8. 변환에 성공했다면, 모든 정보를 묶어서 최종 결과 배열에 추가합니다.

if ada_name

errors[val] = { c_name: name, ada_name: ada_name } if errors[val].nil?

end

# --- cada-error.ads 파일 생성 (추가된 부분) ---

File.open('cada-error.ads', 'w') do |f|

f.puts '-- -*- Mode: Ada; indent-tabs-mode: nil; c-basic-offset: 2; tab-width: 2 -*-'

f.puts '-- This file is generated by gen-cada-error.rb. DO NOT EDIT.'

f.puts '-- cada-error.ads'

f.puts '--'

f.puts '-- Permission to use, copy, modify, and/or distribute this software for any'

f.puts '-- purpose with or without fee is hereby granted.'

f.puts '--'

f.puts '-- THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES'

f.puts '-- WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF'

f.puts '-- MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR'

f.puts '-- ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES'

f.puts '-- WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN'

f.puts '-- ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF'

f.puts '-- OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.'

f.puts 'with Interfaces.C;'

f.puts

f.puts 'package Cada.Error is'

f.puts

errors.each_pair do |code, hash|

f.puts " #{hash[:ada_name].ljust(35)} : exception; -- #{hash[:c_name]}, #{code}"

end

f.puts

f.puts ' Unknown_Error : exception; -- For unhandled errno values'

f.puts

f.puts ' function get_error_message (Err_Code : Interfaces.C.Int) return String;'

f.puts

f.puts 'end Cada.Error;'

end

puts "Generated src/cada-error.ads successfully."

# =============================================================================

# 5. cada-error-raise_from_errno.adb (서브유닛) 파일 생성

# =============================================================================

File.open('cada-error-raise_from_errno.adb', 'w') do |f|

f.puts '-- This file is dynamically generated by gen-cada-error.rb. DO NOT EDIT.'

f.puts 'separate (Cada.Error)'

f.puts 'procedure raise_from_errno (err_code : Interfaces.C.Int; message : String := "") is'

f.puts ' final_message : constant String :='

f.puts ' (if message\'length > 0 then message else "OS Error");'

f.puts 'begin'

f.puts ' case err_code is'

errors.each_pair do |val, data|

f.puts " when #{val} => raise #{data[:ada_name]} with final_message;"

end

f.puts ' when others => raise Unknown_Error with final_message & " (errno: " & err_code\'image & ")";'

f.puts ' end case;'

f.puts 'end raise_from_errno;'

end

puts "Generated src/cada-error-raise_from_errno.adb successfully."

한가지 언어만 사용하지는 않아요.

ada, c/c++로 뭔가를 개발한다고 하여 동적 언어는 안 쓰겠거니 생각하면 큰 오산입니다.

고정닉 0

전체 댓글 0개

등록순 최신순 답글순

본문 보기

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

갤러리 리스트
번호	제목	글쓴이	작성일	조회	추천
설문	의외로 연애 못할 것 같은 연애 하수 스타는?	운영자	25/08/04	-	-
AD	휴대폰 액세서리 세일 중임!	운영자	25/07/28	-	-
공지	프로그래밍 갤러리 이용 안내 [92]	운영자	20.09.28	46026	65
2877807	인간은 주변에 자연, 꽃, 나무, 숲 등이 없으면 정신건강이 나빠진다	발명도둑잡기(118.216)	11:48	0	0
2877806	❤✨☀⭐⚡☘⛩나님 시작합니당⛩☘⚡⭐☀✨❤	♥꽃보다냥덩♥	11:44	2	0
2877805	내가 생각할때 웹앱개발자들은 걍 자동으로 다해주는거임 [1]	네오커헠(1.237)	11:38	22	0
2877804	강물 ㅇㅅㅇ [2]	헤르 미온느	11:38	8	0
2877803	태연 ㅇㅅㅇ	헤르 미온느	11:36	3	0
2877802	하루 한 번 헤르미온느 찬양	헤르 미온느	11:35	2	0
2877801	ETW 패치함	루도그담당(211.184)	11:31	7	0
2877799	"저새끼 죽으면 노래부르면서 춤출듯"	프갤러(220.84)	11:23	11	0
2877798	...	배구공(119.202)	11:16	12	0
2877797	대.재.명	♥꽃보다냥덩♥	11:14	8	0
2877796	흠, 웹쪽은 async에 통신을 일임해도 안뻗나보네 [1]	네오커헠(211.234)	11:13	43	0
2877795	노이즈가 많아서 거르기	♥꽃보다냥덩♥	11:11	8	0
2877794	히히히	어린이노무현	11:10	20	0
2877793	조명만 바꿔도 분위기가 확 산당 [1]	♥꽃보다냥덩♥	11:08	17	0
2877792	❤✨☀⭐⚡☘⛩나님 시작합니당⛩☘⚡⭐☀✨❤	♥꽃보다냥덩♥	11:04	8	0
2877791	아침부터 서비스 장애로 7시 출근함 [2]	아스카영원히사랑해	11:00	34	0
2877790	gradle은 진짜 가젤펀치 마렵네 [2]	헬마스터	10:58	27	0
2877789	동양인 70억 민족성 ㄹㅇ 대단하지않냐?? [1]	뒷통수한방(1.213)	10:54	19	0
2877788	내가 8년전부터 지금까지 계속 하던말들이 무시당하는이유	타이밍뒷통수한방(1.213)	10:53	16	0
2877787	인내심을 시험하지 마시오. [1]	프갤러(220.84)	10:51	23	0
2877786	빨리 이 칼날 위를 걷는 삶이 아닌 [4]	ㅆㅇㅆ찡	10:49	28	0
2877785	C++ 쓰는데 [7]	루도그담당(118.235)	10:46	38	0
2877784	오늘도 피곤하구나 [2]	ㅆㅇㅆ찡	10:40	26	0
2877783	민생쿠폰때문에 콜센터 전화했는데 뭔 통화료를 부과하냐???	뒷통수한방(1.213)	10:39	12	0
2877780	씨발 히키새끼야 너 믿고 프로그래밍 공부했다가 시간 날렸다 [8]	프갤러(222.108)	09:53	60	0
2877775	유니티 인디게임 대부분 유저 데이터 암호화해놓냐 [12]	프갤러(118.223)	08:58	80	0
2877774	흠	딱신(211.234)	08:58	17	0
2877773	오늘을 살자 내일도 살리자 [1]	넥도리나(220.74)	08:47	18	0
2877769	개좆되는 게임성만 있으면 [1]	뉴진파	07:45	40	0
2877767	씨발 다시는 히키같은 새끼가 나오면 안 됨	프갤러(222.108)	07:19	32	0
2877763	히키 씨발년 진짜 증오스럽다 개새 [3]	프갤러(222.108)	06:12	57	1
2877760	이거 갖고싶움 ㅇㅅㅇ [3]	어린이노무현	04:15	61	0
2877759	진짜 프로그래머들 이래요? [1]	ㅇㅇ	03:59	94	1
2877754	머학에서 수업 30시간 이상 못듣는거 충격적이지않음? [1]	공기역학	02:26	53	0
2877753	메모리랑 io를 원하는 타이밍에 통제못하는게 화남 [1]	공기역학	02:21	50	0
2877750	이렇게 까지 해서 벌어야 하나?	ㅇㅇ(175.223)	01:57	30	0
2877749	Rust 특 [2]	프갤러(121.150)	01:45	54	0
2877747	슬슬 오늘도 한권의 책을 다 읽었으니 자야긋다 [2]	ㅆㅇㅆ(124.216)	01:29	50	0
2877745	async에 대해서 조금 쉽게 설명을 해주자면 대강 이럼. [1]	ㅆㅇㅆ(124.216)	01:25	67	0
2877743	근데 C# 개발자가 async를 안 쓸수가 있나?	ㅆㅇㅆ(124.216)	01:17	51	0
2877742	나는 인생에 지향하는 바가 명확하다면 좀 넉넉치않아도 행복하다 생각함	ㅆㅇㅆ(124.216)	01:07	45	0
2877741	가끔은 유학을 사람들이 아예 안 읽어서 참 아쉽단 생각을 해.	ㅆㅇㅆ(124.216)	00:59	46	0
2877740	개발자 된지 2년 넘었는데 async가 뭔지 모름 [12]	프갤러(1.245)	00:56	115	0
2877739	안철수씨 말 덜 더듬더라 [2]	헬마스터	00:54	53	0
2877738	중요한건 인생의 경험을 어떻게 자산화 하느냐가 낭비냐 아니냐가 되는거지. [1]	ㅆㅇㅆ(124.216)	00:50	48	0
2877737	인생은 남이 보면 지옥이더라도 자기가 만족하면됨. [6]	ㅆㅇㅆ(124.216)	00:43	57	0
2877736	인생이 지옥으로 떨어지는 건 한순간이다 [8]	아스카영원히사랑해	00:37	120	1
2877733	하노이의탑 재귀호출 문제 풀다가 자살하고싶어짐 [1]	ㅇㅇ(223.39)	08.03	75	0
2877728	113.오구차단	넥도리아(220.74)	08.03	31	0
뉴스	아이유, 박보검에 무릎 꿇고 꽃다발...박보검은 눈물 무슨일?	디시트렌드	08.02