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

나르시

2025.07.19 10:27:07

조회 77 추천 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	46036	65
2877967	해커 이 씨발련들 대가리를 부숴야함 그냥 [1]	ㅆㅇㅆ(124.216)	20:45	5	0
2877966	'부천김린' 틱톡에 벗방시절 박제됐음 ㅋ 짤리기전에봐라ㄱㄱ [1]	프갤러(222.106)	20:45	2	0
2877964	크~ 존멋 이게 남자지 [1]	♥꽃보다냥덩♥	20:41	4	0
2877963	<컴퓨터 우주 탐험> [1]	발명도둑잡기	20:38	2	0
2877961	보안이 개구린이유 다시말해준다	밀우	20:34	12	0
2877959	BoA 보아 'Crazier' [1]	발명도둑잡기	20:29	6	0
2877955	틱톡에 태이,우아 떡방박제됨 ㅋ 짤리기 전에 봐ㄱㄱ [1]	프갤러(175.200)	20:22	5	0
2877954	나의 한 달 소비 내역 [1]	발명도둑잡기	20:21	16	0
2877950	어빠.. 나 오늘 안전해~ [1]	♥꽃보다냥덩♥	20:13	14	0
2877947	틱톡에 태이,우아 떡방박제됨 ㅋ 짤리기 전에 봐ㄱㄱ [1]	프갤러(175.200)	20:07	10	0
2877946	디저트로 아이스크림을 먹어야겠어요. [1]	프갤러(220.84)	20:06	13	0
2877942	하루종일 패킷뜯고있노 좆갘네 [1]	ㅇㅇ	19:58	21	0
2877939	ㅇ [1]	ㅇㅇ(118.235)	19:56	12	0
2877938	ㅇ [1]	ㅇㅇ(118.235)	19:56	14	0
2877937	아스카의 한달 100만원으로 살기 프로젝트 대공개 [1]	아스카영원히사랑해	19:55	27	0
2877936	ㅇ [1]	ㅇㅇ(118.235)	19:54	12	0
2877935	❤✨☀⭐⚡☘⛩나님 시작합니당⛩☘⚡⭐☀✨❤ [1]	♥꽃보다냥덩♥	19:53	13	0
2877934	삶은 길고 긴 고통 [1]	프갤러(211.234)	19:36	28	0
2877933	나를 희생양삼지 마시오.	프갤러(220.84)	19:28	18	0
2877932	바이러스는 인간임 환경단체가 무시하지만 ㅋㅋ 코로나는 선동가스라이팅이고 [1]	타이밍뒷통수한방(1.213)	19:28	13	0
2877931	220.84 내 인터넷 해킹하는 듯 [1]	발명도둑잡기	19:21	45	0
2877930	아니 대학원까지 나와야 취업되는데 왜 해킹보안학과 가는거임?? [5]	타이밍뒷통수한방(1.213)	19:16	29	0
2877929	잔혹하게 버림받았도다. 불쌍한 나.	프갤러(220.84)	19:15	32	0
2877928	세상은 악으로 가득차있으니 노력 + 선 +효도 등을 강요하는거지 ㅋㅋ [1]	타이밍뒷통수한방(1.213)	19:12	19	0
2877927	물리학계를 완전히 뒤집어놓은 이론! 정보에 질량이 있다고? [1]	발명도둑잡기	19:12	23	0
2877926	저주를 퍼부었으니 각오를 하셔야지요.	프갤러(220.84)	19:11	17	0
2877925	좇센이 ㄹㅇ로 운+노력이면 성공함?? ㅋㅋㅋㅋㅋ [1]	타이밍뒷통수한방(1.213)	19:09	23	0
2877924	주식앱만들었는데 올려봄 [4]	프갤러(27.35)	19:08	35	0
2877923	통신기술사는 H.266도 문제로 나오더라 [2]	밀우	18:58	34	0
2877921	죽음이 다가온다.	프갤러(220.84)	18:56	60	0
2877920	하루 4ㅌㅊ는 무리데쑤! [1]	♥꽃보다냥덩♥	18:53	28	0
2877917	이몽룡 선발대회 [1]	발명도둑잡기	18:48	23	0
2877915	무슨 부귀영화를 누리겠다고 구차하게 살아있소.	프갤러(220.84)	18:44	19	0
2877913	주식앱 만든거잇는데 [2]	프갤러(27.35)	18:42	31	0
2877912	2-2인데 전공 어떰 [1]	프갤러(14.7)	18:40	27	0
2877911	버그터진 코드는 쓰레기통에 박아야죠.	프갤러(220.84)	18:36	20	0
2877910	<이재명 정부는 국민주권 정부인가?> [1]	발명도둑잡기(118.216)	18:35	21	0
2877909	애널의달성 2.2/2/2 [1]	♥꽃보다냥덩♥	18:34	24	0
2877908	기술사도 따고 박사도 따고싶다 [1]	밀우	18:32	36	0
2877907	아이브-Rebel Heart 앨범 아트	발명도둑잡기	18:30	16	0
2877906	❤✨☀⭐⚡☘⛩나님 시작합니당⛩☘⚡⭐☀✨❤ [1]	♥꽃보다냥덩♥	18:27	19	0
2877905	신도 종교도 저의 탄생으로 부정됩니다.	프갤러(220.84)	18:24	19	0
2877904	루비대머리 어디갔나 했더니 나르시였음? [1]	프갤러(121.139)	18:24	31	0
2877903	취업할려면 대학원까지가야되는데 왜 해킹보안학과 가는거임?? [1]	뒷통수한방(1.213)	18:23	23	0
2877902	넥도리아 > ㅆㅇㅆ	프갤러(121.139)	18:23	28	1
2877901	혼에 꽂힌 비수 덕분에 수년째 밥을 똑바로 못먹습니다.	프갤러(220.84)	18:18	22	0
2877900	해킹보안학과 가면 취업 쉬움?? [5]	뒷통수한방(1.213)	18:17	53	0
2877899	부모쯤은 맡겨도 된다고 착각했습니다. 그래요.	프갤러(220.84)	18:14	18	0
2877898	나는 코딩하는 원숭이당당당 [1]	통암기원숭(61.253)	18:08	34	0
뉴스	‘나 혼자 산다’ 박나래, 찐친과 웨딩 촬영 공개...“마지막 웨딩화보 일것”	디시트렌드	08.02