lpcmanager

Code optimization.

2016-12-07, dporopat
a65acdffded1
Parents ab1324096b2e
Children 7569023737b8
Code optimization.
1 files changed, 3 insertions(+), 73 deletions(-)
  • +3 -73
    Pous/pousRTC.xml
    • --- a/Pous/pousRTC.xml Mon Dec 05 10:15:01 2016 +0100
    +++ b/Pous/pousRTC.xml Wed Dec 07 09:22:30 2016 +0100
    @@ -87,51 +87,11 @@
    <string/>
    </type>
    </variable>
    - <variable name="VALID_STR">
    - <type>
    - <string/>
    - </type>
    - </variable>
    - <variable name="YEAR_STR">
    - <type>
    - <string/>
    - </type>
    - </variable>
    - <variable name="MONTH_STR">
    - <type>
    - <string/>
    - </type>
    - </variable>
    - <variable name="DAY_STR">
    - <type>
    - <string/>
    - </type>
    - </variable>
    - <variable name="WDAY_STR">
    - <type>
    - <string/>
    - </type>
    - </variable>
    - <variable name="HOUR_STR">
    - <type>
    - <string/>
    - </type>
    - </variable>
    - <variable name="MINUTE_STR">
    - <type>
    - <string/>
    - </type>
    - </variable>
    - <variable name="SECOND_STR">
    - <type>
    - <string/>
    - </type>
    - </variable>
    </localVars>
    </interface>
    <body>
    <ST>
    - <xhtml:p><![CDATA[INPUT_VALUE_CODE:=CONCAT('PLCObject.MWProvider.GetRTC()'); pooll0(TRIG:=TRUE, CODE:=INPUT_VALUE_CODE, ACK => ACK, RESULT => DT_STR); VALID_STR:=MID(IN:=DT_STR,L:=1,P:=23); VALID:=STRING_TO_BOOL(IN:=VALID_STR); YEAR_STR:=MID(IN:=DT_STR,L:=4,P:=1); YEAR:=STRING_TO_UINT(IN:=YEAR_STR); MONTH_STR:=MID(IN:=DT_STR,L:=2,P:=6); MONTH:=STRING_TO_UINT(IN:=MONTH_STR); DAY_STR:=MID(IN:=DT_STR,L:=2,P:=9); DAY:=STRING_TO_UINT(IN:=DAY_STR); WDAY_STR:=MID(IN:=DT_STR,L:=1,P:=21); WDAY:=STRING_TO_UINT(IN:=WDAY_STR); HOUR_STR:=MID(IN:=DT_STR,L:=2,P:=12); HOUR:=STRING_TO_UINT(IN:=HOUR_STR); MINUTE_STR:=MID(IN:=DT_STR,L:=2,P:=15); MINUTE:=STRING_TO_UINT(IN:=MINUTE_STR); SECOND_STR:=MID(IN:=DT_STR,L:=2,P:=18); SECOND:=STRING_TO_UINT(IN:=SECOND_STR);]]></xhtml:p>
    + <xhtml:p><![CDATA[INPUT_VALUE_CODE:=CONCAT('PLCObject.MWProvider.GetRTC()'); pooll0(TRIG:=TRUE, CODE:=INPUT_VALUE_CODE, ACK => ACK, RESULT => DT_STR); VALID:=STRING_TO_BOOL(IN:=MID(IN:=DT_STR,L:=1,P:=23)); YEAR:=STRING_TO_UINT(IN:=MID(IN:=DT_STR,L:=4,P:=1)); MONTH:=STRING_TO_UINT(IN:=MID(IN:=DT_STR,L:=2,P:=6)); DAY:=STRING_TO_UINT(IN:=MID(IN:=DT_STR,L:=2,P:=9)); WDAY:=STRING_TO_UINT(IN:=MID(IN:=DT_STR,L:=1,P:=21)); HOUR:=STRING_TO_UINT(IN:=MID(IN:=DT_STR,L:=2,P:=12)); MINUTE:=STRING_TO_UINT(IN:=MID(IN:=DT_STR,L:=2,P:=15)); SECOND:=STRING_TO_UINT(IN:=MID(IN:=DT_STR,L:=2,P:=18));]]></xhtml:p>
    </ST>
    </body>
    </pou>
    @@ -172,7 +132,7 @@
    <type>
    <UINT/>
    </type>
    - </variable>
    + </variable>
    </inputVars>
    <outputVars>
    <variable name="RESULT">
    @@ -197,36 +157,6 @@
    <string/>
    </type>
    </variable>
    - <variable name="YEAR_STR">
    - <type>
    - <string/>
    - </type>
    - </variable>
    - <variable name="MONTH_STR">
    - <type>
    - <string/>
    - </type>
    - </variable>
    - <variable name="DAY_STR">
    - <type>
    - <string/>
    - </type>
    - </variable>
    - <variable name="HOUR_STR">
    - <type>
    - <string/>
    - </type>
    - </variable>
    - <variable name="MINUTE_STR">
    - <type>
    - <string/>
    - </type>
    - </variable>
    - <variable name="SECOND_STR">
    - <type>
    - <string/>
    - </type>
    - </variable>
    <variable name="INPUT_VALUE_CODE">
    <type>
    <string/>
    @@ -241,7 +171,7 @@
    </interface>
    <body>
    <ST>
    - <xhtml:p><![CDATA[YEAR_STR:=UINT_TO_STRING(YEAR); MONTH_STR:=UINT_TO_STRING(MONTH); DAY_STR:=UINT_TO_STRING(DAY); HOUR_STR:=UINT_TO_STRING(HOUR); MINUTE_STR:=UINT_TO_STRING(MINUTE); SECOND_STR:=UINT_TO_STRING(SECOND); INPUT_ARGS:=CONCAT(YEAR_STR, ',', MONTH_STR, ',', DAY_STR, ',', HOUR_STR, ',', MINUTE_STR, ',', SECOND_STR); INPUT_VALUE_CODE:=CONCAT('PLCObject.MWProvider.SetRTC(', INPUT_ARGS, ')'); pooll0(TRIG := TRIG, CODE := INPUT_VALUE_CODE, ACK => ACK, RESULT => RESULT);]]></xhtml:p>
    + <xhtml:p><![CDATA[INPUT_ARGS:=CONCAT(UINT_TO_STRING(YEAR), ',', UINT_TO_STRING(MONTH), ',', UINT_TO_STRING(DAY), ',', UINT_TO_STRING(HOUR), ',', UINT_TO_STRING(MINUTE), ',', UINT_TO_STRING(SECOND)); INPUT_VALUE_CODE:=CONCAT('PLCObject.MWProvider.SetRTC(', INPUT_ARGS, ')'); pooll0(TRIG := TRIG, CODE := INPUT_VALUE_CODE, ACK => ACK, RESULT => RESULT);]]></xhtml:p>
    </ST>
    </body>
    </pou>