beremiz

stop PLC before unloading

2016-12-07, Andrey Skvortsov
f5868f866d2b
stop PLC before unloading


This fixes segmentation fault if service was quit without stopping it.
It has happened if Beremiz service was quit using taskbar icon or by
closing Beremiz IDE (in case of autostarted local service).

In second case to trigger the bug following step has to be done:
1. Open Beremiz IDE
2. Open project, compile and connect to LOCAL:// runtime
3. Transfer and start the PLC program
4. Open other project without disconneting the PLC runtime
5. Close Beremiz IDE
include yslt.yml2
estylesheet xmlns:ppx="http://www.plcopen.org/xml/tc6_0201"
xmlns:xhtml="http://www.w3.org/1999/xhtml"
xmlns:ns="pou_block_instances_ns"
extension-element-prefixes="ns"
exclude-result-prefixes="ns" {
template "text()";
template "ppx:pou[ppx:body]|ppx:transition[ppx:body]|ppx:action[ppx:body]" {
apply "ppx:body/*[self::ppx:FBD or self::ppx:LD or self::ppx:SFC]/*";
}
function "add_instance" {
param "type";
value "ns:AddBlockInstance($type, @localId, ppx:position/@x, ppx:position/@y, @width, @height)";
}
function "execution_order" {
choose {
when "@executionOrderId" > «@executionOrderId»
otherwise > 0
}
}
function "ConnectionInfos" {
param "type";
param "negated";
param "edge";
param "formalParameter";
value "ns:AddInstanceConnection($type, $formalParameter, $negated, $edge, ppx:relPosition/@x, ppx:relPosition/@y)";
}
template "ppx:position" {
value "ns:AddLinkPoint(@x, @y)";
}
template "ppx:connection" {
value "ns:AddConnectionLink(@refLocalId, @formalParameter)";
apply "ppx:position";
}
template "ppx:connectionPointIn" {
param "negated";
param "edge";
param "formalParameter";
call "ConnectionInfos" {
with "type" > input
with "negated" > «$negated»
with "edge" > «$edge»
with "formalParameter" > «$formalParameter»
}
apply "ppx:connection";
}
template "ppx:connectionPointOut" {
param "negated";
param "edge";
param "formalParameter";
call "ConnectionInfos" {
with "type" > output
with "negated" > «$negated»
with "edge" > «$edge»
with "formalParameter" > «$formalParameter»
}
}
template "ppx:connectionPointOutAction" {
call "ConnectionInfos" {
with "type" > output
}
}
template "ppx:comment" {
value "ns:SetSpecificValues(ppx:content/xhtml:p/text())";
call "add_instance" {
with "type" > «local-name()»
}
}
template "ppx:block" {
variable "execution_order" {
call "execution_order";
}
value "ns:SetSpecificValues(@instanceName, $execution_order)";
call "add_instance" {
with "type" > «@typeName»
}
foreach "ppx:inputVariables/ppx:variable" {
apply "ppx:connectionPointIn" {
with "negated", "@negated";
with "edge", "@edge";
with "formalParameter", "@formalParameter";
}
}
foreach "ppx:outputVariables/ppx:variable" {
apply "ppx:connectionPointOut" {
with "negated", "@negated";
with "edge", "@edge";
with "formalParameter", "@formalParameter";
}
}
}
template "*[self::ppx:type or self::ppx:baseType or self::ppx:returnType]/ppx:derived" {
> «@name»
}
template "*[self::ppx:type or self::ppx:baseType or self::ppx:returnType]/ppx:string" {
> STRING
}
template "*[self::ppx:type or self::ppx:baseType or self::ppx:returnType]/ppx:wstring" {
> WSTRING
}
template "*[self::ppx:type or self::ppx:baseType or self::ppx:returnType]/*" {
> «local-name()»
}
function "VariableBlockInfos" {
param "type";
variable "expression" > «ppx:expression/text()»
variable "value_type" {
choose {
when "ancestor::ppx:transition[@name=$expression]" > BOOL
when "ancestor::ppx:pou[@name=$expression]" {
apply "ancestor::ppx:pou/child::ppx:interface/ppx:returnType"
}
otherwise {
apply "ancestor::ppx:pou/child::ppx:interface/*/ppx:variable[@name=$expression]/ppx:type"
}
}
}
variable "execution_order" {
call "execution_order";
}
value "ns:SetSpecificValues($expression, $value_type, $execution_order)";
call "add_instance" {
with "type" > «$type»
}
apply "ppx:connectionPointIn" {
with "negated", "@negatedIn";
with "edge", "@edgeIn";
}
apply "ppx:connectionPointOut" {
with "negated", "@negatedOut";
with "edge", "@edgeOut";
}
}
template "ppx:inVariable" {
call "VariableBlockInfos" with "type", "'input'";
}
template "ppx:outVariable" {
call "VariableBlockInfos" with "type", "'output'";
}
template "ppx:inOutVariable" {
call "VariableBlockInfos" with "type", "'inout'";
}
template "ppx:connector|ppx:continuation" {
value "ns:SetSpecificValues(@name)";
call "add_instance" {
with "type" > «local-name()»
}
apply "ppx:connectionPointIn";
apply "ppx:connectionPointOut";
}
template "ppx:leftPowerRail|ppx:rightPowerRail" {
variable "type", "local-name()";
variable "connectors" {
choose {
when "$type='leftPowerRail'" > «count(ppx:connectionPointOut)»
otherwise > «count(ppx:connectionPointIn)»
}
}
value "ns:SetSpecificValues($connectors)";
call "add_instance" {
with "type" > «$type»
}
choose {
when "$type='leftPowerRail'" {
apply "ppx:connectionPointOut";
}
otherwise {
apply "ppx:connectionPointIn";
}
}
}
template "ppx:contact|ppx:coil" {
variable "type", "local-name()";
variable "storage" {
choose {
when "$type='coil'" > «@storage»
}
}
variable "execution_order" {
call "execution_order";
}
value "ns:SetSpecificValues(ppx:variable/text(), @negated, @edge, $storage, $execution_order)";
call "add_instance" {
with "type" > «$type»
}
apply "ppx:connectionPointIn";
apply "ppx:connectionPointOut";
}
template "ppx:step" {
value "ns:SetSpecificValues(@name, @initialStep)";
apply "ppx:connectionPointOutAction" {
with "negated", "@negated";
}
call "add_instance" {
with "type" > «local-name()»
}
apply "ppx:connectionPointIn";
apply "ppx:connectionPointOut";
}
template "ppx:transition" {
variable "priority" {
choose {
when "@priority" > «@priority»
otherwise > 0
}
}
variable "condition_type" {
choose {
when "ppx:condition/ppx:connectionPointIn" > connection
when "ppx:condition/ppx:reference" > reference
when "ppx:condition/ppx:inline" > inline
}
}
variable "condition" {
choose {
when "ppx:condition/ppx:reference" > «ppx:condition/ppx:reference/@name»
when "ppx:condition/ppx:inline" > «ppx:condition/ppx:inline/ppx:ST/xhtml:p/text()»
}
}
value "ns:SetSpecificValues($priority, $condition_type, $condition)";
apply "ppx:condition/ppx:connectionPointIn" {
with "negated", "ppx:condition/@negated";
}
call "add_instance" {
with "type" > «local-name()»
}
apply "ppx:connectionPointIn";
apply "ppx:connectionPointOut";
}
template "ppx:selectionDivergence|ppx:selectionConvergence|ppx:simultaneousDivergence|ppx:simultaneousConvergence" {
variable "type" > «local-name()»
variable "connectors" {
choose {
when "$type='selectionDivergence' or $type='simultaneousDivergence'" {
> «count(ppx:connectionPointOut)»
}
otherwise > «count(ppx:connectionPointIn)»
}
}
value "ns:SetSpecificValues($connectors)";
call "add_instance" {
with "type" > «$type»
}
apply "ppx:connectionPointIn";
apply "ppx:connectionPointOut";
}
template "ppx:jumpStep" {
variable "type" > jump
value "ns:SetSpecificValues(@targetName)";
call "add_instance" {
with "type" > «$type»
}
apply "ppx:connectionPointIn";
}
template "ppx:action" {
variable "type" {
choose {
when "ppx:reference" > reference
when "ppx:inline" > inline
}
}
variable "value" {
choose {
when "ppx:reference" > «ppx:reference/@name»
when "ppx:inline" > «ppx:inline/ppx:ST/xhtml:p/text()»
}
}
variable "qualifier" {
choose {
when "@qualifier" > «@qualifier»
otherwise > N
}
}
value "ns:AddAction($qualifier, $type, $value, @duration, @indicator)";
}
template "ppx:actionBlock" {
value "ns:SetSpecificValues()";
apply "ppx:action";
call "add_instance" {
with "type" > «local-name()»
}
apply "ppx:connectionPointIn" {
with "negated", "@negated";
}
}
}