or

# Output "I love Ruby" say = "I love Ruby" puts say # Output "I *LOVE* RUBY" say['love'] = "*love*" puts say.upcase # Output "I *love* Ruby" # five times 5.times { puts say } 

becomes

#えぬこどぃぬぐ:うとふ-捌 # オウトプト "イ ろヴぇ ルブ" さいぅ = "イ ろヴぇ ルブ" 言う(さいぅ) # オウトプト "イ *ロヴェ* ルブ" さいぅ["ろヴぇ"] = "*ろヴぇ*" 言う(さいぅ.うぷかせ) # オウトプト "イ *ろヴぇ* ルブ" # ふぃヴぇ てぃめす 伍.てぃめす 実行 言う(さいぅ) 此処迄 

# encoding:utf-8 require 'parser/current' # super hack, don't try this at home!! class Array def freeze self end end class Hash def freeze self end end class Parser::AST::Node def freeze self end end require 'unparser' class Parser::Source::Comment def freeze self end end # translation memory TRANS_MEM = {} # keyword translation R鍵文字 = { :BEGIN => [:K_PREEXE, :"コンパイル時に最初に登録"], :END => [:K_POSTEXE, :"コンパイル時に最後に登録"], :__ENCODING__ => [:K_ENCODING, :"__エンコーディング__"], :__END__ => [:K_EEND, :"__終__"], :__FILE__ => [:K_FILE, :"__ソースファイル名__"], :alias => [:K_ALIAS, :"別名"], :and => [:K_AND, :"且つ"], :begin => [:K_BEGIN, :"開始"], :break => [:K_BREAK, :"抜ける"], :case => [:K_CASE, :"条件分岐"], :class => [:K_CLASS, :"クラス"], :def => [:K_DEF, :"定義"], :define => [:K_DEFINE, :""], :defined? => [:K_DEFINED, :"若し定義されたら"], :do => [:K_DO, :"実行"], :else => [:K_ELSE, :"違えば"], :elsif => [:K_ELSIF, :"それとも"], :end => [:K_END, :"此処迄"], :ensure => [:K_ENSURE, :"必ず実行"], :false => [:K_FALSE, :"偽"], :for => [:K_FOR, :"変数"], :if => [:K_IF, :"若し"], :in => [:K_IN, :"の次の値ごとに"], :module => [:K_MODULE, :"モジュール"], :next => [:K_NEXT, :"次"], :nil => [:K_NIL, :"無"], :not => [:K_NOT, :"ノット"], :or => [:K_OR, :"又は"], :redo => [:K_REDO, :"遣り直す"], :rescue => [:K_RESCUE, :"救出"], :retry => [:K_RETRY, :"再び試みる"], :return => [:K_RETURN, :"戻る"], :self => [:K_SELF, :"自身"], :super => [:K_SUPER, :"スーパー"], :then => [:K_THEN, :"成らば"], :true => [:K_TRUE, :"真"], :undef => [:K_UNDEF, :"定義を取消す"], :unless => [:K_UNLESS, :"若し違えば"], :until => [:K_UNTIL, :"次の通りである限り"], :when => [:K_WHEN, :"場合"], :while => [:K_WHILE, :"次の通りで無い限り"], :yield => [:K_YIELD, :"ブロックを呼び出す"], } R数字行列 = { "0" => "零", "1" => "壹", "2" => "貮", "3" => "參", "4" => "肆", "5" => "伍", "6" => "陸", "7" => "漆", "8" => "捌", "9" => "玖", } TRANS_TABLE = { # Symbols :+ => :+, :- => :-, :/ => :/, :* => :*, :** => :**, :! => :!, :^ => :^, :& => :&, :| => :|, :~ => :~, :> => :>, :< => :<, :<< => :<<, :% => :%, :"!=" => :"!=", :"=~" => :"=~", :"~=" => :"~=", :">=" => :">=", :"<=" => :"<=", :"=" => :"=", :"==" => :"==", :"===" => :"===", :"<=>" => :"<=>", :"[]" => :"[]", :"[]=" => :"[]=", :"!~" => :"!~", # Errors :ArgumentError => :引数エラー, :EncodingError => :文字コードエラー, :FiberError => :ファイバーエラー, :IOError => :入出エラー, :IndexError => :添字エラー, :LoadError => :読込エラー, :LocalJumpError => :エラー, :NameError => :未定義エラー, :NoMemoryError => :メモリー不足エラー, :NotImplementedError => :未実装エラー, :RangeError => :範囲エラー, :RegexpError => :正規表現エラー, :RuntimeError => :実行時エラー, :ScriptError => :スクリプトエラー, :SecurityError => :セキュリティエラー, :StandardError => :通常エラー, :SyntaxError => :シンタクスエラー, :ThreadError => :スレッドエラー, :TypeError => :タイプエラー, :ZeroDivisionError => :零除算エラー, # Constants :Array => :配列, :BasicObject => :基本オブジェクト, :Bignum => :多倍長整数, :Class => :クラス, :Complex => :複素数, :Exception => :例外, :FalseClass => :偽クラス, :File => :ファイル, :Fiber => :ファイバー, :Fixnum => :固定長整数, :Float => :浮動小数点数, :Hash => :ハッシュ表, :Integer => :整数, :IO => :入出, :Kernel => :中核, :Marshal => :元帥, :Math => :数学, :Module => :モジュール, :NilClass => :無クラス, :Numeric => :数値, :Object => :オブジェクト, :Prime => :素数, :Proc => :プロック, :Process => :プロセス, :Random => :乱数, :Range => :範囲, :Rational => :有理数, :Regexp => :正規表現, :Set => :集合, :Socket => :ソケット, :String => :文字列, :Symbol => :シンボル, :Time => :時刻, :Thread => :スレッド, :TrueClass => :真クラス, # Kernel :inspect => :検査, :p => :表示, :print => :書く, :puts => :言う, :require => :取り込む, # Object :freeze => :凍結, # String :gsub => :全文字列置換, :gsub! => :全文字列置換せよ, } INT_TABLE = [ [7, "倶胝"], [14, "阿庾多"], [28, "那由他"], [56, "頻波羅"], [112, "矜羯羅"], [224, "阿伽羅"], [448, "最勝"], [896, "摩婆羅"], [1792, "阿婆羅"], [3584, "多婆羅"], [7168, "界分"], [14336, "普摩"], [28672, "禰摩"], [57344, "阿婆鈐"], [114688, "弥伽婆"], [229376, "毘攞伽"], [458752, "毘伽婆"], [917504, "僧羯邏摩"], [1835008, "毘薩羅"], [3670016, "毘贍婆"], [7340032, "毘盛伽"], [14680064, "毘素陀"], [29360128, "毘婆訶"], [58720256, "毘薄底"], [117440512, "毘佉擔"], [234881024, "称量"], [469762048, "一持"], [939524096, "異路"], [1879048192, "顛倒"], [3758096384, "三末耶"], [7516192768, "毘睹羅"], [15032385536, "奚婆羅"], [30064771072, "伺察"], [60129542144, "周広"], [120259084288, "高出"], [240518168576, "最妙"], [481036337152, "泥羅婆"], [962072674304, "訶理婆"], [1924145348608, "一動"], [3848290697216, "訶理蒲"], [7696581394432, "訶理三"], [15393162788864, "奚魯伽"], [30786325577728, "達攞歩陀"], [61572651155456, "訶魯那"], [123145302310912, "摩魯陀"], [246290604621824, "懺慕陀"], [492581209243648, "瑿攞陀"], [985162418487296, "摩魯摩"], [1970324836974592, "調伏"], [3940649673949184, "離憍慢"], [7881299347898368, "不動"], [15762598695796736, "極量"], [31525197391593472, "阿麼怛羅"], [63050394783186944, "勃麼怛羅"], [126100789566373888, "伽麼怛羅"], [252201579132747776, "那麼怛羅"], [504403158265495552, "奚麼怛羅"], [1008806316530991104, "鞞麼怛羅"], [2017612633061982208, "鉢羅麼怛羅"], [4035225266123964416, "尸婆麼怛羅"], [8070450532247928832, "翳羅"], [16140901064495857664, "薜羅"], [32281802128991715328, "諦羅"], [64563604257983430656, "偈羅"], [129127208515966861312, "窣歩羅"], [258254417031933722624, "泥羅"], [516508834063867445248, "計羅"], [1033017668127734890496, "細羅"], [2066035336255469780992, "睥羅"], [4132070672510939561984, "謎羅"], [8264141345021879123968, "娑攞荼"], [16528282690043758247936, "謎魯陀"], [33056565380087516495872, "契魯陀"], [66113130760175032991744, "摩睹羅"], [132226261520350065983488, "娑母羅"], [264452523040700131966976, "阿野娑"], [528905046081400263933952, "迦麼羅"], [1057810092162800527867904, "摩伽婆"], [2115620184325601055735808, "阿怛羅"], [4231240368651202111471616, "醯魯耶"], [8462480737302404222943232, "薜魯婆"], [16924961474604808445886464, "羯羅波"], [33849922949209616891772928, "訶婆婆"], [67699845898419233783545856, "毘婆羅"], [135399691796838467567091712, "那婆羅"], [270799383593676935134183424, "摩攞羅"], [541598767187353870268366848, "娑婆羅"], [1083197534374707740536733696, "迷攞普"], [2166395068749415481073467392, "者麼羅"], [4332790137498830962146934784, "駄麼羅"], [8665580274997661924293869568, "鉢攞麼陀"], [17331160549995323848587739136, "毘迦摩"], [34662321099990647697175478272, "烏波跋多"], [69324642199981295394350956544, "演説"], [138649284399962590788701913088, "無尽"], [277298568799925181577403826176, "出生"], [554597137599850363154807652352, "無我"], [1109194275199700726309615304704, "阿畔多"], [2218388550399401452619230609408, "青蓮華"], [4436777100798802905238461218816, "鉢頭摩"], [8873554201597605810476922437632, "僧祇"], [17747108403195211620953844875264, "趣"], [35494216806390423241907689750528, "至"], [70988433612780846483815379501056, "阿僧祇"], [141976867225561692967630759002112, "阿僧祇転"], [283953734451123385935261518004224, "無量"], [567907468902246771870523036008448, "無量転"], [1135814937804493543741046072016896, "無辺"], [2271629875608987087482092144033792, "無辺転"], [4543259751217974174964184288067584, "無等"], [9086519502435948349928368576135168, "無等転"], [18173039004871896699856737152270336, "不可数"], [36346078009743793399713474304540672, "不可数転"], [72692156019487586799426948609081344, "不可称"], [145384312038975173598853897218162688, "不可称転"], [290768624077950347197707794436325376, "不可思"], [581537248155900694395415588872650752, "不可思転"], [1163074496311801388790831177745301504, "不可量"], [2326148992623602777581662355490603008, "不可量転"], [4652297985247205555163324710981206016, "不可説"], [9304595970494411110326649421962412032, "不可説転"], [18609191940988822220653298843924824064, "不可説不可説"], [37218383881977644441306597687849648128, "不可説不可説転"], ].reverse Rしヴぁう = { :b => :u, :c => :u, :d => :o, :f => :u, :g => :u, :h => :u, :j => :u, :k => :u, :l => :u, :m => :u, :n => :u, :p => :u, :q => :u, :r => :u, :s => :u, :t => :o, :v => :u, :w => :u, :x => :u, :y => :u, :z => :u, } R平 = { :a => :あ, :i => :い, :u => :う, :e => :え, :o => :お, :ba => :ば, :bi => :び, :bu => :ぶ, :be => :べ, :bo => :ぼ, :ca => :か, :ci => :き, :cu => :く, :ce => :け, :co => :こ, :da => :だ, :di => :どぃ, :du => :どぅ, :de => :で, :do => :ど, :fa => :ふぁ, :fi => :ふぃ, :fu => :ふ, :fe => :ふぇ, :fo => :ふぉ, :ga => :が, :gi => :ぎ, :gu => :ぐ, :ge => :げ, :go => :ご, :ha => :は, :hi => :ひ, :hu => :ふ, :he => :へ, :ho => :ほ, :ja => :じぁ, :ji => :じ, :ju => :じぅ, :je => :じぇ, :jo => :じぉ, :ka => :か, :ki => :き, :ku => :く, :ke => :け, :ko => :こ, :la => :ら, :li => :り, :lu => :る, :le => :れ, :lo => :ろ, :ma => :ま, :mi => :み, :mu => :む, :me => :め, :mo => :も, :na => :な, :ni => :に, :nu => :ぬ, :ne => :ね, :no => :の, :pa => :ぱ, :pi => :ぴ, :pu => :ぷ, :pe => :ぺ, :po => :ぽ, :qa => :か, :qi => :き, :qu => :く, :qe => :け, :qo => :こ, :ra => :ら, :ri => :り, :ru => :る, :re => :れ, :ro => :ろ, :sa => :さ, :si => :すぃ, :su => :す, :se => :せ, :so => :そ, :ta => :た, :ti => :てぃ, :tu => :とぅ, :te => :て, :to => :と, :va => :ヴぁ, :vi => :ヴぃ, :vu => :ヴぅ, :ve => :ヴぇ, :vo => :ヴぉ, :wa => :わ, :wi => :ゐ, :wu => :ゐぅ, :we => :ゑ, :wo => :を, :xa => :くさ, :xi => :くすぃ, :xu => :くす, :xe => :くせ, :xo => :くそ, :ya => :いぁ, :yi => :いぃ, :yu => :いぅ, :ye => :いぇ, :yo => :いぉ, :za => :ざ, :zi => :ずぃ, :zu => :ず, :ze => :ぜ, :zo => :ぞ, } R片 = { :が => :ガ,:ぎ => :ギ,:ぐ => :グ,:げ => :ゲ,:ご => :ゴ, :ざ => :ザ,:じ => :ジ,:ず => :ズ,:ぜ => :ゼ,:ぞ => :ゾ, :だ => :ダ,:ぢ => :ヂ,:づ => :ヅ,:で => :デ,:ど => :ド, :ば => :バ,:び => :ビ,:ぶ => :ブ,:べ => :ベ,:ぼ => :ボ, :ぱ => :パ,:ぴ => :ピ,:ぷ => :プ,:ぺ => :ペ,:ぽ => :ポ, :あ => :ア,:い => :イ,:う => :ウ,:え => :エ,:お => :オ, :か => :カ,:き => :キ,:く => :ク,:け => :ケ,:こ => :コ, :さ => :サ,:し => :シ,:す => :ス,:せ => :セ,:そ => :ソ, :た => :タ,:ち => :チ,:つ => :ツ,:て => :テ,:と => :ト, :な => :ナ,:に => :ニ,:ぬ => :ヌ,:ね => :ネ,:の => :ノ, :は => :ハ,:ひ => :ヒ,:ふ => :フ,:へ => :ヘ,:ほ => :ホ, :ま => :マ,:み => :ミ,:む => :ム,:め => :メ,:も => :モ, :ら => :ラ,:り => :リ,:る => :ル,:れ => :レ,:ろ => :ロ, :わ => :ワ,:を => :ヲ,:ゑ => :ヱ,:ゐ => :ヰ,:ヴ => :ヴ, :ぁ => :ァ,:ぃ => :ィ,:ぅ => :ゥ,:ぇ => :ェ,:ぉ => :ォ, :ゃ => :ャ,:ゅ => :ュ,:ょ => :ョ, :や => :ヤ,:ゆ => :ユ,:よ => :ヨ, :ん => :ン,:っ => :ッ,:ゎ => :ヮ, } def 鍵文字を登録 R鍵文字.each_pair do |甲,乙| Unparser::Constants.const_set 乙[0], 乙[1].to_s Unparser::Emitter::REGISTRY[乙[1].to_sym] = Unparser::Emitter::REGISTRY[甲.to_sym] end Unparser::Emitter::Repetition::MAP[:while] = R鍵文字[:while][1].to_s Unparser::Emitter::Repetition::MAP[:until] = R鍵文字[:until][1].to_s Unparser::Emitter::FlowModifier::MAP[:return] = R鍵文字[:return][1].to_s Unparser::Emitter::FlowModifier::MAP[:next] = R鍵文字[:next][1].to_s Unparser::Emitter::FlowModifier::MAP[:break] = R鍵文字[:break][1].to_s Unparser::Emitter::FlowModifier::MAP[:or] = R鍵文字[:or][1].to_s Unparser::Emitter::FlowModifier::MAP[:and] = R鍵文字[:and][1].to_s Unparser::Emitter::FlowModifier::MAP[:BEGIN] = R鍵文字[:BEGIN][1].to_s Unparser::Emitter::FlowModifier::MAP[:END] = R鍵文字[:END][1].to_s end class Float def inspect フロートの文字化(self) end end class BigDecimal def inspect フロートの文字化(self.to_s('F')) end end class Integer def inspect 整数の文字化(self) end end class Fixnum def inspect 整数の文字化(self) end end class Bignum def inspect 整数の文字化(self) end end def 整数の文字化(整数) 数字 = 整数.to_s if 数字.size <= 7 return 数字.chars.map{|甲|R数字行列[甲]}.join else 乙 = INT_TABLE.find{|甲|甲[0] < 数字.size} 整数の文字化(数字[0...-乙[0]]) + 乙[1] + 整数の文字化(数字[(-乙[0])..-1]) end end def フロートの文字化(フロート) 甲 = フロート.to_s.split(?.) 甲[0] = 整数の文字化(甲[0]) 甲[1] = 甲[1].chars.map{|乙|R数字行列[乙]}.join 甲.join(?点) end def 文字を翻訳(文字) 平片 = :hira 文字.scan(/([^aeiou])?(\1)?([yj])?([aeiou])?/i).map do |子音甲,子音乙,子音丙,母音| 母音 = 母音.to_s if 子音甲.nil? && 母音.empty? nil else 平片 = :kata if (子音甲||母音).downcase!=(子音甲||母音) 子音甲,子音乙,子音丙,母音 = [子音甲,子音乙,子音丙,母音].map{|x| x ? x.downcase : x } if 母音.empty? 母音 = Rしヴぁう[子音甲.to_sym].to_s end # hu => ひゅ, qu => きゅ if 母音=="u" && (子音甲=="h"||子音甲=="q") 子音丙 = "y" end # ja,ju,jo => じゃ、じゅ,じょ if (母音=="a"||母音=="u"||母音=="o") && 子音甲 == "j" 子音丙 = "y" end # 拗音 if 子音丙 if [:a,:u,:o].include?(母音) 子音丙 = case 母音 when :a ; :ゃ when :u ; :ゅ when :o ; :ょ end 母音 = :i else 子音丙 = nil end end # basic syllable 仮名 = R平[(子音甲.to_s+母音).to_sym].to_s # 促音 if 子音乙 if %w[ま み む め も な に ぬ ね の].include?(子音乙) 仮名 = "ん" + 仮名 else 仮名 = "っ" + 仮名 end end # 拗音 if 子音丙 仮名 = 仮名 + 子音丙 end # lowercase => hiragana, uppercase => katakana if 平片==:kata 仮名 = 仮名.gsub(/./){|丁|R片[丁.to_sym]}.to_s end 仮名 end end.compact.join end def 文を翻訳(文) 文.scan(/(([a-z]+|[0-9]+|[^a-z0-9]+))/i).map do |文字,_| if 文字.index(/[a-z]/i) 文字を翻訳(文字) elsif 文字.index(/[0-9]/) 整数の文字化(文字) else 文字 end end.compact.join end def 翻訳(文章=nil) if 文章.empty? || 文章.nil? 文章 else if 甲 = TRANS_TABLE[文章.to_sym] 甲 elsif 甲 = TRANS_MEM[文章] 甲 else 甲 = 文を翻訳(文章.to_s) TRANS_MEM[文章] = 甲 end end end def ノード毎に(幹,&塊) if 幹.is_a? Parser::AST::Node 子供 = 幹.children yield 幹.type,子供 幹.children.each{|甲|ノード毎に(甲,&塊)} if 甲 = R鍵文字[幹.type] 幹.instance_variable_set(:@type,甲[1]) if [:self,:true,:false,:nil].include?(幹.type) end end end def 幹を翻訳(幹) ノード毎に(幹) do |類,子| case 類 when :arg 子[0] = 翻訳(子[0]).to_sym when :blockarg 子[0] = 翻訳(子[0]).to_sym when :casgn 子[1] = ('C_'+翻訳(子[1]).to_s).to_sym when :const 子[1] = 翻訳(子[1]).to_sym when :def 子[0] = 翻訳(子[0]).to_sym when :int when :kwoptarg 子[0] = 翻訳(子[0]).to_sym when :lvar 子[0] = 翻訳(子[0]).to_sym when :lvasgn 子[0] = 翻訳(子[0]).to_sym when :optarg 子[0] = 翻訳(子[0]).to_sym when :restarg 子[0] = 翻訳(子[0]).to_sym when :send 子[1] = 翻訳(子[1]).to_sym when :str 子[0] = 翻訳(子[0]).to_s when :sym 子[0] = 翻訳(子[0]).to_sym end end end def ノートを翻訳(ノート) ノート.each do |子| テキスト = 子.text if テキスト[0] == ?# 子.instance_variable_set(:@text,"#" + 翻訳(テキスト[1..-1])) else 子.instance_variable_set(:@text,"=開始\n" + 翻訳(テキスト[6..-6]) + "\n=此処迄\n") end end end ######## # main # ######## # register keywords 鍵文字を登録 # read input, translate, and print result コード = STDIN.read コード.encode(Encoding::UTF_8) コード = "#encoding:utf-8\n" + コード 幹, ノート = Parser::CurrentRuby.parse_with_comments(コード) 幹を翻訳(幹) ノートを翻訳(ノート) STDOUT.write Unparser.unparse(幹,ノート) 

