Mercurial Mercurial > beremiz / annotate
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
etherlab/pous.xml
author Laurent Bessard
Fri, 09 Nov 2012 11:25:44 +0100
changeset 2090 52b398c75ba9
parent 2086 8e4992e0f147
child 2092 c9776ae8b5d0
permissions -rw-r--r--
Fix bug in EtherLabSDODownload function block
2086
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
     1
 
<?xml version="1.0" encoding="UTF-8"?>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
     2
 
<project xmlns="http://www.plcopen.org/xml/tc6.xsd"
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
     3
 
         xsi:schemaLocation="http://www.plcopen.org/xml/tc6.xsd"
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
     4
 
         xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
     5
 
         xmlns:xhtml="http://www.w3.org/1999/xhtml">
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
     6
 
  <fileHeader companyName="EtherlabMaster"
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
     7
 
              productName="EtherlabMaster"
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
     8
 
              productVersion="1"
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
     9
 
              creationDateTime="2012-10-22T12:12:45"/>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    10
 
  <contentHeader name="EtherlabMaster SDO Blocks"
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    11
 
                 modificationDateTime="2012-10-25T19:53:33">
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    12
 
    <coordinateInfo>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    13
 
      <fbd>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    14
 
        <scaling x="0" y="0"/>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    15
 
      </fbd>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    16
 
      <ld>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    17
 
        <scaling x="0" y="0"/>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    18
 
      </ld>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    19
 
      <sfc>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    20
 
        <scaling x="0" y="0"/>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    21
 
      </sfc>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    22
 
    </coordinateInfo>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    23
 
  </contentHeader>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    24
 
  <types>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    25
 
    <dataTypes/>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    26
 
    <pous>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    27
 
      <pou name="EtherLabSDOUpload" pouType="functionBlock">
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    28
 
        <interface>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    29
 
          <inputVars>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    30
 
            <variable name="EXECUTE">
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    31
 
              <type>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    32
 
                <BOOL/>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    33
 
              </type>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    34
 
            </variable>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    35
 
            <variable name="POS">
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    36
 
              <type>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    37
 
                <INT/>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    38
 
              </type>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    39
 
            </variable>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    40
 
            <variable name="INDEX">
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    41
 
              <type>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    42
 
                <UINT/>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    43
 
              </type>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    44
 
            </variable>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    45
 
            <variable name="SUBINDEX">
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    46
 
              <type>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    47
 
                <USINT/>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    48
 
              </type>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    49
 
            </variable>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    50
 
            <variable name="VARTYPE">
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    51
 
              <type>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    52
 
                <string/>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    53
 
              </type>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    54
 
            </variable>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    55
 
          </inputVars>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    56
 
          <outputVars>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    57
 
            <variable name="ACK">
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    58
 
              <type>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    59
 
                <BOOL/>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    60
 
              </type>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    61
 
            </variable>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    62
 
            <variable name="VALID">
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    63
 
              <type>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    64
 
                <BOOL/>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    65
 
              </type>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    66
 
            </variable>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    67
 
            <variable name="VALUE">
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    68
 
              <type>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    69
 
                <string/>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    70
 
              </type>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    71
 
            </variable>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    72
 
          </outputVars>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    73
 
          <localVars>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    74
 
            <variable name="PY0">
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    75
 
              <type>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    76
 
                <derived name="python_eval"/>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    77
 
              </type>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    78
 
            </variable>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    79
 
            <variable name="PY1">
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    80
 
              <type>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    81
 
                <derived name="python_eval"/>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    82
 
              </type>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    83
 
            </variable>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    84
 
            <variable name="EXECUTE0">
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    85
 
              <type>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    86
 
                <BOOL/>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    87
 
              </type>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    88
 
            </variable>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    89
 
            <variable name="STATE">
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    90
 
              <type>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    91
 
                <INT/>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    92
 
              </type>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    93
 
              <initialValue>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    94
 
                <simpleValue value="0"/>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    95
 
              </initialValue>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    96
 
            </variable>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    97
 
          </localVars>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    98
 
        </interface>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
    99
 
        <body>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
   100
 
          <ST>
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
   101
 
