2015-10-23 14:22:55 +03:00
|
|
|
module Soml
|
2015-09-19 18:56:18 +03:00
|
|
|
Compiler.class_eval do
|
2015-10-06 00:27:13 +03:00
|
|
|
|
2016-03-07 11:55:28 +02:00
|
|
|
def on_FunctionStatement statement
|
2015-10-09 17:51:14 +03:00
|
|
|
#puts statement.inspect
|
2016-03-07 11:55:28 +02:00
|
|
|
# return_type , name , parameters, kids , receiver = *statement
|
|
|
|
name = statement.name
|
2015-10-25 15:40:12 +02:00
|
|
|
raise "Already in method #{@method}" if @method
|
|
|
|
|
2016-03-07 11:55:28 +02:00
|
|
|
args = statement.parameters.collect do |p|
|
|
|
|
Parfait::Variable.new( *p )
|
2014-07-16 13:20:47 +03:00
|
|
|
end
|
2015-09-19 16:28:41 +03:00
|
|
|
|
2015-10-25 15:40:12 +02:00
|
|
|
class_method = nil
|
2016-03-07 11:55:28 +02:00
|
|
|
if(statement.receiver )
|
|
|
|
if( statement.receiver.first == :self) #class method
|
2015-10-25 15:40:12 +02:00
|
|
|
class_method = @clazz
|
2015-10-26 17:23:35 +02:00
|
|
|
@clazz = @clazz.meta
|
2015-05-20 17:11:13 +03:00
|
|
|
else
|
2016-03-07 11:55:28 +02:00
|
|
|
raise "Not covered #{statement.receiver}"
|
2015-05-20 17:11:13 +03:00
|
|
|
end
|
2015-10-06 00:27:13 +03:00
|
|
|
end
|
2015-10-25 15:40:12 +02:00
|
|
|
|
2015-10-06 00:27:13 +03:00
|
|
|
@method = @clazz.get_instance_method( name )
|
|
|
|
if(@method)
|
2015-10-18 17:20:25 +03:00
|
|
|
#puts "Warning, redefining method #{name}" unless name == :main
|
2015-10-06 00:27:13 +03:00
|
|
|
#TODO check args / type compatibility
|
2015-10-28 21:40:48 +02:00
|
|
|
init_method
|
2015-10-06 00:27:13 +03:00
|
|
|
else
|
2015-10-28 21:40:48 +02:00
|
|
|
create_method_for(@clazz, name , args ).init_method
|
2015-05-20 17:11:13 +03:00
|
|
|
end
|
2015-11-01 19:13:40 +02:00
|
|
|
@method.source = statement
|
2015-10-15 10:27:06 +03:00
|
|
|
#puts "compile method #{@method.name}"
|
2015-06-01 17:31:35 +03:00
|
|
|
|
2016-03-07 11:55:28 +02:00
|
|
|
process(statement.statements)
|
|
|
|
|
2015-10-25 15:40:12 +02:00
|
|
|
@clazz = class_method if class_method
|
2015-10-06 00:27:13 +03:00
|
|
|
@method = nil
|
2015-10-14 15:17:33 +03:00
|
|
|
# function definition is a statement, does not return any value
|
|
|
|
return nil
|
2014-07-14 11:29:38 +03:00
|
|
|
end
|
2015-05-08 15:10:30 +03:00
|
|
|
end
|
2015-05-04 14:22:22 +03:00
|
|
|
end
|