co♻e: unittest framework for CODESYS

<?xml version="1.0" encoding="utf-8"?>

<project xmlns="http://www.plcopen.org/xml/tc6_0200">

  <fileHeader companyName="" productName="CODESYS" productVersion="CODESYS V3.5 SP15" creationDateTime="2019-12-26T21:10:01.304469" />

  <contentHeader name="XmlResultFormatter.project" modificationDateTime="2019-12-26T20:38:04.3246887">

    <coordinateInfo>

      <fbd>

        <scaling x="1" y="1" />

      </fbd>

      <ld>

        <scaling x="1" y="1" />

      </ld>

      <sfc>

        <scaling x="1" y="1" />

      </sfc>

    </coordinateInfo>

    <addData>

      <data name="http://www.3s-software.com/plcopenxml/projectinformation" handleUnknown="implementation">

        <ProjectInformation>

          <property name="CompiledLibraryCompatibilityVersion" type="string">CODESYS V3.5 SP14 Patch 2</property>

          <property name="Project" type="string">XmlResultFormatter</property>

        </ProjectInformation>

      </data>

    </addData>

  </contentHeader>

  <types>

    <dataTypes>

      <dataType name="E_XmlError">

        <baseType>

          <enum>

            <values>

              <value name="Ok" value="0" />

              <value name="ErrorMaxBufferLen" value="1" />

              <value name="ErrorStringLen" value="2" />

              <value name="Error" value="3" />

            </values>

            <baseType>

              <BYTE />

            </baseType>

          </enum>

        </baseType>

        <addData>

          <data name="http://www.3s-software.com/plcopenxml/attributes" handleUnknown="implementation">

            <Attributes>

              <Attribute Name="qualified_only" Value="" />

              <Attribute Name="strict" Value="" />

            </Attributes>

          </data>

          <data name="http://www.3s-software.com/plcopenxml/objectid" handleUnknown="discard">

            <ObjectId>05a4fdda-1086-47b5-ad10-7c2bac568355</ObjectId>

          </data>

        </addData>

      </dataType>

      <dataType name="T_MaxString">

        <baseType>

          <string length="255" />

        </baseType>

        <addData>

          <data name="http://www.3s-software.com/plcopenxml/objectid" handleUnknown="discard">

            <ObjectId>a429e267-db3b-4872-871e-1ca509b971e2</ObjectId>

          </data>

        </addData>

      </dataType>

    </dataTypes>

    <pous>

      <pou name="prg_Example" pouType="program">

        <interface>

          <localVars>

            <variable name="XmlPac">

              <type>

                <derived name="FB_XmlPac" />

              </type>

            </variable>

            <variable name="XmlFileFormatter">

              <type>

                <derived name="FB_XmlFileFormatter" />

              </type>

            </variable>

            <variable name="xUnitFileComposer">

              <type>

                <derived name="I_TestResultFormatter" />

              </type>

              <initialValue>

                <simpleValue value="XmlFileFormatter" />

              </initialValue>

            </variable>

            <variable name="BusyGeneratingXml">

              <type>

                <BOOL />

              </type>

            </variable>

            <variable name="DoneGeneratingXml">

              <type>

                <BOOL />

              </type>

            </variable>

            <variable name="NumberOfTestSuitesFinished">

              <type>

                <UINT />

              </type>

              <initialValue>

                <simpleValue value="3" />

              </initialValue>

            </variable>

            <variable name="NumberOfTestCases">

              <type>

                <UINT />

              </type>

              <initialValue>

                <simpleValue value="9" />

              </initialValue>

            </variable>

            <variable name="NumberOfSuccessfulTestCases">

              <type>

                <UINT />

              </type>

              <initialValue>

                <simpleValue value="0" />

              </initialValue>

            </variable>

            <variable name="NumberOfFailedTestCases">

              <type>

                <UINT />

              </type>

              <initialValue>

                <simpleValue value="9" />

              </initialValue>

            </variable>

          </localVars>

        </interface>

        <body>

          <ST>

            <xhtml xmlns="http://www.w3.org/1999/xhtml">XmlPac();

IF NOT DoneGeneratingXml THEN

    xUnitFileComposer.Format(NumberOfTestSuites := NumberOfTestSuitesFinished,

                               NumberOfTestCases := NumberOfTestCases,

                               NumberOfSuccessfulTestCases := NumberOfSuccessfulTestCases,

                               NumberOfFailedTestCases := NumberOfFailedTestCases,

                               Busy => BusyGeneratingXml);

    DoneGeneratingXml := NOT BusyGeneratingXml;  

