cloc 로 보겠습니다.
hodong@:~/projects/cada/src $ cloc .
19 text files.
5 files ignored.
이렇습니다.
루비 코드도 많이쓰죠.
웰까요.
소스코드 자동 생성 때문에 그렇습니다.
#!/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
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
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 '-- Copyright (c) 2025 Hodong Kim <hodong@nimfsoft.art>'
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++로 뭔가를 개발한다고 하여 동적 언어는 안 쓰겠거니 생각하면 큰 오산입니다.
댓글 영역
획득법
① NFT 발행
작성한 게시물을 NFT로 발행하면 일주일 동안 사용할 수 있습니다. (최초 1회)
② NFT 구매
다른 이용자의 NFT를 구매하면 한 달 동안 사용할 수 있습니다. (구매 시마다 갱신)
사용법
디시콘에서지갑연결시 바로 사용 가능합니다.