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

#

     9

#See COPYING file for copyrights details.

    10

#

    11

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

    12

#modify it under the terms of the GNU General Public

    13

#License as published by the Free Software Foundation; either

    14

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

    15

#

    16

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

    17

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

    18

#MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

    19

#General Public License for more details.

    20

#

    21

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

    22

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

    23

#Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

    24

    25

import ctypes

    26

from LPCAppProto import *

    27

from LPCObject import *

    29

    30

class LPCAppObject(LPCObject):

    31

    def connect(self,comport):

    32

        self.SerialConnection = LPCAppProto(comport,#number

    33

                                         115200, #speed

    34

                                         2)      #timeout

    35

    36

    def StartPLC(self, debug=False):

    37

        self.HandleSerialTransaction(STARTTransaction())

    38

    39

    def StopPLC(self):

    40

        self.HandleSerialTransaction(STOPTransaction())

    41

        return True

    42

    43

    def ResetPLC(self):

    44

        self.HandleSerialTransaction(RESETTransaction())

    45

        return self.PLCStatus

    46

    47

    def GetPLCstatus(self):

    48

        self.HandleSerialTransaction(GET_PLCIDTransaction())

    49

        return self.PLCStatus

    50

    51

    def MatchMD5(self, MD5):

    52

        data = self.HandleSerialTransaction(GET_PLCIDTransaction())

    53

        if data is not None:

    54

            return data[:32] == MD5[:32]

    55

        return False

    56

    57

    class IEC_STRING(ctypes.Structure):

    58

        """

    59

        Must be changed according to changes in iec_types.h

    60

        """

    61

        _fields_ = [("len", ctypes.c_uint8),

    62

                    ("body", ctypes.c_char * 126)] 

    63

    64

    TypeTranslator = {"BOOL" :       (ctypes.c_uint8,  lambda x:x.value!=0,     lambda t,x:t(x)),

    65

                      "STEP" :       (ctypes.c_uint8,  lambda x:x.value,        lambda t,x:t(x)),

    66

                      "TRANSITION" : (ctypes.c_uint8,  lambda x:x.value,        lambda t,x:t(x)),

    67

                      "ACTION" :     (ctypes.c_uint8,  lambda x:x.value,        lambda t,x:t(x)),

    68

                      "SINT" :       (ctypes.c_int8,   lambda x:x.value,        lambda t,x:t(x)),

    69

                      "USINT" :      (ctypes.c_uint8,  lambda x:x.value,        lambda t,x:t(x)),

    70

                      "BYTE" :       (ctypes.c_uint8,  lambda x:x.value,        lambda t,x:t(x)),

    71

                      "STRING" :     (IEC_STRING,      lambda x:x.body[:x.len], lambda t,x:t(len(x),x)),

    72

                      "INT" :        (ctypes.c_int16,  lambda x:x.value,        lambda t,x:t(x)),

    73

                      "UINT" :       (ctypes.c_uint16, lambda x:x.value,        lambda t,x:t(x)),

    74

                      "WORD" :       (ctypes.c_uint16, lambda x:x.value,        lambda t,x:t(x)),

    75

                      "WSTRING" :    (None,            None,                    None),#TODO

    76

                      "DINT" :       (ctypes.c_int32,  lambda x:x.value,        lambda t,x:t(x)),

    77

                      "UDINT" :      (ctypes.c_uint32, lambda x:x.value,        lambda t,x:t(x)),

    78

                      "DWORD" :      (ctypes.c_uint32, lambda x:x.value,        lambda t,x:t(x)),

    79

                      "LINT" :       (ctypes.c_int64,  lambda x:x.value,        lambda t,x:t(x)),

    80

                      "ULINT" :      (ctypes.c_uint64, lambda x:x.value,        lambda t,x:t(x)),

    81

                      "LWORD" :      (ctypes.c_uint64, lambda x:x.value,        lambda t,x:t(x)),

    82

                      "REAL" :       (ctypes.c_float,  lambda x:x.value,        lambda t,x:t(x)),

    83

                      "LREAL" :      (ctypes.c_double, lambda x:x.value,        lambda t,x:t(x)),

    84

                      } 

    85

    86

    def SetTraceVariablesList(self, idxs):

    87

        """

    88

        Call ctype imported function to append 

    89

        these indexes to registred variables in PLC debugger

    90

        """

    91

        if idxs:

    92

            buff = ""

    93

            # keep a copy of requested idx

    94

            self._Idxs = idxs[:]

    95

            for idx,iectype,force in idxs:

    96

                idxstr = ctypes.string_at(

    97

                          ctypes.pointer(

    98

                           ctypes.c_uint32(idx)),4)

    99

                if force !=None:

   100

                    c_type,unpack_func, pack_func = self.TypeTranslator.get(iectype, (None,None,None))

   101

                    forced_type_size = ctypes.sizeof(c_type)

   102

                    forced_type_size_str = chr(forced_type_size)

   103

                    forcestr = ctypes.string_at(

   104

                                ctypes.pointer(

   105

                                 pack_func(c_type,force)),

   106

                                 forced_type_size)

   107

                    buff += idxstr + forced_type_size_str + forcestr

   108

                else:

   109

                    buff += idxstr + chr(0)

   110

        else:

   111

            buff = ""

   112

            self._Idxs =  []

   113

   114

        self.HandleSerialTransaction(SET_TRACE_VARIABLETransaction(buff))

   115

   116

    def GetTraceVariables(self):

   117

        """

   118

        Return a list of variables, corresponding to the list of required idx

   119

        """

   120

        offset = 0

   121

        strbuf = self.HandleSerialTransaction(

   122

                                     GET_TRACE_VARIABLETransaction())

   123

        if strbuf is not None and len(strbuf) > 4 and self.PLCStatus == "Started":

   124

            res=[]

   125

            size = len(strbuf) - 4

   126

            tick = ctypes.cast(

   127

                    ctypes.c_char_p(strbuf[:4]),

   128

                    ctypes.POINTER(ctypes.c_int)).contents

   129

            buff = ctypes.cast(

   130

                      ctypes.c_char_p(strbuf[4:]),

   131

                      ctypes.c_void_p)

   132

            for idx, iectype, forced in self._Idxs:

   133

                cursor = ctypes.c_void_p(buff.value + offset)

   134

                c_type,unpack_func, pack_func = self.TypeTranslator.get(iectype, (None,None,None))

   135

                if c_type is not None and offset < size:

   136

                    res.append(unpack_func(ctypes.cast(cursor,

   137

                                                       ctypes.POINTER(c_type)).contents))

   138

                    offset += ctypes.sizeof(c_type)

   139

                else:

   140

                    #if c_type is None:

   141

                        #PLCprint("Debug error - " + iectype + " not supported !")

   142

                    #if offset >= size:

   143

                        #PLCprint("Debug error - buffer too small !")

   144

                    break

   145

            if offset and offset == size:

   146

                return self.PLCStatus, tick.value, res

   147

            #PLCprint("Debug error - wrong buffer unpack !")

   148

        return self.PLCStatus, None, [] 

   149