END_IF;</xhtml>

          </ST>

        </body>

        <addData>

          <data name="http://www.3s-software.com/plcopenxml/objectid" handleUnknown="discard">

            <ObjectId>917c49f4-3643-42fe-b791-ac2edc0df35b</ObjectId>

          </data>

        </addData>

      </pou>

      <pou name="FB_XmlFileFormatter" pouType="functionBlock">

        <interface>

          <inputVars>

            <variable name="stFileAccessMode">

              <type>

                <derived name="SysFile.ACCESS_MODE" />

              </type>

              <initialValue>

                <simpleValue value="SysFile.AM_WRITE_PLUS" />

              </initialValue>

              <documentation>

                <xhtml xmlns="http://www.w3.org/1999/xhtml"> Default file access mode </xhtml>

              </documentation>

            </variable>

          </inputVars>

          <localVars>

            <variable name="szFilename">

              <type>

                <string />

              </type>

              <initialValue>

                <simpleValue value="''" />

              </initialValue>

            </variable>

            <variable name="xBufferInitialised">

              <type>

                <BOOL />

              </type>

              <initialValue>

                <simpleValue value="FALSE" />

              </initialValue>

              <documentation>

                <xhtml xmlns="http://www.w3.org/1999/xhtml"> Is buffer Initialised? </xhtml>

              </documentation>

            </variable>

            <variable name="File">

              <type>

                <derived name="FB_FileControl" />

              </type>

            </variable>

            <variable name="Xml">

              <type>

                <derived name="FB_XmlControl" />

              </type>

            </variable>

            <variable name="Buffer">

              <type>

                <string length="GVL_Param_XmlControl.MaxFileSize" />

              </type>

              <documentation>

                <xhtml xmlns="http://www.w3.org/1999/xhtml"> Buffer : ARRAY [0..GVL_Param_XmlControl.MaxFileSize-1] OF BYTE;

 Or</xhtml>

              </documentation>

            </variable>

          </localVars>

          <addData>

            <data name="http://www.3s-software.com/plcopenxml/pouinheritance" handleUnknown="implementation">

              <Inheritance>

                <Implements>I_TestResultFormatter</Implements>

              </Inheritance>

            </data>

          </addData>

          <documentation>

            <xhtml xmlns="http://www.w3.org/1999/xhtml">

    This function block reports the results from the tests into a xUnit compatible XmlFile

</xhtml>

          </documentation>

        </interface>

        <body>

          <ST>

            <xhtml xmlns="http://www.w3.org/1999/xhtml" />

          </ST>

        </body>

        <addData>

          <data name="http://www.3s-software.com/plcopenxml/method" handleUnknown="implementation">

            <Method name="Format" ObjectId="b6b6021c-eac1-4ed2-91cd-9954fbe29c28">

              <interface>

                <inputVars>

                  <variable name="NumberOfTestSuites">

                    <type>

                      <UINT />

                    </type>

                    <documentation>

                      <xhtml xmlns="http://www.w3.org/1999/xhtml"> The total number of test suites </xhtml>

                    </documentation>

                  </variable>

                  <variable name="NumberOfTestCases">

                    <type>

                      <UINT />

                    </type>

                    <documentation>

                      <xhtml xmlns="http://www.w3.org/1999/xhtml"> The total number of test cases (for all test function blocks) </xhtml>

                    </documentation>

                  </variable>

                  <variable name="NumberOfSuccessfulTestCases">

                    <type>

                      <UINT />

                    </type>

                    <documentation>

                      <xhtml xmlns="http://www.w3.org/1999/xhtml"> The total number of test cases that had all ASSERTS successful </xhtml>

                    </documentation>

                  </variable>

                  <variable name="NumberOfFailedTestCases">

                    <type>

                      <UINT />

                    </type>

                    <documentation>

                      <xhtml xmlns="http://www.w3.org/1999/xhtml"> The total number of test cases that had at least one ASSERT failed </xhtml>

                    </documentation>

                  </variable>

                </inputVars>

                <localVars>

                  <variable name="SuiteCounter">

                    <type>

                      <UINT />

                    </type>

                  </variable>

                  <variable name="TestCounter">

                    <type>

                      <UINT />

                    </type>

                  </variable>

                  <variable name="TestSuiteName">

                    <type>

                      <derived name="T_MaxString" />

                    </type>

                  </variable>

                  <variable name="NumberOfFailedTestsInCurrentSuite">

                    <type>

                      <UINT />

                    </type>

                  </variable>

                  <variable name="NumberOfTestsInCurrentSuite">

                    <type>

                      <UINT />

                    </type>

                  </variable>

                  <variable name="TestCaseName">

                    <type>

                      <derived name="T_MaxString" />

                    </type>

                  </variable>

                  <variable name="AssertResult">

                    <type>

                      <derived name="T_MaxString" />

                    </type>

                  </variable>

                </localVars>

                <outputVars>

                  <variable name="Busy">

                    <type>

                      <BOOL />

                    </type>

                  </variable>

                </outputVars>

                <documentation>

                  <xhtml xmlns="http://www.w3.org/1999/xhtml"> Responsible for formatting the xml file skeleton

  <testsuites>        => the aggregated result OF all xunit testfiles

   <testsuite>       => the output from a single TestSuite

     <properties>    => the defined properties at test execution

       <property>    => name/value pair for a single property

       ...

     </properties>

     <error></error> => optional information, in place of a test case - normally if the tests in the suite could not be found etc.

     <testcase>      => the results from executing a test method

       <system-out>  => data written to System.out during the test run

       <system-err>  => data written to System.err during the test run

       <skipped/>    => test was skipped

       <failure>     => test failed

       <error>       => test encountered an error

     </testcase>

     ...

   </testsuite>

   ...

 &lt;/testsuites&gt;</xhtml>

                </documentation>

              </interface>

              <body>

                <ST>

                  <xhtml xmlns="http://www.w3.org/1999/xhtml">Busy := TRUE;

