1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
# Run this file to regenerate all files automatically created
# from instruction information.
#
# The parameters provided points to Ruby trunk defs files
#
# ex:
# ruby yarvinsns.rb ~/src/ruby-trunk/insns.def ~/src/ruby-trunk/opt_insn_unif.def ~/src/ruby-trunk/opt_operand.def
insnsFile = ARGV[0]
uniFile = ARGV[1]
operandFile = ARGV[2]
defs = []
in_def = false
cur_def = ""
open(insnsFile) do |f|
f.each_line do |l|
if !in_def && /^DEFINE_INSN$/ =~ l
in_def = true
else
if in_def && /^\{$/ =~ l
in_def = false
defs << cur_def
cur_def = ""
end
if in_def
cur_def << l
end
end
end
end
$typeMappings = {
'ISEQ' => 'YARVMachine.InstructionSequence',
'dindex_t' => 'long',
'lindex_t' => 'long',
'num_t' => 'long',
'OFFSET' => 'long',
'CDHASH' => 'CDHASH???',
'IC' => 'IC???',
'GENTRY' => 'GENTRY???',
'ID' => 'ID???',
'VALUE' => 'IRubyObject',
'...' => :any,
}
class Value
attr_accessor :type, :name
def initialize(type, name='any')
@type, @name = $typeMappings[type], name
end
end
class Instruction
attr_accessor :name, :ops, :pops, :rets
end
instructions = []
def get_instruction(str)
i = Instruction.new
sarr = str.split(/\n/)
i.name = sarr[0]
i.ops = sarr[1][/\(.*?\)/][1..-2].split(/,/).map {|v| Value.new *v.strip.split(/ +/)}
i.pops = sarr[2][/\(.*?\)/][1..-2].split(/,/).map {|v| Value.new *v.strip.split(/ +/)}
i.rets = sarr[3][/\(.*?\)/][1..-2].split(/,/).map {|v| Value.new *v.strip.split(/ +/)}
i
end
for idef in defs
instructions << get_instruction(idef)
end
def reformat(v)
if "*" == v
'_wc_'
elsif /^int2fix\((.*)\)$/ =~ v
"int2fix_0_#{$1}_c_"
else
v
end
end
open(operandFile) do |f|
f.each do |l|
if /^#|__END__|^$/ =~ l.strip
next
end
i = Instruction.new
nm = l[/^[^ ]+/]
rest = l[nm.length+1..-1].strip
i.name = nm + "_op_" + rest.split(/, /).map {|n| reformat(n.downcase) }.join('_')
i.ops = []
i.pops = []
i.rets = []
instructions << i
end
end
open(uniFile) do |f|
f.each do |l|
if /^#|__END__|^$/ =~ l.strip
next
end
i = Instruction.new
i.name = "unified_#{l.strip.split(/ +/).join('_')}"
i.ops = []
i.pops = []
i.rets = []
instructions << i
end
end
INSTRUCTIONS = instructions
b = binding
require 'erb'
Dir["**/*.template"].each do |file|
$stderr.puts "Processing #{file}"
f = ERB.new(File.read(file))
File.open(file[0..-10],"w") do |of|
of.write(f.result(b))
end
end
|
