123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836 |
- include "primitives.alh"
- include "modelling.alh"
- include "object_operations.alh"
- include "compiler.alh"
- Composite schedule {
- {Contains} Failure failure {}
- {Contains} Success success {}
- {Contains} Atomic create_orchestrator {
- LHS {
- Pre_SCCD/Diagram pre_diagram_0 {
- label = "0"
- }
- }
- RHS {
- Post_SCCD/Diagram post_diagram_0 {
- label = "0"
- }
- Post_SCCD/Class post_class_1 {
- label = "1"
- value_name = $
- String function value(model : Element, name : String, mapping : Element):
- return "Orchestrator"!
- $
- value_constructor_body = $
- Element function value(model : Element, name : String, mapping : Element):
- Element result
- String code
- code = "include \"primitives.alh\"\n"
- code = string_join(code, "Void function constructor_body (attributes : Element, parameters : Element):\n")
- code = string_join(code, "\tdict_add(attributes, \"id\",'")
- code = string_join(code, cast_i2s(0))
- code = string_join(code, "')\n")
- code = string_join(code, "\tdict_add(attributes, \"queue\", list_create())\n")
- code = string_join(code, "\tdict_add(attributes, \"finish\", dict_create())\n")
- code = string_join(code, "\tdict_add(attributes, \"token\", dict_create())\n")
- code = string_join(code, "\tdict_add(attributes, \"data\", dict_create())\n")
- code = string_join(code, "\tdict_add(attributes, \"decision_consumes\", dict_create())\n")
- code = string_join(code, "\tdict_add(attributes, \"assn_names\", dict_create())\n")
- code = string_join(code, "\tlog(\"INSIDE ORCHESTRATOR CLASS CONSTRUCTOR\")\n")
- code = string_join(code, "\treturn!")
- result = compile_code(code)
- if element_eq(result, read_root()):
- return read_root()!
- else:
- return result!
- $
- value_default = $
- Boolean function value(model : Element, name : String, mapping : Element):
- return True!
- $
- }
- Post_SCCD/diagram_classes (post_diagram_0, post_class_1) {
- label = "2"
- }
- Post_SCCD/CompositeState post_cs_3 {
- label = "3"
- value_name = $
- String function value(model : Element, name : String, mapping : Element):
- return "Root"!
- $
- }
- Post_SCCD/behaviour (post_class_1, post_cs_3) {
- label = "4"
- }
- Post_SCCD/BasicState post_bs_5 {
- label = "5"
- value_name = $
- String function value(model : Element, name : String, mapping : Element):
- return "Init"!
- $
- value_isInitial = $
- Boolean function value(model : Element, name : String, mapping : Element):
- return True!
- $
- }
- Post_SCCD/composite_children (post_cs_3, post_bs_5) {
- label = "6"
- }
- Post_SCCD/ParallelState post_ps_7 {
- label = "7"
- value_name = $
- String function value(model : Element, name : String, mapping : Element):
- return "Running"!
- $
- }
- Post_SCCD/transition (post_bs_5, post_ps_7) {
- label = "8"
- value_name = $
- String function value(model : Element, name : String, mapping : Element):
- return name!
- $
- }
- Post_SCCD/CompositeState post_cs_10 {
- label = "10"
- value_name = $
- String function value(model : Element, name : String, mapping : Element):
- return "Spawning"!
- $
- }
- Post_SCCD/parallel_children (post_ps_7, post_cs_10) {
- label = "12"
- }
- Post_SCCD/composite_children (post_cs_3, post_ps_7) {
- label = "13"
- }
- Post_SCCD/BasicState post_bs_19 {
- label = "19"
- value_name = $
- String function value(model : Element, name : String, mapping : Element):
- return "Waiting"!
- $
- value_isInitial = $
- Boolean function value(model : Element, name : String, mapping : Element):
- return True!
- $
- }
- Post_SCCD/BasicState post_bs_20 {
- label = "20"
- value_name = $
- String function value(model : Element, name : String, mapping : Element):
- return "Creating"!
- $
- }
- Post_SCCD/composite_children (post_cs_10, post_bs_19) {
- label = "21"
- }
- Post_SCCD/composite_children (post_cs_10, post_bs_20) {
- label = "22"
- }
- Post_SCCD/transition post_trans_23 (post_bs_19, post_bs_20) {
- label = "23"
- value_name = $
- String function value(model : Element, name : String, mapping : Element):
- return name!
- $
- value_cond = $
- Element function value(model : Element, name : String, mapping : Element):
- String code
- Element result
- code = "include \"primitives.alh\"\n"
- code = string_join(code, "Boolean function script(attributes : Element, parameters : Element):\n")
- code = string_join(code, "\tlog(\"QUEUE\")\n")
- code = string_join(code, "\tlog(cast_i2s(list_len(attributes[\"queue\"])))\n")
- code = string_join(code, "\treturn integer_gt(list_len(attributes[\"queue\"]), 0)!")
- result = compile_code(code)
- if element_eq(result, read_root()):
- return read_root()!
- else:
- return result!
- $
- }
- Post_SCCD/Raise post_re_24 {
- label = "24"
- value_event = $
- String function value(model : Element, name : String, mapping : Element):
- return "create_instance"!
- $
- value_scope = $
- String function value(model : Element, name : String, mapping : Element):
- return "cd"!
- $
- value_parameter = $
- Element function raise(model : Element, name : String, mapping : Element):
- String code
- Element result
- code = "include \"primitives.alh\"\n"
- code = string_join(code, "Element function script(attributes : Element, parameters : Element):\n")
- code = string_join(code, "\tElement param\n")
- code = string_join(code, "\tparam = list_create()\n")
- code = string_join(code, "\tlist_append(param, 'association_name')\n")
- code = string_join(code, "\tlist_append(param, list_read(attributes[\"queue\"], 0))\n")
- code = string_join(code, "\tlist_append(param, read_root())\n")
- code = string_join(code, "\treturn param!")
- result = compile_code(code)
- if element_eq(result, read_root()):
- return read_root()!
- else:
- return result!
- $
- }
- Post_SCCD/ActualParameter post_ap_25 {
- label = "25"
- value_exp = $
- String function value(model : Element, name : String, mapping : Element):
- return "'children'"!
- $
- }
- Post_SCCD/ActualParameter post_ap_26 {
- label = "26"
- value_exp = $
- String function value(model : Element, name : String, mapping : Element):
- return "'Activity'"!
- $
- }
- Post_SCCD/raise_parameters (post_re_24, post_ap_25) {
- label = "27"
- value_order = $
- Integer function value(model : Element, name : String, mapping : Element):
- return 0!
- $
- }
- Post_SCCD/raise_parameters (post_re_24, post_ap_26) {
- label = "28"
- value_order = $
- Integer function value(model : Element, name : String, mapping : Element):
- return 1!
- $
- }
- Post_SCCD/transition_raises (post_trans_23, post_re_24) {
- label = "29"
- }
- Post_SCCD/transition post_trans_30 (post_bs_20, post_bs_19) {
- label = "30"
- value_name = $
- String function value(model : Element, name : String, mapping : Element):
- return name!
- $
- value_event = $
- String function value(model : Element, name : String, mapping : Element):
- return "instance_created"!
- $
- value_script = $
- Element function value(model : Element, name : String, mapping : Element):
- String code
- Element result
- code = "include \"primitives.alh\"\n"
- code = string_join(code, "Void function script(attributes : Element, parameters : Element):\n")
- code = string_join(code, "\tlog(\"INSTANCE CREATED\")\n")
- code = string_join(code, "\tString exec_name\n")
- code = string_join(code, "\texec_name = list_read(attributes['queue'], 0)\n")
- code = string_join(code, "\tdict_overwrite(attributes['assn_names'], exec_name, parameters[0])\n")
- code = string_join(code, "\treturn!")
- result = compile_code(code)
- if element_eq(result, read_root()):
- return read_root()!
- else:
- return result!
- $
- }
- Post_SCCD/Raise post_re_36 {
- label = "36"
- value_event = $
- String function value(model : Element, name : String, mapping : Element):
- return "set_id"!
- $
- value_scope = $
- String function value(model : Element, name : String, mapping : Element):
- return "narrow"!
- $
- value_target = $
- String function value(model : Element, name : String, mapping : Element):
- String code
- Element result
- code = "include \"primitives.alh\"\n"
- code = string_join(code, "String function target(attributes : Element):\n")
- code = string_join(code, "\treturn attributes['assn_names'][list_pop(attributes['queue'], 0)]!")
- result = compile_code(code)
- if element_eq(result, read_root()):
- return read_root()!
- else:
- return result!
- $
- value_parameter = $
- Element function raise(model : Element, name : String, mapping : Element):
- String code
- Element result
- code = "include \"primitives.alh\"\n"
- code = string_join(code, "Element function script(attributes : Element, parameters : Element):\n")
- code = string_join(code, "\tElement param\n")
- code = string_join(code, "\tparam = list_create()\n")
- code = string_join(code, "\tlist_append(param, parameters[0])\n")
- code = string_join(code, "\tlist_append(param, attributes[\"id\"])\n")
- code = string_join(code, "\treturn param!")
- result = compile_code(code)
- if element_eq(result, read_root()):
- return read_root()!
- else:
- return result!
- $
- }
- Post_SCCD/transition_raises (post_trans_30, post_re_36) {
- label = "37"
- }
- Post_SCCD/FormalParameter post_fp_31 {
- label = "31"
- value_name = $
- String function value(model : Element, name : String, mapping : Element):
- return "association_name"!
- $
- }
- Post_SCCD/transition_parameters (post_trans_30, post_fp_31) {
- label = "32"
- value_order = $
- Integer function value(model : Element, name : String, mapping : Element):
- return 0!
- $
- }
- Post_SCCD/BasicState post_bs_33 {
- label = "33"
- value_name = $
- String function value(model : Element, name : String, mapping : Element):
- return "End"!
- $
- }
- Post_SCCD/composite_children (post_cs_3, post_bs_33) {
- label = "34"
- }
- Post_SCCD/transition post_trans_35 (post_ps_7, post_bs_33) {
- label = "35"
- value_name = $
- String function value(model : Element, name : String, mapping : Element):
- return name!
- $
- value_event = $
- String function value(model : Element, name : String, mapping : Element):
- return "process_done"!
- $
- }
- }
- }
- {Contains} ForAll create_association {
- LHS {
- Pre_SCCD/Class {
- label = "0"
- constraint_name = $
- Boolean function constraint(value : String):
- return (value != "Orchestrator")!
- $
- }
- Pre_SCCD/Class {
- label = "1"
- constraint_name = $
- Boolean function constraint(value : String):
- return (value == "Orchestrator")!
- $
- }
- }
- RHS {
- Post_SCCD/Class post_exec_class_0{
- label = "0"
- }
- Post_SCCD/Class post_orchestrator_class_1{
- label = "1"
- }
- Post_SCCD/association (post_orchestrator_class_1, post_exec_class_0){
- label = "3"
- value_name = $
- String function value(model : Element, name : String, mapping : Element):
- return "children"!
- $
- }
- }
- }
- {Contains} Atomic ModifyFork2Fork {
- LHS {
- Pre_PM/Fork pre_f0{
- label = "0"
- }
- Pre_PM/Fork pre_f1{
- label = "1"
- }
- Pre_PM/Activity pre_a1{
- label = "2"
- }
- Pre_PM/Next (pre_f0, pre_f1) {
- label = "3"
- }
- Pre_PM/Next (pre_f1, pre_a1) {
- label = "4"
- }
- }
- RHS {
- Post_PM/Fork post_f0{
- label = "0"
- }
- Post_PM/Fork post_f1{
- label = "1"
- }
- Post_PM/Activity post_a1{
- label = "2"
- }
- Post_PM/Next (post_f0, post_f1){
- label = "3"
- }
- Post_PM/Next (post_f0, post_a1) {
- label = "5"
- value_id = $
- String function value(model : Element, name : String, mapping : Element):
- return name!
- $
- }
- }
- }
- {Contains} ForAll RemoveFork2Fork {
- LHS {
- Pre_PM/Fork f0{
- label = "0"
- }
- Pre_PM/Fork f1{
- label = "1"
- }
- Pre_PM/Next (f0, f1) {
- label = "3"
- }
- }
- RHS {
- Post_PM/Fork f{
- label = "0"
- }
- }
- }
- {Contains} ForAll RemoveJoin2Join {
- LHS {
- Pre_PM/Join j0{
- label = "0"
- }
- Pre_PM/Join j1{
- label = "1"
- }
- Pre_PM/Next (j0, j1) {
- label = "3"
- }
- Pre_PM/Activity j_a{
- label = "4"
- }
- Pre_PM/Next (j1, j_a) {
- label = "5"
- }
- }
- RHS {
- Post_PM/Join post_j0{
- label = "0"
- }
- Post_PM/Activity post_j_a{
- label = "4"
- }
- Post_PM/Next (post_j0, post_j_a) {
- label = "6"
- }
- }
- }
- {Contains} ForAll initialize {
- LHS {
- Pre_PM/Activity {
- label = "0"
- }
- Pre_SCCD/BasicState {
- label = "1"
- constraint_name = $
- Boolean function constraint(value : String):
- return (value == "Init")!
- $
- }
- constraint = $
- Boolean function constraint (model : Element, mapping : Element):
- Element children
- String parent
- Element class_beh
- String class
- children = allIncomingAssociationInstances(model, mapping["1"], "SCCD/composite_children")
- if list_len(children) >0:
- parent = readAssociationSource(model, set_pop(children))
- class_beh = allIncomingAssociationInstances(model, parent, "SCCD/behaviour")
- if list_len(class_beh) >0:
- class = readAssociationSource(model, set_pop(class_beh))
- if (value_eq(read_attribute(model, class, "name"), "Orchestrator")):
- return True!
- else:
- return False!
- else:
- return False!
- else:
- return False!
- $
- }
- RHS {
- Post_PM/Activity post_activity_0{
- label = "0"
- }
- Post_SCCD/BasicState post_init_bs_1{
- label = "1"
- value_onEntryScript = $
- String function value(model : Element, name : String, mapping : Element):
- String type
- String joined_str
- Element incoming_assns
- String edge
- String activity
- String onEntryScript
- type = read_type(model, mapping["0"])
- onEntryScript = read_attribute(model, mapping["1"], "onEntryScript")
- if value_eq(has_value(onEntryScript),False):
- onEntryScript = ""
- if (type == "PM/Start"):
- joined_str = string_join("\tdict_overwrite(attributes['token'],'", read_attribute(model, mapping["0"], "id"))
- joined_str = string_join(joined_str,"',True)\n")
- return string_join(onEntryScript, joined_str)!
- elif (type == "PM/Decision"):
- joined_str = string_join("\tdict_overwrite(attributes['token'],'", read_attribute(model, mapping["0"], "id"))
- joined_str = string_join(joined_str, "',False)\n")
- joined_str = string_join(joined_str, "\tdict_overwrite(attributes['decision_consumes'],'")
- joined_str = string_join(joined_str, read_attribute(model, mapping["0"], "id"))
- joined_str = string_join(joined_str, "','')\n")
- return string_join(onEntryScript, joined_str)!
- elif bool_or(type == "PM/Fork", type == "PM/Finish"):
- joined_str = string_join("\tdict_overwrite(attributes['token'],'", read_attribute(model, mapping["0"], "id"))
- joined_str = string_join(joined_str, "', False)\n")
- return string_join(onEntryScript, joined_str)!
- elif (type == "PM/Exec"):
- joined_str = string_join("\tdict_overwrite(attributes['token'],'", read_attribute(model, mapping["0"], "id"))
- joined_str = string_join(joined_str, "', False)\n")
- joined_str = string_join(joined_str, "\tdict_overwrite(attributes['data'],'")
- joined_str = string_join(joined_str, read_attribute(model, mapping["0"], "name"))
- joined_str = string_join(joined_str, "',dict_create())\n")
- joined_str = string_join(joined_str, "\tdict_overwrite(attributes['data']['")
- joined_str = string_join(joined_str, read_attribute(model, mapping["0"], "name"))
- joined_str = string_join(joined_str, "'],'consumes', list_create())\n")
- joined_str = string_join(joined_str, "\tdict_overwrite(attributes['data']['")
- joined_str = string_join(joined_str, read_attribute(model, mapping["0"], "name"))
- joined_str = string_join(joined_str, "'],'produces', list_create())\n")
- return string_join(onEntryScript, joined_str)!
- elif (type == "PM/Join"):
- incoming_assns = allIncomingAssociationInstances(model, mapping["0"], "PM/Next")
- while (read_nr_out(incoming_assns) > 0):
- edge = set_pop(incoming_assns)
- activity = readAssociationSource(model, edge)
- joined_str = string_join("\tdict_overwrite(attributes['finish'],'", read_attribute(model, activity, "id"))
- joined_str = string_join(joined_str, "', False)\n")
- return string_join(onEntryScript, joined_str)!
- $
- }
- }
- }
- {Contains} Atomic compile_init_script {
- LHS {
- Pre_SCCD/BasicState pre_init_0 {
- label = "0"
- constraint_name = $
- Boolean function constraint(value : String):
- return (value == "Init")!
- $
- }
- constraint = $
- Boolean function constraint (model : Element, mapping : Element):
- Element children
- String parent
- Element class_beh
- String class
- children = allIncomingAssociationInstances(model, mapping["0"], "SCCD/composite_children")
- if list_len(children) >0:
- parent = readAssociationSource(model, set_pop(children))
- class_beh = allIncomingAssociationInstances(model, parent, "SCCD/behaviour")
- if list_len(class_beh) >0:
- class = readAssociationSource(model, set_pop(class_beh))
- if (value_eq(read_attribute(model, class, "name"), "Orchestrator")):
- return True!
- else:
- return False!
- else:
- return False!
- else:
- return False!
- $
- }
- RHS {
- Post_SCCD/BasicState post_init_0{
- label = "0"
- value_onEntryScript = $
- Element function value(model : Element, name : String, mapping : Element):
- String code
- Element result
- String script
- script = read_attribute(model, mapping["0"], "onEntryScript")
- code = "include \"primitives.alh\"\n"
- code = string_join(code, "Void function onEntryScript (attributes : Element):\n")
- code = string_join(code, "\tElement entry\n")
- code = string_join(code, script)
- code = string_join(code, "\treturn!")
- result = compile_code(code)
- if element_eq(result, read_root()):
- log("ERROR INIT ONENTRY SCRIPT")
- log(code)
- return read_root()!
- else:
- return result!
- $
- }
- }
- }
- {Contains} ForAll map_exec {
- LHS {
- Pre_PM/Activity pre_exec_0 {
- label = "0"
- }
- Pre_PM/Exec pre_exec_1 {
- label = "1"
- }
- Pre_PM/Next pre_next_2 (pre_exec_1, pre_exec_0) {
- label = "2"
- }
- Pre_SCCD/ParallelState pre_ps_3 {
- label = "3"
- constraint_name = $
- Boolean function constraint(value : String):
- return (value == "Running")!
- $
- }
- constraint = $
- Boolean function constraint (model : Element, mapping : Element):
- Element children
- String parent
- Element class_beh
- String class
- children = allIncomingAssociationInstances(model, mapping["3"], "SCCD/composite_children")
- if list_len(children) >0:
- parent = readAssociationSource(model, set_pop(children))
- class_beh = allIncomingAssociationInstances(model, parent, "SCCD/behaviour")
- if list_len(class_beh) >0:
- class = readAssociationSource(model, set_pop(class_beh))
- if (value_eq(read_attribute(model, class, "name"), "Orchestrator")):
- return True!
- else:
- return False!
- else:
- return False!
- else:
- return False!
- $
- }
- RHS {
- Post_PM/Activity post_exec_0 {
- label = "0"
- }
- Post_PM/Exec post_exec_1 {
- label = "1"
- }
- Post_PM/Next post_flow_2 (post_exec_1, post_exec_0) {
- label = "2"
- }
- Post_SCCD/ParallelState post_ps_3 {
- label = "3"
- }
- Post_SCCD/CompositeState post_cs_4 {
- label = "4"
- value_name = $
- String function value(model : Element, name : String, mapping : Element):
- return name!
- $
- }
- Post_SCCD/parallel_children post_ps_5 (post_ps_3, post_cs_4) {
- label = "5"
- }
- Post_SCCD/BasicState post_bs_6 {
- label = "6"
- value_name = $
- String function value(model : Element, name : String, mapping : Element):
- return string_join(read_attribute(model, mapping["1"], "name"),"Waiting")!
- $
- value_isInitial = $
- Boolean function value(model : Element, name : String, mapping : Element):
- return True!
- $
- }
- Post_SCCD/BasicState post_bs_7 {
- label = "7"
- value_name = $
- String function value(model : Element, name : String, mapping : Element):
- return string_join(read_attribute(model, mapping["1"], "name"),"Running")!
- $
- }
- Post_SCCD/composite_children post_cc_8 (post_cs_4, post_bs_6) {
- label = "8"
- }
- Post_SCCD/composite_children post_cc_9 (post_cs_4, post_bs_7) {
- label = "9"
- }
- Post_SCCD/transition post_trans_10 (post_bs_6, post_bs_7) {
- label = "10"
- value_cond = $
- Element function value(model : Element, name : String, mapping : Element):
- String code
- Element result
- code = "include \"primitives.alh\"\n"
- code = string_join(code, "Boolean function cond(attributes : Element, parameters : Element):\n")
- code = string_join(code, "\treturn value_eq(attributes['token']['")
- code = string_join(code, read_attribute(model, mapping["1"], "id"))
- code = string_join(code, "'], True)!")
- result = compile_code(code)
- if element_eq(result, read_root()):
- return read_root()!
- else:
- return result!
- $
- value_script = $
- Element function value(model : Element, name : String, mapping : Element):
- String code
- Element result
- code = "include \"primitives.alh\"\n"
- code = string_join(code, "Void function script(attributes : Element, parameters : Element):\n")
- code = string_join(code, "\tlist_append(attributes[\"queue\"],'")
- code = string_join(code, read_attribute(model, mapping["1"], "name"))
- code = string_join(code, "')\n\tlog('TRIGGERED EXEC')\n")
- code = string_join(code, "\n\treturn!")
- result = compile_code(code)
- if element_eq(result, read_root()):
- log("ERROR MAP EXEC SCRIPT ")
- return read_root()!
- else:
- return result!
- $
- }
- Post_SCCD/ActualParameter post_rap_25 {
- label = "12"
- value_exp = $
- String function value(model : Element, name : String, mapping : Element):
- return read_attribute(model, mapping["1"], "name")!
- $
- }
- Post_SCCD/transition post_etrans_15 (post_bs_7, post_bs_6) {
- label = "15"
- value_event = $
- String function value(model : Element, name : String, mapping : Element):
- return "terminated"!
- $
- value_cond = $
- Element function value(model : Element, name : String, mapping : Element):
- String code
- Element result
- code = "include \"primitives.alh\"\n"
- code = string_join(code, "Boolean function cond(attributes : Element, parameters : Element):\n")
- code = string_join(code, "\tBoolean guard\n")
- code = string_join(code, "\tguard = value_eq('")
- code = string_join(code, read_attribute(model, mapping["1"], "name"))
- code = string_join(code, "',parameters[0])\n")
- code = string_join(code, "\treturn guard!")
- result = compile_code(code)
- if element_eq(result, read_root()):
- return read_root()!
- else:
- return result!
- $
- value_script = $
- Element function value(model : Element, name : String, mapping : Element):
- String type
- String code
- Element result
- code = "include \"primitives.alh\"\n"
- code = string_join(code, "Void function script(attributes : Element, parameters : Element):\n")
- type = read_type(model, mapping["0"])
- if (type == "PM/Join"):
- code = string_join(code, "\tdict_overwrite(attributes['token'],'")
- code = string_join(code, read_attribute(model, mapping["1"], "id"))
- code = string_join(code, "', False)\n")
- code = string_join(code, "\tdict_overwrite(attributes['finish'],'")
- code = string_join(code, read_attribute(model, mapping["1"], "id"))
- code = string_join(code, "',True)")
- else:
- code = string_join(code, "\tdict_overwrite(attributes['token'],'")
- code = string_join(code, read_attribute(model, mapping["1"], "id"))
- code = string_join(code, "', False)\n")
- code = string_join(code, "\tdict_overwrite(attributes['token'],'")
- code = string_join(code, read_attribute(model, mapping["0"], "id"))
- code = string_join(code, "', True)")
- code = string_join(code, "\n\treturn!")
- result = compile_code(code)
- if element_eq(result, read_root()):
- log("ERROR ANOTHER MAP EXEC SCRIPT")
- return read_root()!
- else:
- return result!
- $
- }
- Post_SCCD/FormalParameter post_efp_16 {
- label = "16"
- value_name = $
- String function value(model : Element, name : String, mapping : Element):
- return "exec_name"!
- $
- }
- Post_SCCD/transition_parameters (post_etrans_15, post_efp_16) {
- label = "17"
- value_order = $
- Integer function value(model : Element, name : String, mapping : Element):
- return 0!
- $
- }
- Post_SCCD/transition post_trans_data (post_bs_7, post_bs_7){
- label = "19"
- value_event = $
- String function value(model : Element , name:String , mapping: Element):
- return "load_data"!
- $
- value_cond = $
- Element function value(model:Element, name:String, mapping:Element):
- Element result
- String code
- code = "include \"primitives.alh\"\n"
- code = string_join(code,"Boolean function cond(attributes:Element, parameters:Element):\n")
- code = string_join(code, "\treturn value_eq(parameters[0],'")
- code = string_join(code, read_attribute(model, mapping["1"], "name"))
- code = string_join(code, "')!")
- result = compile_code(code)
- if element_eq(result, read_root()):
- return read_root()!
- else:
- return result!
- $
- }
- Post_SCCD/Raise post_raise_data{
- label = "20"
- value_event = $
- String function value(model:Element, name:String, mapping:Element):
- return "set_data"!
- $
- value_scope = $
- String function value(model:Element, name:String, mapping:Element):
- return "narrow"!
- $
- value_target = $
- String function value(model : Element, name : String, mapping : Element):
- String code
- Element result
- code = "include \"primitives.alh\"\n"
- code = string_join(code, "String function target(attributes : Element):\n")
- code = string_join(code, "\treturn attributes['assn_names']['")
- code = string_join(code, read_attribute(model, mapping["1"], "name"))
- code = string_join(code, "']!")
- result = compile_code(code)
- if element_eq(result, read_root()):
- return read_root()!
- else:
- return result!
- $
- value_parameter = $
- Element function raise(model : Element, name : String, mapping : Element):
- String code
- Element result
- code = "include \"primitives.alh\"\n"
- code = string_join(code, "Element function script(attributes : Element, parameters : Element):\n")
- code = string_join(code, "\tElement param\n")
- code = string_join(code, "\tparam = list_create()\n")
- code = string_join(code, "\tlist_append(param,")
- code = string_join(code, "attributes['data']['")
- code = string_join(code, read_attribute(model, mapping["1"], "name"))
- code = string_join(code, "']['consumes'])\n")
- code = string_join(code, "\tlist_append(param,")
- code = string_join(code, "attributes['data']['")
- code = string_join(code, read_attribute(model, mapping["1"], "name"))
- code = string_join(code, "']['produces'])\n")
- code = string_join(code, "\treturn param!")
- result = compile_code(code)
- if element_eq(result, read_root()):
- return read_root()!
- else:
- return result!
- $
- }
- Post_SCCD/transition_raises (post_trans_data, post_raise_data){
- label = "21"
- }
- Post_Activity2State_link (post_exec_1, post_cs_4){
- label = "18"
- }
- }
- }
- {Contains} ForAll data_produces {
- LHS {
- Pre_PM/Exec pre_exec_data_0 {
- label = "0"
- }
- Pre_PM/Data pre_data_1 {
- label = "1"
- }
- Pre_PM/Produces pre_pro_2 (pre_exec_data_0, pre_data_1) {
- label = "2"
- }
- Pre_SCCD/BasicState pre_co_3 {
- label = "3"
- constraint_name = $
- Boolean function constraint(value : String):
- return (value == "Init")!
- $
- }
- constraint = $
- Boolean function constraint (model : Element, mapping : Element):
- Element children
- String parent
- Element class_beh
- String class
- children = allIncomingAssociationInstances(model, mapping["3"], "SCCD/composite_children")
- if list_len(children) >0:
- parent = readAssociationSource(model, set_pop(children))
- class_beh = allIncomingAssociationInstances(model, parent, "SCCD/behaviour")
- if list_len(class_beh) >0:
- class = readAssociationSource(model, set_pop(class_beh))
- if (value_eq(read_attribute(model, class, "name"), "Orchestrator")):
- return True!
- else:
- return False!
- else:
- return False!
- else:
- return False!
- $
- }
- RHS {
- Post_PM/Exec post_exec_data_0 {
- label = "0"
- }
- Post_PM/Data post_data_1 {
- label = "1"
- }
- Post_PM/Produces post_pro_2 (post_exec_data_0, post_data_1) {
- label = "2"
- }
- Post_SCCD/BasicState post_co_3 {
- label = "3"
- value_onEntryScript = $
- String function value(model : Element, name : String, mapping : Element):
- String script
- script = read_attribute(model, mapping["3"], "onEntryScript")
- if value_eq(has_value(script),False):
- script = ""
- script = string_join(script, "\tentry= dict_create()\n")
- script = string_join(script, "\tdict_overwrite(entry,'tag','")
- script = string_join(script, read_attribute(model, mapping["2"], "tag"))
- script = string_join(script, "')\n")
- script = string_join(script, "\tdict_overwrite(entry,'model','")
- script = string_join(script, read_attribute(model, mapping["1"], "name"))
- script = string_join(script, "')\n")
- script = string_join(script, "\tdict_overwrite(entry,'metamodel','")
- script = string_join(script, read_attribute(model, mapping["1"], "type"))
- script = string_join(script, "')\n")
- script = string_join(script, "\tlist_append(attributes['data']['")
- script = string_join(script, read_attribute(model, mapping["0"], "name"))
- script = string_join(script, "']['produces'], entry)\n")
- return script!
- $
- }
- }
- }
- {Contains} ForAll data_consumes {
- LHS {
- Pre_PM/Exec pre_exec_consumes_0 {
- label = "0"
- }
- Pre_PM/Data pre_data_consumes_1 {
- label = "1"
- }
- Pre_PM/Consumes pre_con_2 (pre_exec_consumes_0, pre_data_consumes_1) {
- label = "2"
- }
- Pre_SCCD/BasicState pre_con_3 {
- label = "3"
- constraint_name = $
- Boolean function constraint(value : String):
- return (value == "Init")!
- $
- }
- constraint = $
- Boolean function constraint (model : Element, mapping : Element):
- Element children
- String parent
- Element class_beh
- String class
- children = allIncomingAssociationInstances(model, mapping["3"], "SCCD/composite_children")
- if list_len(children) >0:
- parent = readAssociationSource(model, set_pop(children))
- class_beh = allIncomingAssociationInstances(model, parent, "SCCD/behaviour")
- if list_len(class_beh) >0:
- class = readAssociationSource(model, set_pop(class_beh))
- if (value_eq(read_attribute(model, class, "name"), "Orchestrator")):
- return True!
- else:
- return False!
- else:
- return False!
- else:
- return False!
- $
- }
- RHS {
- Post_PM/Exec post_exec_consumes_0 {
- label = "0"
- }
- Post_PM/Data post_data_consumes_1 {
- label = "1"
- }
- Post_PM/Consumes post_con_2 (post_exec_consumes_0, post_data_consumes_1) {
- label = "2"
- }
- Post_SCCD/BasicState post_ccs_3 {
- label = "3"
- value_onEntryScript = $
- String function value(model : Element, name : String, mapping : Element):
- String script
- script = read_attribute(model, mapping["3"], "onEntryScript")
- if value_eq(has_value(script),False):
- script = ""
- script = string_join(script, "\tentry= dict_create()\n")
- script = string_join(script, "\tdict_overwrite(entry,'tag','")
- script = string_join(script, read_attribute(model, mapping["2"], "tag"))
- script = string_join(script, "')\n")
- script = string_join(script, "\tdict_overwrite(entry,'model','")
- script = string_join(script, read_attribute(model, mapping["1"], "name"))
- script = string_join(script, "')\n")
- script = string_join(script, "\tdict_overwrite(entry,'metamodel','")
- script = string_join(script, read_attribute(model, mapping["1"], "type"))
- script = string_join(script, "')\n")
- script = string_join(script, "\tlist_append(attributes['data']['")
- script = string_join(script, read_attribute(model, mapping["0"], "name"))
- script = string_join(script, "']['consumes'], entry)\n")
- return script!
- $
- }
- }
- }
- {Contains} ForAll map_decision {
- LHS {
- Pre_PM/Decision pre_1 {
- label = "1"
- }
- Pre_PM/Data pre_3 {
- label = "3"
- }
- Pre_PM/DecisionConsumes (pre_1, pre_3) {
- label = "4"
- }
- Pre_SCCD/ParallelState pre_5 {
- label = "5"
- constraint_name = $
- Boolean function constraint(value : String):
- return (value == "Running")!
- $
- }
- constraint = $
- Boolean function constraint (model : Element, mapping : Element):
- Element children
- String parent
- Element class_beh
- String class
- children = allIncomingAssociationInstances(model, mapping["5"], "SCCD/composite_children")
- if list_len(children) >0:
- parent = readAssociationSource(model, set_pop(children))
- class_beh = allIncomingAssociationInstances(model, parent, "SCCD/behaviour")
- if list_len(class_beh) >0:
- class = readAssociationSource(model, set_pop(class_beh))
- if (value_eq(read_attribute(model, class, "name"), "Orchestrator")):
- return True!
- else:
- return False!
- else:
- return False!
- else:
- return False!
- $
- }
- RHS {
- Post_PM/Decision post_1 {
- label = "1"
- }
- Post_PM/Data post_3 {
- label = "3"
- }
- Post_PM/DecisionConsumes (post_1, post_3) {
- label = "4"
- }
- Post_SCCD/ParallelState post_5 {
- label = "5"
- }
- Post_SCCD/CompositeState post_6 {
- label = "6"
- value_name = $
- String function value(model : Element, name : String, mapping : Element):
- return name!
- $
- }
- Post_SCCD/parallel_children (post_5, post_6) {
- label = "7"
- }
- Post_SCCD/BasicState post_8 {
- label = "8"
- value_name = $
- String function value(model : Element, name : String, mapping : Element):
- return string_join(read_attribute(model, mapping["1"], "id"),"Waiting")!
- $
- value_isInitial = $
- Boolean function value(model : Element, name : String, mapping : Element):
- return True!
- $
- }
- Post_SCCD/composite_children (post_6, post_8) {
- label = "9"
- }
- Post_SCCD/transition post_10(post_8, post_8) {
- label = "10"
- value_name = $
- String function value(model : Element, name : String, mapping : Element):
- return name!
- $
- value_cond = $
- Element function value(model : Element, name : String, mapping : Element):
- String type
- String code
- Element result
- code = "include \"primitives.alh\"\n"
- code = string_join(code, "Boolean function cond(attributes : Element, parameters : Element):\n")
- code = string_join(code, "\treturn value_eq(attributes['token']['")
- code = string_join(code, read_attribute(model, mapping["1"], "id"))
- code = string_join(code, "'], True)!")
- result = compile_code(code)
- if element_eq(result, read_root()):
- return read_root()!
- else:
- return result!
- $
- value_script = $
- String function value(model : Element, name : String, mapping : Element):
- Element outgoing_assns
- String type
- String edge
- String activity
- String code
- Element result
- code = "include \"primitives.alh\"\n"
- code = string_join(code, "include \"object_operations.alh\"\n")
- code = string_join(code, "include \"core_algorithm.alh\"\n")
- code = string_join(code, "include \"modelling.alh\"\n")
- code = string_join(code, "include \"transform.alh\"\n")
- code = string_join(code, "Void function cond(attributes : Element, parameters : Element):\n")
- code = string_join(code, "\tElement object\n")
- code = string_join(code, "\tElement result\n")
- code = string_join(code, "\tElement model\n")
- code = string_join(code, "\tmodel = get_model('")
- code = string_join(code, read_attribute(model, mapping["3"],"name"))
- code = string_join(code, "','")
- code = string_join(code, read_attribute(model, mapping["3"],"type"))
- code = string_join(code, "')\n\tobject = '")
- code = string_join(code, read_attribute(model, mapping["4"],"type"))
- code = string_join(code, "'\n\tif set_len(allInstances(model, object))>0:\n")
- code = string_join(code, "\t\tresult = read_attribute(model, set_pop(allInstances(model, object)),'")
- code = string_join(code, read_attribute(model, mapping["4"],"attribute"))
- code = string_join(code, "')\n\telse:\n\t\tresult=read_root()\n")
- code = string_join(code, "\tdict_overwrite(attributes['decision_consumes'],'")
- code = string_join(code, read_attribute(model, mapping["1"], "id"))
- code = string_join(code, "',result)\n")
- code = string_join(code, "\tlog('DECISION TRIGGERED')\n")
- code = string_join(code, "\tdict_overwrite(attributes['token'],'")
- code = string_join(code, read_attribute(model, mapping["1"], "id"))
- code = string_join(code, "', False)\n")
- outgoing_assns = allOutgoingAssociationInstances(model, mapping["1"], "PM/Next")
- while (read_nr_out(outgoing_assns) > 0):
- edge = set_pop(outgoing_assns)
- activity = readAssociationDestination(model, edge)
- code = string_join(code, "\tif value_eq(attributes['decision_consumes']['")
- code = string_join(code, read_attribute(model, mapping["1"], "id"))
- code = string_join(code, "'],")
- code = string_join(code,read_attribute(model, edge, "value"))
- code = string_join(code, "):\n")
- type = read_type(model, activity)
- if (type == "PM/Join"):
- code = string_join(code, "\t\tdict_overwrite(attributes['finish'],'")
- code = string_join(code,read_attribute(model, mapping["1"], "id"))
- code = string_join(code, "', True)\n")
- else:
- code = string_join(code, "\t\tdict_overwrite(attributes['token'],'")
- code = string_join(code,read_attribute(model, activity, "id"))
- code = string_join(code, "', True)\n")
- code = string_join(code, "\n\treturn!")
- result = compile_code(code)
- if element_eq(result, read_root()):
- log("ERROR IN DECISION SCRIPT")
- log(code)
- return read_root()!
- else:
- return result!
- $
- }
- Post_Activity2State_link (post_1, post_6){
- label = "11"
- }
- }
- }
- {Contains} ForAll map_fork {
- LHS {
- Pre_PM/Fork pre_f_1 {
- label = "1"
- }
- Pre_SCCD/ParallelState pre_f_3 {
- label = "3"
- constraint_name = $
- Boolean function constraint(value : String):
- return (value == "Running")!
- $
- }
- constraint = $
- Boolean function constraint (model : Element, mapping : Element):
- Element children
- String parent
- Element class_beh
- String class
- children = allIncomingAssociationInstances(model, mapping["3"], "SCCD/composite_children")
- if list_len(children) >0:
- parent = readAssociationSource(model, set_pop(children))
- class_beh = allIncomingAssociationInstances(model, parent, "SCCD/behaviour")
- if list_len(class_beh) >0:
- class = readAssociationSource(model, set_pop(class_beh))
- if (value_eq(read_attribute(model, class, "name"), "Orchestrator")):
- return True!
- else:
- return False!
- else:
- return False!
- else:
- return False!
- $
- }
- RHS {
- Post_PM/Fork post_f_1 {
- label = "1"
- }
- Post_SCCD/ParallelState post_f_3 {
- label = "3"
- }
- Post_SCCD/CompositeState post_f_6 {
- label = "6"
- value_name = $
- String function value(model : Element, name : String, mapping : Element):
- return name!
- $
- }
- Post_SCCD/parallel_children (post_f_3, post_f_6) {
- label = "7"
- }
- Post_SCCD/BasicState post_f_8 {
- label = "8"
- value_name = $
- String function value(model : Element, name : String, mapping : Element):
- return string_join(read_attribute(model, mapping["1"], "id"),"Waiting")!
- $
- value_isInitial = $
- Boolean function value(model : Element, name : String, mapping : Element):
- return True!
- $
- }
- Post_SCCD/composite_children (post_f_6, post_f_8) {
- label = "10"
- }
- Post_SCCD/transition post_f_12(post_f_8, post_f_8) {
- label = "12"
- value_name = $
- String function value(model : Element, name : String, mapping : Element):
- return name!
- $
- value_cond = $
- Element function value(model : Element, name : String, mapping : Element):
- String code
- Element result
- code = "include \"primitives.alh\"\n"
- code = string_join(code, "Boolean function cond(attributes : Element, parameters : Element):\n")
- code = string_join(code, "\treturn value_eq(attributes['token']['")
- code = string_join(code, read_attribute(model, mapping["1"], "id"))
- code = string_join(code, "'], True)!")
- result = compile_code(code)
- if element_eq(result, read_root()):
- return read_root()!
- else:
- return result!
- $
- value_script = $
- Element function value(model : Element, name : String, mapping : Element):
- Element outgoing_assns
- String type
- String edge
- String activity
- String code
- Element result
- code = "include \"primitives.alh\"\n"
- code = string_join(code, "Void function script(attributes : Element, parameters : Element):\n")
- code = string_join(code, "\tdict_overwrite(attributes['token'],'")
- code = string_join(code, read_attribute(model, mapping["1"], "id"))
- code = string_join(code, "', False)\n")
- outgoing_assns = allOutgoingAssociationInstances(model, mapping["1"], "PM/Next")
- while (read_nr_out(outgoing_assns) > 0):
- edge = set_pop(outgoing_assns)
- activity = readAssociationDestination(model, edge)
- type = read_type(model, activity)
- if (type == "PM/Join"):
- code = string_join(code, "\tdict_overwrite(attributes['finish'],'")
- code = string_join(code,read_attribute(model, mapping["1"], "id"))
- code = string_join(code, "', True)\n")
- else:
- code = string_join(code, "\tdict_overwrite(attributes['token'],'")
- code = string_join(code,read_attribute(model, activity, "id"))
- code = string_join(code, "', True)\n")
- code = string_join(code, "\n\treturn!")
- result = compile_code(code)
- if element_eq(result, read_root()):
- return read_root()!
- else:
- return result!
- $
- }
- Post_Activity2State_link (post_f_1, post_f_6){
- label = "14"
- }
- }
- }
- {Contains} ForAll map_join {
- LHS {
- Pre_PM/Activity pre_j_20 {
- label = "20"
- }
- Pre_PM/Join pre_j_0 {
- label = "0"
- }
- Pre_PM/Next (pre_j_0, pre_j_20) {
- label = "30"
- }
- Pre_SCCD/ParallelState pre_j_1 {
- label = "1"
- constraint_name = $
- Boolean function constraint(value : String):
- return (value == "Running")!
- $
- }
- constraint = $
- Boolean function constraint (model : Element, mapping : Element):
- Element children
- String parent
- Element class_beh
- String class
- children = allIncomingAssociationInstances(model, mapping["1"], "SCCD/composite_children")
- if list_len(children) >0:
- parent = readAssociationSource(model, set_pop(children))
- class_beh = allIncomingAssociationInstances(model, parent, "SCCD/behaviour")
- if list_len(class_beh) >0:
- class = readAssociationSource(model, set_pop(class_beh))
- if (value_eq(read_attribute(model, class, "name"), "Orchestrator")):
- return True!
- else:
- return False!
- else:
- return False!
- else:
- return False!
- $
- }
- RHS {
- Post_PM/Activity post_j_20 {
- label = "20"
- }
- Post_PM/Join post_j_0 {
- label = "0"
- }
- Post_PM/Next (post_j_0 , post_j_20){
- label = "30"
- }
- Post_SCCD/ParallelState post_j_1 {
- label = "1"
- }
- Post_SCCD/CompositeState post_j_6 {
- label = "6"
- value_name = $
- String function value(model : Element, name : String, mapping : Element):
- return name!
- $
- }
- Post_SCCD/parallel_children (post_j_1, post_j_6) {
- label = "7"
- }
- Post_SCCD/BasicState post_j_8 {
- label = "8"
- value_name = $
- String function value(model : Element, name : String, mapping : Element):
- return string_join(read_attribute(model, mapping["0"], "id"),"Waiting")!
- $
- value_isInitial = $
- Boolean function value(model : Element, name : String, mapping : Element):
- return True!
- $
- }
- Post_SCCD/composite_children (post_j_6, post_j_8) {
- label = "9"
- }
- Post_SCCD/transition post_j_10(post_j_8, post_j_8) {
- label = "10"
- value_name = $
- String function value(model : Element, name : String, mapping : Element):
- return name!
- $
- value_cond = $
- Element function value(model : Element, name : String, mapping : Element):
- String joined_str
- Element incoming_assns
- String edge
- String type
- String activity
- Element pairs
- String code
- Element result
- String last_operand
- code = "include \"primitives.alh\"\n"
- code = string_join(code, "Boolean function cond(attributes : Element, parameters : Element):\n")
- last_operand = ""
- pairs = list_create()
- incoming_assns = allIncomingAssociationInstances(model, mapping["0"], "PM/Next")
- while (list_len(incoming_assns) > 0):
- if list_len(incoming_assns)>1:
- edge = set_pop(incoming_assns)
- activity = readAssociationSource(model, edge)
- joined_str = string_join("bool_and(value_eq(attributes['finish']['", read_attribute(model, activity, "id"))
- joined_str = string_join(joined_str, "'],True), value_eq(attributes['finish']['")
- edge = set_pop(incoming_assns)
- activity = readAssociationSource(model, edge)
- joined_str = string_join(joined_str,read_attribute(model, activity, "id"))
- joined_str = string_join(joined_str, "'],True))")
- list_append(pairs, joined_str)
- else:
- edge = set_pop(incoming_assns)
- activity = readAssociationSource(model, edge)
- joined_str = string_join("value_eq(attributes['finish']['",read_attribute(model, activity, "id"))
- joined_str = string_join(joined_str, "'],True)")
- last_operand = joined_str
- joined_str = ""
- if list_len(pairs)>1:
- Integer i
- i = 0
- while (i < list_len(pairs)):
- if joined_str == "":
- joined_str = string_join("bool_and(", list_read(pairs, i))
- i = i + 1
- joined_str = string_join(joined_str," , ")
- joined_str = string_join(joined_str, list_read(pairs, i))
- i = i + 1
- joined_str = string_join(joined_str, ")")
- else:
- joined_str = string_join("bool_and(", joined_str)
- joined_str = string_join(joined_str, ",")
- joined_str = string_join(joined_str, list_read(pairs, i))
- i = i + 1
- joined_str = string_join(joined_str, ")")
- if last_operand != "":
- joined_str = string_join("bool_and(", joined_str)
- joined_str = string_join(joined_str, ",")
- joined_str = string_join(joined_str, last_operand)
- joined_str = string_join(joined_str, ")")
- elif bool_and(last_operand != "", list_len(pairs) == 1):
- joined_str = string_join("bool_and(", list_read(pairs, 0))
- joined_str = string_join(joined_str, ",")
- joined_str = string_join(joined_str, last_operand)
- joined_str = string_join(joined_str, ")")
- elif list_len(pairs) == 1:
- joined_str = list_read(pairs, 0)
- code = string_join(code, "\treturn ")
- code = string_join(code, joined_str)
- code = string_join(code, "!")
- result = compile_code(code)
- if element_eq(result, read_root()):
- log("JOIN CONDITION ERROR")
- log(code)
- return read_root()!
- else:
- return result!
- $
- value_script = $
- Element function value(model : Element, name : String, mapping : Element):
- Element incoming_assns
- String edge
- String type
- String activity
- String code
- Element result
- code = "include \"primitives.alh\"\n"
- code = string_join(code, "Void function script(attributes : Element, parameters : Element):\n")
- incoming_assns = allIncomingAssociationInstances(model, mapping["0"], "PM/Next")
- code = string_join(code, "\tdict_overwrite(attributes['token'],'")
- code = string_join(code, read_attribute(model, mapping["20"], "id"))
- code = string_join(code, "',True)\n")
- while (read_nr_out(incoming_assns) > 0):
- edge = set_pop(incoming_assns)
- activity = readAssociationSource(model, edge)
- code = string_join(code, "\tdict_overwrite(attributes['finish'],'")
- code = string_join(code, read_attribute(model, activity, "id"))
- code = string_join(code, "',False)\n")
- code = string_join(code, "\n\treturn!")
- result = compile_code(code)
- if element_eq(result, read_root()):
- return read_root()!
- else:
- return result!
- $
- }
-
- Post_Activity2State_link (post_j_0, post_j_6){
- label = "14"
- }
- }
- }
- {Contains} ForAll map_finish {
- LHS {
- Pre_PM/Finish pre_e_1 {
- label = "1"
- }
- Pre_SCCD/ParallelState pre_e_2 {
- label = "2"
- constraint_name = $
- Boolean function constraint(value : String):
- return (value == "Running")!
- $
- }
- constraint = $
- Boolean function constraint (model : Element, mapping : Element):
- Element children
- String parent
- Element class_beh
- String class
- children = allIncomingAssociationInstances(model, mapping["2"], "SCCD/composite_children")
- if list_len(children) >0:
- parent = readAssociationSource(model, set_pop(children))
- class_beh = allIncomingAssociationInstances(model, parent, "SCCD/behaviour")
- if list_len(class_beh) >0:
- class = readAssociationSource(model, set_pop(class_beh))
- if (value_eq(read_attribute(model, class, "name"), "Orchestrator")):
- return True!
- else:
- return False!
- else:
- return False!
- else:
- return False!
- $
- }
- RHS {
- Post_PM/Finish post_e_1 {
- label = "1"
- }
- Post_SCCD/ParallelState post_e_2 {
- label = "2"
- }
- Post_SCCD/CompositeState post_e_3 {
- label = "3"
- value_name = $
- String function value(model : Element, name : String, mapping : Element):
- return name!
- $
- }
- Post_SCCD/parallel_children (post_e_2, post_e_3) {
- label = "4"
- }
- Post_SCCD/BasicState post_e_5 {
- label = "5"
- value_name = $
- String function value(model : Element, name : String, mapping : Element):
- return string_join(read_attribute(model, mapping["1"], "id"),"Waiting")!
- $
- value_isInitial = $
- Boolean function value(model : Element, name : String, mapping : Element):
- return True!
- $
- }
- Post_SCCD/BasicState post_e_50 {
- label = "50"
- value_name = $
- String function value(model : Element, name : String, mapping : Element):
- return string_join(read_attribute(model, mapping["1"], "id"),"Finish")!
- $
- }
- Post_SCCD/composite_children (post_e_3, post_e_5) {
- label = "6"
- }
- Post_SCCD/composite_children (post_e_3, post_e_50) {
- label = "61"
- }
- Post_SCCD/transition post_e_7(post_e_5, post_e_50) {
- label = "7"
- value_name = $
- String function value(model : Element, name : String, mapping : Element):
- return name!
- $
- value_cond = $
- Element function value(model : Element, name : String, mapping : Element):
- String type
- String code
- Element result
- code = "include \"primitives.alh\"\n"
- code = string_join(code, "Boolean function cond(attributes : Element, parameters : Element):\n")
- code = string_join(code, "\treturn value_eq(attributes['token']['")
- code = string_join(code, read_attribute(model, mapping["1"], "id"))
- code = string_join(code, "'], True)!")
- result = compile_code(code)
- if element_eq(result, read_root()):
- return read_root()!
- else:
- return result!
- $
- value_script = $
- Element function value(model : Element, name : String, mapping : Element):
- String code
- Element result
- code = "include \"primitives.alh\"\n"
- code = string_join(code, "Void function script(attributes : Element, parameters : Element):\n")
- code = string_join(code,"\tdict_overwrite(attributes['token'],'")
- code = string_join(code, read_attribute(model, mapping["1"], "id"))
- code = string_join(code, "',False) \n")
- code = string_join(code, "\n\treturn!")
- result = compile_code(code)
- if element_eq(result, read_root()):
- return read_root()!
- else:
- return result!
- $
- }
- Post_SCCD/Raise post_e_8 {
- label = "8"
- value_event = $
- String function value(model : Element, name : String, mapping : Element):
- return "process_done"!
- $
- }
- Post_SCCD/transition_raises (post_e_7, post_e_8) {
- label = "9"
- }
- Post_Activity2State_link (post_e_1, post_e_3){
- label = "10"
- }
- }
- }
- {Contains} Atomic map_start {
- LHS {
- Pre_PM/Activity pre_s_0 {
- label = "0"
- }
- Pre_PM/Start pre_s_1 {
- label = "1"
- }
- Pre_PM/Next (pre_s_1, pre_s_0){
- label = "8"
- }
- Pre_SCCD/ParallelState pre_s_2 {
- label = "2"
- constraint_name = $
- Boolean function constraint(value : String):
- return (value == "Running")!
- $
- }
- constraint = $
- Boolean function constraint (model : Element, mapping : Element):
- Element children
- String parent
- Element class_beh
- String class
- children = allIncomingAssociationInstances(model, mapping["2"], "SCCD/composite_children")
- if list_len(children) >0:
- parent = readAssociationSource(model, set_pop(children))
- class_beh = allIncomingAssociationInstances(model, parent, "SCCD/behaviour")
- if list_len(class_beh) >0:
- class = readAssociationSource(model, set_pop(class_beh))
- if (value_eq(read_attribute(model, class, "name"), "Orchestrator")):
- return True!
- else:
- return False!
- else:
- return False!
- else:
- return False!
- $
- }
- RHS {
- Post_PM/Activity post_s_0 {
- label = "0"
- }
- Post_PM/Start post_s_1 {
- label = "1"
- }
- Post_SCCD/ParallelState post_s_2 {
- label = "2"
- }
- Post_PM/Next (post_s_1, post_s_0){
- label="8"
- }
- Post_SCCD/CompositeState post_s_3 {
- label = "3"
- value_name = $
- String function value(model : Element, name : String, mapping : Element):
- return name!
- $
- }
- Post_SCCD/parallel_children (post_s_2, post_s_3) {
- label = "4"
- }
- Post_SCCD/BasicState post_s_5 {
- label = "5"
- value_name = $
- String function value(model : Element, name : String, mapping : Element):
- return string_join(read_attribute(model, mapping["1"], "id"),"Waiting")!
- $
- value_isInitial = $
- Boolean function value(model : Element, name : String, mapping : Element):
- return True!
- $
- }
- Post_SCCD/BasicState post_s_50 {
- label = "50"
- value_name = $
- String function value(model : Element, name : String, mapping : Element):
- return string_join(read_attribute(model, mapping["1"], "id"),"Finish")!
- $
- }
- Post_SCCD/composite_children (post_s_3, post_s_5) {
- label = "6"
- }
- Post_SCCD/composite_children (post_s_3, post_s_50) {
- label = "61"
- }
- Post_SCCD/transition post_s_7(post_s_5, post_s_50) {
- label = "7"
- value_name = $
- String function value(model : Element, name : String, mapping : Element):
- return name!
- $
- value_cond = $
- Element function value(model : Element, name : String, mapping : Element):
- String type
- String code
- Element result
- code = "include \"primitives.alh\"\n"
- code = string_join(code, "Boolean function cond(attributes : Element, parameters : Element):\n")
- code = string_join(code, "\treturn value_eq(attributes['token']['")
- code = string_join(code, read_attribute(model, mapping["1"], "id"))
- code = string_join(code, "'], True)!")
- result = compile_code(code)
- if element_eq(result, read_root()):
- return read_root()!
- else:
- return result!
- $
- value_script = $
- Element function value(model : Element, name : String, mapping : Element):
- String code
- Element result
- code = "include \"primitives.alh\"\n"
- code = string_join(code, "Void function script(attributes : Element, parameters : Element):\n")
- code = string_join(code,"\tdict_overwrite(attributes['token'],'")
- code = string_join(code, read_attribute(model, mapping["1"], "id"))
- code = string_join(code, "',False) \n")
- code = string_join(code,"\tdict_overwrite(attributes['token'],'")
- code = string_join(code, read_attribute(model, mapping["0"], "id"))
- code = string_join(code, "',True) \n")
- code = string_join(code, "\n\treturn!")
- result = compile_code(code)
- if element_eq(result, read_root()):
- return read_root()!
- else:
- return result!
- $
- }
- Post_Activity2State_link (post_s_1, post_s_3){
- label = "10"
- }
- }
- }
- }
- Initial (schedule, create_orchestrator) {}
- OnSuccess (create_orchestrator, create_association) {}
- OnSuccess (create_association, ModifyFork2Fork) {}
- OnSuccess (ModifyFork2Fork, ModifyFork2Fork) {}
- OnSuccess (RemoveFork2Fork, RemoveJoin2Join) {}
- OnSuccess (RemoveJoin2Join, initialize) {}
- OnSuccess (initialize, data_produces) {}
- OnSuccess (compile_init_script, map_exec) {}
- OnSuccess (map_exec, map_decision) {}
- OnSuccess (data_produces, data_consumes) {}
- OnSuccess (data_consumes, compile_init_script) {}
- OnSuccess (map_decision, map_fork) {}
- OnSuccess (map_fork, map_join) {}
- OnSuccess (map_join, map_finish) {}
- OnSuccess (map_finish, map_start) {}
- OnSuccess (map_start, success) {}
- OnFailure (create_orchestrator, create_association) {}
- OnFailure (create_association, ModifyFork2Fork) {}
- OnFailure (ModifyFork2Fork, RemoveFork2Fork) {}
- OnFailure (RemoveFork2Fork, RemoveJoin2Join) {}
- OnFailure (RemoveJoin2Join, initialize) {}
- OnFailure (initialize, data_produces) {}
- OnFailure (compile_init_script, map_exec) {}
- OnFailure (map_exec, map_decision) {}
- OnFailure (data_produces, data_consumes) {}
- OnFailure (data_consumes, compile_init_script) {}
- OnFailure (map_decision, map_fork) {}
- OnFailure (map_fork, map_join) {}
- OnFailure (map_join, map_finish) {}
- OnFailure (map_finish, map_start) {}
- OnFailure (map_start, success) {}
|