NumberOfTestsInCurrentSuite := 3;

IF NumberOfFailedTestCases > 0 THEN

    LOGSTR(msgCtrlMask := UDINT_TO_DWORD(CmpLog.LogClass.LOG_INFO),

           msgFmtStr := '%s',

           strArg := '| ========= Export Xml Report =========');

    (* <?xml version="1.0" encoding="UTF-8"?> *)

    Xml.writeDocumentHeader(Header := '<?xml version="1.0" encoding="UTF-8"?>');

    xml.NewTag('testsuites');

    FOR SuiteCounter := 1 TO NumberOfTestSuites BY 1 DO 

        (* <testsuite> *)

        xml.NewTag('testsuite');

        (* name="name" *)

        //TestSuiteInstancePath := 'TestInstancePath'

        TestSuiteName := 'TestSuiteName';

        Xml.NewParameter('name', TestSuiteName);

        (* <testsuite errors="errors"> *)

        //NumberOfFailedTestsInCurrentSuite := UINT_TO_STRING(NumberOfFailedTestCases);

        Xml.NewParameter('errors', UINT_TO_STRING(NumberOfFailedTestsInCurrentSuite));

        (* <testsuite errors="errors" tests="tests">*)

        Xml.NewParameter('tests', UINT_TO_STRING(NumberOfTestsInCurrentSuite));

        (* close testsuite *)

        Xml.CloseTag();

        FOR TestCounter := 1 TO NumberOfTestsInCurrentSuite BY 1 DO

            //IF GVL_CfUnit.TestSuiteAddresses[SuiteCounter]^.Tests[TestCounter].IsFailed() THEN

            IF TRUE THEN

                (* get testcase name *)

                //TestCaseName :=  GVL_CfUnit.TestSuiteAddresses[SuiteCounter]^.Tests[TestCounter].GetName();

                TestCaseName := 'TestCaseName';

                Xml.NewTag('testcase');

                Xml.NewParameter('name', TestCaseName);

                (* close testcase *)

                Xml.CloseTag();    

                Xml.NewTag('failure');

                //AssertResult := GVL_CfUnit.TestSuiteAddresses[SuiteCounter]^.AssertResults.AssertResults[TestCounter];

                //Xml.NewParameter('message', AssertResult.Message );

                Xml.NewParameter('message', 'AssertResultMessage' );

                Xml.NewTagData('Assertion failed');

                (* close failure *)

                Xml.CloseTag();

            END_IF

        END_FOR

    END_FOR

    (* Close testsuites *)

    Xml.CloseTag();

    (* Open, save and close the file *)

    OpenSaveAndClose();

END_IF

Busy := FALSE;</xhtml>

                </ST>

              </body>

              <addData />

            </Method>

          </data>

          <data name="http://www.3s-software.com/plcopenxml/method" handleUnknown="implementation">

            <Method name="FB_Init" ObjectId="0f23c47b-7245-415e-b489-0ae429217263">

              <interface>

                <returnType>

                  <BOOL />

                </returnType>

                <inputVars>

                  <variable name="bInitRetains">

                    <type>

                      <BOOL />

                    </type>

                    <documentation>

                      <xhtml xmlns="http://www.w3.org/1999/xhtml"> TRUE: the retain variables are initialized (reset warm / reset cold)</xhtml>

                    </documentation>

                  </variable>

                  <variable name="bInCopyCode">

                    <type>

                      <BOOL />

                    </type>

                    <documentation>

                      <xhtml xmlns="http://www.w3.org/1999/xhtml"> TRUE: the instance will be copied to the copy code afterward (online change)</xhtml>

                    </documentation>

                  </variable>

                </inputVars>

                <documentation>

                  <xhtml xmlns="http://www.w3.org/1999/xhtml">FB_Init is always available implicitly and it is used primarily for initialization.

