1# -*- mode: ruby; coding: us-ascii -*-
2firstline, predefined = __LINE__+1, %[\
14 method_missing MethodMissing
16 singleton_method_added
18 singleton_method_removed
20 singleton_method_undefined
86 respond_to? Respond_to
87 respond_to_missing? Respond_to_missing
91 core#set_variable_alias
94 core#define_singleton_method
110# VM ID OP Parser Token
148class KeywordError < RuntimeError
149 def self.raise(mesg, line)
150 super(self, mesg, ["#{__FILE__}:#{line}", *caller])
154def id2varname(token, prefix = nil)
156 token = "_#{token.gsub(/\W+/, '_')}"
158 token = token.sub(/\?/, 'P')
159 token = prefix + token if prefix
160 token.sub!(/\A[a-z]/) {$&.upcase}
161 token.sub!(/\A\$/, "_G_")
162 token.sub!(/\A@@/, "_C_")
163 token.sub!(/\A@/, "_I_")
164 token.gsub!(/\W+/, "")
179predefined.split(/^/).each_with_index do |line, num|
181 line.sub!(/\s+#.*/, '')
182 name, token = line.split
184 token = id2varname(token || name)
186 preserved_ids << token
189 if prev = names[name]
190 KeywordError.raise("#{name} is already registered at line #{prev+firstline}", firstline+num)
192 if prev = predefined_ids[token]
193 KeywordError.raise("#{token} is already used for #{prev} at line #{names[prev]+firstline}", firstline+num)
197 when /\A[A-Z]\w*\z/; const_ids
198 when /\A(?!\d)\w+\z/; local_ids
199 when /\A\$(?:\d+|(?!\d)\w+|\W)\z/; global_ids
200 when /\A@@(?!\d)\w+\z/; class_ids
201 when /\A@(?!\d)\w+\z/; instance_ids
202 when /\A((?!\d)\w+)=\z/; attrset_ids
205 predefined_ids[token] = name
208token_ops.split(/^/).each do |line|
210 line.sub!(/\s+#.*/, '')
211 id, op, token = line.split
212 next unless id and op
213 token ||= (id unless /\A\W\z/ =~ op)
214 token_op_ids << [id, op, token, (index += 1 if token)]
217 "LOCAL" => local_ids,
218 "INSTANCE" => instance_ids,
219 "GLOBAL" => global_ids,
220 "CONST" => const_ids,
221 "CLASS" => class_ids,
222 "ATTRSET" => attrset_ids,
223 :preserved => preserved_ids,
224 :predefined => predefined_ids,
225 :token_op => token_op_ids,
226 :last_token => index,