Added PurgePLC() method to PLCObject, to be invoked when PLC Status is broken. It clears PLC shared object an extra files and force status to Empty. Added correponding Repair button to toolbar, visible only when PLC status is broken.
#!/usr/bin/env python
# -*- coding: utf-8 -*-
# This file is part of Beremiz, a Integrated Development Environment for
# programming IEC 61131-3 automates supporting plcopen standard and CanFestival.
#
# Copyright (C) 2007: Edouard TISSERANT and Laurent BESSARD
# Copyright (C) 2017: Andrey Skvortsov
#
# See COPYING file for copyrights details.
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
from __future__ import absolute_import
from os.path import join
import util.paths as paths
from util.TranslationCatalogs import NoTranslate
sd = paths.AbsDir(__file__)
# Override gettext _ in this module
# since we just want string to be added to dictionnary
# but translation should happen here
_ = NoTranslate
LANGUAGES = ["IL", "ST", "FBD", "LD", "SFC"]
LOCATIONDATATYPES = {"X": ["BOOL"],
"B": ["SINT", "USINT", "BYTE", "STRING"],
"W": ["INT", "UINT", "WORD", "WSTRING"],
"D": ["DINT", "UDINT", "REAL", "DWORD"],
"L": ["LINT", "ULINT", "LREAL", "LWORD"]}
# -------------------------------------------------------------------------------
# Function Block Types definitions
# -------------------------------------------------------------------------------
StdTC6Libs = [(_("Standard function blocks"), join(sd, "Standard_Function_Blocks.xml")),
(_("Additional function blocks"), join(sd, "Additional_Function_Blocks.xml"))]
StdFuncsCSV = join(sd, "iec_std.csv")
def GetBlockInfos(pou):
infos = pou.getblockInfos()
infos["inputs"] = [
(var_name, var_type, "rising")
if var_name in ["CU", "CD"]
else (var_name, var_type, var_modifier)
for var_name, var_type, var_modifier in infos["inputs"]]
return infos
# -------------------------------------------------------------------------------
# Data Types definitions
# -------------------------------------------------------------------------------
#: Ordored list of common data types defined in the IEC 61131-3
#: Each type is associated to his direct parent type. It defines then a hierarchy
#: between type that permits to make a comparison of two types
TypeHierarchy_list = [
("ANY", None),
("ANY_DERIVED", "ANY"),
("ANY_ELEMENTARY", "ANY"),
("ANY_MAGNITUDE", "ANY_ELEMENTARY"),
("ANY_BIT", "ANY_ELEMENTARY"),
("ANY_NBIT", "ANY_BIT"),
("ANY_STRING", "ANY_ELEMENTARY"),
("ANY_DATE", "ANY_ELEMENTARY"),
("ANY_NUM", "ANY_MAGNITUDE"),
("ANY_REAL", "ANY_NUM"),
("ANY_INT", "ANY_NUM"),
("ANY_SINT", "ANY_INT"),
("ANY_UINT", "ANY_INT"),
("BOOL", "ANY_BIT"),
("SINT", "ANY_SINT"),
("INT", "ANY_SINT"),
("DINT", "ANY_SINT"),
("LINT", "ANY_SINT"),
("USINT", "ANY_UINT"),
("UINT", "ANY_UINT"),
("UDINT", "ANY_UINT"),
("ULINT", "ANY_UINT"),
("REAL", "ANY_REAL"),
("LREAL", "ANY_REAL"),
("TIME", "ANY_MAGNITUDE"),
("DATE", "ANY_DATE"),
("TOD", "ANY_DATE"),
("DT", "ANY_DATE"),
("STRING", "ANY_STRING"),
("BYTE", "ANY_NBIT"),
("WORD", "ANY_NBIT"),
("DWORD", "ANY_NBIT"),
("LWORD", "ANY_NBIT")
# ("WSTRING", "ANY_STRING") # TODO
]
DefaultType = "DINT"
DataTypeRange_list = [
("SINT", (-2**7, 2**7 - 1)),
("INT", (-2**15, 2**15 - 1)),
("DINT", (-2**31, 2**31 - 1)),
("LINT", (-2**63, 2**63 - 1)),
("USINT", (0, 2**8 - 1)),
("UINT", (0, 2**16 - 1)),
("UDINT", (0, 2**32 - 1)),
("ULINT", (0, 2**64 - 1))
]
ANY_TO_ANY_FILTERS = {
"ANY_TO_ANY": [
# simple type conv are let as C cast
(("ANY_INT", "ANY_BIT"), ("ANY_NUM", "ANY_BIT")),
(("ANY_REAL",), ("ANY_REAL",)),
# REAL_TO_INT
(("ANY_REAL",), ("ANY_SINT",)),
(("ANY_REAL",), ("ANY_UINT",)),
(("ANY_REAL",), ("ANY_BIT",)),
# TO_TIME
(("ANY_INT", "ANY_BIT"), ("ANY_DATE", "TIME")),
(("ANY_REAL",), ("ANY_DATE", "TIME")),
(("ANY_STRING",), ("ANY_DATE", "TIME")),
# FROM_TIME
(("ANY_DATE", "TIME"), ("ANY_REAL",)),
(("ANY_DATE", "TIME"), ("ANY_INT", "ANY_NBIT")),
(("TIME",), ("ANY_STRING",)),
(("DATE",), ("ANY_STRING",)),
(("TOD",), ("ANY_STRING",)),
(("DT",), ("ANY_STRING",)),
# TO_STRING
(("BOOL",), ("ANY_STRING",)),
(("ANY_BIT",), ("ANY_STRING",)),
(("ANY_REAL",), ("ANY_STRING",)),
(("ANY_SINT",), ("ANY_STRING",)),
(("ANY_UINT",), ("ANY_STRING",)),
# FROM_STRING
(("ANY_STRING",), ("BOOL",)),
(("ANY_STRING",), ("ANY_BIT",)),
(("ANY_STRING",), ("ANY_SINT",)),
(("ANY_STRING",), ("ANY_UINT",)),
(("ANY_STRING",), ("ANY_REAL",))
],
"BCD_TO_ANY": [
(("BYTE",), ("USINT",)),
(("WORD",), ("UINT",)),
(("DWORD",), ("UDINT",)),
(("LWORD",), ("ULINT",))
],
"ANY_TO_BCD": [
(("USINT",), ("BYTE",)),
(("UINT",), ("WORD",)),
(("UDINT",), ("DWORD",)),
(("ULINT",), ("LWORD",))
]
}
# remove gettext override
del _