The return value is not evaluated. For a specific influence, you can also declare the

methods explicitly and provide additional code there with the standard initialization

code. You can evaluate the return value.</xhtml>

                </documentation>

              </interface>

              <body>

                <ST>

                  <xhtml xmlns="http://www.w3.org/1999/xhtml">// Set Filepath

szFilename := GVL_Param_XmlControl.FilePath;

// Set buffer and flag

Xml.SetBuffer(pString := ADR(Buffer), iSizeOf := SIZEOF(Buffer));

xBufferInitialised := TRUE;</xhtml>

                </ST>

              </body>

              <addData />

            </Method>

          </data>

          <data name="http://www.3s-software.com/plcopenxml/method" handleUnknown="implementation">

            <Method name="OpenSaveAndClose" ObjectId="bdefa095-3448-4b85-b486-ff4d5205677b">

              <interface>

                <returnType>

                  <BOOL />

                </returnType>

                <addData>

                  <data name="http://www.3s-software.com/plcopenxml/accessmodifiers" handleUnknown="implementation">

                    <AccessModifiers Private="true" />

                  </data>

                </addData>

              </interface>

              <body>

                <ST>

                  <xhtml xmlns="http://www.w3.org/1999/xhtml">// write buffer to a file

File.Open(Filename := szFilename, FileAccessMode := stFileAccessMode);

File.Save(pString := ADR(Buffer), xml.Length );

File.Close();

Xml.ClearBuffer();</xhtml>

                </ST>

              </body>

              <addData />

            </Method>

          </data>

          <data name="http://www.3s-software.com/plcopenxml/objectid" handleUnknown="discard">

            <ObjectId>6597c0b3-0890-4d5d-8d3a-2d0d0b2355db</ObjectId>

          </data>

        </addData>

      </pou>

      <pou name="FB_FileControl" pouType="functionBlock">

        <interface>

          <localVars>

            <variable name="FileAccessMode">

              <type>

                <derived name="SysFile.ACCESS_MODE" />

              </type>

              <initialValue>

                <simpleValue value="SysFile.AM_WRITE_PLUS" />

              </initialValue>

              <addData>

                <data name="http://www.3s-software.com/plcopenxml/attributes" handleUnknown="implementation">

                  <Attributes>

                    <Attribute Name="hide" Value="" />

                  </Attributes>

                </data>

              </addData>

            </variable>

            <variable name="FileHandle">

              <type>

                <derived name="SysFile.SysTypes.RTS_IEC_HANDLE" />

              </type>

              <addData>

                <data name="http://www.3s-software.com/plcopenxml/attributes" handleUnknown="implementation">

                  <Attributes>

                    <Attribute Name="hide" Value="" />

                  </Attributes>

                </data>

              </addData>

            </variable>

          </localVars>

          <addData>

            <data name="http://www.3s-software.com/plcopenxml/attributes" handleUnknown="implementation">

              <Attributes>

                <Attribute Name="hide_all_locals" Value="" />

              </Attributes>

            </data>

          </addData>

        </interface>

        <body>

          <ST>

            <xhtml xmlns="http://www.w3.org/1999/xhtml" />

          </ST>

        </body>

        <addData>

          <data name="http://www.3s-software.com/plcopenxml/method" handleUnknown="implementation">

            <Method name="Close" ObjectId="519e9011-283c-40b1-afd4-31686c5b81fe">

              <interface>

                <returnType>

                  <derived name="SysFile.SysTypes.RTS_IEC_RESULT" />

                </returnType>

                <documentation>

                  <xhtml xmlns="http://www.w3.org/1999/xhtml"> Closes the current file</xhtml>

                </documentation>

              </interface>

              <body>

                <ST>

                  <xhtml xmlns="http://www.w3.org/1999/xhtml">IF FileHandle &lt;&gt; SysFile.SysTypes.RTS_INVALID_HANDLE THEN

    Close := SysFile.SysFileClose(hFile := FileHandle);