#えぬこどぃぬぐ:うとふ-捌 # えぬこどぃぬぐ:うとふ-捌 # トヒス とらぬすらてす あ るぶ ぷろぐらむ いぬと ジァパネセ, いぬくるどぃぬぐ すとりぬぐ, すむぼるす, # こっめぬとす あぬど えヴぇるとひぬぐ, えヴぇぬ いぬくるどぃぬぐ とひす こっめぬと. # レクイレス とへ げむす +ぱるせる+ あぬど +うぬぱるせる+ ふぉる ぱるすぃぬぐ あぬど げねらてぃぬぐ るぶ こで. # ウサゲ: # $ るぶ <とひす_ぷろぐらむ.るぶ> < いぬぷと_ふぃれ > おうとぷと_ふぃれ 取り込む("ぱるせる/くっれぬと") # すぺる はくく, どぬ'と とる とひす あと ほめ!! クラス 配列 定義 凍結 自身 此処迄 此処迄 クラス ハッシュ表 定義 凍結 自身 此処迄 此処迄 クラス パルセル::アスト::ノデ 定義 凍結 自身 此処迄 此処迄 取り込む("うぬぱるせる") クラス パルセル::ソウルケ::コッメヌト 定義 凍結 自身 此処迄 此処迄 # とらぬすらてぃおぬ めもる クラス 浮動小数点数 定義 検査 とらぬすらて_ふろあと(自身) 此処迄 此処迄 クラス ビグデキマル 定義 検査 とらぬすらて_ふろあと(自身.と_す("フ")) 此処迄 此処迄 クラス 整数 定義 検査 とらぬすらて_いぬと(自身) 此処迄 此処迄 クラス 固定長整数 定義 検査 とらぬすらて_いぬと(自身) 此処迄 此処迄 クラス 多倍長整数 定義 検査 とらぬすらて_いぬと(自身) 此処迄 此処迄 定義 とらぬすらて_いぬと(いぬと) どぃぐ = いぬと.と_す 若し (どぃぐ.すぃぜ <= 漆) 戻る どぃぐ.くはるす.まぷ 実行 |くす| ドィグ_タブレ[くす] 此処迄.じぉいぬ 違えば ふ = イヌト_タブレ.ふぃぬど 実行 |くす| くす[零] < どぃぐ.すぃぜ 此処迄 (とらぬすらて_いぬと(どぃぐ[零...(-ふ[零])]) + ふ[壹]) + とらぬすらて_いぬと(どぃぐ[(-ふ[零])..壹]) 此処迄 此処迄 定義 とらぬすらて_ふろあと(ふろあと) す = ふろあと.と_す.すぷりと(".") す[零] = とらぬすらて_いぬと(す[零]) す[壹] = す[壹].くはるす.まぷ 実行 |くす| ドィグ_タブレ[くす] 此処迄.じぉいぬ す.じぉいぬ("点") 此処迄 定義 とらぬすらて_をるど(をるど) ふく = :ひら をるど.すかぬ(/([^あえいおう])?(\壹)?([いぅ])?([あえいおう])?/i).まぷ 実行 |く壹, く貮, く參, ヴぅ| ヴぅ = ヴぅ.と_す 若し (く壹.にる? && ヴぅ.えむぷと?) 無 違えば 若し ((く壹 || ヴぅ).どゐぅぬかせ != (く壹 || ヴぅ)) ふく = :かた 此処迄 く壹, く貮, く參, ヴぅ = [く壹, く貮, く參, ヴぅ].まぷ 実行 |くす| 若し くす くす.どゐぅぬかせ 違えば くす 此処迄 此処迄 若し ヴぅ.えむぷと? ヴぅ = クヴォヱル[く壹.と_すむ].と_す 此処迄 # ふ => ひゅ, く => きゅ 若し ((ヴぅ == "う") && ((く壹 == "ふ") || (く壹 == "く"))) く參 = "いぅ" 此処迄 # じぁ,じぅ,じぉ => じゃ、じゅ,じょ 若し ((((ヴぅ == "あ") || (ヴぅ == "う")) || (ヴぅ == "お")) && (く壹 == "じぅ")) く參 = "いぅ" 此処迄 # 拗音 若し く參 若し [:あ, :う, :お].いぬくるで?(ヴぅ) く參 = 条件分岐 ヴぅ 場合 :あ :ゃ 場合 :う :ゅ 場合 :お :ょ 此処迄 ヴぅ = :い 違えば く參 = 無 此処迄 此処迄 # ばすぃく すっらぶれ する = ヒラ[(く壹.と_す + ヴぅ).と_すむ].と_す # 促音 若し く貮 若し ["ま", "み", "む", "め", "も", "な", "に", "ぬ", "ね", "の"].いぬくるで?(く貮) する = ("ん" + する) 違えば する = ("っ" + する) 此処迄 此処迄 # 拗音 若し く參 する = (する + く參) 此処迄 # ろゑるかせ => ひらがな, うっぺるかせ => かたかな 若し (ふく == :かた) する = する.全文字列置換(/./) 実行 |くす| カタ[くす.と_すむ] 此処迄.と_す 此処迄 する 此処迄 此処迄.こむぱくと.じぉいぬ 此処迄 定義 とらぬすらて_ぷふらせ(すとる) すとる.すかぬ(/(([あ-ず]+|[零-玖]+|[^あ-ず零-玖]+))/i).まぷ 実行 |をるど, _| 若し をるど.いぬでくす(/[あ-ず]/i) とらぬすらて_をるど(をるど) 違えば 若し をるど.いぬでくす(/[零-玖]/) とらぬすらて_いぬと(をるど) 違えば をるど 此処迄 此処迄 此処迄.こむぱくと.じぉいぬ 此処迄 定義 とらぬすらて(すとる = 無) 若し (すとる.えむぷと? || すとる.にる?) すとる 違えば 若し (くす = トラヌス_タブレ[すとる.と_すむ]) くす 違えば 若し (くす = トラヌス_メム[すとる]) くす 違えば くす = とらぬすらて_ぷふらせ(すとる.と_す) トラヌス_メム[すとる] = くす 此処迄 此処迄 此処迄 此処迄 定義 えあくふ_ので(あすと, &ぶろくく) 若し あすと.いす_あ?(パルセル::アスト::ノデ) く = あすと.くひるどれぬ ブロックを呼び出す(あすと.とぺ, く) あすと.くひるどれぬ.えあくふ 実行 |くす| えあくふ_ので(くす, &ぶろくく) 此処迄 若し (くす = ケイゥヲルドス[あすと.とぺ]) 若し [:せるふ, :とるえ, :ふぁるせ, :にる].いぬくるで?(あすと.とぺ) あすと.いぬすたぬけ_ヴぁりあぶれ_せと(:@とぺ, くす[壹]) 此処迄 此処迄 此処迄 此処迄 定義 とらぬすらて_あすと(あすと) えあくふ_ので(あすと) 実行 |とぺ, く| 条件分岐 とぺ 場合 :あるぐ く[零] = とらぬすらて(く[零]).と_すむ 場合 :ぶろくかるぐ く[零] = とらぬすらて(く[零]).と_すむ 場合 :かすぐぬ く[壹] = とらぬすらて(く[壹]).と_すむ 場合 :こぬすと く[壹] = ("ク_" + とらぬすらて(く[壹]).と_す).と_すむ 場合 :でふ く[零] = とらぬすらて(く[零]).と_すむ 場合 :いぬと 場合 :くをぷたるぐ く[零] = とらぬすらて(く[零]).と_すむ 場合 :るヴぁる く[零] = とらぬすらて(く[零]).と_すむ 場合 :るヴぁすぐぬ く[零] = とらぬすらて(く[零]).と_すむ 場合 :おぷたるぐ く[零] = とらぬすらて(く[零]).と_すむ 場合 :れすたるぐ く[零] = とらぬすらて(く[零]).と_すむ 場合 :せぬど く[壹] = とらぬすらて(く[壹]).と_すむ 場合 :すとる く[零] = とらぬすらて(く[零]).と_す 場合 :すむ く[零] = とらぬすらて(く[零]).と_すむ #ストデッル << "うぬくのゐぅぬ とぺ: #{とぺ}\ぬ" 此処迄 此処迄 此処迄 定義 とらぬすらて_こっめぬとす(こっめぬとす) こっめぬとす.えあくふ 実行 |く| てくすと = く.てくすと 若し (てくすと[零] == "\u0001") く.いぬすたぬけ_ヴぁりあぶれ_せと(:@てくすと, "#" + とらぬすらて(てくすと[壹..壹])) 違えば く.いぬすたぬけ_ヴぁりあぶれ_せと(:@てくすと, ("=開始\n" + とらぬすらて(てくすと[陸..陸])) + "\n=此処迄\n") 此処迄 此処迄 此処迄 ######## # まいぬ # ######## # れぎすてる けいぅをるどす れぎすてる_けいぅをるどす # れあど いぬぷと, とらぬすらて, あぬど ぷりぬと れすると こで = ストドィヌ.れあど こで.えぬこで(エヌコドィヌグ::ウトフ_捌) こで = ("#えぬこどぃぬぐ:うとふ-捌\n" + こで) あすと, こっめぬとす = パルセル::クッレヌトルブ.ぱるせ_ゐとふ_こっめぬとす(こで) とらぬすらて_あすと(あすと) とらぬすらて_こっめぬとす(こっめぬとす) ストドウト.ゐぅりて(ウヌパルセル.うぬぱるせ(あすと, こっめぬとす)) 

