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

프로그래밍 갤러리

자동 짤방 이미지

이미지가 없습니다.

자동 짤방으로 사용할 이미지를 등록해 주세요.

1/3

오들오들 미국의 탈출 불가능한 교도소.jpg . 작성자 : Chart_Manager

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

나르시

2025.07.19 10:27:07

조회 60 추천 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/07/21	-	-
공지	프로그래밍 갤러리 이용 안내 [88]	운영자	20.09.28	45774	65
2874877	나님 책 하나 쓰려구 기본 자연현상으로 연쇄논리 모든 과학	♥팬티스타킹냥덩♥	17:32	3	0
2874876	틱톡에 태이,우아 떡방박제됨 ㅋ 짤리기 전에 봐ㄱㄱ	프갤러(121.176)	17:32	2	0
2874875	베트남 장점	발명도둑잡기(118.216)	17:30	1	0
2874874	'1 9 ) 윤공주 벗 방한대 ㄱㄱ	프갤러(121.176)	17:28	1	0
2874872	신태일 틱톡에서 실시간 떡방중이네 ㅋㅋㅋ	프갤러(121.176)	17:25	4	0
2874869	내가 회사 안다니는이유	프갤러(121.139)	17:12	12	0
2874868	나님 사실 불안장애 잇음..	♥팬티스타킹냥덩♥	17:10	12	0
2874867	배고픋데 뭐 먹지	루도그담당(58.239)	17:07	8	0
2874864	[대한민국] 미국 트럼프, 오바마 부정선거 배후	프갤러(121.172)	17:04	7	0
2874860	요새도 영어 공부 하는게 좋을까요?	질문왕(211.248)	16:51	11	0
2874859	90년대생 추억의 아이템	발명도둑잡기(118.216)	16:46	10	0
2874858	한반도 향하는 태풍 길목…'한라산 방패설'은 사실일까 [1]	발명도둑잡기(118.216)	16:40	14	0
2874856	웨일브라우저에 탭 천개쯤 띄워도 안 느려지네? [2]	발명도둑잡기(118.216)	16:15	25	0
2874855	백조는 발길질을 쉬지 않는다	발명도둑잡기(118.216)	16:06	12	0
2874854	트럼프 풍자한 美 인기 애니…백악관 "4류쇼" 발끈	발명도둑잡기(118.216)	16:04	15	0
2874853	ㅇㅅㅇ⭐+	♥팬티스타킹냥덩♥	15:58	17	0
2874852	인간.. 인간 냄새가 나 !!!	♥팬티스타킹냥덩♥	15:54	29	0
2874851	갑질좌파 근황 [3]	♥팬티스타킹냥덩♥	15:40	31	0
2874849	아래 시디즈 의자 글 보니 드는 생각 [2]	발명도둑잡기(118.216)	15:38	28	0
2874848	시디즈 의자 T80 VS T90 뭐가 나을까요?? [1]	질문왕(211.248)	15:34	39	0
2874847	노동자 탄압하는 극좌 한걸레를 당장 폐간하라! [1]	♥팬티스타킹냥덩♥	15:33	20	0
2874846	명나라한테 매달려 가지고, 바짓가랑이 매달려 가지고 응디	발명도둑잡기(118.216)	15:31	15	0
2874845	2개월차 임붕이인데 질문	ㅇㅇ(211.234)	15:30	22	0
2874844	공수처 검찰청 경찰청 국제수사 과학수사 포랜식수사 기무사 국정원 존재이유 [1]	뒷통수한방(1.213)	15:28	14	0
2874838	ADB로 apk강제설치 하려고하는데요 [2]	디옵터	15:19	31	1
2874837	코리아it 아카데미 신촌점 여기 어때요? [2]	ㅇㅇ(211.234)	14:45	27	0
2874836	방금 여론조사 했당. [1]	넥도리아(106.101)	14:45	25	0
2874835	오늘 같은 날은 나가는 거 아님 [4]	아스카영원히사랑해	14:42	45	1
2874834	[대한민국] 윤석열 대통령 10만원 배상에 "꼴에 판사라고"	프갤러(121.172)	14:42	18	0
2874833	가능?...jpg	ㅇㅇ	14:42	25	0
2874829	넥도리아 저새기는 [1]	ㅇㅇ(118.235)	14:25	36	0
2874828	달안동 [1]	넥도리아(223.38)	14:22	19	0
2874827	하얀소닉 엄마 재활용 노동자 비하 [1]	넥도리아(223.38)	14:17	22	0
2874826	국민의힘 = 김정은 세력 [1]	넥도리아(223.38)	14:16	23	0
2874825	관심없다 프갤러	넥도리아(223.38)	14:15	19	0
2874823	형들 나도 돈 버는 방법 알려줘.	프갤러(121.172)	13:54	29	0
2874818	새로운 명함이 생겼읍니다 [4]	어린이노무현	13:46	58	0
2874816	파이썬 동적 타입 오류 줄이기	발명도둑잡기(118.216)	13:40	22	0
2874813	뉴프로는 특정시간재생 유튜브 링크 기능도 제공하더라 [2]	헬마스터	13:16	42	0
2874812	여성 전용 앱 TEA 신분 유출 [1]	발명도둑잡기(118.216)	13:14	53	0
2874811	남성들 바지 속에 손 ‘스윽’ 집어넣는 습관… 이유 있었다 [1]	발명도둑잡기(118.216)	13:13	28	0
2874810	이 날씨에 돌아다니는건 ㄹㅇ 할잣이 아니당..	♥팬티스타킹냥덩♥	13:11	29	0
2874809	2찢명 피해의식 탄핵 당할까봐 떨고있는듯 ㅋㅅㅋ	♥팬티스타킹냥덩♥	13:01	22	0
2874804	리액트가 제이쿼리보다 재밋네 [1]	ㅇㅇ(175.223)	12:46	32	0
2874793	북극곰 개체수 사기극.jpg [1]	ㅇㅇ	12:21	42	0
2874789	짜장 스파게티 먹습니다. [2]	넥도리아(220.74)	12:11	52	0
2874776	이정도면 동남아가 덜 더울듯 ㅇㅅㅇ [1]	류류(118.235)	11:29	28	0
2874775	특이점은 2045년에 오는거고 agi 급은 2030년대 가능할거라봄	프갤러(183.101)	11:23	36	0
2874774	특이점이온다 갤러리나 보셈 [2]	프갤러(183.101)	11:20	50	0
뉴스	'핑계고' 스테이씨, 유재석∙조세호도 춤추게 한 'I WANT IT'…데뷔 5년 차 바이브로 예능 텐션 올킬	디시트렌드	07.25