END_IF</xhtml>

                </ST>

              </body>

              <addData />

            </Method>

          </data>

          <data name="http://www.3s-software.com/plcopenxml/method" handleUnknown="implementation">

            <Method name="Open" ObjectId="1873bb2c-c6a3-4681-8948-02aa2bad0a9b">

              <interface>

                <returnType>

                  <derived name="SysFile.SysTypes.RTS_IEC_RESULT" />

                </returnType>

                <inputVars>

                  <variable name="FileName">

                    <type>

                      <derived name="T_MaxString" />

                    </type>

                    <initialValue>

                      <simpleValue value="'filepath/output.xml'" />

                    </initialValue>

                    <documentation>

                      <xhtml xmlns="http://www.w3.org/1999/xhtml"> File name can contain an absolute or relative path to the file. Path entries must be separated with a Slash (/)</xhtml>

                    </documentation>

                  </variable>

                  <variable name="FileAccessMode">

                    <type>

                      <derived name="SysFile.ACCESS_MODE" />

                    </type>

                    <initialValue>

                      <simpleValue value="SysFile.ACCESS_MODE.AM_APPEND_PLUS" />

                    </initialValue>

                  </variable>

                </inputVars>

                <documentation>

                  <xhtml xmlns="http://www.w3.org/1999/xhtml"> Opens a file</xhtml>

                </documentation>

              </interface>

              <body>

                <ST>

                  <xhtml xmlns="http://www.w3.org/1999/xhtml">FileHandle := SysFile.SysFileOpen(szFile := Filename,

                                  am := FileAccessMode,

                                  pResult := ADR(Open));</xhtml>

                </ST>

              </body>

              <addData />

            </Method>

          </data>

          <data name="http://www.3s-software.com/plcopenxml/method" handleUnknown="implementation">

            <Method name="Read" ObjectId="3984ae50-1cdb-4045-af99-0bb56917afb2">

              <interface>

                <returnType>

                  <derived name="SysFile.SysTypes.RTS_IEC_RESULT" />

                </returnType>

                <inputVars>

                  <variable name="pString">

                    <type>

                      <pointer>

                        <baseType>

                          <BYTE />

                        </baseType>

                      </pointer>

                    </type>

                    <documentation>

                      <xhtml xmlns="http://www.w3.org/1999/xhtml"> Call with ADR();</xhtml>

                    </documentation>

                  </variable>

                  <variable name="Size">

                    <type>

                      <UDINT />

                    </type>

                    <documentation>

                      <xhtml xmlns="http://www.w3.org/1999/xhtml"> Call with SIZEOF(); </xhtml>

                    </documentation>

                  </variable>

                </inputVars>

                <outputVars>

                  <variable name="FileSize">

                    <type>

                      <derived name="SysFile.SysTypes.RTS_IEC_SIZE" />

                    </type>

                  </variable>

                </outputVars>

              </interface>

              <body>

                <ST>

                  <xhtml xmlns="http://www.w3.org/1999/xhtml">IF FileHandle &lt;&gt; SysFile.SysTypes.RTS_INVALID_HANDLE THEN

    FileSize := SysFile.SysFileread(hFile := FileHandle, 

                                    pbyBuffer := pString,

                                    ulSize := Size,

                                    pResult := ADR(Read));

END_IF</xhtml>

                </ST>

              </body>

              <addData />

            </Method>

          </data>

          <data name="http://www.3s-software.com/plcopenxml/method" handleUnknown="implementation">

            <Method name="Save" ObjectId="c4146a99-50c6-4ce0-88ab-794dbfb1af62">

              <interface>

                <returnType>

                  <derived name="SysFile.SysTypes.RTS_IEC_RESULT" />

                </returnType>

                <inputVars>

                  <variable name="pString">

                    <type>

                      <pointer>

                        <baseType>

                          <BYTE />

                        </baseType>

                      </pointer>

                    </type>

                    <documentation>

                      <xhtml xmlns="http://www.w3.org/1999/xhtml"> Call with ADR();</xhtml>

                    </documentation>

                  </variable>

                  <variable name="Size">

                    <type>

                      <UDINT />

                    </type>

                    <documentation>

                      <xhtml xmlns="http://www.w3.org/1999/xhtml"> Call with SIZEOF();</xhtml>

                    </documentation>

                  </variable>

                </inputVars>

                <documentation>

                  <xhtml xmlns="http://www.w3.org/1999/xhtml"> Saves the contents of the buffer into a file

 Be sure to call Open() before calling Save()</xhtml>

                </documentation>

              </interface>

              <body>

                <ST>

                  <xhtml xmlns="http://www.w3.org/1999/xhtml">IF FileHandle &lt;&gt; SysFile.SysTypes.RTS_INVALID_HANDLE THEN

    SysFile.SysFileWrite(hFile := FileHandle,

                         pbyBuffer := pString,

                         ulSize := Size,

                         pResult := ADR(Save));

