plcopen/definitions.py
author Edouard Tisserant <edouard.tisserant@gmail.com>
Mon, 22 Jan 2024 21:30:23 +0100
changeset 3887 2df45e4bd500
parent 3750 f62625418bff
permissions -rw-r--r--
Fix variable forcing. Now works with eRPC. PLCObject API changed.
#!/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 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 _