beremiz: plcopen/Additional_Function

Fix crash if LD input contact isn't connected

Traceback (most recent call last):
File "/home/developer/WorkData/PLC/beremiz/beremiz/BeremizIDE.py", line 339, in OnMethod
obj.CTR.CallMethod('_'+meth)
File "/home/developer/WorkData/PLC/beremiz/beremiz/ProjectController.py", line 1996, in CallMethod
getattr(self, method)()
File "/home/developer/WorkData/PLC/beremiz/beremiz/ProjectController.py", line 1134, in _Build
IECGenRes = self._Generate_SoftPLC()
File "/home/developer/WorkData/PLC/beremiz/beremiz/ProjectController.py", line 746, in _Generate_SoftPLC
if self._Generate_PLC_ST():
File "/home/developer/WorkData/PLC/beremiz/beremiz/ProjectController.py", line 763, in _Generate_PLC_ST
self._getIECgeneratedcodepath())
File "/home/developer/WorkData/PLC/beremiz/beremiz/PLCControler.py", line 456, in GenerateProgram
self.ProgramChunks = GenerateCurrentProgram(self, self.Project, errors, warnings)
File "/home/developer/WorkData/PLC/beremiz/beremiz/PLCGenerator.py", line 1762, in GenerateCurrentProgram
generator.GenerateProgram()
File "/home/developer/WorkData/PLC/beremiz/beremiz/PLCGenerator.py", line 478, in GenerateProgram
self.GeneratePouProgram(pou_name)
File "/home/developer/WorkData/PLC/beremiz/beremiz/PLCGenerator.py", line 260, in GeneratePouProgram
program = pou_program.GenerateProgram(pou)
File "/home/developer/WorkData/PLC/beremiz/beremiz/PLCGenerator.py", line 1718, in GenerateProgram
self.ComputeProgram(pou)
File "/home/developer/WorkData/PLC/beremiz/beremiz/PLCGenerator.py", line 1028, in ComputeProgram
self.GenerateBlock(instance, block_infos, body, None)
File "/home/developer/WorkData/PLC/beremiz/beremiz/PLCGenerator.py", line 1144, in GenerateBlock
expression = self.ComputeExpression(body, connections, executionOrderId > 0)
File "/home/developer/WorkData/PLC/beremiz/beremiz/PLCGenerator.py", line 1373, in ComputeExpression
paths = self.GeneratePaths(connections, body, order, to_inout)
File "/home/developer/WorkData/PLC/beremiz/beremiz/PLCGenerator.py", line 1344, in GeneratePaths
elif isinstance(result[0], list):
IndexError: list index out of range

Close #70