END_IF</xhtml>

                </ST>

              </body>

              <addData />

            </Method>

          </data>

          <data name="http://www.3s-software.com/plcopenxml/objectid" handleUnknown="discard">

            <ObjectId>c9bec8fc-2de3-45f4-b839-e6c4276a6b5a</ObjectId>

          </data>

        </addData>

      </pou>

      <pou name="FB_StreamBuffer" pouType="functionBlock">

        <interface>

          <localVars>

            <variable name="pStrBuf">

              <type>

                <pointer>

                  <baseType>

                    <BYTE />

                  </baseType>

                </pointer>

              </type>

            </variable>

            <variable name="udiBufSize">

              <type>

                <UDINT />

              </type>

            </variable>

            <variable name="udiLength">

              <type>

                <UDINT />

              </type>

            </variable>

          </localVars>

          <documentation>

            <xhtml xmlns="http://www.w3.org/1999/xhtml">

    This functionblock acts as a stream buffer for use with FB_XmlControl

</xhtml>

          </documentation>

        </interface>

        <body>

          <ST>

            <xhtml xmlns="http://www.w3.org/1999/xhtml" />

          </ST>

        </body>

        <addData>

          <data name="http://www.3s-software.com/plcopenxml/method" handleUnknown="implementation">

            <Method name="Clear" ObjectId="5f0bbce2-2600-4a2e-8c6f-4b957ad03395">

              <interface>

                <localVars>

                  <variable name="i">

                    <type>

                      <UDINT />

                    </type>

                  </variable>

                </localVars>

                <documentation>

                  <xhtml xmlns="http://www.w3.org/1999/xhtml"> Clears the buffer and sets the length to 0</xhtml>

                </documentation>

              </interface>

              <body>

                <ST>

                  <xhtml xmlns="http://www.w3.org/1999/xhtml">IF (pStrBuf = 0) OR (udiBufsize = 0) THEN

    RETURN;

END_IF

FOR i := 0 TO (udiBufsize-1) DO

    pStrBuf[i] := 0;

END_FOR

udiLength := 0; </xhtml>

                </ST>

              </body>

              <addData />

            </Method>

          </data>

          <data name="http://www.3s-software.com/plcopenxml/method" handleUnknown="implementation">

            <Method name="Copy" ObjectId="b796dd60-63f5-4b75-acc5-8fa40e24be46">

              <interface>

                <returnType>

                  <derived name="T_MaxString" />

                </returnType>

                <inputVars>

                  <variable name="udiStart">

                    <type>

                      <UDINT />

                    </type>

                  </variable>

                  <variable name="udiEnd">

                    <type>

                      <UDINT />

                    </type>

                  </variable>

                </inputVars>

                <outputVars>

                  <variable name="udiCopyLen">

                    <type>

                      <UDINT />

                    </type>

                  </variable>

                  <variable name="XmlError">

                    <type>

                      <derived name="E_XmlError" />

                    </type>

                  </variable>

                </outputVars>

                <localVars>

                  <variable name="udiLoop">

                    <type>

                      <UDINT />

                    </type>

                  </variable>

                  <variable name="pByteCopy">

                    <type>

                      <pointer>

                        <baseType>

                          <BYTE />

                        </baseType>

                      </pointer>

                    </type>

                  </variable>

                  <variable name="pByteBuffer">

                    <type>

                      <pointer>

                        <baseType>

                          <BYTE />

                        </baseType>

                      </pointer>

                    </type>

                  </variable>

                </localVars>

                <documentation>

                  <xhtml xmlns="http://www.w3.org/1999/xhtml">

    Copies a string from the character buffer

</xhtml>

                </documentation>

              </interface>

              <body>

                <ST>

                  <xhtml xmlns="http://www.w3.org/1999/xhtml">udiLoop := 0;

pByteCopy := ADR(Copy);

pByteBuffer := pStrBuf + udiStart - 1;

WHILE(udiLoop < SIZEOF(Copy)) AND udiStart - 1 + udiLoop < udiLength AND udiStart + udiLoop < udiEnd DO

    pByteCopy^ := pByteBuffer^;

    udiLoop := udiLoop + 1;

    pByteCopy := ADR(Copy) + udiLoop;

    pByteBuffer := pStrBuf + udiStart + udiLoop -1;

END_WHILE;

IF udiLoop = SIZEOF(Copy) THEN

    XmlError := E_XmlError.ErrorStringLen;

ELSIF udiStart - 1 + udiLoop = udiLength THEN

    XmlError := E_XmlError.ErrorMaxBufferLen;

