GitHub/qpcpp
1
0
Fork 0
mirror of https://github.com/QuantumLeaps/qpcpp.git synced 2025-01-28 06:02:56 +08:00
Code Issues Projects Releases Wiki Activity
qpcpp/examples/workstation/comp/comp.qm
QL db2a7c8de9 6.8.1
2020-04-02 21:21:53 -04:00

346 lines
12 KiB
XML
Raw Blame History

<?xml version="1.0" encoding="UTF-8"?>
<model version="5.0.0" links="1">
<documentation>Dining Philosopher Problem example
NOTE: Requries QP5</documentation>
<!--${qpcpp}-->
<framework name="qpcpp"/>
<!--${Events}-->
<package name="Events" stereotype="0x01">
<!--${Events::SetEvt}-->
<class name="SetEvt" superclass="qpcpp::QEvt">
<!--${Events::SetEvt::digit}-->
<attribute name="digit" type="uint8_t" visibility="0x00" properties="0x00"/>
</class>
<!--${Events::TimeEvt}-->
<class name="TimeEvt" superclass="qpcpp::QEvt">
<!--${Events::TimeEvt::current_time}-->
<attribute name="current_time" type="uint32_t" visibility="0x00" properties="0x00"/>
</class>
</package>
<!--${Components}-->
<package name="Components" stereotype="0x02">
<!--${Components::Alarm}-->
<class name="Alarm" superclass="qpcpp::QHsm">
<documentation>Alarm &quot;Orthogonal Component&quot;</documentation>
<!--${Components::Alarm::m_alarm_time}-->
<attribute name="m_alarm_time" type="uint32_t" visibility="0x02" properties="0x00"/>
<!--${Components::Alarm::Alarm}-->
<operation name="Alarm" type="" visibility="0x00" properties="0x00">
<code> : QHsm(Q_STATE_CAST(&amp;Alarm::initial))</code>
</operation>
<!--${Components::Alarm::SM}-->
<statechart properties="0x02">
<!--${Components::Alarm::SM::initial}-->
<initial target="../1">
<action>m_alarm_time = 12U*60U;
(void)e; // unused parameter</action>
<initial_glyph conn="2,3,5,1,36,4,-4">
<action box="0,-2,6,2"/>
</initial_glyph>
</initial>
<!--${Components::Alarm::SM::off}-->
<state name="off">
<entry>// while in the off state, the alarm is kept in decimal format
m_alarm_time = (m_alarm_time/60)*100 + m_alarm_time%60;
BSP_showTime24H(&quot;*** Alarm OFF &quot;, m_alarm_time, 100U);</entry>
<exit>// upon exit, the alarm is converted to binary format
m_alarm_time = (m_alarm_time/100U)*60U + m_alarm_time%100U;</exit>
<!--${Components::Alarm::SM::off::ALARM_ON}-->
<tran trig="ALARM_ON">
<!--${Components::Alarm::SM::off::ALARM_ON::[alarminrange?]}-->
<choice target="../../../2">
<guard brief="alarm in range?">(m_alarm_time / 100U &lt; 24U)
&amp;&amp; (m_alarm_time % 100U &lt; 60U)</guard>
<choice_glyph conn="16,14,5,1,22,12,-4">
<action box="1,0,13,2"/>
</choice_glyph>
</choice>
<!--${Components::Alarm::SM::off::ALARM_ON::[else]}-->
<choice>
<guard brief="else"/>
<action>m_alarm_time = 0U;
BSP_showTime24H(&quot;*** Alarm reset&quot;, m_alarm_time, 100U);</action>
<choice_glyph conn="16,14,4,-1,-4,12">
<action box="0,-4,10,2"/>
</choice_glyph>
</choice>
<tran_glyph conn="2,14,3,-1,14">
<action box="0,-2,10,2"/>
</tran_glyph>
</tran>
<!--${Components::Alarm::SM::off::ALARM_SET}-->
<tran trig="ALARM_SET">
<action>// while setting, the alarm is kept in decimal format
m_alarm_time =
(10U * m_alarm_time + Q_EVT_CAST(SetEvt)-&gt;digit) % 10000U;
BSP_showTime24H(&quot;*** Alarm reset &quot;, m_alarm_time, 100U);</action>
<tran_glyph conn="2,18,3,-1,14">
<action box="0,-2,11,2"/>
</tran_glyph>
</tran>
<state_glyph node="2,5,32,15">
<entry box="1,2,6,2"/>
<exit box="1,4,6,2"/>
</state_glyph>
</state>
<!--${Components::Alarm::SM::on}-->
<state name="on">
<entry>BSP_showTime24H(&quot;*** Alarm ON &quot;, m_alarm_time, 60U);</entry>
<!--${Components::Alarm::SM::on::ALARM_OFF}-->
<tran trig="ALARM_OFF" target="../../1">
<tran_glyph conn="2,32,3,1,38,-22,-6">
<action box="0,-2,14,2"/>
</tran_glyph>
</tran>
<!--${Components::Alarm::SM::on::ALARM_SET}-->
<tran trig="ALARM_SET">
<action>BSP_showMsg(&quot;*** Cannot set Alarm when it is ON&quot;);</action>
<tran_glyph conn="2,36,3,-1,14">
<action box="0,-2,14,2"/>
</tran_glyph>
</tran>
<!--${Components::Alarm::SM::on::TIME}-->
<tran trig="TIME">
<!--${Components::Alarm::SM::on::TIME::[Q_EVT_CAST(TimeEvt)->current_ti~}-->
<choice>
<guard>Q_EVT_CAST(TimeEvt)-&gt;current_time == m_alarm_time</guard>
<action>BSP_showMsg(&quot;ALARM!!!&quot;);
// asynchronously post the event to the container AO
APP_alarmClock-&gt;POST(Q_NEW(QEvt, ALARM_SIG), this);</action>
<choice_glyph conn="16,40,5,-1,12">
<action box="1,0,10,2"/>
</choice_glyph>
</choice>
<tran_glyph conn="2,40,3,-1,14">
<action box="0,-2,10,2"/>
</tran_glyph>
</tran>
<state_glyph node="2,24,32,20">
<entry box="1,2,5,2"/>
</state_glyph>
</state>
<state_diagram size="46,48"/>
</statechart>
</class>
<!--${Components::AlarmClock}-->
<class name="AlarmClock" superclass="qpcpp::QActive">
<documentation>Alarm clock &quot;Container&quot;</documentation>
<!--${Components::AlarmClock::m_current_time}-->
<attribute name="m_current_time" type="uint32_t" visibility="0x02" properties="0x00"/>
<!--${Components::AlarmClock::m_alarm}-->
<attribute name="m_alarm" type="Alarm" visibility="0x02" properties="0x00"/>
<!--${Components::AlarmClock::m_timeEvt}-->
<attribute name="m_timeEvt" type="QTimeEvt" visibility="0x00" properties="0x00"/>
<!--${Components::AlarmClock::AlarmClock}-->
<operation name="AlarmClock" type="" visibility="0x00" properties="0x00">
<code>: QActive(Q_STATE_CAST(&amp;AlarmClock::initial)),
m_alarm(), // orthogonal component ctor
m_timeEvt(this, TICK_SIG, 0U)</code>
</operation>
<!--${Components::AlarmClock::SM}-->
<statechart properties="0x02">
<!--${Components::AlarmClock::SM::initial}-->
<initial target="../1">
<action>(void)e; // unused parameter
m_current_time = 0U;
// (!) trigger the initial transition in the component
m_alarm.init();</action>
<initial_glyph conn="2,4,5,1,44,4,-2">
<action box="0,-2,6,2"/>
</initial_glyph>
</initial>
<!--${Components::AlarmClock::SM::timekeeping}-->
<state name="timekeeping">
<entry>// periodic timeout every second
m_timeEvt.armX(BSP_TICKS_PER_SEC, BSP_TICKS_PER_SEC);</entry>
<exit>m_timeEvt.disarm();</exit>
<!--${Components::AlarmClock::SM::timekeeping::initial}-->
<initial target="../6">
<initial_glyph conn="4,13,5,1,36,27,-4">
<action box="0,-2,10,2"/>
</initial_glyph>
</initial>
<!--${Components::AlarmClock::SM::timekeeping::CLOCK_24H}-->
<tran trig="CLOCK_24H" target="../6">
<tran_glyph conn="2,16,3,1,36,22,-2">
<action box="0,-2,10,4"/>
</tran_glyph>
</tran>
<!--${Components::AlarmClock::SM::timekeeping::CLOCK_12H}-->
<tran trig="CLOCK_12H" target="../7">
<tran_glyph conn="2,18,3,1,40,34,-6">
<action box="0,-2,10,2"/>
</tran_glyph>
</tran>
<!--${Components::AlarmClock::SM::timekeeping::ALARM}-->
<tran trig="ALARM">
<action>BSP_showMsg(&quot;Wake up!!!&quot;);</action>
<tran_glyph conn="2,28,3,-1,18">
<action box="0,-2,10,2"/>
</tran_glyph>
</tran>
<!--${Components::AlarmClock::SM::timekeeping::ALARM_SET, ALARM_ON, ALARM_OFF}-->
<tran trig="ALARM_SET, ALARM_ON, ALARM_OFF">
<action>// (!) synchronously dispatch to the orthogonal component
m_alarm.dispatch(e);</action>
<tran_glyph conn="2,22,3,-1,18">
<action box="0,-2,11,6"/>
</tran_glyph>
</tran>
<!--${Components::AlarmClock::SM::timekeeping::TERMINATE}-->
<tran trig="TERMINATE" target="../../2">
<action>BSP_showMsg(&quot;--&gt; final&quot;);</action>
<tran_glyph conn="2,32,3,1,44,38,-13">
<action box="0,-2,10,2"/>
</tran_glyph>
</tran>
<!--${Components::AlarmClock::SM::timekeeping::mode24h}-->
<state name="mode24h">
<entry>BSP_showMsg(&quot;*** 24-hour mode&quot;);</entry>
<!--${Components::AlarmClock::SM::timekeeping::mode24h::TICK}-->
<tran trig="TICK">
<action>// roll over in 24-hr mode?
if (++m_current_time == 24U*60U) {
m_current_time = 0U;
}
BSP_showTime24H(&quot;&quot;, m_current_time, 60U);
TimeEvt pe; // temporary synchronous event for the component
pe.sig = TIME_SIG;
pe.current_time = m_current_time;
// (!) synchronously dispatch to the orthogonal component
m_alarm.dispatch(&amp;pe);</action>
<tran_glyph conn="4,44,3,-1,16">
<action box="0,-2,8,2"/>
</tran_glyph>
</tran>
<state_glyph node="4,36,32,12">
<entry box="1,2,27,2"/>
</state_glyph>
</state>
<!--${Components::AlarmClock::SM::timekeeping::mode12h}-->
<state name="mode12h">
<entry>BSP_showMsg(&quot;*** 12-hour mode&quot;);</entry>
<!--${Components::AlarmClock::SM::timekeeping::mode12h::TICK}-->
<tran trig="TICK">
<action>// roll over in 12-hr mode?
if (++m_current_time == 12U*60U) {
m_current_time = 0U;
}
BSP_showTime12H(&quot;&quot;, m_current_time, 60U);
TimeEvt pe; // temporary synchronous event for the component
pe.sig = TIME_SIG;
pe.current_time = m_current_time;
// (!) synchronously dispatch to the orthogonal component
m_alarm.dispatch(&amp;pe);</action>
<tran_glyph conn="4,58,3,-1,16">
<action box="0,-2,8,2"/>
</tran_glyph>
</tran>
<state_glyph node="4,50,32,12">
<entry box="1,2,17,2"/>
</state_glyph>
</state>
<state_glyph node="2,6,42,58">
<entry box="1,2,6,2"/>
<exit box="1,4,6,2"/>
</state_glyph>
</state>
<!--${Components::AlarmClock::SM::final}-->
<state name="final">
<entry brief="terminate">BSP_showMsg(&quot;Bye! Bye!&quot;);
QF::stop(); // terminate the application</entry>
<state_glyph node="2,68,31,8">
<entry box="1,2,11,2"/>
</state_glyph>
</state>
<state_diagram size="50,80"/>
</statechart>
</class>
<!--${Components::APP_alarmClock}-->
<attribute name="APP_alarmClock" type="QActive * const" visibility="0x00" properties="0x00">
<documentation>Opaque pointer to the single instance of the AlarmClock AO</documentation>
</attribute>
</package>
<!--${.}-->
<directory name=".">
<!--${.::alarm.hpp}-->
<file name="alarm.hpp">
<text>#ifndef ALARM_HPP
#define ALARM_HPP
$declare(Components::Alarm)
#endif // ALARM_HPP</text>
</file>
<!--${.::alarm.cpp}-->
<file name="alarm.cpp">
<text>#include &quot;qpcpp.hpp&quot;
#include &quot;bsp.hpp&quot;
#include &quot;alarm.hpp&quot;
#include &quot;clock.hpp&quot;
Q_DEFINE_THIS_FILE
// Alarm component --------------------
$define(Components::Alarm)</text>
</file>
<!--${.::clock.hpp}-->
<file name="clock.hpp">
<text>#ifndef CLOCK_HPP
#define CLOCK_HPP
using namespace QP;
enum AlarmClockSignals {
TICK_SIG = Q_USER_SIG, // time tick event
ALARM_SET_SIG, // set the alarm
ALARM_ON_SIG, // turn the alarm on
ALARM_OFF_SIG, // turn the alarm off
ALARM_SIG, // alarm event from Alarm component to AlarmClock container
CLOCK_12H_SIG, // set the clock in 12H mode
CLOCK_24H_SIG, // set the clock in 24H mode
TIME_SIG, // time event sent to Alarm (contains current time)
TERMINATE_SIG // terminate the application
};
$declare(Events::SetEvt)
$declare(Events::TimeEvt)
$declare(Components::APP_alarmClock)
#endif // CLOCK_HPP
</text>
</file>
<!--${.::clock.cpp}-->
<file name="clock.cpp">
<text>#include &quot;qpcpp.hpp&quot;
#include &quot;bsp.hpp&quot;
#include &quot;alarm.hpp&quot;
#include &quot;clock.hpp&quot;
#include &quot;safe_std.h&quot; // portable &quot;safe&quot; &lt;stdio.h&gt;/&lt;string.h&gt; facilities
Q_DEFINE_THIS_FILE
// Active object class -------------------------------------------------------
$declare(Components::AlarmClock)
// Local objects -------------------------------------------------------------
static AlarmClock l_alarmClock; // the single instance of the AO
// Global-scope objects ------------------------------------------------------
QActive * const APP_alarmClock = &amp;l_alarmClock; // &quot;opaque&quot; AO pointer
//............................................................................
$define(Components::AlarmClock)</text>
</file>
</directory>
</model>
Reference in New Issue View Git Blame Copy Permalink