|
@@ -494,6 +494,10 @@ Element function trim_AL_constructors(list : Element):
|
|
|
|
|
|
return lst!
|
|
|
|
|
|
+Element function add_text(elem : Element, code : String):
|
|
|
+ dict_add(elem, "__text", code)
|
|
|
+ return elem!
|
|
|
+
|
|
|
Element function construct_model_list(model : Element, list : Element):
|
|
|
String command
|
|
|
|
|
@@ -516,11 +520,9 @@ Element function construct_model_list(model : Element, list : Element):
|
|
|
elif (command == "instantiate_attribute_ref"):
|
|
|
instantiate_attribute_ref(model, list_pop_final(list), list_pop_final(list), list_pop_final(list))
|
|
|
elif (command == "instantiate_attribute_code"):
|
|
|
- instantiate_attribute_code(model, list_pop_final(list), list_pop_final(list), construct_function_list(trim_AL_constructors(list)))
|
|
|
+ instantiate_attribute_code(model, list_pop_final(list), list_pop_final(list), add_text(construct_function_list(trim_AL_constructors(list)), list_pop_final(list)))
|
|
|
elif (command == "instantiate_link"):
|
|
|
instantiate_link(model, list_pop_final(list), list_pop_final(list), list_pop_final(list), list_pop_final(list))
|
|
|
- elif (command == "add_code_model"):
|
|
|
- export_node(list_pop_final(list), construct_function_list(trim_AL_constructors(list)))
|
|
|
else:
|
|
|
log("Modelling error: did not understand command " + command)
|
|
|
|