ELSE

    XmlError := E_XmlError.OK;

END_IF;

pByteCopy^ := 0;

udiCopyLen :=  udiLoop;</xhtml>

                </ST>

              </body>

              <addData />

            </Method>

          </data>

          <data name="http://www.3s-software.com/plcopenxml/method" handleUnknown="implementation">

            <Method name="CutOff" ObjectId="8914e4f8-8b6c-48c3-ba1f-e0642038624a">

              <interface>

                <returnType>

                  <string />

                </returnType>

                <inputVars>

                  <variable name="udiStartPos">

                    <type>

                      <UDINT />

                    </type>

                  </variable>

                </inputVars>

                <outputVars>

                  <variable name="udiCutLen">

                    <type>

                      <UDINT />

                    </type>

                  </variable>

                  <variable name="XmlError">

                    <type>

                      <derived name="E_XmlError" />

                    </type>

                  </variable>

                </outputVars>

                <localVars>

                  <variable name="iLoop">

                    <type>

                      <UDINT />

                    </type>

                  </variable>

                  <variable name="pByteCut">

                    <type>

                      <pointer>

                        <baseType>

                          <BYTE />

                        </baseType>

                      </pointer>

                    </type>

                  </variable>

                  <variable name="pByteBuffer">

                    <type>

                      <pointer>

                        <baseType>

                          <BYTE />

                        </baseType>

                      </pointer>

                    </type>

                  </variable>

                </localVars>

              </interface>

              <body>

                <ST>

                  <xhtml xmlns="http://www.w3.org/1999/xhtml">iLoop := 0;

pByteCut := ADR(CutOff);

pByteBuffer := pStrBuf + udiStartPos - 1;

WHILE pByteBuffer^ <> 0 AND(iLoop < SIZEOF(CutOff)) AND udiStartPos -1  + iLoop < udiLength DO

    pByteCut^ := pByteBuffer^;

    iLoop := iLoop + 1;

    pByteCut := ADR(CutOff) + iLoop;

    pByteBuffer := pStrBuf + udiStartPos - 1 + iLoop;

END_WHILE;

IF pByteBuffer^ = 0 THEN

    XmlError := E_XmlError.OK;

ELSIF iLoop = SIZEOF(CutOff) THEN

    XmlError := E_XmlError.ErrorStringLen;

ELSIF udiStartPos -1 + iLoop = udiLength THEN

    XmlError := E_XmlError.ErrorMaxBufferLen;

END_IF;

pByteCut^ := 0;

udiLength := udiStartPos -1;

pByteBuffer := pStrBuf + udiStartPos - 1;

pByteBuffer^ := 0;

udiCutLen := iLoop;</xhtml>

                </ST>

              </body>

              <addData />

            </Method>

          </data>

          <data name="http://www.3s-software.com/plcopenxml/method" handleUnknown="implementation">

            <Method name="Find" ObjectId="7e38490a-9555-451d-957e-fef284a567e3">

              <interface>

                <returnType>

                  <UDINT />

                </returnType>

                <inputVars>

                  <variable name="sSearchString">

                    <type>

                      <string />

                    </type>

                  </variable>

                  <variable name="udiStartPos">

                    <type>

                      <UDINT />

                    </type>

                  </variable>

                </inputVars>

                <localVars>

                  <variable name="udiLoop">

                    <type>

                      <UDINT />

                    </type>

                  </variable>

                  <variable name="iSearch">

                    <type>

                      <UDINT />

                    </type>

                  </variable>

                  <variable name="pBuffer">

                    <type>

                      <pointer>

                        <baseType>

                          <BYTE />

                        </baseType>

                      </pointer>

                    </type>

                  </variable>

                  <variable name="pSearch">

                    <type>

                      <pointer>

                        <baseType>

                          <BYTE />

                        </baseType>

                      </pointer>

                    </type>

                  </variable>

                </localVars>

                <documentation>

                  <xhtml xmlns="http://www.w3.org/1999/xhtml"> 

    Find a searchstring in the buffer and returns its position.

    It's possible to add a preffered startposition within buffer

</xhtml>

                </documentation>

              </interface>

              <body>

                <ST>

                  <xhtml xmlns="http://www.w3.org/1999/xhtml">udiLoop := 0;

iSearch := 0;

pBuffer := pStrBuf + udiStartPos;

pSearch := ADR( sSearchString);

