From eee75cc1a67c4360ed762f3c01df2ebe074d8d4d Mon Sep 17 00:00:00 2001
From: akr <akr@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Sun, 7 Sep 2008 10:17:52 +0000
Subject: * tool/transcode-tblgen.rb (ActionMap#str_name): new method to  
 generate a name base on string content.   (ActionMap#gen_str): extracted from
 generate_info and use str_name.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@19216 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 tool/transcode-tblgen.rb | 44 +++++++++++++++++++++++++++++++-------------
 1 file changed, 31 insertions(+), 13 deletions(-)

(limited to 'tool/transcode-tblgen.rb')

diff --git a/tool/transcode-tblgen.rb b/tool/transcode-tblgen.rb
index 33368db2e9..b9301e5c5c 100644
--- a/tool/transcode-tblgen.rb
+++ b/tool/transcode-tblgen.rb
@@ -277,8 +277,38 @@ class ActionMap
     code
   end
 
+  UsedName = {}
+
   StrMemo = {}
 
+  def str_name(bytes)
+    size = @bytes_code.length
+    rawbytes = [bytes].pack("H*")
+
+    n = nil
+    if !n && !(suf = rawbytes.gsub(/[^A-Za-z0-9_]/, '')).empty? && !UsedName[nn = "str1_" + suf] then n = nn end
+    if !n && !UsedName[nn = "str1_" + bytes] then n = nn end
+    n ||= "str1s_#{size}"
+
+    StrMemo[bytes] = n
+    UsedName[n] = true
+    n
+  end
+
+  def gen_str(bytes)
+    if n = StrMemo[bytes]
+      n
+    else
+      len = bytes.length/2
+      size = @bytes_code.length
+      n = str_name(bytes)
+      @bytes_code.insert_at_last(1 + len,
+        "\#define #{n} makeSTR1(#{size})\n" +
+        "    #{len}," + bytes.gsub(/../, ' 0x\&,') + "\n")
+      n
+    end
+  end
+
   def generate_info(info)
     case info
     when :nomap
@@ -304,19 +334,7 @@ class ActionMap
     when /\A(f[0-7])([0-9a-f][0-9a-f])([0-9a-f][0-9a-f])([0-9a-f][0-9a-f])\z/i
       "o4(0x#$1,0x#$2,0x#$3,0x#$4)"
     when /\A([0-9a-f][0-9a-f]){0,255}\z/i
-      bytes = info.upcase
-      if n = StrMemo[bytes]
-        n
-      else
-        len = info.length/2
-        size = @bytes_code.length
-        @bytes_code.insert_at_last(1 + len,
-          "\#define str1_#{size} makeSTR1(#{size})\n" +
-          "    #{len}," + info.gsub(/../, ' 0x\&,') + "\n")
-        n = "str1_#{size}"
-        StrMemo[bytes] = n
-        n
-      end
+      gen_str(info.upcase)
     when /\A\/\*BYTE_LOOKUP\*\// # pointer to BYTE_LOOKUP structure
       $'.to_s
     else
-- 
cgit v1.2.3