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

나르시

2025.07.19 10:27:07

조회 79 추천 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	-	-
2878515	나님 쉬야하구 쿨쿨⭐+ [1]	♥꽃보다냥덩♥	08.05	51	0
2878514	원종이는 감옥생활조차 서정적일듯.. [1]	♥꽃보다냥덩♥	08.05	60	0
2878513	한화시스템 부캠 어떰?	프갤러(183.102)	08.05	34	0
2878512	mssql는 진짜 개구린거같은데 [16]	밀우	08.05	103	0
2878511	내가 느끼는게 이제 내가 코드짜는거 의미가 없다 [2]	ㅆㅇㅆ찡	08.05	59	0
2878510	가난이 밉다... 영화 싸게 봐보겠다고 할인쿠폰이나 찾아다니는 인생이.. [1]	ㅇㅇ(223.39)	08.05	34	0
2878508	얄코 js 강의 어때? [2]	프갤러(121.176)	08.05	38	0
2878507	커서는 업데이트 할때마다 좆병신같은 버그 하나씩 생기네	프갤러(59.6)	08.05	20	0
2878506	llm으로 레퍼런스적은 프레임워크 쓰면	밀우	08.05	27	0
2878505	나는 애새끼입니다. 억지도 부리고 어리광도 부려요.	프갤러(220.84)	08.05	29	0
2878503	자바 독학은 자바의 정석 보면되노? [1]	프갤러(223.39)	08.05	53	0
2878501	삶에 즐거운 구간이 없었군요.	프갤러(220.84)	08.05	56	0
2878500	나님 주무시기전 소통⭐+ 질문 받음 [3]	♥꽃보다냥덩♥	08.05	46	0
2878497	llm은 딱 학부2학년수준이 한계인듯 [2]	공기역학	08.05	56	0
2878496	나님 왤케 낭만적일깡? [1]	♥꽃보다냥덩♥	08.05	36	0
2878495	나의 킬스위치를 누르시오.	프갤러(220.84)	08.05	31	0
2878494	Perl 인생 40 년 갈아 넣었습니다.	프갤러(59.16)	08.05	42	0
2878491	❤✨☀⭐⚡☘⛩나님 시작합니당⛩☘⚡⭐☀✨❤	♥꽃보다냥덩♥	08.05	27	0
2878490	ㅇㅇ	프갤러(211.235)	08.05	20	0
2878489	꼰대의 우분투 일침	발명도둑잡기	08.05	45	0
2878487	호흡을, 식생활을 못하겠어요.	프갤러(220.84)	08.05	60	0
2878486	러스트를 해봤자 오히려 이득보다 해가 많은데 왜하냐니깐 딴소리하네	타이밍뒷통수한방(1.213)	08.05	95	5
2878485	좇센은 러스트보다 자바가 더 잘버는데 왜 러스트 도배를하는걸까 ㅋㅋㅋㅋㅋ	타이밍뒷통수한방(1.213)	08.05	88	3
2878484	유닉스 다큐	발명도둑잡기	08.05	48	0
2878483	집에서 GPU를 만들었어요	발명도둑잡기	08.05	60	0
2878482	직업은 다른건데 취미로 개발하는 사람들 있냐 [1]	프갤러(222.100)	08.05	69	0
2878481	아무튼 러스트 공부 한번 해보십쇼. 지능 향상에 도움이 될겁니다. [1]	프갤러(211.234)	08.05	42	0
2878480	일베충 없애는 법	발명도둑잡기	08.05	52	0
2878479	아 자바 고액 연봉자의 진실 하나 빠진게 있군요	프갤러(211.234)	08.05	98	0
2878477	지은 죄는 없지만서도 중죄인입니다.	프갤러(220.84)	08.05	57	0
2878476	자바충 병신들이 업계 망쳐놓은거 생각하면 솔직히 비질란테 해야	프갤러(211.234)	08.05	48	0
2878475	자바 고액연봉자의 진실을 알려드릴까요?	프갤러(61.74)	08.05	108	0
2878474	근데 러스트 한국에서 어느회사가씀? [3]	밀우	08.05	59	0
2878473	3루에서 시작하는 사람, 1루에서 시작하는 사람이 있어요.	프갤러(220.84)	08.05	51	0
2878472	물론 러스트만 잘한다고 돈 쓸어담진 못합니다.	프갤러(27.162)	08.05	40	0
2878471	러스트 빡 고수들은 돈 쓸어담고 있습니다. 자능아랑 비교 ㄴㄴ하세요.	프갤러(27.162)	08.05	42	0
2878470	애널의달성 2.2/2/	♥꽃보다냥덩♥	08.05	26	0
2878469	코틀린 서적 추천점 [1]	프갤러(223.39)	08.05	69	0
2878468	여자친구랑 캠핑 가면 재밌나요?	발명도둑잡기	08.05	47	0
2878467	대신 죽어준다 하면 받아들이셨어야죠.	프갤러(220.84)	08.05	45	0
2878466	러스트해봤자 자바보다 연봉 아래인데 왜함 ㅋㅋㅋㅋㅋㅋ	타이밍뒷통수한방(1.213)	08.05	64	4
2878465	뭐 괜찮습니다. 어차피 러스트를 할만한 선택받은자는 10퍼 미만	프갤러(27.170)	08.05	33	0
2878464	솔직히 러스트 뭐가 어렵다는건지 전혀 모르겠습니다.	프갤러(27.170)	08.05	30	0
2878463	러빨러 또 궤변 늘어놓기 바쁘시군요ㅎㅎ	나르시	08.05	61	6
2878462	ada는 러스트 배울 지능이 없는 저능아들의 도피처일 뿐입니다.	프갤러(27.170)	08.05	33	0
2878461	러빨러들은 왜 소스코드 안 올리는거임??	나르시	08.05	44	4
2878459	xxJ 씨발새끼를 기억해주시오.	프갤러(220.84)	08.05	32	0
2878458	애들이 LLM 코딩의 기본은 퍼사드 패턴인 걸 모르노	ㅆㅇㅆ(124.216)	08.05	41	0
2878456	그르게 내가 2022년에 러스트는 더 지켜봐야한다니까	나르시	08.05	50	4
2878454	좌파 우파라는게 정상적인 헌법위에서나 성립하지	ㅆㅇㅆ(124.216)	08.05	24	0
뉴스	6인조 보이그룹 엔탑(N.TOP), 오늘(6일) ‘WE:DISCONNECT’로 정식 데뷔! 금주 음악방송 출격!	디시트렌드	14:00