kotovalexarian-likes-github/ruby--ruby
1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
Code Releases Activity

* tool/transcode-tblgen.rb (ActionMap#generate_info): use a memo to

Browse source 
avoid duplication for STR1.



git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@19215 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
akr 2008-09-07 09:30:54 +00:00
parent c0bec2fae1
commit dcdc7579c5
2 changed files with 20 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

5
ChangeLog
View file

@ -1,3 +1,8 @@
Sun Sep 7 18:28:05 2008 Tanaka Akira <akr@fsij.org>
* tool/transcode-tblgen.rb (ActionMap#generate_info): use a memo to
avoid duplication for STR1.
Sun Sep 7 18:10:28 2008 Tanaka Akira <akr@fsij.org> Sun Sep 7 18:10:28 2008 Tanaka Akira <akr@fsij.org>
* transcode_data.h (STR1): defined for a string up to 255 bytes. * transcode_data.h (STR1): defined for a string up to 255 bytes.

22
tool/transcode-tblgen.rb
View file

@ -277,6 +277,8 @@ class ActionMap
code code
end end
StrMemo = {}
def generate_info(info) def generate_info(info)
case info case info
when :nomap when :nomap
@ -302,13 +304,19 @@ 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 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)" "o4(0x#$1,0x#$2,0x#$3,0x#$4)"
when /\A([0-9a-f][0-9a-f]){0,255}\z/i when /\A([0-9a-f][0-9a-f]){0,255}\z/i
bytes = info bytes = info.upcase
len = info.length/2 if n = StrMemo[bytes]
size = @bytes_code.length n
@bytes_code.insert_at_last(1 + len, else
"\#define str1_#{size} makeSTR1(#{size})\n" + len = info.length/2
" #{len}," + info.gsub(/../, ' 0x\&,') + "\n") size = @bytes_code.length
"str1_#{size}" @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
when /\A\/\*BYTE_LOOKUP\*\// # pointer to BYTE_LOOKUP structure when /\A\/\*BYTE_LOOKUP\*\// # pointer to BYTE_LOOKUP structure
$'.to_s $'.to_s
else else