HGKeeper

#!/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.

# 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 _

beremiz