WHILE(pSearch^ <> 0 ) AND udiLoop + udiStartPos < udiLength DO

    IF pBuffer^ <> pSearch^ THEN

        udiLoop := udiLoop + 1;

        pBuffer := pStrBuf + udiStartPos + udiLoop;

        pSearch := ADR( sSearchString);

        iSearch := 0;

    ELSE

        iSearch := iSearch +1;

        pBuffer := pStrBuf + udiStartPos + udiLoop + iSearch;

        pSearch := ADR( sSearchString ) + iSearch;

    END_IF;

END_WHILE;

Find := udiLoop + 1 + udiStartPos;</xhtml>

                </ST>

              </body>

              <addData />

            </Method>

          </data>

          <data name="http://www.3s-software.com/plcopenxml/method" handleUnknown="implementation">

            <Method name="FindBack" ObjectId="7d08b204-2078-4fde-81eb-e04d71986196">

              <interface>

                <returnType>

                  <UDINT />

                </returnType>

                <inputVars>

                  <variable name="sSearchString">

                    <type>

                      <derived name="T_MaxString" />

                    </type>

                  </variable>

                </inputVars>

                <localVars>

                  <variable name="udiLoop">

                    <type>

                      <UDINT />

                    </type>

                  </variable>

                  <variable name="udiSearch">

                    <type>

                      <UDINT />

                    </type>

                  </variable>

                  <variable name="pBuffer">

                    <type>

                      <pointer>

                        <baseType>

                          <BYTE />

                        </baseType>

                      </pointer>

                    </type>

                  </variable>

                  <variable name="pSearch">

                    <type>

                      <pointer>

                        <baseType>

                          <BYTE />

                        </baseType>

                      </pointer>

                    </type>

                  </variable>

                </localVars>

              </interface>

              <body>

                <ST>

                  <xhtml xmlns="http://www.w3.org/1999/xhtml">udiLoop := 0;

udiSearch := 0;

pBuffer := pStrBuf + udiLength;

pSearch := ADR(sSearchString);

WHILE(pSearch^ <> 0 ) AND udiLoop < udiLength DO

    IF pBuffer^ <> pSearch^ THEN

        udiLoop := udiLoop + 1;

        pBuffer := pStrBuf + udiLength - udiLoop;

        pSearch := ADR( sSearchString);

        udiSearch := 0;

    ELSE

        udiSearch := udiSearch + 1;

        pBuffer := pStrBuf + udiLength - udiLoop + udiSearch;

        pSearch := ADR( sSearchString ) + udiSearch;

    END_IF;

END_WHILE;

FindBack :=  udiLength - udiLoop + 1;</xhtml>

                </ST>

              </body>

              <addData />

            </Method>

          </data>

          <data name="http://www.3s-software.com/plcopenxml/method" handleUnknown="implementation">

            <Method name="Set" ObjectId="59092938-ca22-4896-8f54-1c854a0bd883">

              <interface>

                <returnType>

                  <BOOL />

                </returnType>

                <inputVars>

                  <variable name="pbyAdr">

                    <type>

                      <pointer>

                        <baseType>

                          <BYTE />

                        </baseType>

                      </pointer>

                    </type>

                    <documentation>

                      <xhtml xmlns="http://www.w3.org/1999/xhtml"> Set buffer adress (ADR ...)</xhtml>

                    </documentation>

                  </variable>

                  <variable name="udiSize">

                    <type>

                      <UDINT />

                    </type>

                    <documentation>

                      <xhtml xmlns="http://www.w3.org/1999/xhtml"> Set buffer size (SIZEOF ...)</xhtml>

                    </documentation>

                  </variable>

                </inputVars>

                <documentation>

                  <xhtml xmlns="http://www.w3.org/1999/xhtml"> Sets the Buffer </xhtml>

                </documentation>

              </interface>

              <body>

                <ST>

                  <xhtml xmlns="http://www.w3.org/1999/xhtml">IF (pbyAdr = 0) OR (udiSize = 0) THEN

    Set := FALSE;

    RETURN;

END_IF;

udiBufSize := udiSize;

pStrBuf := pbyAdr;

Set := TRUE;</xhtml>

                </ST>

              </body>

              <addData />

            </Method>

          </data>

          <data name="http://www.3s-software.com/plcopenxml/property" handleUnknown="implementation">

            <Property name="Append" ObjectId="ddd7c0b6-46f9-4fa9-946e-0da608268245">

              <interface>

                <returnType>

                  <derived name="T_MaxString" />

                </returnType>

                <documentation>

                  <xhtml xmlns="http://www.w3.org/1999/xhtml"> Appends a string to the buffer</xhtml>

                </documentation>

              </interface>

              <SetAccessor>

                <interface>

                  <localVars>

                    <variable name="pByteIn">

                      <type>

                        <pointer>

                          <baseType>

                            <BYTE />