<?xml version='1.0' encoding='utf-8'?>
<project xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://www.plcopen.org/xml/tc6_0201" xmlns:xhtml="http://www.w3.org/1999/xhtml" xsi:schemaLocation="http://www.plcopen.org/xml/tc6_0201">
<fileHeader companyName="Beremiz" productName="Beremiz" productVersion="0.0" creationDateTime="2008-12-14T16:53:26"/>
<contentHeader name="Beremiz non-standard POUs library" modificationDateTime="2014-03-17T08:07:24">
<pou name="getRTC" pouType="functionBlock">
<derived name="python_poll"/>
<variable name="INPUT_VALUE_CODE">
<variable name="VALID_STR">
<variable name="YEAR_STR">
<variable name="MONTH_STR">
<variable name="DAY_STR">
<variable name="WDAY_STR">
<variable name="HOUR_STR">
<variable name="MINUTE_STR">
<variable name="SECOND_STR">
<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>
<pou name="setRTC" pouType="functionBlock">
<derived name="python_poll"/>
<variable name="INPUT_ARGS">
<variable name="YEAR_STR">
<variable name="MONTH_STR">
<variable name="DAY_STR">
<variable name="HOUR_STR">
<variable name="MINUTE_STR">
<variable name="SECOND_STR">
<variable name="INPUT_VALUE_CODE">
<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>