show regexp flags and encoding.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@14273 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
akr 2007-12-17 13:11:13 +00:00
Родитель bd79a2eb2d
Коммит a0fc8b5564
1 изменённых файлов: 10 добавлений и 3 удалений

Просмотреть файл

@ -74,10 +74,10 @@ define rp
printf "coderange:unknown " printf "coderange:unknown "
else else
if ($flags & (RUBY_FL_USER12|RUBY_FL_USER13)) == RUBY_FL_USER12 if ($flags & (RUBY_FL_USER12|RUBY_FL_USER13)) == RUBY_FL_USER12
printf "coderange:single " printf "coderange:7bit "
else else
if ($flags & (RUBY_FL_USER12|RUBY_FL_USER13)) == RUBY_FL_USER13 if ($flags & (RUBY_FL_USER12|RUBY_FL_USER13)) == RUBY_FL_USER13
printf "coderange:multi " printf "coderange:valid "
else else
printf "coderange:broken " printf "coderange:broken "
end end
@ -90,7 +90,14 @@ define rp
set print address off set print address off
output ((struct RRegexp*)$arg0)->str output ((struct RRegexp*)$arg0)->str
set print address on set print address on
printf " " printf " len:%d ", ((struct RRegexp*)$arg0)->len
if $flags & RUBY_FL_USER5
printf "(literal) "
end
if $flags & RUBY_FL_USER4
printf "(fixed) "
end
printf "encoding:%d ", ($flags & (RUBY_FL_USER8|RUBY_FL_USER9|RUBY_FL_USER10|RUBY_FL_USER11)) >> RUBY_ENCODING_SHIFT
print (struct RRegexp *)$arg0 print (struct RRegexp *)$arg0
else else
if ($flags & RUBY_T_MASK) == RUBY_T_ARRAY if ($flags & RUBY_T_MASK) == RUBY_T_ARRAY