1# -*- mode: ruby; coding: us-ascii -*-
2firstline, predefined = __LINE__+1, %[\
13 method_missing MethodMissing
15 singleton_method_added
17 singleton_method_removed
19 singleton_method_undefined
80 respond_to? Respond_to
81 respond_to_missing? Respond_to_missing
85 core#set_variable_alias
88 core#define_singleton_method
102# VM ID OP Parser Token
140class KeywordError < RuntimeError
141 def self.raise(mesg, line)
142 super(self, mesg, ["#{__FILE__}:#{line}", *caller])
146def id2varname(token, prefix = nil)
148 token = "_#{token.gsub(/\W+/, '_')}"
150 token = token.sub(/\?/, 'P')
151 token = prefix + token if prefix
152 token.sub!(/\A[a-z]/) {$&.upcase}
153 token.sub!(/\A\$/, "_G_")
154 token.sub!(/\A@@/, "_C_")
155 token.sub!(/\A@/, "_I_")
156 token.gsub!(/\W+/, "")
171predefined.split(/^/).each_with_index do |line, num|
173 line.sub!(/\s+#.*/, '')
174 name, token = line.split
176 token = id2varname(token || name)
178 preserved_ids << token
181 if prev = names[name]
182 KeywordError.raise("#{name} is already registered at line #{prev+firstline}", firstline+num)
184 if prev = predefined_ids[token]
185 KeywordError.raise("#{token} is already used for #{prev} at line #{names[prev]+firstline}", firstline+num)
189 when /\A[A-Z]\w*\z/; const_ids
190 when /\A(?!\d)\w+\z/; local_ids
191 when /\A\$(?:\d+|(?!\d)\w+|\W)\z/; global_ids
192 when /\A@@(?!\d)\w+\z/; class_ids
193 when /\A@(?!\d)\w+\z/; instance_ids
194 when /\A((?!\d)\w+)=\z/; attrset_ids
197 predefined_ids[token] = name
200token_ops.split(/^/).each do |line|
202 line.sub!(/\s+#.*/, '')
203 id, op, token = line.split
204 next unless id and op
205 token ||= (id unless /\A\W\z/ =~ op)
206 token_op_ids << [id, op, token, (index += 1 if token)]
209 "LOCAL" => local_ids,
210 "INSTANCE" => instance_ids,
211 "GLOBAL" => global_ids,
212 "CONST" => const_ids,
213 "CLASS" => class_ids,
214 "ATTRSET" => attrset_ids,
215 :preserved => preserved_ids,
216 :predefined => predefined_ids,
217 :token_op => token_op_ids,
218 :last_token => index,