1

#!/usr/bin/env python

     2

# -*- coding: utf-8 -*-

     3

     4

# This file is part of Beremiz, a Integrated Development Environment for

     5

# programming IEC 61131-3 automates supporting plcopen standard and CanFestival.

     6

#

     7

# Copyright (C) 2007: Edouard TISSERANT and Laurent BESSARD

     8

# Copyright (C) 2017: Andrey Skvortsov

     9

#

    10

# See COPYING file for copyrights details.

    11

#

    12

# This program is free software; you can redistribute it and/or

    13

# modify it under the terms of the GNU General Public License

    14

# as published by the Free Software Foundation; either version 2

    15

# of the License, or (at your option) any later version.

    16

#

    17

# This program is distributed in the hope that it will be useful,

    18

# but WITHOUT ANY WARRANTY; without even the implied warranty of

    19

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

    20

# GNU General Public License for more details.

    21

#

    22

# You should have received a copy of the GNU General Public License

    23

# along with this program; if not, write to the Free Software

    24

# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.

    25

    26

    27

from os.path import join, split, realpath

    28

import util.paths as paths

    29

from util.TranslationCatalogs import NoTranslate

    30

sd = paths.AbsDir(__file__)

    31

    32

# Override gettext _ in this module

    33

# since we just want string to be added to dictionnary

    34

# but translation should happen here

    35

_ = NoTranslate

    36

    37

LANGUAGES = ["IL", "ST", "FBD", "LD", "SFC"]

    38

    39

LOCATIONDATATYPES = {"X": ["BOOL"],

    40

                     "B": ["SINT", "USINT", "BYTE", "STRING"],

    41

                     "W": ["INT", "UINT", "WORD", "WSTRING"],

    42

                     "D": ["DINT", "UDINT", "REAL", "DWORD"],

    43

                     "L": ["LINT", "ULINT", "LREAL", "LWORD"]}

    44

    45

# -------------------------------------------------------------------------------

    46

#                        Function Block Types definitions

    47

# -------------------------------------------------------------------------------

    48

    49

StdTC6Libs = [(_("Standard function blocks"),   join(sd, "Standard_Function_Blocks.xml")),

    50

              (_("Additional function blocks"), join(sd, "Additional_Function_Blocks.xml"))]

    51

    52

StdFuncsCSV = join(sd, "iec_std.csv")

    53

    54

    55

def GetBlockInfos(pou):

    56

    infos = pou.getblockInfos()

    57

    infos["inputs"] = [

    58

        (var_name, var_type, "rising")

    59

        if var_name in ["CU", "CD"]

    60

        else (var_name, var_type, var_modifier)

    61

        for var_name, var_type, var_modifier in infos["inputs"]]

    62

    return infos

    63

    64

# -------------------------------------------------------------------------------

    65

#                           Data Types definitions

    66

# -------------------------------------------------------------------------------

    67

    68

    69

"""

    70

Ordored list of common data types defined in the IEC 61131-3

    71

Each type is associated to his direct parent type. It defines then a hierarchy

    72

between type that permits to make a comparison of two types

    73

"""

    74

TypeHierarchy_list = [

    75

    ("ANY", None),

    76

    ("ANY_DERIVED", "ANY"),

    77

    ("ANY_ELEMENTARY", "ANY"),

    78

    ("ANY_MAGNITUDE", "ANY_ELEMENTARY"),

    79

    ("ANY_BIT", "ANY_ELEMENTARY"),

    80

    ("ANY_NBIT", "ANY_BIT"),

    81

    ("ANY_STRING", "ANY_ELEMENTARY"),

    82

    ("ANY_DATE", "ANY_ELEMENTARY"),

    83

    ("ANY_NUM", "ANY_MAGNITUDE"),

    84

    ("ANY_REAL", "ANY_NUM"),

    85

    ("ANY_INT", "ANY_NUM"),

    86

    ("ANY_SINT", "ANY_INT"),

    87

    ("ANY_UINT", "ANY_INT"),

    88

    ("BOOL", "ANY_BIT"),

    89

    ("SINT", "ANY_SINT"),

    90

    ("INT", "ANY_SINT"),

    91

    ("DINT", "ANY_SINT"),

    92

    ("LINT", "ANY_SINT"),

    93

    ("USINT", "ANY_UINT"),

    94

    ("UINT", "ANY_UINT"),

    95

    ("UDINT", "ANY_UINT"),

    96

    ("ULINT", "ANY_UINT"),

    97

    ("REAL", "ANY_REAL"),

    98

    ("LREAL", "ANY_REAL"),

    99

    ("TIME", "ANY_MAGNITUDE"),

   100

    ("DATE", "ANY_DATE"),

   101

    ("TOD", "ANY_DATE"),

   102

    ("DT", "ANY_DATE"),

   103

    ("STRING", "ANY_STRING"),

   104

    ("BYTE", "ANY_NBIT"),

   105

    ("WORD", "ANY_NBIT"),

   106

    ("DWORD", "ANY_NBIT"),

   107

    ("LWORD", "ANY_NBIT")

   108

    # ("WSTRING", "ANY_STRING") # TODO

   109

]

   110

   111