Converts integers to a "very" practical notation.

# encoding:utf-8 require 'parser/current'   # super hack, don't try this at home!! class Array def freeze self end end class Hash def freeze self end end class Parser::AST::Node def freeze self end end require 'unparser' class Parser::Source::Comment def freeze self end end # translation memory R翻訳メモリー = {} # keyword translation R鍵文字 = { :BEGIN => [:K_PREEXE, :"コンパイル時に最初に登録"], :END => [:K_POSTEXE, :"コンパイル時に最後に登録"], :__ENCODING__ => [:K_ENCODING, :"__エンコーディング__"], :__END__ => [:K_EEND, :"__終__"], :__FILE__ => [:K_FILE, :"__ソースファイル名__"], :alias => [:K_ALIAS, :"別名"], :and => [:K_AND, :"且つ"], :begin => [:K_BEGIN, :"開始"], :break => [:K_BREAK, :"抜ける"], :case => [:K_CASE, :"条件分岐"], :class => [:K_CLASS, :"クラス"], :def => [:K_DEF, :"定義"], :define => [:K_DEFINE, :""], :defined? => [:K_DEFINED, :"若し定義されたら"], :do => [:K_DO, :"実行"], :else => [:K_ELSE, :"違えば"], :elsif => [:K_ELSIF, :"それとも"], :end => [:K_END, :"此処迄"], :ensure => [:K_ENSURE, :"必ず実行"], :false => [:K_FALSE, :"偽"], :for => [:K_FOR, :"変数"], :if => [:K_IF, :"若し"], :in => [:K_IN, :"の次の値ごとに"], :module => [:K_MODULE, :"モジュール"], :next => [:K_NEXT, :"次"], :nil => [:K_NIL, :"無"], :not => [:K_NOT, :"ノット"], :or => [:K_OR, :"又は"], :redo => [:K_REDO, :"遣り直す"], :rescue => [:K_RESCUE, :"救出"], :retry => [:K_RETRY, :"再び試みる"], :return => [:K_RETURN, :"戻る"], :self => [:K_SELF, :"自身"], :super => [:K_SUPER, :"スーパー"], :then => [:K_THEN, :"成らば"], :true => [:K_TRUE, :"真"], :undef => [:K_UNDEF, :"定義を取消す"], :unless => [:K_UNLESS, :"若し違えば"], :until => [:K_UNTIL, :"次の通りである限り"], :when => [:K_WHEN, :"場合"], :while => [:K_WHILE, :"次の通りで無い限り"], :yield => [:K_YIELD, :"ブロックを呼び出す"], } R数字行列 = { "0" => "零", "1" => "壹", "2" => "貮", "3" => "參", "4" => "肆", "5" => "伍", "6" => "陸", "7" => "漆", "8" => "捌", "9" => "玖", } R翻訳行列 = { # Symbols :+ => :+, :- => :-, :/ => :/, :* => :*, :** => :**, :! => :!, :^ => :^, :& => :&, :| => :|, :~ => :~, :> => :>, :< => :<, :<< => :<<, :% => :%, :"!=" => :"!=", :"=~" => :"=~", :"~=" => :"~=", :">=" => :">=", :"<=" => :"<=", :"=" => :"=", :"==" => :"==", :"===" => :"===", :"<=>" => :"<=>", :"[]" => :"[]", :"[]=" => :"[]=", :"!~" => :"!~", # Errors :ArgumentError => :引数エラー, :EncodingError => :文字コードエラー, :FiberError => :ファイバーエラー, :IOError => :入出エラー, :IndexError => :添字エラー, :LoadError => :読込エラー, :LocalJumpError => :エラー, :NameError => :未定義エラー, :NoMemoryError => :メモリー不足エラー, :NotImplementedError => :未実装エラー, :RangeError => :範囲エラー, :RegexpError => :正規表現エラー, :RuntimeError => :実行時エラー, :ScriptError => :スクリプトエラー, :SecurityError => :セキュリティエラー, :StandardError => :通常エラー, :SyntaxError => :シンタクスエラー, :ThreadError => :スレッドエラー, :TypeError => :タイプエラー, :ZeroDivisionError => :零除算エラー, # Constants :Array => :配列, :BasicObject => :基本オブジェクト, :Bignum => :多倍長整数, :Class => :クラス, :Complex => :複素数, :Exception => :例外, :FalseClass => :偽クラス, :File => :ファイル, :Fiber => :ファイバー, :Fixnum => :固定長整数, :Float => :浮動小数点数, :Hash => :ハッシュ表, :Integer => :整数, :IO => :入出, :Kernel => :中核, :Marshal => :元帥, :Math => :数学, :Module => :モジュール, :NilClass => :無クラス, :Numeric => :数値, :Object => :オブジェクト, :Prime => :素数, :Proc => :プロック, :Process => :プロセス, :Random => :乱数, :Range => :範囲, :Rational => :有理数, :Regexp => :正規表現, :Set => :集合, :Socket => :ソケット, :String => :文字列, :Symbol => :シンボル, :Time => :時刻, :Thread => :スレッド, :TrueClass => :真クラス, # Kernel :inspect => :検査, :p => :表示, :print => :書く, :puts => :言う, :require => :取り込む, # Object :freeze => :凍結, # String :gsub => :全文字列置換, :gsub! => :全文字列置換せよ, } INT_TABLE = [ [7, "倶胝"], [14, "阿庾多"], [28, "那由他"], [56, "頻波羅"], [112, "矜羯羅"], [224, "阿伽羅"], [448, "最勝"], [896, "摩婆羅"], [1792, "阿婆羅"], [3584, "多婆羅"], [7168, "界分"], [14336, "普摩"], [28672, "禰摩"], [57344, "阿婆鈐"], [114688, "弥伽婆"], [229376, "毘攞伽"], [458752, "毘伽婆"], [917504, "僧羯邏摩"], [1835008, "毘薩羅"], [3670016, "毘贍婆"], [7340032, "毘盛伽"], [14680064, "毘素陀"], [29360128, "毘婆訶"], [58720256, "毘薄底"], [117440512, "毘佉擔"], [234881024, "称量"], [469762048, "一持"], [939524096, "異路"], [1879048192, "顛倒"], [3758096384, "三末耶"], [7516192768, "毘睹羅"], [15032385536, "奚婆羅"], [30064771072, "伺察"], [60129542144, "周広"], [120259084288, "高出"], [240518168576, "最妙"], [481036337152, "泥羅婆"], [962072674304, "訶理婆"], [1924145348608, "一動"], [3848290697216, "訶理蒲"], [7696581394432, "訶理三"], [15393162788864, "奚魯伽"], [30786325577728, "達攞歩陀"], [61572651155456, "訶魯那"], [123145302310912, "摩魯陀"], [246290604621824, "懺慕陀"], [492581209243648, "瑿攞陀"], [985162418487296, "摩魯摩"], [1970324836974592, "調伏"], [3940649673949184, "離憍慢"], [7881299347898368, "不動"], [15762598695796736, "極量"], [31525197391593472, "阿麼怛羅"], [63050394783186944, "勃麼怛羅"], [126100789566373888, "伽麼怛羅"], [252201579132747776, "那麼怛羅"], [504403158265495552, "奚麼怛羅"], [1008806316530991104, "鞞麼怛羅"], [2017612633061982208, "鉢羅麼怛羅"], [4035225266123964416, "尸婆麼怛羅"], [8070450532247928832, "翳羅"], [16140901064495857664, "薜羅"], [32281802128991715328, "諦羅"], [64563604257983430656, "偈羅"], [129127208515966861312, "窣歩羅"], [258254417031933722624, "泥羅"], [516508834063867445248, "計羅"], [1033017668127734890496, "細羅"], [2066035336255469780992, "睥羅"], [4132070672510939561984, "謎羅"], [8264141345021879123968, "娑攞荼"], [16528282690043758247936, "謎魯陀"], [33056565380087516495872, "契魯陀"], [66113130760175032991744, "摩睹羅"], [132226261520350065983488, "娑母羅"], [264452523040700131966976, "阿野娑"], [528905046081400263933952, "迦麼羅"], [1057810092162800527867904, "摩伽婆"], [2115620184325601055735808, "阿怛羅"], [4231240368651202111471616, "醯魯耶"], [8462480737302404222943232, "薜魯婆"], [16924961474604808445886464, "羯羅波"], [33849922949209616891772928, "訶婆婆"], [67699845898419233783545856, "毘婆羅"], [135399691796838467567091712, "那婆羅"], [270799383593676935134183424, "摩攞羅"], [541598767187353870268366848, "娑婆羅"], [1083197534374707740536733696, "迷攞普"], [2166395068749415481073467392, "者麼羅"], [4332790137498830962146934784, "駄麼羅"], [8665580274997661924293869568, "鉢攞麼陀"], [17331160549995323848587739136, "毘迦摩"], [34662321099990647697175478272, "烏波跋多"], [69324642199981295394350956544, "演説"], [138649284399962590788701913088, "無尽"], [277298568799925181577403826176, "出生"], [554597137599850363154807652352, "無我"], [1109194275199700726309615304704, "阿畔多"], [2218388550399401452619230609408, "青蓮華"], [4436777100798802905238461218816, "鉢頭摩"], [8873554201597605810476922437632, "僧祇"], [17747108403195211620953844875264, "趣"], [35494216806390423241907689750528, "至"], [70988433612780846483815379501056, "阿僧祇"], [141976867225561692967630759002112, "阿僧祇転"], [283953734451123385935261518004224, "無量"], [567907468902246771870523036008448, "無量転"], [1135814937804493543741046072016896, "無辺"], [2271629875608987087482092144033792, "無辺転"], [4543259751217974174964184288067584, "無等"], [9086519502435948349928368576135168, "無等転"], [18173039004871896699856737152270336, "不可数"], [36346078009743793399713474304540672, "不可数転"], [72692156019487586799426948609081344, "不可称"], [145384312038975173598853897218162688, "不可称転"], [290768624077950347197707794436325376, "不可思"], [581537248155900694395415588872650752, "不可思転"], [1163074496311801388790831177745301504, "不可量"], [2326148992623602777581662355490603008, "不可量転"], [4652297985247205555163324710981206016, "不可説"], [9304595970494411110326649421962412032, "不可説転"], [18609191940988822220653298843924824064, "不可説不可説"], [37218383881977644441306597687849648128, "不可説不可説転"], ].reverse Rしヴぁう = { :b => :u, :c => :u, :d => :o, :f => :u, :g => :u, :h => :u, :j => :u, :k => :u, :l => :u, :m => :u, :n => :u, :p => :u, :q => :u, :r => :u, :s => :u, :t => :o, :v => :u, :w => :u, :x => :u, :y => :u, :z => :u, } R平 = { :a => :あ, :i => :い, :u => :う, :e => :え, :o => :お, :ba => :ば, :bi => :び, :bu => :ぶ, :be => :べ, :bo => :ぼ, :ca => :か, :ci => :き, :cu => :く, :ce => :け, :co => :こ, :da => :だ, :di => :どぃ, :du => :どぅ, :de => :で, :do => :ど, :fa => :ふぁ, :fi => :ふぃ, :fu => :ふ, :fe => :ふぇ, :fo => :ふぉ, :ga => :が, :gi => :ぎ, :gu => :ぐ, :ge => :げ, :go => :ご, :ha => :は, :hi => :ひ, :hu => :ふ, :he => :へ, :ho => :ほ, :ja => :じぁ, :ji => :じ, :ju => :じぅ, :je => :じぇ, :jo => :じぉ, :ka => :か, :ki => :き, :ku => :く, :ke => :け, :ko => :こ, :la => :ら, :li => :り, :lu => :る, :le => :れ, :lo => :ろ, :ma => :ま, :mi => :み, :mu => :む, :me => :め, :mo => :も, :na => :な, :ni => :に, :nu => :ぬ, :ne => :ね, :no => :の, :pa => :ぱ, :pi => :ぴ, :pu => :ぷ, :pe => :ぺ, :po => :ぽ, :qa => :か, :qi => :き, :qu => :く, :qe => :け, :qo => :こ, :ra => :ら, :ri => :り, :ru => :る, :re => :れ, :ro => :ろ, :sa => :さ, :si => :すぃ, :su => :す, :se => :せ, :so => :そ, :ta => :た, :ti => :てぃ, :tu => :とぅ, :te => :て, :to => :と, :va => :ヴぁ, :vi => :ヴぃ, :vu => :ヴぅ, :ve => :ヴぇ, :vo => :ヴぉ, :wa => :わ, :wi => :ゐ, :wu => :ゐぅ, :we => :ゑ, :wo => :を, :xa => :くさ, :xi => :くすぃ, :xu => :くす, :xe => :くせ, :xo => :くそ, :ya => :いぁ, :yi => :いぃ, :yu => :いぅ, :ye => :いぇ, :yo => :いぉ, :za => :ざ, :zi => :ずぃ, :zu => :ず, :ze => :ぜ, :zo => :ぞ, } R片 = { :が => :ガ,:ぎ => :ギ,:ぐ => :グ,:げ => :ゲ,:ご => :ゴ, :ざ => :ザ,:じ => :ジ,:ず => :ズ,:ぜ => :ゼ,:ぞ => :ゾ, :だ => :ダ,:ぢ => :ヂ,:づ => :ヅ,:で => :デ,:ど => :ド, :ば => :バ,:び => :ビ,:ぶ => :ブ,:べ => :ベ,:ぼ => :ボ, :ぱ => :パ,:ぴ => :ピ,:ぷ => :プ,:ぺ => :ペ,:ぽ => :ポ, :あ => :ア,:い => :イ,:う => :ウ,:え => :エ,:お => :オ, :か => :カ,:き => :キ,:く => :ク,:け => :ケ,:こ => :コ, :さ => :サ,:し => :シ,:す => :ス,:せ => :セ,:そ => :ソ, :た => :タ,:ち => :チ,:つ => :ツ,:て => :テ,:と => :ト, :な => :ナ,:に => :ニ,:ぬ => :ヌ,:ね => :ネ,:の => :ノ, :は => :ハ,:ひ => :ヒ,:ふ => :フ,:へ => :ヘ,:ほ => :ホ, :ま => :マ,:み => :ミ,:む => :ム,:め => :メ,:も => :モ, :ら => :ラ,:り => :リ,:る => :ル,:れ => :レ,:ろ => :ロ, :わ => :ワ,:を => :ヲ,:ゑ => :ヱ,:ゐ => :ヰ,:ヴ => :ヴ, :ぁ => :ァ,:ぃ => :ィ,:ぅ => :ゥ,:ぇ => :ェ,:ぉ => :ォ, :ゃ => :ャ,:ゅ => :ュ,:ょ => :ョ, :や => :ヤ,:ゆ => :ユ,:よ => :ヨ, :ん => :ン,:っ => :ッ,:ゎ => :ヮ, } def 鍵文字を登録 R鍵文字.each_pair do |甲,乙| Unparser::Constants.const_set 乙[0], 乙[1].to_s Unparser::Emitter::REGISTRY[乙[1].to_sym] = Unparser::Emitter::REGISTRY[甲.to_sym] end Unparser::Emitter::Repetition::MAP[:while] = R鍵文字[:while][1].to_s Unparser::Emitter::Repetition::MAP[:until] = R鍵文字[:until][1].to_s Unparser::Emitter::FlowModifier::MAP[:return] = R鍵文字[:return][1].to_s Unparser::Emitter::FlowModifier::MAP[:next] = R鍵文字[:next][1].to_s Unparser::Emitter::FlowModifier::MAP[:break] = R鍵文字[:break][1].to_s Unparser::Emitter::FlowModifier::MAP[:or] = R鍵文字[:or][1].to_s Unparser::Emitter::FlowModifier::MAP[:and] = R鍵文字[:and][1].to_s Unparser::Emitter::FlowModifier::MAP[:BEGIN] = R鍵文字[:BEGIN][1].to_s Unparser::Emitter::FlowModifier::MAP[:END] = R鍵文字[:END][1].to_s end class Float def inspect フロートの文字化(self) end end class BigDecimal def inspect フロートの文字化(self.to_s('F')) end end class Integer def inspect 整数の文字化(self) end end class Fixnum def inspect 整数の文字化(self) end end class Bignum def inspect 整数の文字化(self) end end def 整数の文字化(整数) 数字 = 整数.to_s if 数字.size <= 7 return 数字.chars.map{|甲|R数字行列[甲]}.join else 乙 = INT_TABLE.find{|甲|甲[0] < 数字.size} 整数の文字化(数字[0...-乙[0]]) + 乙[1] + 整数の文字化(数字[(-乙[0])..-1]) end end def フロートの文字化(フロート) 甲 = フロート.to_s.split(?.) 甲[0] = 整数の文字化(甲[0]) 甲[1] = 甲[1].chars.map{|乙|R数字行列[乙]}.join 甲.join(?点) end def 文字を翻訳(文字) 平片 = :hira 文字.scan(/([^aeiou])?(\1)?([yj])?([aeiou])?/i).map do |子音甲,子音乙,子音丙,母音| 母音 = 母音.to_s if 子音甲.nil? && 母音.empty? nil else 平片 = :kata if (子音甲||母音).downcase!=(子音甲||母音) 子音甲,子音乙,子音丙,母音 = [子音甲,子音乙,子音丙,母音].map{|x| x ? x.downcase : x } if 母音.empty? 母音 = Rしヴぁう[子音甲.to_sym].to_s end # hu => ひゅ, qu => きゅ if 母音=="u" && (子音甲=="h"||子音甲=="q") 子音丙 = "y" end # ja,ju,jo => じゃ、じゅ,じょ if (母音=="a"||母音=="u"||母音=="o") && 子音甲 == "j" 子音丙 = "y" end # 拗音 if 子音丙 if [:a,:u,:o].include?(母音) 子音丙 = case 母音 when :a ; :ゃ when :u ; :ゅ when :o ; :ょ end 母音 = :i else 子音丙 = nil end end # basic syllable 仮名 = R平[(子音甲.to_s+母音).to_sym].to_s # 促音 if 子音乙 if %w[ま み む め も な に ぬ ね の].include?(子音乙) 仮名 = "ん" + 仮名 else 仮名 = "っ" + 仮名 end end # 拗音 if 子音丙 仮名 = 仮名 + 子音丙 end # lowercase => hiragana, uppercase => katakana if 平片==:kata 仮名 = 仮名.gsub(/./){|丁|R片[丁.to_sym]}.to_s end 仮名 end end.compact.join end def 文を翻訳(文) 文.scan(/(([a-z]+|[0-9]+|[^a-z0-9]+))/i).map do |文字,_| if 文字.index(/[a-z]/i) 文字を翻訳(文字) elsif 文字.index(/[0-9]/) 整数の文字化(文字) else 文字 end end.compact.join end def 翻訳(文章=nil) if 文章.empty? || 文章.nil? 文章 else if 甲 = R翻訳行列[文章.to_sym] 甲 elsif 甲 = R翻訳メモリー[文章] 甲 else 甲 = 文を翻訳(文章.to_s) R翻訳メモリー[文章] = 甲 end end end def ノード毎に(幹,&塊) if 幹.is_a? Parser::AST::Node 子供 = 幹.children yield 幹.type,子供 幹.children.each{|甲|ノード毎に(甲,&塊)} if 甲 = R鍵文字[幹.type] 幹.instance_variable_set(:@type,甲[1]) if [:self,:true,:false,:nil].include?(幹.type) end end end def 幹を翻訳(幹) ノード毎に(幹) do |類,子| case 類 when :arg 子[0] = 翻訳(子[0]).to_sym when :blockarg 子[0] = 翻訳(子[0]).to_sym when :casgn 子[1] = ('C_'+翻訳(子[1]).to_s).to_sym when :const 子[1] = 翻訳(子[1]).to_sym when :def 子[0] = 翻訳(子[0]).to_sym when :int when :kwoptarg 子[0] = 翻訳(子[0]).to_sym when :lvar 子[0] = 翻訳(子[0]).to_sym when :lvasgn 子[0] = 翻訳(子[0]).to_sym when :optarg 子[0] = 翻訳(子[0]).to_sym when :restarg 子[0] = 翻訳(子[0]).to_sym when :send 子[1] = 翻訳(子[1]).to_sym when :str 子[0] = 翻訳(子[0]).to_s when :sym 子[0] = 翻訳(子[0]).to_sym end end end def ノートを翻訳(ノート) ノート.each do |子| テキスト = 子.text if テキスト[0] == '#' 子.instance_variable_set(:@text,"#" + 翻訳(テキスト[1..-1])) else 子.instance_variable_set(:@text,"=開始\n" + 翻訳(テキスト[6..-6]) + "\n=此処迄\n") end end end ######## # main # ######## # register keywords 鍵文字を登録 # read input, translate, and print result コード = STDIN.read コード.encode(Encoding::UTF_8) コード = "#encoding:utf-8\n" + コード 幹, ノート = Parser::CurrentRuby.parse_with_comments(コード) 幹を翻訳(幹) ノートを翻訳(ノート) STDOUT.write Unparser.unparse(幹,ノート) 

