GitHub/qpc
1
0
Fork 0
mirror of https://github.com/QuantumLeaps/qpc.git synced 2025-02-04 07:13:16 +08:00
Code Issues Projects Releases Wiki Activity
qpc/examples/workstation/calc1/calc1.qm
QL 9b561337b9 6.7.0
2019-12-31 15:55:08 -05:00

736 lines
25 KiB
XML
Raw Blame History

<?xml version="1.0" encoding="UTF-8"?>
<model version="4.6.0" links="1">
<documentation>Improved model of the Calculator described in Chapter 4 of PSiCC2. Improvements include:
- placing the &quot;negated1&quot; state inside &quot;operand1&quot; superstate
- placing the &quot;negated2&quot; state inside &quot;operand2&quot; superstate
- adding handling of operator precedence '*','/' before '+','-'</documentation>
<!--${qpc}-->
<framework name="qpc"/>
<!--${Events}-->
<package name="Events" stereotype="0x01">
<!--${Events::CalcEvt}-->
<class name="CalcEvt" superclass="qpc::QEvt">
<!--${Events::CalcEvt::key_code}-->
<attribute name="key_code" type="uint8_t" visibility="0x00" properties="0x00"/>
</class>
</package>
<!--${SMs}-->
<package name="SMs" stereotype="0x02">
<!--${SMs::Calc}-->
<class name="Calc" superclass="qpc::QHsm">
<documentation>Calculator state machine</documentation>
<!--${SMs::Calc::inst}-->
<attribute name="inst" type="Calc" visibility="0x00" properties="0x01">
<documentation>The only inst of the Calc object (Singleton pattern).</documentation>
</attribute>
<!--${SMs::Calc::op1}-->
<attribute name="op1" type="double" visibility="0x02" properties="0x00"/>
<!--${SMs::Calc::op2}-->
<attribute name="op2" type="double" visibility="0x02" properties="0x00"/>
<!--${SMs::Calc::oper1}-->
<attribute name="oper1" type="uint8_t" visibility="0x02" properties="0x00"/>
<!--${SMs::Calc::oper2}-->
<attribute name="oper2" type="uint8_t" visibility="0x02" properties="0x00"/>
<!--${SMs::Calc::eval}-->
<operation name="eval" type="bool" visibility="0x02" properties="0x00">
<documentation>/* guard function to evaluate the current expression
* taking into account the precedence of operands.
* return: true if evaluation successfull
* false when error encountered
*/</documentation>
<!--${SMs::Calc::eval::op}-->
<parameter name="op" type="double"/>
<!--${SMs::Calc::eval::oper}-->
<parameter name="oper" type="uint8_t"/>
<code>double result;
if ((oper == KEY_NULL) || (oper == KEY_PLUS) || (oper == KEY_MINUS)) {
switch (me-&gt;oper2) {
case KEY_MULT: {
me-&gt;op2 *= op;
break;
}
case KEY_DIVIDE: {
if ((-1e-30 &lt; op) &amp;&amp; (op &lt; 1e-30)) {
BSP_display_error(&quot; Error 0 &quot;); /* divide by zero */
return false;
}
me-&gt;op2 /= op;
break;
}
default: { /* no op2 yet */
me-&gt;op2 = op;
me-&gt;oper2 = oper;
break;
}
}
switch (me-&gt;oper1) {
case KEY_PLUS: {
me-&gt;op1 += me-&gt;op2;
break;
}
case KEY_MINUS: {
me-&gt;op1 -= me-&gt;op2;
break;
}
case KEY_MULT: {
me-&gt;op1 *= me-&gt;op2;
break;
}
case KEY_DIVIDE: {
if ((-1e-30 &lt; me-&gt;op2) &amp;&amp; (me-&gt;op2 &lt; 1e-30)) {
BSP_display_error(&quot; Error 0 &quot;); /* divide by zero */
return false;
}
me-&gt;op1 /= me-&gt;op2;
break;
}
default: {
Q_ERROR();
break;
}
}
me-&gt;oper1 = oper;
me-&gt;oper2 = KEY_NULL;
result = me-&gt;op1;
}
else { /* (oper == KEY_MULT) || (oper == KEY_DIV) */
switch (me-&gt;oper2) {
case KEY_MULT: {
me-&gt;op2 *= op;
break;
}
case KEY_DIVIDE: {
if ((-1e-30 &lt; op) &amp;&amp; (op &lt; 1e-30)) {
BSP_display_error(&quot; Error 0 &quot;); /* divide by zero */
return false;
}
me-&gt;op2 /= op;
break;
}
default: { /* oper2 not provided yet */
me-&gt;op2 = op;
break;
}
}
me-&gt;oper2 = oper;
result = me-&gt;op2;
}
if ((result &lt; -99999999.0) || (99999999.0 &lt; result)) {
BSP_display_error(&quot; Error 1 &quot;); /* out of range */
return false;
}
if ((-0.0000001 &lt; result) &amp;&amp; (result &lt; 0.0000001)) {
result = 0.0;
}
BSP_display(result);
return true;</code>
</operation>
<!--${SMs::Calc::SM}-->
<statechart properties="0x01">
<!--${SMs::Calc::SM::initial}-->
<initial target="../1">
<action>(void)e; /* unused parameter */</action>
<initial_glyph conn="2,2,5,1,94,4,-2">
<action box="1,-2,13,4"/>
</initial_glyph>
</initial>
<!--${SMs::Calc::SM::on}-->
<state name="on">
<entry>BSP_message(&quot;on-ENTRY;&quot;);</entry>
<exit>BSP_message(&quot;on-EXIT;&quot;);</exit>
<!--${SMs::Calc::SM::on::initial}-->
<initial target="../4">
<action>BSP_message(&quot;on-INIT;&quot;);
BSP_clear();</action>
<initial_glyph conn="49,10,5,1,13,8,-2">
<action box="1,0,5,2"/>
</initial_glyph>
</initial>
<!--${SMs::Calc::SM::on::C}-->
<tran trig="C" target="..">
<tran_glyph conn="2,12,3,1,92">
<action box="0,-2,12,4"/>
</tran_glyph>
</tran>
<!--${SMs::Calc::SM::on::OFF}-->
<tran trig="OFF" target="../../2">
<tran_glyph conn="2,14,3,1,94,104,-77">
<action box="0,0,5,2"/>
</tran_glyph>
</tran>
<!--${SMs::Calc::SM::on::error}-->
<state name="error">
<documentation>/* Error state after evaluation of an expression.
This state can be exited only throgh the inherited C (Clear) event.
*/</documentation>
<entry>BSP_message(&quot;error-ENTRY;&quot;);</entry>
<exit>BSP_message(&quot;error-EXIT;&quot;);</exit>
<state_glyph node="12,68,10,8">
<entry box="1,2,5,2"/>
<exit box="1,4,5,2"/>
</state_glyph>
</state>
<!--${SMs::Calc::SM::on::ready}-->
<state name="ready">
<entry>BSP_message(&quot;ready-ENTRY;&quot;);
me-&gt;oper2 = KEY_NULL;</entry>
<exit>BSP_message(&quot;ready-EXIT;&quot;);</exit>
<!--${SMs::Calc::SM::on::ready::initial}-->
<initial target="../6">
<action>BSP_message(&quot;ready-INIT;&quot;);</action>
<initial_glyph conn="20,20,5,0,20,2">
<action box="0,-2,6,2"/>
</initial_glyph>
</initial>
<!--${SMs::Calc::SM::on::ready::DIGIT_0}-->
<tran trig="DIGIT_0" target="../../5/3">
<action>BSP_clear();</action>
<tran_glyph conn="20,34,2,0,11">
<action box="1,0,6,2"/>
</tran_glyph>
</tran>
<!--${SMs::Calc::SM::on::ready::DIGIT_1_9}-->
<tran trig="DIGIT_1_9" target="../../5/4">
<action>BSP_clear();
BSP_insert(Q_EVT_CAST(CalcEvt)-&gt;key_code);</action>
<tran_glyph conn="34,34,2,0,11">
<action box="1,0,9,2"/>
</tran_glyph>
</tran>
<!--${SMs::Calc::SM::on::ready::POINT}-->
<tran trig="POINT" target="../../5/5">
<action>BSP_clear();
BSP_insert((int)'0');
BSP_insert((int)'.');</action>
<tran_glyph conn="54,34,2,0,11">
<action box="0,0,6,2"/>
</tran_glyph>
</tran>
<!--${SMs::Calc::SM::on::ready::OPER}-->
<tran trig="OPER" target="../../6">
<action>me-&gt;op1 = BSP_get_value();
me-&gt;oper1 = Q_EVT_CAST(CalcEvt)-&gt;key_code;</action>
<tran_glyph conn="60,24,1,1,32,48,-32">
<action box="0,-2,6,2"/>
</tran_glyph>
</tran>
<!--${SMs::Calc::SM::on::ready::result}-->
<state name="result">
<entry>BSP_message(&quot;result-ENTRY;&quot;);</entry>
<exit>BSP_message(&quot;result-EXIT;&quot;);</exit>
<state_glyph node="16,22,10,10">
<entry box="1,2,5,2"/>
<exit box="1,4,5,2"/>
</state_glyph>
</state>
<!--${SMs::Calc::SM::on::ready::begin}-->
<state name="begin">
<entry>BSP_message(&quot;begin-ENTRY;&quot;);</entry>
<exit>BSP_message(&quot;begin-EXIT;&quot;);</exit>
<!--${SMs::Calc::SM::on::ready::begin::OPER}-->
<tran trig="OPER">
<!--${SMs::Calc::SM::on::ready::begin::OPER::[e->key=='-']}-->
<choice target="../../../../5/6">
<guard brief="e-&gt;key == '-'">Q_EVT_CAST(CalcEvt)-&gt;key_code == KEY_MINUS</guard>
<choice_glyph conn="42,30,5,0,34,15">
<action box="1,0,11,2"/>
</choice_glyph>
</choice>
<!--${SMs::Calc::SM::on::ready::begin::OPER::[else]}-->
<choice>
<guard>else</guard>
<choice_glyph conn="42,30,4,-1,-4,4">
<action box="1,-3,6,2"/>
</choice_glyph>
</choice>
<tran_glyph conn="32,30,3,-1,10">
<action box="0,-2,6,2"/>
</tran_glyph>
</tran>
<state_glyph node="32,22,16,10">
<entry box="1,2,5,2"/>
<exit box="1,4,5,2"/>
</state_glyph>
</state>
<state_glyph node="10,16,50,18">
<entry box="1,2,5,2"/>
<exit box="1,4,5,2"/>
</state_glyph>
</state>
<!--${SMs::Calc::SM::on::operand1}-->
<state name="operand1">
<entry>BSP_message(&quot;operand1-ENTRY;&quot;);</entry>
<exit>BSP_message(&quot;operand1-EXIT;&quot;);</exit>
<!--${SMs::Calc::SM::on::operand1::CE}-->
<tran trig="CE" target="../../4">
<action>BSP_clear();</action>
<tran_glyph conn="84,38,0,1,-10,-24">
<action box="0,-2,6,2"/>
</tran_glyph>
</tran>
<!--${SMs::Calc::SM::on::operand1::OPER}-->
<tran trig="OPER" target="../../6">
<action>me-&gt;op1 = BSP_get_value();
me-&gt;oper1 = Q_EVT_CAST(CalcEvt)-&gt;key_code;</action>
<tran_glyph conn="62,64,2,1,6,-2">
<action box="1,0,6,2"/>
</tran_glyph>
</tran>
<!--${SMs::Calc::SM::on::operand1::EQUALS}-->
<tran trig="EQUALS" target="../../4/5">
<tran_glyph conn="12,38,0,3,-12,4">
<action box="0,-2,6,2"/>
</tran_glyph>
</tran>
<!--${SMs::Calc::SM::on::operand1::zero1}-->
<state name="zero1">
<entry>BSP_message(&quot;zero1-ENTRY;&quot;);</entry>
<exit>BSP_message(&quot;zero1-EXIT;&quot;);</exit>
<!--${SMs::Calc::SM::on::operand1::zero1::DIGIT_0}-->
<tran trig="DIGIT_0">
<action>;</action>
<tran_glyph conn="14,56,3,-1,10">
<action box="0,-2,7,2"/>
</tran_glyph>
</tran>
<!--${SMs::Calc::SM::on::operand1::zero1::DIGIT_1_9}-->
<tran trig="DIGIT_1_9" target="../../4">
<action>BSP_insert(Q_EVT_CAST(CalcEvt)-&gt;key_code);</action>
<tran_glyph conn="14,53,3,3,16,-6,2">
<action box="0,-2,9,2"/>
</tran_glyph>
</tran>
<!--${SMs::Calc::SM::on::operand1::zero1::POINT}-->
<tran trig="POINT" target="../../5">
<action>BSP_insert((int)'0');
BSP_insert((int)'.');</action>
<tran_glyph conn="16,58,2,2,2,40,-2">
<action box="1,0,6,2"/>
</tran_glyph>
</tran>
<state_glyph node="14,45,14,13">
<entry box="1,2,5,2"/>
<exit box="1,4,5,2"/>
</state_glyph>
</state>
<!--${SMs::Calc::SM::on::operand1::int1}-->
<state name="int1">
<entry>BSP_message(&quot;int1-ENTRY;&quot;);</entry>
<exit>BSP_message(&quot;int1-EXIT;&quot;);</exit>
<!--${SMs::Calc::SM::on::operand1::int1::POINT}-->
<tran trig="POINT" target="../../5">
<action>BSP_insert((int)'.');</action>
<tran_glyph conn="32,53,3,3,16,-6,2">
<action box="0,-2,6,2"/>
</tran_glyph>
</tran>
<!--${SMs::Calc::SM::on::operand1::int1::DIGIT_0, DIGIT_1_9}-->
<tran trig="DIGIT_0, DIGIT_1_9">
<action>BSP_insert(Q_EVT_CAST(CalcEvt)-&gt;key_code);</action>
<tran_glyph conn="32,56,3,-1,10">
<action box="0,-2,14,2"/>
</tran_glyph>
</tran>
<state_glyph node="32,45,14,13">
<entry box="1,2,5,2"/>
<exit box="1,4,5,2"/>
</state_glyph>
</state>
<!--${SMs::Calc::SM::on::operand1::frac1}-->
<state name="frac1">
<entry>BSP_message(&quot;frac1-ENTRY;&quot;);</entry>
<exit>BSP_message(&quot;frac1-EXIT;&quot;);</exit>
<!--${SMs::Calc::SM::on::operand1::frac1::POINT}-->
<tran trig="POINT">
<action>;</action>
<tran_glyph conn="50,56,3,-1,10">
<action box="0,-2,6,2"/>
</tran_glyph>
</tran>
<!--${SMs::Calc::SM::on::operand1::frac1::DIGIT_0, DIGIT_1_9}-->
<tran trig="DIGIT_0, DIGIT_1_9">
<action>BSP_insert(Q_EVT_CAST(CalcEvt)-&gt;key_code);</action>
<tran_glyph conn="50,53,3,-1,10">
<action box="0,-2,15,2"/>
</tran_glyph>
</tran>
<state_glyph node="50,45,14,13">
<entry box="1,2,5,2"/>
<exit box="1,4,5,2"/>
</state_glyph>
</state>
<!--${SMs::Calc::SM::on::operand1::negated1}-->
<state name="negated1">
<entry>BSP_message(&quot;negated1-ENTRY;&quot;);
BSP_negate();</entry>
<exit>BSP_message(&quot;negated1-EXIT;&quot;);</exit>
<!--${SMs::Calc::SM::on::operand1::negated1::DIGIT_0}-->
<tran trig="DIGIT_0" target="../../3">
<action>BSP_insert(Q_EVT_CAST(CalcEvt)-&gt;key_code);</action>
<tran_glyph conn="68,57,2,2,4,-44,-3">
<action box="0,0,6,2"/>
</tran_glyph>
</tran>
<!--${SMs::Calc::SM::on::operand1::negated1::DIGIT_1_9}-->
<tran trig="DIGIT_1_9" target="../../4">
<action>BSP_insert(Q_EVT_CAST(CalcEvt)-&gt;key_code);</action>
<tran_glyph conn="75,57,2,2,5,-35,-4">
<action box="0,0,9,2"/>
</tran_glyph>
</tran>
<!--${SMs::Calc::SM::on::operand1::negated1::POINT}-->
<tran trig="POINT" target="../../5">
<action>BSP_insert(Q_EVT_CAST(CalcEvt)-&gt;key_code);</action>
<tran_glyph conn="83,57,2,2,6,-25,-5">
<action box="1,0,6,2"/>
</tran_glyph>
</tran>
<!--${SMs::Calc::SM::on::operand1::negated1::OPER}-->
<tran trig="OPER">
<!--${SMs::Calc::SM::on::operand1::negated1::OPER::[else]}-->
<choice>
<guard>else</guard>
<choice_glyph conn="76,53,4,-1,-4,8">
<action box="1,-4,6,2"/>
</choice_glyph>
</choice>
<!--${SMs::Calc::SM::on::operand1::negated1::OPER::[e->key=='-']}-->
<choice>
<guard brief="e-&gt;key == '-'">Q_EVT_CAST(CalcEvt)-&gt;key_code == KEY_MINUS</guard>
<action>;</action>
<choice_glyph conn="76,53,5,-1,8">
<action box="1,0,11,2"/>
</choice_glyph>
</choice>
<tran_glyph conn="66,53,3,-1,10">
<action box="0,-2,6,2"/>
</tran_glyph>
</tran>
<state_glyph node="66,45,22,12">
<entry box="1,2,5,2"/>
<exit box="1,4,5,2"/>
</state_glyph>
</state>
<state_glyph node="10,38,80,26">
<entry box="1,2,5,2"/>
<exit box="1,4,5,2"/>
</state_glyph>
</state>
<!--${SMs::Calc::SM::on::opEntered}-->
<state name="opEntered">
<entry>BSP_message(&quot;opEntered-ENTRY;&quot;);</entry>
<exit>BSP_message(&quot;opEntered-EXIT;&quot;);</exit>
<!--${SMs::Calc::SM::on::opEntered::DIGIT_0}-->
<tran trig="DIGIT_0" target="../../7/3">
<action>BSP_clear();</action>
<tran_glyph conn="30,82,2,0,8,-6,3">
<action box="1,0,6,2"/>
</tran_glyph>
</tran>
<!--${SMs::Calc::SM::on::opEntered::DIGIT_1_9}-->
<tran trig="DIGIT_1_9" target="../../7/4">
<action>BSP_clear();
BSP_insert(Q_EVT_CAST(CalcEvt)-&gt;key_code);</action>
<tran_glyph conn="40,82,2,0,11">
<action box="1,0,9,2"/>
</tran_glyph>
</tran>
<!--${SMs::Calc::SM::on::opEntered::POINT}-->
<tran trig="POINT" target="../../7/5">
<action>BSP_clear();
BSP_insert((int)'0');
BSP_insert((int)'.');</action>
<tran_glyph conn="54,82,2,0,11">
<action box="0,0,6,2"/>
</tran_glyph>
</tran>
<!--${SMs::Calc::SM::on::opEntered::OPER}-->
<tran trig="OPER">
<!--${SMs::Calc::SM::on::opEntered::OPER::[e->key=='-']}-->
<choice target="../../../7/6">
<guard brief="e-&gt;key == '-'">Q_EVT_CAST(CalcEvt)-&gt;key_code == KEY_MINUS</guard>
<choice_glyph conn="36,78,5,0,40,15">
<action box="1,0,11,2"/>
</choice_glyph>
</choice>
<!--${SMs::Calc::SM::on::opEntered::OPER::[else]}-->
<choice>
<guard>else</guard>
<choice_glyph conn="36,78,4,-1,-4,4">
<action box="1,-3,6,2"/>
</choice_glyph>
</choice>
<tran_glyph conn="28,78,3,-1,8">
<action box="0,-2,6,2"/>
</tran_glyph>
</tran>
<state_glyph node="28,68,32,14">
<entry box="1,2,5,2"/>
<exit box="1,4,5,2"/>
</state_glyph>
</state>
<!--${SMs::Calc::SM::on::operand2}-->
<state name="operand2">
<entry>BSP_message(&quot;operand2-ENTRY;&quot;);</entry>
<exit>BSP_message(&quot;operand2-EXIT;&quot;);</exit>
<!--${SMs::Calc::SM::on::operand2::CE}-->
<tran trig="CE" target="../../6">
<action>BSP_clear();</action>
<tran_glyph conn="82,86,0,1,-10,-22">
<action box="0,-4,6,2"/>
</tran_glyph>
</tran>
<!--${SMs::Calc::SM::on::operand2::EQUALS}-->
<tran trig="EQUALS">
<!--${SMs::Calc::SM::on::operand2::EQUALS::[else]}-->
<choice target="../../../3">
<guard brief="else"/>
<choice_glyph conn="4,70,5,3,8">
<action box="1,0,7,2"/>
</choice_glyph>
</choice>
<!--${SMs::Calc::SM::on::operand2::EQUALS::[Calc_eval(me,BSP_get_value(),KE~}-->
<choice target="../../../4/5">
<guard>Calc_eval(me, BSP_get_value(), KEY_NULL)</guard>
<choice_glyph conn="4,70,4,3,-46,12">
<action box="-3,-5,14,2"/>
</choice_glyph>
</choice>
<tran_glyph conn="10,108,3,-1,-6,-38">
<action box="-5,-2,10,2"/>
</tran_glyph>
</tran>
<!--${SMs::Calc::SM::on::operand2::OPER}-->
<tran trig="OPER">
<!--${SMs::Calc::SM::on::operand2::OPER::[Calc_eval(me,BSP_get_value(),Q_~}-->
<choice target="../../../6">
<guard>Calc_eval(me, BSP_get_value(), Q_EVT_CAST(CalcEvt)-&gt;key_code)</guard>
<choice_glyph conn="6,80,5,3,18,-6,4">
<action box="1,0,18,2"/>
</choice_glyph>
</choice>
<!--${SMs::Calc::SM::on::operand2::OPER::[else]}-->
<choice target="../../../3">
<guard brief="else"/>
<choice_glyph conn="6,80,4,3,-6,6">
<action box="0,-6,10,2"/>
</choice_glyph>
</choice>
<tran_glyph conn="10,104,3,-1,-4,-24">
<action box="-4,-2,6,2"/>
</tran_glyph>
</tran>
<!--${SMs::Calc::SM::on::operand2::zero2}-->
<state name="zero2">
<entry>BSP_message(&quot;zero2-ENTRY;&quot;);</entry>
<exit>BSP_message(&quot;zero2-EXIT;&quot;);</exit>
<!--${SMs::Calc::SM::on::operand2::zero2::DIGIT_0}-->
<tran trig="DIGIT_0">
<action>;</action>
<tran_glyph conn="14,104,3,-1,10">
<action box="0,-2,7,2"/>
</tran_glyph>
</tran>
<!--${SMs::Calc::SM::on::operand2::zero2::DIGIT_1_9}-->
<tran trig="DIGIT_1_9" target="../../4">
<action>BSP_insert(Q_EVT_CAST(CalcEvt)-&gt;key_code);</action>
<tran_glyph conn="14,101,3,3,16,-6,2">
<action box="0,-2,9,2"/>
</tran_glyph>
</tran>
<!--${SMs::Calc::SM::on::operand2::zero2::POINT}-->
<tran trig="POINT" target="../../5">
<action>BSP_insert((int)'0');
BSP_insert((int)'.');</action>
<tran_glyph conn="16,106,2,2,2,40,-2">
<action box="1,0,6,2"/>
</tran_glyph>
</tran>
<state_glyph node="14,93,14,13">
<entry box="1,2,5,2"/>
<exit box="1,4,5,2"/>
</state_glyph>
</state>
<!--${SMs::Calc::SM::on::operand2::int2}-->
<state name="int2">
<entry>BSP_message(&quot;int2-ENTRY;&quot;);</entry>
<exit>BSP_message(&quot;int2-EXIT;&quot;);</exit>
<!--${SMs::Calc::SM::on::operand2::int2::POINT}-->
<tran trig="POINT" target="../../5">
<action>BSP_insert((int)'.');</action>
<tran_glyph conn="32,101,3,3,16,-6,2">
<action box="0,-2,6,2"/>
</tran_glyph>
</tran>
<!--${SMs::Calc::SM::on::operand2::int2::DIGIT_0, DIGIT_1_9}-->
<tran trig="DIGIT_0, DIGIT_1_9">
<action>BSP_insert(Q_EVT_CAST(CalcEvt)-&gt;key_code);</action>
<tran_glyph conn="32,104,3,-1,10">
<action box="0,-2,14,2"/>
</tran_glyph>
</tran>
<state_glyph node="32,93,14,13">
<entry box="1,2,5,2"/>
<exit box="1,4,5,2"/>
</state_glyph>
</state>
<!--${SMs::Calc::SM::on::operand2::frac2}-->
<state name="frac2">
<entry>BSP_message(&quot;frac2-ENTRY;&quot;);</entry>
<exit>BSP_message(&quot;frac2-EXIT;&quot;);</exit>
<!--${SMs::Calc::SM::on::operand2::frac2::POINT}-->
<tran trig="POINT">
<action>;</action>
<tran_glyph conn="50,104,3,-1,10">
<action box="0,-2,6,2"/>
</tran_glyph>
</tran>
<!--${SMs::Calc::SM::on::operand2::frac2::DIGIT_0, DIGIT_1_9}-->
<tran trig="DIGIT_0, DIGIT_1_9">
<action>BSP_insert(Q_EVT_CAST(CalcEvt)-&gt;key_code);</action>
<tran_glyph conn="50,101,3,-1,10">
<action box="0,-2,15,2"/>
</tran_glyph>
</tran>
<state_glyph node="50,93,14,13">
<entry box="1,2,5,2"/>
<exit box="1,4,5,2"/>
</state_glyph>
</state>
<!--${SMs::Calc::SM::on::operand2::negated2}-->
<state name="negated2">
<entry>BSP_message(&quot;negated2-ENTRY;&quot;);
BSP_negate();</entry>
<exit>BSP_message(&quot;negated2-EXIT;&quot;);</exit>
<!--${SMs::Calc::SM::on::operand2::negated2::DIGIT_0}-->
<tran trig="DIGIT_0" target="../../3">
<action>BSP_insert(Q_EVT_CAST(CalcEvt)-&gt;key_code);</action>
<tran_glyph conn="68,105,2,2,4,-44,-3">
<action box="0,0,6,2"/>
</tran_glyph>
</tran>
<!--${SMs::Calc::SM::on::operand2::negated2::DIGIT_1_9}-->
<tran trig="DIGIT_1_9" target="../../4">
<action>BSP_insert(Q_EVT_CAST(CalcEvt)-&gt;key_code);</action>
<tran_glyph conn="75,105,2,2,5,-37,-4">
<action box="0,0,9,2"/>
</tran_glyph>
</tran>
<!--${SMs::Calc::SM::on::operand2::negated2::POINT}-->
<tran trig="POINT" target="../../5">
<action>BSP_insert(Q_EVT_CAST(CalcEvt)-&gt;key_code);</action>
<tran_glyph conn="83,105,2,2,6,-25,-5">
<action box="1,0,6,2"/>
</tran_glyph>
</tran>
<!--${SMs::Calc::SM::on::operand2::negated2::OPER}-->
<tran trig="OPER">
<!--${SMs::Calc::SM::on::operand2::negated2::OPER::[else]}-->
<choice>
<guard>else</guard>
<choice_glyph conn="76,102,4,-1,-4,8">
<action box="1,-4,6,2"/>
</choice_glyph>
</choice>
<!--${SMs::Calc::SM::on::operand2::negated2::OPER::[e->key=='-']}-->
<choice>
<guard brief="e-&gt;key == '-'">Q_EVT_CAST(CalcEvt)-&gt;key_code == KEY_MINUS</guard>
<action>;</action>
<choice_glyph conn="76,102,5,-1,8">
<action box="1,0,11,2"/>
</choice_glyph>
</choice>
<tran_glyph conn="66,102,3,-1,10">
<action box="0,-2,6,2"/>
</tran_glyph>
</tran>
<state_glyph node="66,93,22,12">
<entry box="1,2,5,2"/>
<exit box="1,4,5,2"/>
</state_glyph>
</state>
<state_glyph node="10,86,80,26">
<entry box="1,2,5,2"/>
<exit box="1,4,5,2"/>
</state_glyph>
</state>
<state_glyph node="2,4,92,110">
<entry box="1,2,5,2"/>
<exit box="1,4,5,2"/>
</state_glyph>
</state>
<!--${SMs::Calc::SM::final}-->
<state name="final">
<entry>BSP_message(&quot;final-ENTRY;&quot;);
BSP_exit();</entry>
<state_glyph node="2,116,17,6">
<entry box="1,2,5,2"/>
</state_glyph>
</state>
<state_diagram size="98,124"/>
</statechart>
</class>
<!--${SMs::the_calc}-->
<attribute name="the_calc" type="QHsm * const" visibility="0x00" properties="0x00">
<documentation>Global opaque pointer to the Calc inst</documentation>
<code>= &amp;Calc_inst.super;</code>
</attribute>
<!--${SMs::Calc_ctor}-->
<operation name="Calc_ctor" type="void" visibility="0x00" properties="0x00">
<documentation>constructor</documentation>
<code>Calc *me = &amp;Calc_inst;
QHsm_ctor(&amp;me-&gt;super, Q_STATE_CAST(&amp;Calc_initial));</code>
</operation>
</package>
<!--${.}-->
<directory name=".">
<!--${.::calc1.h}-->
<file name="calc1.h">
<text>#ifndef CALC1_H
#define CALC1_H
enum CalcSignals {
C_SIG = Q_USER_SIG,
CE_SIG,
DIGIT_0_SIG,
DIGIT_1_9_SIG,
POINT_SIG,
OPER_SIG,
EQUALS_SIG,
OFF_SIG
};
$declare${Events::CalcEvt}
$declare${SMs::Calc_ctor}
extern QHsm * const the_calc; /* &quot;opaque&quot; pointer to calculator HSM */
#endif /* CALC1_H */
</text>
</file>
<!--${.::calc1.c}-->
<file name="calc1.c">
<text>#include &quot;qpc.h&quot; /* QP/C */
#include &quot;bsp.h&quot; /* board support package */
#include &quot;calc1.h&quot; /* application */
Q_DEFINE_THIS_FILE
#define KEY_NULL '\0'
#define KEY_PLUS '+'
#define KEY_MINUS '-'
#define KEY_MULT '*'
#define KEY_DIVIDE '/'
$declare${SMs::Calc}
$define${SMs::the_calc}
$define${SMs::Calc_ctor}
$define${SMs::Calc}</text>
</file>
</directory>
</model>
Reference in New Issue View Git Blame Copy Permalink