The Meta-Environment API
00001 #ifndef __RSCRIPT_PROGRESS_LISTENER__ 00002 #define __RSCRIPT_PROGRESS_LISTENER__ 00003 00004 process RSCRIPTStatusToProgress is 00005 let 00006 Event: attribute-changed-event, 00007 Key: term, 00008 ModuleId: module-id, 00009 Name: str, 00010 Value: term 00011 in 00012 MM-Subscribe-Attribute-Changed(<module-id>,RSCRIPT_NAMESPACE,"status",<term>,<term>) 00013 . MM-Subscribe-Attribute-Changed(<module-id>,RSCRIPT_NAMESPACE,"name",<term>,<term>) 00014 . subscribe(mm-module-deleted(<module-id>)) 00015 . 00016 ( 00017 rec-note(mm-attribute-changed(Event?)) 00018 . ACE-GetModuleId(Event, ModuleId?) 00019 . ACE-GetNewValue(Event, Value?) 00020 . ACE-GetKey(Event, Key?) 00021 . 00022 if equal(Key, "status") then 00023 snd-msg(pro-set-status(ModuleId, RSCRIPT_NAMESPACE, Value)) 00024 else 00025 snd-msg(pro-set-message(ModuleId, Value)) 00026 fi 00027 + 00028 rec-note(mm-module-deleted(ModuleId?)) 00029 . snd-msg(pro-remove-status(ModuleId)) 00030 ) * delta 00031 endlet 00032 00033 toolbus(RSCRIPTStatusToProgress) 00034 00035 #endif /* __RSCRIPT_PROGRESS_LISTENER__ */