00001 #ifndef __SDF_PROGRESS_LISTENER__
00002 #define __SDF_PROGRESS_LISTENER__
00003
00004 process SDFStatusToProgress 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>,SDF_NAMESPACE,"status",<term>,<term>)
00013 . MM-Subscribe-Attribute-Changed(<module-id>,SDF_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, SDF_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(SDFStatusToProgress)
00034
00035 #endif