<?xml version='1.0' encoding='utf-8'?>
<project xmlns:ns1="http://www.plcopen.org/xml/tc6_0201" xmlns:xhtml="http://www.w3.org/1999/xhtml" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="http://www.plcopen.org/xml/tc6_0201">
  <fileHeader companyName="Beremiz" productName="Additional Function Blocks Library" productVersion="1.0" creationDateTime="2013-09-09T09:56:11"/>
  <contentHeader name="Standard Funtion Blocks" author="Laurent Bessard" modificationDateTime="2013-09-10T22:45:31">
    <coordinateInfo>
      <fbd>
        <scaling x="0" y="0"/>
      </fbd>
      <ld>
        <scaling x="0" y="0"/>
      </ld>
      <sfc>
        <scaling x="0" y="0"/>
      </sfc>
    </coordinateInfo>
  </contentHeader>
  <types>
    <dataTypes/>
    <pous>
      <pou name="RTC" pouType="functionBlock">
        <interface>
          <inputVars>
            <variable name="IN">
              <type>
                <BOOL/>
              </type>
              <documentation>
                <xhtml:p><![CDATA[0 - current time, 1 - load time from PDT]]></xhtml:p>
              </documentation>
            </variable>
            <variable name="PDT">
              <type>
                <DT/>
              </type>
              <documentation>
                <xhtml:p><![CDATA[Preset datetime]]></xhtml:p>
              </documentation>
            </variable>
          </inputVars>
          <outputVars>
            <variable name="Q">
              <type>
                <BOOL/>
              </type>
              <initialValue>
                <simpleValue value="FALSE"/>
              </initialValue>
              <documentation>
                <xhtml:p><![CDATA[Copy of IN]]></xhtml:p>
              </documentation>
            </variable>
            <variable name="CDT">
              <type>
                <DT/>
              </type>
              <documentation>
                <xhtml:p><![CDATA[Datetime, current or relative to PDT]]></xhtml:p>
              </documentation>
            </variable>
          </outputVars>
          <localVars>
            <variable name="PREV_IN">
              <type>
                <BOOL/>
              </type>
              <initialValue>
                <simpleValue value="FALSE"/>
              </initialValue>
            </variable>
            <variable name="OFFSET">
              <type>
                <TIME/>
              </type>
            </variable>
            <variable name="CURRENT_TIME">
              <type>
                <DT/>
              </type>
            </variable>
          </localVars>
        </interface>
        <body>
          <ST>
            <xhtml:p><![CDATA[{__SET_VAR(data__->,CURRENT_TIME,,__CURRENT_TIME)}

 IF IN
 THEN
   IF NOT PREV_IN
   THEN
       OFFSET := PDT - CURRENT_TIME;
   END_IF;

   (* PDT + time since PDT was loaded *)
   CDT := CURRENT_TIME + OFFSET;
 ELSE
   CDT := CURRENT_TIME;
 END_IF;

 Q := IN;
 PREV_IN := IN;
]]></xhtml:p>
          </ST>
        </body>
        <documentation>
          <xhtml:p><![CDATA[The real time clock has many uses including time stamping, setting dates and times of day in batch reports, in alarm messages and so on.]]></xhtml:p>
        </documentation>
      </pou>
      <pou name="INTEGRAL" pouType="functionBlock">
        <interface>
          <inputVars>
            <variable name="RUN">
              <type>
                <BOOL/>
              </type>
              <documentation>
                <xhtml:p><![CDATA[1 = integrate, 0 = hold]]></xhtml:p>
              </documentation>
            </variable>
            <variable name="R1">
              <type>
                <BOOL/>
              </type>
              <documentation>
                <xhtml:p><![CDATA[Overriding reset]]></xhtml:p>
              </documentation>
            </variable>
            <variable name="XIN">
              <type>
                <REAL/>
              </type>
              <documentation>
                <xhtml:p><![CDATA[Input variable]]></xhtml:p>
              </documentation>
            </variable>
            <variable name="X0">
              <type>
                <REAL/>
              </type>
              <documentation>
                <xhtml:p><![CDATA[Initial value]]></xhtml:p>
              </documentation>
            </variable>
            <variable name="CYCLE">
              <type>
                <TIME/>
              </type>
              <documentation>
                <xhtml:p><![CDATA[Sampling period]]></xhtml:p>
              </documentation>
            </variable>
          </inputVars>
          <outputVars>
            <variable name="Q">
              <type>
                <BOOL/>
              </type>
              <documentation>
                <xhtml:p><![CDATA[NOT R1]]></xhtml:p>
              </documentation>
            </variable>
            <variable name="XOUT">
              <type>
                <REAL/>
              </type>
              <documentation>
                <xhtml:p><![CDATA[Integrated output]]></xhtml:p>
              </documentation>
            </variable>
          </outputVars>
        </interface>
        <body>
          <ST>
            <xhtml:p><![CDATA[Q := NOT R1 ;
IF R1 THEN XOUT := X0;
ELSIF RUN THEN XOUT := XOUT + XIN * TIME_TO_REAL(CYCLE);
END_IF;]]></xhtml:p>
          </ST>
        </body>
        <documentation>
          <xhtml:p><![CDATA[The integral function block integrates the value of input XIN over time.]]></xhtml:p>
        </documentation>
      </pou>
      <pou name="DERIVATIVE" pouType="functionBlock">
        <interface>
          <inputVars>
            <variable name="RUN">
              <type>
                <BOOL/>
              </type>
              <documentation>
                <xhtml:p><![CDATA[0 = reset]]></xhtml:p>
              </documentation>
            </variable>
            <variable name="XIN">
              <type>
                <REAL/>
              </type>
              <documentation>
                <xhtml:p><![CDATA[Input to be differentiated]]></xhtml:p>
              </documentation>
            </variable>
            <variable name="CYCLE">
              <type>
                <TIME/>
              </type>
              <documentation>
                <xhtml:p><![CDATA[Sampling period]]></xhtml:p>
              </documentation>
            </variable>
          </inputVars>
          <outputVars>
            <variable name="XOUT">
              <type>
                <REAL/>
              </type>
              <documentation>
                <xhtml:p><![CDATA[Differentiated output]]></xhtml:p>
              </documentation>
            </variable>
          </outputVars>
          <localVars>
            <variable name="X1">
              <type>
                <REAL/>
              </type>
            </variable>
            <variable name="X2">
              <type>
                <REAL/>
              </type>
            </variable>
            <variable name="X3">
              <type>
                <REAL/>
              </type>
            </variable>
          </localVars>
        </interface>
        <body>
          <ST>
            <xhtml:p><![CDATA[IF RUN THEN
  XOUT := (3.0 * (XIN - X3) + X1 - X2)
          / (10.0 * TIME_TO_REAL(CYCLE));
  X3 := X2;
  X2 := X1;
  X1 := XIN;
ELSE 
  XOUT := 0.0;
  X1 := XIN;
  X2 := XIN;
  X3 := XIN;
END_IF;]]></xhtml:p>
          </ST>
        </body>
        <documentation>
          <xhtml:p><![CDATA[The derivative function block produces an output XOUT proportional to the rate of change of the input XIN.]]></xhtml:p>
        </documentation>
      </pou>
      <pou name="PID" pouType="functionBlock">
        <interface>
          <inputVars>
            <variable name="AUTO">
              <type>
                <BOOL/>
              </type>
              <documentation>
                <xhtml:p><![CDATA[0 - manual , 1 - automatic]]></xhtml:p>
              </documentation>
            </variable>
            <variable name="PV">
              <type>
                <REAL/>
              </type>
              <documentation>
                <xhtml:p><![CDATA[Process variable]]></xhtml:p>
              </documentation>
            </variable>
            <variable name="SP">
              <type>
                <REAL/>
              </type>
              <documentation>
                <xhtml:p><![CDATA[Set point]]></xhtml:p>
              </documentation>
            </variable>
            <variable name="X0">
              <type>
                <REAL/>
              </type>
              <documentation>
                <xhtml:p><![CDATA[Manual output adjustment - Typically from transfer station]]></xhtml:p>
              </documentation>
            </variable>
            <variable name="KP">
              <type>
                <REAL/>
              </type>
              <documentation>
                <xhtml:p><![CDATA[Proportionality constant]]></xhtml:p>
              </documentation>
            </variable>
            <variable name="TR">
              <type>
                <REAL/>
              </type>
              <documentation>
                <xhtml:p><![CDATA[Reset time]]></xhtml:p>
              </documentation>
            </variable>
            <variable name="TD">
              <type>
                <REAL/>
              </type>
              <documentation>
                <xhtml:p><![CDATA[Derivative time constant]]></xhtml:p>
              </documentation>
            </variable>
            <variable name="CYCLE">
              <type>
                <TIME/>
              </type>
              <documentation>
                <xhtml:p><![CDATA[Sampling period]]></xhtml:p>
              </documentation>
            </variable>
          </inputVars>
          <outputVars>
            <variable name="XOUT">
              <type>
                <REAL/>
              </type>
            </variable>
          </outputVars>
          <localVars>
            <variable name="ERROR">
              <type>
                <REAL/>
              </type>
              <documentation>
                <xhtml:p><![CDATA[PV - SP]]></xhtml:p>
              </documentation>
            </variable>
            <variable name="ITERM">
              <type>
                <derived name="INTEGRAL"/>
              </type>
              <documentation>
                <xhtml:p><![CDATA[FB for integral term]]></xhtml:p>
              </documentation>
            </variable>
            <variable name="DTERM">
              <type>
                <derived name="DERIVATIVE"/>
              </type>
              <documentation>
                <xhtml:p><![CDATA[FB for derivative term]]></xhtml:p>
              </documentation>
            </variable>
          </localVars>
        </interface>
        <body>
          <ST>
            <xhtml:p><![CDATA[ERROR := PV - SP ;
(*** Adjust ITERM so that XOUT := X0 when AUTO = 0 ***)
ITERM(RUN := AUTO, R1 := NOT AUTO, XIN := ERROR,
      X0 := TR * (X0 - ERROR), CYCLE := CYCLE);
DTERM(RUN := AUTO, XIN := ERROR, CYCLE := CYCLE);
XOUT := KP * (ERROR + ITERM.XOUT/TR + DTERM.XOUT*TD);]]></xhtml:p>
          </ST>
        </body>
        <documentation>
          <xhtml:p><![CDATA[The PID (proportional, Integral, Derivative) function block provides the classical three term controller for closed loop control.]]></xhtml:p>
        </documentation>
      </pou>
      <pou name="RAMP" pouType="functionBlock">
        <interface>
          <inputVars>
            <variable name="RUN">
              <type>
                <BOOL/>
              </type>
              <documentation>
                <xhtml:p><![CDATA[0 - track X0, 1 - ramp to/track X1]]></xhtml:p>
              </documentation>
            </variable>
            <variable name="X0">
              <type>
                <REAL/>
              </type>
            </variable>
            <variable name="X1">
              <type>
                <REAL/>
              </type>
            </variable>
            <variable name="TR">
              <type>
                <TIME/>
              </type>
              <documentation>
                <xhtml:p><![CDATA[Ramp duration]]></xhtml:p>
              </documentation>
            </variable>
            <variable name="CYCLE">
              <type>
                <TIME/>
              </type>
              <documentation>
                <xhtml:p><![CDATA[Sampling period]]></xhtml:p>
              </documentation>
            </variable>
          </inputVars>
          <outputVars>
            <variable name="BUSY">
              <type>
                <BOOL/>
              </type>
              <documentation>
                <xhtml:p><![CDATA[BUSY = 1 during ramping period]]></xhtml:p>
              </documentation>
            </variable>
            <variable name="XOUT">
              <type>
                <REAL/>
              </type>
              <initialValue>
                <simpleValue value="0.0"/>
              </initialValue>
            </variable>
          </outputVars>
          <localVars>
            <variable name="XI">
              <type>
                <REAL/>
              </type>
              <documentation>
                <xhtml:p><![CDATA[Initial value]]></xhtml:p>
              </documentation>
            </variable>
            <variable name="T">
              <type>
                <TIME/>
              </type>
              <initialValue>
                <simpleValue value="T#0s"/>
              </initialValue>
              <documentation>
                <xhtml:p><![CDATA[Elapsed time of ramp]]></xhtml:p>
              </documentation>
            </variable>
          </localVars>
        </interface>
        <body>
          <ST>
            <xhtml:p><![CDATA[BUSY := RUN ;
IF RUN THEN
  IF T >= TR THEN 
    BUSY := 0;
    XOUT := X1;
  ELSE XOUT := XI + (X1-XI) * TIME_TO_REAL(T)
                            / TIME_TO_REAL(TR);
    T := T + CYCLE;
  END_IF;
ELSE
  XOUT := X0;
  XI := X0;
  T := T#0s;
END_IF;]]></xhtml:p>
          </ST>
        </body>
        <documentation>
          <xhtml:p><![CDATA[The RAMP function block is modelled on example given in the standard.]]></xhtml:p>
        </documentation>
      </pou>
      <pou name="HYSTERESIS" pouType="functionBlock">
        <interface>
          <inputVars>
            <variable name="XIN1">
              <type>
                <REAL/>
              </type>
            </variable>
            <variable name="XIN2">
              <type>
                <REAL/>
              </type>
            </variable>
            <variable name="EPS">
              <type>
                <REAL/>
              </type>
            </variable>
          </inputVars>
          <outputVars>
            <variable name="Q">
              <type>
                <BOOL/>
              </type>
            </variable>
          </outputVars>
        </interface>
        <body>
          <ST>
            <xhtml:p><![CDATA[IF Q THEN
  IF XIN1 < (XIN2 - EPS) THEN 
    Q := 0;
  END_IF;
ELSIF XIN1 > (XIN2 + EPS) THEN
  Q := 1;
END_IF;]]></xhtml:p>
          </ST>
        </body>
        <documentation>
          <xhtml:p><![CDATA[The hysteresis function block provides a hysteresis boolean output driven by the difference of two floating point (REAL) inputs XIN1 and XIN2.]]></xhtml:p>
        </documentation>
      </pou>
    </pous>
  </types>
  <instances>
    <configurations/>
  </instances>
</project>

author	Andrey Skvortsov <andrej.skvortzov@gmail.com>
	Tue, 05 Mar 2019 11:19:36 +0300
changeset 2519	27955f010b23
parent 1410	0d34b69cc9b5
permissions	-rw-r--r--