#えぬこどぃぬぐ:うとふ-捌 # えぬこどぃぬぐ:うとふ-捌 取り込む("ぱるせる/くっれぬと") # すぺる はくく, どぬ'と とる とひす あと ほめ!! クラス 配列 定義 凍結 自身 此処迄 此処迄 クラス ハッシュ表 定義 凍結 自身 此処迄 此処迄 クラス パルセル::アスト::ノデ 定義 凍結 自身 此処迄 此処迄 取り込む("うぬぱるせる") クラス パルセル::ソウルケ::コッメヌト 定義 凍結 自身 此処迄 此処迄 定義 鍵文字を登録   ル鍵文字.えあくふ_ぱいる 実行 |甲, 乙| ウヌパルセル::コヌスタヌトス.こぬすと_せと(乙[零], 乙[壹].と_す) ウヌパルセル::エミッテル::レギストル[乙[壹].と_すむ] = ウヌパルセル::エミッテル::レギストル[甲.と_すむ] 此処迄 ウヌパルセル::エミッテル::レペティティオヌ::マプ[:ゐぅひれ] = ル鍵文字[:ゐぅひれ][壹].と_す ウヌパルセル::エミッテル::レペティティオヌ::マプ[:うぬてぃる] = ル鍵文字[:うぬてぃる][壹].と_す ウヌパルセル::エミッテル::フロヰゥモドィフィエル::マプ[:れとぅるぬ] = ル鍵文字[:れとぅるぬ][壹].と_す ウヌパルセル::エミッテル::フロヰゥモドィフィエル::マプ[:ねくすと] = ル鍵文字[:ねくすと][壹].と_す ウヌパルセル::エミッテル::フロヰゥモドィフィエル::マプ[:ぶれあく] = ル鍵文字[:ぶれあく][壹].と_す ウヌパルセル::エミッテル::フロヰゥモドィフィエル::マプ[:おる] = ル鍵文字[:おる][壹].と_す ウヌパルセル::エミッテル::フロヰゥモドィフィエル::マプ[:あぬど] = ル鍵文字[:あぬど][壹].と_す ウヌパルセル::エミッテル::フロヰゥモドィフィエル::マプ[:ベギヌ] = ル鍵文字[:ベギヌ][壹].と_す ウヌパルセル::エミッテル::フロヰゥモドィフィエル::マプ[:エヌド] = ル鍵文字[:エヌド][壹].と_す 此処迄 クラス 浮動小数点数 定義 検査 フロートの文字化(自身) 此処迄 此処迄 クラス ビグデキマル 定義 検査 フロートの文字化(自身.と_す("フ")) 此処迄 此処迄 クラス 整数 定義 検査 整数の文字化(自身) 此処迄 此処迄 クラス 固定長整数 定義 検査 整数の文字化(自身) 此処迄 此処迄 クラス 多倍長整数 定義 検査 整数の文字化(自身) 此処迄 此処迄 定義 整数の文字化(整数) 数字 = 整数.と_す 若し (数字.すぃぜ <= 漆) 戻る 数字.くはるす.まぷ 実行 |甲| ル数字行列[甲] 此処迄.じぉいぬ 違えば 乙 = イヌト_タブレ.ふぃぬど 実行 |甲| 甲[零] < 数字.すぃぜ 此処迄 (整数の文字化(数字[零...(-乙[零])]) + 乙[壹]) + 整数の文字化(数字[(-乙[零])..壹]) 此処迄 此処迄 定義 フロートの文字化(フロート) 甲 = フロート.と_す.すぷりと(".") 甲[零] = 整数の文字化(甲[零]) 甲[壹] = 甲[壹].くはるす.まぷ 実行 |乙| ル数字行列[乙] 此処迄.じぉいぬ 甲.じぉいぬ("点") 此処迄 定義 文字を翻訳(文字) 平片 = :ひら 文字.すかぬ(/([^あえいおう])?(\壹)?([いぅ])?([あえいおう])?/i).まぷ 実行 |子音甲, 子音乙, 子音丙, 母音| 母音 = 母音.と_す 若し (子音甲.にる? && 母音.えむぷと?) 無 違えば 若し ((子音甲 || 母音).どゐぅぬかせ != (子音甲 || 母音)) 平片 = :かた 此処迄 子音甲, 子音乙, 子音丙, 母音 = [子音甲, 子音乙, 子音丙, 母音].まぷ 実行 |くす| 若し くす くす.どゐぅぬかせ 違えば くす 此処迄 此処迄 若し 母音.えむぷと? 母音 = ルしヴぁう[子音甲.と_すむ].と_す 此処迄 # ふ => ひゅ, く => きゅ 若し ((母音 == "う") && ((子音甲 == "ふ") || (子音甲 == "く"))) 子音丙 = "いぅ" 此処迄 # じぁ,じぅ,じぉ => じゃ、じゅ,じょ 若し ((((母音 == "あ") || (母音 == "う")) || (母音 == "お")) && (子音甲 == "じぅ")) 子音丙 = "いぅ" 此処迄 # 拗音 若し 子音丙 若し [:あ, :う, :お].いぬくるで?(母音) 子音丙 = 条件分岐 母音 場合 :あ :ゃ 場合 :う :ゅ 場合 :お :ょ 此処迄 母音 = :い 違えば 子音丙 = 無 此処迄 此処迄 # ばすぃく すっらぶれ 仮名 = ル平[(子音甲.と_す + 母音).と_すむ].と_す # 促音 若し 子音乙 若し ["ま", "み", "む", "め", "も", "な", "に", "ぬ", "ね", "の"].いぬくるで?(子音乙) 仮名 = ("ん" + 仮名) 違えば 仮名 = ("っ" + 仮名) 此処迄 此処迄 # 拗音 若し 子音丙 仮名 = (仮名 + 子音丙) 此処迄 # ろゑるかせ => ひらがな, うっぺるかせ => かたかな 若し (平片 == :かた) 仮名 = 仮名.全文字列置換(/./) 実行 |丁| ル片[丁.と_すむ] 此処迄.と_す 此処迄 仮名 此処迄 此処迄.こむぱくと.じぉいぬ 此処迄 定義 文を翻訳(文) 文.すかぬ(/(([あ-ず]+|[零-玖]+|[^あ-ず零-玖]+))/i).まぷ 実行 |文字, _| 若し 文字.いぬでくす(/[あ-ず]/i) 文字を翻訳(文字) 違えば 若し 文字.いぬでくす(/[零-玖]/) 整数の文字化(文字) 違えば 文字 此処迄 此処迄 此処迄.こむぱくと.じぉいぬ 此処迄 定義 翻訳(文章 = 無) 若し (文章.えむぷと? || 文章.にる?) 文章 違えば 若し (甲 = ル翻訳行列[文章.と_すむ]) 甲 違えば 若し (甲 = ル翻訳メモリー[文章]) 甲 違えば 甲 = 文を翻訳(文章.と_す) ル翻訳メモリー[文章] = 甲 此処迄 此処迄 此処迄 此処迄 定義 ノード毎に(幹, &塊) 若し 幹.いす_あ?(パルセル::アスト::ノデ) 子供 = 幹.くひるどれぬ ブロックを呼び出す(幹.とぺ, 子供) 幹.くひるどれぬ.えあくふ 実行 |甲| ノード毎に(甲, &塊) 此処迄 若し (甲 = ル鍵文字[幹.とぺ]) 若し [:せるふ, :とるえ, :ふぁるせ, :にる].いぬくるで?(幹.とぺ) 幹.いぬすたぬけ_ヴぁりあぶれ_せと(:@とぺ, 甲[壹]) 此処迄 此処迄 此処迄 此処迄 定義 幹を翻訳(幹) ノード毎に(幹) 実行 |類, 子| 条件分岐 類 場合 :あるぐ 子[零] = 翻訳(子[零]).と_すむ 場合 :ぶろくかるぐ 子[零] = 翻訳(子[零]).と_すむ 場合 :かすぐぬ 子[壹] = ("ク_" + 翻訳(子[壹]).と_す).と_すむ 場合 :こぬすと 子[壹] = 翻訳(子[壹]).と_すむ 場合 :でふ 子[零] = 翻訳(子[零]).と_すむ 場合 :いぬと 場合 :くをぷたるぐ 子[零] = 翻訳(子[零]).と_すむ 場合 :るヴぁる 子[零] = 翻訳(子[零]).と_すむ 場合 :るヴぁすぐぬ 子[零] = 翻訳(子[零]).と_すむ 場合 :おぷたるぐ 子[零] = 翻訳(子[零]).と_すむ 場合 :れすたるぐ 子[零] = 翻訳(子[零]).と_すむ 場合 :せぬど 子[壹] = 翻訳(子[壹]).と_すむ 場合 :すとる 子[零] = 翻訳(子[零]).と_す 場合 :すむ 子[零] = 翻訳(子[零]).と_すむ 此処迄 此処迄 此処迄 定義 ノートを翻訳(ノート) ノート.えあくふ 実行 |子| テキスト = 子.てくすと 若し (テキスト[零] == "#") 子.いぬすたぬけ_ヴぁりあぶれ_せと(:@てくすと, "#" + 翻訳(テキスト[壹..壹])) 違えば 子.いぬすたぬけ_ヴぁりあぶれ_せと(:@てくすと, ("=開始\n" + 翻訳(テキスト[陸..陸])) + "\n=此処迄\n") 此処迄 此処迄 此処迄 ######## # まいぬ # ######## # れぎすてる けいぅをるどす 鍵文字を登録 # れあど いぬぷと, とらぬすらて, あぬど ぷりぬと れすると コード = ストドィヌ.れあど コード.えぬこで(エヌコドィヌグ::ウトフ_捌) コード = ("#えぬこどぃぬぐ:うとふ-捌\n" + コード) 幹, ノート = パルセル::クッレヌトルブ.ぱるせ_ゐとふ_こっめぬとす(コード) 幹を翻訳(幹) ノートを翻訳(ノート) ストドウト.ゐぅりて(ウヌパルセル.うぬぱるせ(幹, ノート))