<![CDATA[{extern int AcquireSDOLock();}
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
   102
 
{extern int HasAnswer();}
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
   103
 
{extern void ReleaseSDOLock();}
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
   104
 
CASE STATE OF
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
   105
 
  0:
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
   106
 
    IF EXECUTE AND NOT EXECUTE0 THEN
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
   107
 
      STATE := 1;
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
   108
 
      ACK := 0;
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
   109
 
      VALID := 0;
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
   110
 
      VALUE := 'None';
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
   111
 
    END_IF;
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
   112
 
  1:
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
   113
 
    {if (AcquireSDOLock()) __SET_VAR(data__->,STATE, 2)}
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
   114
 
  2:
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
   115
 
    IF PY0.ACK THEN
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
   116
 
      STATE := 3;
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
   117
 
    END_IF;
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
   118
 
  3:
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
   119
 
    {if (HasAnswer()) __SET_VAR(data__->,STATE, 4)}
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
   120
 
  4:
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
   121
 
    IF PY1.ACK THEN
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
   122
 
      ACK := 1;
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
   123
 
      VALUE := PY1.RESULT;
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
   124
 
      VALID := NE(VALUE, 'None');
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
   125
 
      STATE := 0;
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
   126
 
      {ReleaseSDOLock();}
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
   127
 
    END_IF;
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
   128
 
ELSE
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
   129
 
  STATE := 0;
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
   130
 
END_CASE;
8e4992e0f147 Adding block library for SDO download and SDO upload
Laurent Bessard
parents:
diff changeset 
   131
 












8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   132


EXECUTE0 := EXECUTE;













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   133


PY0(TRIG := STATE = 2, 













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   134


    CODE := CONCAT('EthercatSDOUpload(',













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   135


                   INT_TO_STRING(POS),













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   136


                   ',',













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   137


                   UINT_TO_STRING(INDEX),













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   138


                   ',',













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   139


                   USINT_TO_STRING(SUBINDEX),













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   140


                   ',"',













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   141


                   VARTYPE,













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   142


                   '")'));













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   143


PY1(TRIG := STATE = 4, 













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   144


    CODE := 'GetResult()');













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   145


]]>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   146


          </ST>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   147


        </body>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   148


      </pou>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   149


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













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   150


        <interface>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   151


          <inputVars>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   152


            <variable name="EXECUTE">













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   153


              <type>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   154


                <BOOL/>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   155


              </type>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   156


            </variable>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   157


            <variable name="POS">













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   158


              <type>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   159


                <INT/>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   160


              </type>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   161


            </variable>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   162


            <variable name="INDEX">













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   163


              <type>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   164


                <UINT/>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   165


              </type>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   166


            </variable>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   167


            <variable name="SUBINDEX">













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   168


              <type>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   169


                <USINT/>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   170


              </type>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   171


            </variable>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   172


            <variable name="VARTYPE">













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   173


              <type>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   174


                <string/>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   175


              </type>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   176


            </variable>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   177


            <variable name="VALUE">













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   178


              <type>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   179


                <string/>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   180


              </type>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   181


            </variable>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   182


          </inputVars>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   183


          <outputVars>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   184


            <variable name="ACK">













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   185


              <type>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   186


                <BOOL/>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   187


              </type>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   188


            </variable>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   189


            <variable name="ERROR">













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   190


              <type>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   191


                <BOOL/>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   192


              </type>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   193


            </variable>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   194


          </outputVars>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   195


          <localVars>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   196


            <variable name="PY0">













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   197


              <type>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   198


                <derived name="python_eval"/>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   199


              </type>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   200


            </variable>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   201


            <variable name="PY1">













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   202


              <type>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   203


                <derived name="python_eval"/>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   204


              </type>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   205


            </variable>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   206


            <variable name="EXECUTE0">













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   207


              <type>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   208


                <BOOL/>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   209


              </type>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   210


            </variable>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   211


            <variable name="STATE">













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   212


              <type>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   213


                <INT/>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   214


              </type>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   215


              <initialValue>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   216


                <simpleValue value="0"/>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   217


              </initialValue>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   218


            </variable>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   219


          </localVars>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   220


        </interface>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   221


        <body>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   222


          <ST>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   223


<![CDATA[{extern int AcquireSDOLock();}













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   224


{extern int HasAnswer();}













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   225


{extern void ReleaseSDOLock();}













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   226


CASE STATE OF













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   227


  0:













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   228


    IF EXECUTE AND NOT EXECUTE0 THEN













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   229


      STATE := 1;













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   230


      ACK := 0;













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   231


      ERROR := 0;













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   232


    END_IF;













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   233


  1:













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   234


    {if (AcquireSDOLock()) __SET_VAR(data__->,STATE, 2)}













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   235


  2:













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   236


    IF PY0.ACK THEN













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   237


      STATE := 3;













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   238


    END_IF;













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   239


  3:













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   240


    {if (HasAnswer()) __SET_VAR(data__->,STATE, 4)}













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   241


  4:













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   242


    IF PY1.ACK THEN













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   243


      ACK := 1;













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   244


      ERROR := EQ(PY1.RESULT, 'False');













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   245


      STATE := 0;













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   246


      {ReleaseSDOLock();}













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   247


    END_IF;













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   248


ELSE













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   249


  STATE := 0;













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   250


END_CASE;













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   251


EXECUTE0 := EXECUTE;













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   252


PY0(TRIG := STATE = 2, 













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   253


    CODE := CONCAT('EthercatSDODownload(',













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   254


                   INT_TO_STRING(POS),













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   255


                   ',',













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   256


                   UINT_TO_STRING(INDEX),













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   257


                   ',',













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   258


                   USINT_TO_STRING(SUBINDEX),













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   259


                   ',"',













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   260


                   VARTYPE,













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   261


                   '",',













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   262


                   VALUE,













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   263


                   ')'));













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   264


PY1(TRIG := STATE = 4, 













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   265


    CODE := 'GetResult()');













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   266


]]>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   267


          </ST>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   268


        </body>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   269


      </pou>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   270


    </pous>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   271


  </types>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   272


  <instances>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   273


    <configurations/>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   274


  </instances>













8e4992e0f147
Adding block library for SDO download and SDO upload



Laurent Bessard


parents: 

diff
changeset




   275


</project>













beremiz