00001 #ifndef __ASF_PROGRESS_LISTENER__
00002 #define __ASF_PROGRESS_LISTENER__
00003
00004 process ASFStatusToProgress is
00005 let
00006 Event: attribute-changed-event,
00007 ModuleId: module-id,
00008 Value: term
00009 in
00010 MM-Subscribe-Attribute-Changed(<module-id>,ASF_NAMESPACE,"status",<term>,<term>)
00011 .
00012 (
00013 rec-note(mm-attribute-changed(Event?))
00014 . ACE-GetModuleId(Event, ModuleId?)
00015 . ACE-GetNewValue(Event, Value?)
00016 . snd-msg(pro-set-status(ModuleId, ASF_NAMESPACE, Value))
00017 ) * delta
00018 endlet
00019
00020 toolbus(ASFStatusToProgress)
00021
00022 #endif