DefaultType = "DINT"

   112

   113

DataTypeRange_list = [

   114

    ("SINT",  (-2**7,  2**7 - 1)),

   115

    ("INT",   (-2**15, 2**15 - 1)),

   116

    ("DINT",  (-2**31, 2**31 - 1)),

   117

    ("LINT",  (-2**31, 2**31 - 1)),

   118

    ("USINT", (0,      2**8 - 1)),

   119

    ("UINT",  (0,      2**16 - 1)),

   120

    ("UDINT", (0,      2**31 - 1)),

   121

    ("ULINT", (0,      2**31 - 1))

   122

]

   123

   124

ANY_TO_ANY_FILTERS = {

   125

    "ANY_TO_ANY": [

   126

        # simple type conv are let as C cast

   127

        (("ANY_INT", "ANY_BIT"), ("ANY_NUM", "ANY_BIT")),

   128

        (("ANY_REAL",), ("ANY_REAL",)),

   129

        # REAL_TO_INT

   130

        (("ANY_REAL",), ("ANY_SINT",)),

   131

        (("ANY_REAL",), ("ANY_UINT",)),

   132

        (("ANY_REAL",), ("ANY_BIT",)),

   133

        # TO_TIME

   134

        (("ANY_INT", "ANY_BIT"), ("ANY_DATE", "TIME")),

   135

        (("ANY_REAL",),          ("ANY_DATE", "TIME")),

   136

        (("ANY_STRING",),        ("ANY_DATE", "TIME")),

   137

        # FROM_TIME

   138

        (("ANY_DATE", "TIME"), ("ANY_REAL",)),

   139

        (("ANY_DATE", "TIME"), ("ANY_INT", "ANY_NBIT")),

   140

        (("TIME",), ("ANY_STRING",)),

   141

        (("DATE",), ("ANY_STRING",)),

   142

        (("TOD",),  ("ANY_STRING",)),

   143

        (("DT",),   ("ANY_STRING",)),

   144

        # TO_STRING

   145

        (("BOOL",),     ("ANY_STRING",)),

   146

        (("ANY_BIT",),  ("ANY_STRING",)),

   147

        (("ANY_REAL",), ("ANY_STRING",)),

   148

        (("ANY_SINT",), ("ANY_STRING",)),

   149

        (("ANY_UINT",), ("ANY_STRING",)),

   150

        # FROM_STRING

   151

        (("ANY_STRING",), ("BOOL",)),

   152

        (("ANY_STRING",), ("ANY_BIT",)),

   153

        (("ANY_STRING",), ("ANY_SINT",)),

   154

        (("ANY_STRING",), ("ANY_UINT",)),

   155

        (("ANY_STRING",), ("ANY_REAL",))

   156

    ],

   157

    "BCD_TO_ANY": [

   158

        (("BYTE",),  ("USINT",)),

   159

        (("WORD",),  ("UINT",)),

   160

        (("DWORD",), ("UDINT",)),

   161

        (("LWORD",), ("ULINT",))

   162

    ],

   163

    "ANY_TO_BCD": [

   164

        (("USINT",), ("BYTE",)),

   165

        (("UINT",),  ("WORD",)),

   166

        (("UDINT",), ("DWORD",)),

   167

        (("ULINT",), ("LWORD",))

   168

    ]

   169

}

   170

   171

# remove gettext override

   172

del _