if has_rvalue then
vtype = "redef type E: " + nmethdef.n_signature.n_type.n_id.text
end
+
# create a return type
var n_id = new TClassid
n_id.text = classname
end
# String corresponding to the generated class
- var s="""
+ var classdef_source = """
class {{{classname}}}
super Thread
"""
# Parse newly obtained classdef
- var classdef = toolcontext.parse_classdef(s).as(AStdClassdef)
+ var classdef = toolcontext.parse_classdef(classdef_source)
+ assert classdef isa AStdClassdef
# Get the `main` fun of the class
- var mainfun : nullable AMethPropdef = null
+ var mainfun: nullable AMethPropdef = null
for prop in classdef.n_propdefs do
if prop isa AMethPropdef then mainfun = prop
end