plugins/svgui/svgui.py
author etisserant
Fri, 23 May 2008 18:47:32 +0200
changeset 149 fc7fe0de9143
parent 147 ccc5e683583d
child 158 771578d7580e
permissions -rw-r--r--
Tried to fix Linux behaviour of wxPopen.py
137
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
     1
import os, shutil, sys
20
d3cb5020997b Beremiz plugins definitions.
etisserant
parents: 13
diff changeset
     2
base_folder = os.path.split(sys.path[0])[0]
137
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
     3
sys.path.append(os.path.join(base_folder, "wxsvg", "SVGUIEditor"))
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
     4
sys.path.append(os.path.join(base_folder, "plcopeneditor", "graphics"))
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
     5
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
     6
import wx
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
     7
147
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
     8
from SVGUIGenerator import *
137
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
     9
from SVGUIControler import *
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    10
from SVGUIEditor import *
37
625f52bba682 Primary svgui plugin inherited - broken
etisserant
parents: 20
diff changeset
    11
from FBD_Objects import *
11
75ae893d5eed Adding plugin support in Beremiz
lbessard
parents:
diff changeset
    12
137
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    13
from wxPopen import ProcessLogger
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    14
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    15
[ID_SVGUIEDITORFBDPANEL, 
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    16
] = [wx.NewId() for _init_ctrls in range(1)]
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    17
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    18
SVGUIFB_Types = {ITEM_CONTAINER : "Container",
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    19
                 ITEM_BUTTON : "Button", 
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    20
                 ITEM_TEXT : "TextCtrl", 
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    21
                 ITEM_SCROLLBAR : "ScrollBar", 
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    22
                 ITEM_ROTATING : "RotatingCtrl", 
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    23
                 ITEM_NOTEBOOK : "NoteBook", 
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    24
                 ITEM_TRANSFORM : "Transform"}
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    25
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    26
class _SVGUIEditor(SVGUIEditor):
37
625f52bba682 Primary svgui plugin inherited - broken
etisserant
parents: 20
diff changeset
    27
    """
137
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    28
    This Class add IEC specific features to the SVGUIEditor :
37
625f52bba682 Primary svgui plugin inherited - broken
etisserant
parents: 20
diff changeset
    29
        - FDB preview
625f52bba682 Primary svgui plugin inherited - broken
etisserant
parents: 20
diff changeset
    30
        - FBD begin drag 
625f52bba682 Primary svgui plugin inherited - broken
etisserant
parents: 20
diff changeset
    31
    """
137
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    32
    
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    33
    def _init_coll_EditorGridSizer_Items(self, parent):
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    34
        SVGUIEditor._init_coll_EditorGridSizer_Items(self, parent)
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    35
        parent.AddWindow(self.FBDPanel, 0, border=0, flag=wx.GROW)
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    36
    
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    37
    def _init_ctrls(self, prnt):
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    38
        SVGUIEditor._init_ctrls(self, prnt, False)
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    39
        
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    40
        self.FBDPanel = wx.Panel(id=ID_SVGUIEDITORFBDPANEL, 
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    41
                  name='FBDPanel', parent=self.EditorPanel, pos=wx.Point(0, 0),
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    42
                  size=wx.Size(0, 0), style=wx.TAB_TRAVERSAL|wx.SIMPLE_BORDER)
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    43
        self.FBDPanel.SetBackgroundColour(wx.WHITE)
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    44
        self.FBDPanel.Bind(wx.EVT_LEFT_DOWN, self.OnFBDPanelClick)
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    45
        self.FBDPanel.Bind(wx.EVT_PAINT, self.OnPaintFBDPanel)
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    46
        
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    47
        setattr(self.FBDPanel, "GetScaling", lambda: None) 
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    48
        
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    49
        self._init_sizers()
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    50
    
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    51
    def __init__(self, parent, controler = None, fileOpen = None):
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    52
        SVGUIEditor.__init__(self, parent, controler, fileOpen)
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    53
        
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    54
        self.FBDBlock = None
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    55
    
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    56
    def RefreshView(self, select_id = None):
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    57
        SVGUIEditor.RefreshView(self, select_id)
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    58
        self.FBDPanel.Refresh()
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    59
    
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    60
    def OnPaintFBDPanel(self,event):
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    61
        dc = wx.ClientDC(self.FBDPanel)
37
625f52bba682 Primary svgui plugin inherited - broken
etisserant
parents: 20
diff changeset
    62
        dc.Clear()
137
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    63
        selected = self.GetSelected()
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    64
        if selected is not None:
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    65
            selected_type = self.Controler.GetElementType(selected)
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    66
            if selected_type is not None:
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    67
                self.FBDBlock = FBD_Block(parent=self.FBDPanel,type=SVGUIFB_Types[selected_type],name=self.Controler.GetElementName(selected))
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    68
                width, height = self.FBDBlock.GetMinSize()
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    69
                self.FBDBlock.SetSize(width,height)
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    70
                clientsize = self.FBDPanel.GetClientSize()
37
625f52bba682 Primary svgui plugin inherited - broken
etisserant
parents: 20
diff changeset
    71
                x = (clientsize.width - width) / 2
625f52bba682 Primary svgui plugin inherited - broken
etisserant
parents: 20
diff changeset
    72
                y = (clientsize.height - height) / 2
137
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    73
                self.FBDBlock.SetPosition(x, y)
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    74
                self.FBDBlock.Draw(dc)
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    75
        else:
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    76
            self.FBDBlock = None
37
625f52bba682 Primary svgui plugin inherited - broken
etisserant
parents: 20
diff changeset
    77
        event.Skip()
625f52bba682 Primary svgui plugin inherited - broken
etisserant
parents: 20
diff changeset
    78
        
137
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    79
    def OnFBDPanelClick(self, event):
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    80
        if self.FBDBlock:
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    81
            data = wx.TextDataObject(str((self.FBDBlock.GetType(), "functionBlock", self.FBDBlock.GetName())))
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    82
            DropSrc = wx.DropSource(self.FBDPanel)
37
625f52bba682 Primary svgui plugin inherited - broken
etisserant
parents: 20
diff changeset
    83
            DropSrc.SetData(data)
625f52bba682 Primary svgui plugin inherited - broken
etisserant
parents: 20
diff changeset
    84
            DropSrc.DoDragDrop()
137
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    85
        event.Skip()
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    86
    
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    87
    def OnInterfaceTreeItemSelected(self, event):
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    88
        self.FBDPanel.Refresh()
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    89
        SVGUIEditor.OnInterfaceTreeItemSelected(self, event)
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    90
    
37
625f52bba682 Primary svgui plugin inherited - broken
etisserant
parents: 20
diff changeset
    91
    def OnGenerate(self,event):
625f52bba682 Primary svgui plugin inherited - broken
etisserant
parents: 20
diff changeset
    92
        self.SaveProject()
625f52bba682 Primary svgui plugin inherited - broken
etisserant
parents: 20
diff changeset
    93
        self.Controler.PlugGenerate_C(sys.path[0],(0,0,4,5),None)
625f52bba682 Primary svgui plugin inherited - broken
etisserant
parents: 20
diff changeset
    94
        event.Skip()    
625f52bba682 Primary svgui plugin inherited - broken
etisserant
parents: 20
diff changeset
    95
    
625f52bba682 Primary svgui plugin inherited - broken
etisserant
parents: 20
diff changeset
    96
TYPECONVERSION = {"BOOL" : "X", "SINT" : "B", "INT" : "W", "DINT" : "D", "LINT" : "L",
625f52bba682 Primary svgui plugin inherited - broken
etisserant
parents: 20
diff changeset
    97
    "USINT" : "B", "UINT" : "W", "UDINT" : "D", "ULINT" : "L", "REAL" : "D", "LREAL" : "L",
625f52bba682 Primary svgui plugin inherited - broken
etisserant
parents: 20
diff changeset
    98
    "STRING" : "B", "BYTE" : "B", "WORD" : "W", "DWORD" : "D", "LWORD" : "L", "WSTRING" : "W"}
137
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
    99
44
1f5407c0263f Various changes to make SVGUI plugin generated code eventually compile
etisserant
parents: 43
diff changeset
   100
CTYPECONVERSION = {"BOOL" : "IEC_BOOL", "UINT" : "IEC_UINT", "STRING" : "IEC_STRING", "REAL" : "IEC_REAL"}
37
625f52bba682 Primary svgui plugin inherited - broken
etisserant
parents: 20
diff changeset
   101
CPRINTTYPECONVERSION = {"BOOL" : "d", "UINT" : "d", "STRING" : "s", "REAL" : "f"}
137
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   102
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   103
class RootClass(SVGUIControler):
37
625f52bba682 Primary svgui plugin inherited - broken
etisserant
parents: 20
diff changeset
   104
38
8cb20bc13a91 SVGUI's DefEditor now runs and generate C code. Swapped __I with __Q
etisserant
parents: 37
diff changeset
   105
    def __init__(self):
137
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   106
        SVGUIControler.__init__(self)
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   107
        filepath = os.path.join(self.PlugPath(), "gui.xml")
37
625f52bba682 Primary svgui plugin inherited - broken
etisserant
parents: 20
diff changeset
   108
        
12
a1f9e514f708 plugin framework organization being defined
etisserant
parents: 11
diff changeset
   109
        if os.path.isfile(filepath):
37
625f52bba682 Primary svgui plugin inherited - broken
etisserant
parents: 20
diff changeset
   110
            svgfile = os.path.join(self.PlugPath(), "gui.svg")
625f52bba682 Primary svgui plugin inherited - broken
etisserant
parents: 20
diff changeset
   111
            if os.path.isfile(svgfile):
625f52bba682 Primary svgui plugin inherited - broken
etisserant
parents: 20
diff changeset
   112
                self.SvgFilepath = svgfile
12
a1f9e514f708 plugin framework organization being defined
etisserant
parents: 11
diff changeset
   113
            self.OpenXMLFile(filepath)
13
f1f0edbeb313 More precise design for plugins.... to be continued...
etisserant
parents: 12
diff changeset
   114
        else:
137
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   115
            self.CreateNewInterface()
12
a1f9e514f708 plugin framework organization being defined
etisserant
parents: 11
diff changeset
   116
            self.SetFilePath(filepath)
a1f9e514f708 plugin framework organization being defined
etisserant
parents: 11
diff changeset
   117
137
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   118
    def GetElementIdFromName(self, name):
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   119
        element = self.GetElementByName(name)
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   120
        if element is not None:
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   121
            return element.getid()
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   122
        return None
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   123
38
8cb20bc13a91 SVGUI's DefEditor now runs and generate C code. Swapped __I with __Q
etisserant
parents: 37
diff changeset
   124
    _View = None
8cb20bc13a91 SVGUI's DefEditor now runs and generate C code. Swapped __I with __Q
etisserant
parents: 37
diff changeset
   125
    def _OpenView(self, logger):
8cb20bc13a91 SVGUI's DefEditor now runs and generate C code. Swapped __I with __Q
etisserant
parents: 37
diff changeset
   126
        if not self._View:
8cb20bc13a91 SVGUI's DefEditor now runs and generate C code. Swapped __I with __Q
etisserant
parents: 37
diff changeset
   127
            def _onclose():
8cb20bc13a91 SVGUI's DefEditor now runs and generate C code. Swapped __I with __Q
etisserant
parents: 37
diff changeset
   128
                self._View = None
8cb20bc13a91 SVGUI's DefEditor now runs and generate C code. Swapped __I with __Q
etisserant
parents: 37
diff changeset
   129
            def _onsave():
8cb20bc13a91 SVGUI's DefEditor now runs and generate C code. Swapped __I with __Q
etisserant
parents: 37
diff changeset
   130
                self.GetPlugRoot().SaveProject()
137
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   131
            self._View = _SVGUIEditor(self.GetPlugRoot().AppFrame, self)
38
8cb20bc13a91 SVGUI's DefEditor now runs and generate C code. Swapped __I with __Q
etisserant
parents: 37
diff changeset
   132
            self._View._onclose = _onclose
8cb20bc13a91 SVGUI's DefEditor now runs and generate C code. Swapped __I with __Q
etisserant
parents: 37
diff changeset
   133
            self._View._onsave = _onsave
8cb20bc13a91 SVGUI's DefEditor now runs and generate C code. Swapped __I with __Q
etisserant
parents: 37
diff changeset
   134
            self._View.Show()
8cb20bc13a91 SVGUI's DefEditor now runs and generate C code. Swapped __I with __Q
etisserant
parents: 37
diff changeset
   135
137
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   136
    def _ImportSVG(self, logger):
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   137
        if not self._View:
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   138
            dialog = wx.FileDialog(self.GetPlugRoot().AppFrame, "Choose a SVG file", os.getcwd(), "",  "SVG files (*.svg)|*.svg|All files|*.*", wx.OPEN)
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   139
            if dialog.ShowModal() == wx.ID_OK:
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   140
                svgpath = dialog.GetPath()
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   141
                if os.path.isfile(svgpath):
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   142
                    shutil.copy(svgpath, os.path.join(self.PlugPath(), "gui.svg"))
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   143
                else:
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   144
                    logger.write_error("No such SVG file: %s\n"%svgpath)
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   145
            dialog.Destroy()
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   146
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   147
    def _ImportXML(self, logger):
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   148
        if not self._View:
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   149
            dialog = wx.FileDialog(self.GetPlugRoot().AppFrame, "Choose a XML file", os.getcwd(), "",  "XML files (*.xml)|*.xml|All files|*.*", wx.OPEN)
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   150
            if dialog.ShowModal() == wx.ID_OK:
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   151
                xmlpath = dialog.GetPath()
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   152
                if os.path.isfile(xmlpath):
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   153
                    shutil.copy(xmlpath, os.path.join(self.PlugPath(), "gui.xml"))
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   154
                else:
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   155
                    logger.write_error("No such XML file: %s\n"%xmlpath)
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   156
            dialog.Destroy()
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   157
65
e55d6faee9d1 Adding icons in Beremiz GUI
lbessard
parents: 55
diff changeset
   158
    PluginMethods = [
82
d7b4dd1f543f Beremiz layout improved for wx2.8 by inserting all control in TreeCtrl
lbessard
parents: 73
diff changeset
   159
        {"bitmap" : os.path.join("images","HMIEditor"),
65
e55d6faee9d1 Adding icons in Beremiz GUI
lbessard
parents: 55
diff changeset
   160
         "name" : "HMI Editor",
e55d6faee9d1 Adding icons in Beremiz GUI
lbessard
parents: 55
diff changeset
   161
         "tooltip" : "HMI Editor",
105
434aed8dc58d Added ability to override plugin methods with arbitrary python code (methods.py) when loading plugins
etisserant
parents: 82
diff changeset
   162
         "method" : "_OpenView"},
82
d7b4dd1f543f Beremiz layout improved for wx2.8 by inserting all control in TreeCtrl
lbessard
parents: 73
diff changeset
   163
        {"bitmap" : os.path.join("images","ImportSVG"),
65
e55d6faee9d1 Adding icons in Beremiz GUI
lbessard
parents: 55
diff changeset
   164
         "name" : "Import SVG",
e55d6faee9d1 Adding icons in Beremiz GUI
lbessard
parents: 55
diff changeset
   165
         "tooltip" : "Import SVG",
137
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   166
         "method" : "_ImportSVG"},
82
d7b4dd1f543f Beremiz layout improved for wx2.8 by inserting all control in TreeCtrl
lbessard
parents: 73
diff changeset
   167
        {"bitmap" : os.path.join("images","ImportDEF"),
137
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   168
         "name" : "Import XML",
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   169
         "tooltip" : "Import XML",
139
09923f7ee87e fixed typo in svgui.py
greg
parents: 138
diff changeset
   170
         "method" : "_ImportXML"},
65
e55d6faee9d1 Adding icons in Beremiz GUI
lbessard
parents: 55
diff changeset
   171
    ]
38
8cb20bc13a91 SVGUI's DefEditor now runs and generate C code. Swapped __I with __Q
etisserant
parents: 37
diff changeset
   172
    
37
625f52bba682 Primary svgui plugin inherited - broken
etisserant
parents: 20
diff changeset
   173
    def OnPlugSave(self):
12
a1f9e514f708 plugin framework organization being defined
etisserant
parents: 11
diff changeset
   174
        self.SaveXMLFile()
a1f9e514f708 plugin framework organization being defined
etisserant
parents: 11
diff changeset
   175
        return True
37
625f52bba682 Primary svgui plugin inherited - broken
etisserant
parents: 20
diff changeset
   176
    
625f52bba682 Primary svgui plugin inherited - broken
etisserant
parents: 20
diff changeset
   177
    def PlugGenerate_C(self, buildpath, locations, logger):
137
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   178
        progname = "SVGUI_%s"%"_".join(map(str, self.GetCurrentLocation()))
147
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   179
        
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   180
        generator = _SVGUICGenerator(self.GetElementsByType(), self.GetSVGFilePath(), self.GetFilePath(), self.GetCurrentLocation())
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   181
        generator.GenerateProgram((0, 0), buildpath, progname)
47
fd45c291fed0 PLC and plugins compilation with gcc now starts (and fail).
etisserant
parents: 44
diff changeset
   182
        Gen_C_file = os.path.join(buildpath, progname+".cpp" )
137
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   183
        
147
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   184
        if wx.Platform == '__WXMSW__':
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   185
            cxx_flags = "-I..\\..\\wxPython-src-2.8.7.1\\bld\\lib\\wx\\include\\msw-unicode-release-2.8 -I..\\..\\wxPython-src-2.8.7.1\\include -I..\\..\\wxPython-src-2.8.7.1\\contrib\\include -I..\\..\\matiec\\lib -DWXUSINGDLL -D__WXMSW__ -mthreads"
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   186
            libs = "\"..\\lib\\libwxsvg.a\" \"..\\lib\\libwxsvg_agg.a\" \"..\\lib\\libagg.a\" \"..\\lib\\libaggplatformwin32.a\" \"..\\lib\\libaggfontwin32tt.a\" -L..\\..\\wxPython-src-2.8.7.1\\bld\\lib -mno-cygwin -mwindows -mthreads  -mno-cygwin -mwindows -Wl,--subsystem,windows -mwindows -lwx_mswu_richtext-2.8 -lwx_mswu_aui-2.8 -lwx_mswu_xrc-2.8 -lwx_mswu_qa-2.8 -lwx_mswu_html-2.8 -lwx_mswu_adv-2.8 -lwx_mswu_core-2.8 -lwx_baseu_xml-2.8 -lwx_baseu_net-2.8 -lwx_baseu-2.8"
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   187
        else:
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   188
            status, result, err_result = ProcessLogger(logger, "wx-config --cxxflags", no_stdout=True).spin()
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   189
            if status:
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   190
                logger.write_error("Unable to get wx cxxflags\n")
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   191
            cxx_flags = result.strip() + " -I../matiec/lib"
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   192
            
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   193
            status, result, err_result = ProcessLogger(logger, "wx-config --libs", no_stdout=True).spin()
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   194
            if status:
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   195
                logger.write_error("Unable to get wx libs\n")
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   196
            libs = result.strip() + " -lwxsvg"
137
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   197
        
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   198
        return [(Gen_C_file, cxx_flags)],libs,True
13
f1f0edbeb313 More precise design for plugins.... to be continued...
etisserant
parents: 12
diff changeset
   199
    
12
a1f9e514f708 plugin framework organization being defined
etisserant
parents: 11
diff changeset
   200
    def BlockTypesFactory(self):
73
5e1e3d46c0c9 Adding support for execution order code generation
lbessard
parents: 65
diff changeset
   201
        def generate_svgui_block(generator, block, body, link, order=False):
137
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   202
            name = block.getinstanceName()
42
2bff00eb6cd0 Correct bugs on svgui plugin code generation
lbessard
parents: 39
diff changeset
   203
            block_id = self.GetElementIdFromName(name)
12
a1f9e514f708 plugin framework organization being defined
etisserant
parents: 11
diff changeset
   204
            if block_id == None:
a1f9e514f708 plugin framework organization being defined
etisserant
parents: 11
diff changeset
   205
                raise ValueError, "No corresponding block found"
137
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   206
            type = block.gettypeName()
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   207
            block_infos = GetBlockType(type)
43
937640beb464 Adding support for svgui block code generation
lbessard
parents: 42
diff changeset
   208
            current_location = ".".join(map(str, self.GetCurrentLocation()))
73
5e1e3d46c0c9 Adding support for execution order code generation
lbessard
parents: 65
diff changeset
   209
            if not generator.ComputedBlocks.get(name, False) and not order:
147
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   210
                generator.ComputedBlocks[block] = True
137
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   211
                for num, variable in enumerate(block.inputVariables.getvariable()):
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   212
                    connections = variable.connectionPointIn.getconnections()
12
a1f9e514f708 plugin framework organization being defined
etisserant
parents: 11
diff changeset
   213
                    if connections and len(connections) == 1:
47
fd45c291fed0 PLC and plugins compilation with gcc now starts (and fail).
etisserant
parents: 44
diff changeset
   214
                        parameter = "%sQ%s%s.%d.%d"%("%", TYPECONVERSION[block_infos["inputs"][num][1]], current_location, block_id, num+1)
12
a1f9e514f708 plugin framework organization being defined
etisserant
parents: 11
diff changeset
   215
                        value = generator.ComputeFBDExpression(body, connections[0])
a1f9e514f708 plugin framework organization being defined
etisserant
parents: 11
diff changeset
   216
                        generator.Program += ("  %s := %s;\n"%(parameter, generator.ExtractModifier(variable, value)))
a1f9e514f708 plugin framework organization being defined
etisserant
parents: 11
diff changeset
   217
            if link:
137
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   218
                connectionPoint = link.getposition()[-1]
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   219
                for num, variable in enumerate(block.outputVariables.getvariable()):
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   220
                    blockPointx, blockPointy = variable.connectionPointOut.getrelPositionXY()
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   221
                    if block.getx() + blockPointx == connectionPoint.getx() and block.gety() + blockPointy == connectionPoint.gety():
47
fd45c291fed0 PLC and plugins compilation with gcc now starts (and fail).
etisserant
parents: 44
diff changeset
   222
                        return "%sI%s%s.%d.%d"%("%", TYPECONVERSION[block_infos["outputs"][num][1]], current_location, block_id, num+1)
12
a1f9e514f708 plugin framework organization being defined
etisserant
parents: 11
diff changeset
   223
                raise ValueError, "No output variable found"
a1f9e514f708 plugin framework organization being defined
etisserant
parents: 11
diff changeset
   224
            else:
a1f9e514f708 plugin framework organization being defined
etisserant
parents: 11
diff changeset
   225
                return None
11
75ae893d5eed Adding plugin support in Beremiz
lbessard
parents:
diff changeset
   226
138
3a6ebb01760a Changing SVGUI FunctionBlocks interface
lbessard
parents: 137
diff changeset
   227
        def initialise_block(type, name, block = None):
43
937640beb464 Adding support for svgui block code generation
lbessard
parents: 42
diff changeset
   228
            block_id = self.GetElementIdFromName(name)
937640beb464 Adding support for svgui block code generation
lbessard
parents: 42
diff changeset
   229
            if block_id == None:
937640beb464 Adding support for svgui block code generation
lbessard
parents: 42
diff changeset
   230
                raise ValueError, "No corresponding block found"
137
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   231
            block_infos = GetBlockType(type)
43
937640beb464 Adding support for svgui block code generation
lbessard
parents: 42
diff changeset
   232
            current_location = ".".join(map(str, self.GetCurrentLocation()))
937640beb464 Adding support for svgui block code generation
lbessard
parents: 42
diff changeset
   233
            variables = []
138
3a6ebb01760a Changing SVGUI FunctionBlocks interface
lbessard
parents: 137
diff changeset
   234
            if block is not None:
3a6ebb01760a Changing SVGUI FunctionBlocks interface
lbessard
parents: 137
diff changeset
   235
                input_variables = block.inputVariables.getvariable()
3a6ebb01760a Changing SVGUI FunctionBlocks interface
lbessard
parents: 137
diff changeset
   236
                output_variables = block.outputVariables.getvariable()
3a6ebb01760a Changing SVGUI FunctionBlocks interface
lbessard
parents: 137
diff changeset
   237
            else:
3a6ebb01760a Changing SVGUI FunctionBlocks interface
lbessard
parents: 137
diff changeset
   238
                input_variables = None
3a6ebb01760a Changing SVGUI FunctionBlocks interface
lbessard
parents: 137
diff changeset
   239
                output_variables = None
43
937640beb464 Adding support for svgui block code generation
lbessard
parents: 42
diff changeset
   240
            for num, (input_name, input_type, input_modifier) in enumerate(block_infos["inputs"]):
138
3a6ebb01760a Changing SVGUI FunctionBlocks interface
lbessard
parents: 137
diff changeset
   241
                if input_variables is not None and num < len(input_variables):
3a6ebb01760a Changing SVGUI FunctionBlocks interface
lbessard
parents: 137
diff changeset
   242
                    connections = input_variables[num].connectionPointIn.getconnections()
3a6ebb01760a Changing SVGUI FunctionBlocks interface
lbessard
parents: 137
diff changeset
   243
                if input_variables is None or connections and len(connections) == 1:
3a6ebb01760a Changing SVGUI FunctionBlocks interface
lbessard
parents: 137
diff changeset
   244
                    variables.append((input_type, None, "%sQ%s%s.%d.%d"%("%", TYPECONVERSION[input_type], current_location, block_id, num+1), None))
43
937640beb464 Adding support for svgui block code generation
lbessard
parents: 42
diff changeset
   245
            for num, (output_name, output_type, output_modifier) in enumerate(block_infos["outputs"]):
47
fd45c291fed0 PLC and plugins compilation with gcc now starts (and fail).
etisserant
parents: 44
diff changeset
   246
                variables.append((output_type, None, "%sI%s%s.%d.%d"%("%", TYPECONVERSION[input_type], current_location, block_id, num+1), None))
43
937640beb464 Adding support for svgui block code generation
lbessard
parents: 42
diff changeset
   247
            return variables
937640beb464 Adding support for svgui block code generation
lbessard
parents: 42
diff changeset
   248
12
a1f9e514f708 plugin framework organization being defined
etisserant
parents: 11
diff changeset
   249
        return [{"name" : "SVGUI function blocks", "list" :
137
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   250
                [{"name" : "Container", "type" : "functionBlock", "extensible" : False, 
138
3a6ebb01760a Changing SVGUI FunctionBlocks interface
lbessard
parents: 137
diff changeset
   251
                    "inputs" : [("Show","BOOL","none"),("Enable","BOOL","none")], 
3a6ebb01760a Changing SVGUI FunctionBlocks interface
lbessard
parents: 137
diff changeset
   252
                    "outputs" : [],
42
2bff00eb6cd0 Correct bugs on svgui plugin code generation
lbessard
parents: 39
diff changeset
   253
                    "comment" : "SVGUI Container",
43
937640beb464 Adding support for svgui block code generation
lbessard
parents: 42
diff changeset
   254
                    "generate" : generate_svgui_block, "initialise" : initialise_block},
37
625f52bba682 Primary svgui plugin inherited - broken
etisserant
parents: 20
diff changeset
   255
                {"name" : "Button", "type" : "functionBlock", "extensible" : False, 
138
3a6ebb01760a Changing SVGUI FunctionBlocks interface
lbessard
parents: 137
diff changeset
   256
                    "inputs" : [("Show","BOOL","none"),("Enable","BOOL","none"),("Toggle","BOOL","none")], 
3a6ebb01760a Changing SVGUI FunctionBlocks interface
lbessard
parents: 137
diff changeset
   257
                    "outputs" : [("State","BOOL","none")],
42
2bff00eb6cd0 Correct bugs on svgui plugin code generation
lbessard
parents: 39
diff changeset
   258
                    "comment" : "SVGUI Button",
43
937640beb464 Adding support for svgui block code generation
lbessard
parents: 42
diff changeset
   259
                    "generate" : generate_svgui_block, "initialise" : initialise_block},
37
625f52bba682 Primary svgui plugin inherited - broken
etisserant
parents: 20
diff changeset
   260
                {"name" : "TextCtrl", "type" : "functionBlock", "extensible" : False, 
138
3a6ebb01760a Changing SVGUI FunctionBlocks interface
lbessard
parents: 137
diff changeset
   261
                    "inputs" : [("Show","BOOL","none"),("Enable","BOOL","none"),("SetText","STRING","none")], 
3a6ebb01760a Changing SVGUI FunctionBlocks interface
lbessard
parents: 137
diff changeset
   262
                    "outputs" : [("Text","STRING","none")],
42
2bff00eb6cd0 Correct bugs on svgui plugin code generation
lbessard
parents: 39
diff changeset
   263
                    "comment" : "SVGUI Text Control",
43
937640beb464 Adding support for svgui block code generation
lbessard
parents: 42
diff changeset
   264
                    "generate" : generate_svgui_block, "initialise" : initialise_block},
37
625f52bba682 Primary svgui plugin inherited - broken
etisserant
parents: 20
diff changeset
   265
                {"name" : "ScrollBar", "type" : "functionBlock", "extensible" : False, 
138
3a6ebb01760a Changing SVGUI FunctionBlocks interface
lbessard
parents: 137
diff changeset
   266
                    "inputs" : [("Show","BOOL","none"),("Enable","BOOL","none"),("SetThumb","UINT","none"),("SetRange","UINT","none"),("SetPosition","UINT","none")], 
3a6ebb01760a Changing SVGUI FunctionBlocks interface
lbessard
parents: 137
diff changeset
   267
                    "outputs" : [("Position","UINT","none")],
42
2bff00eb6cd0 Correct bugs on svgui plugin code generation
lbessard
parents: 39
diff changeset
   268
                    "comment" : "SVGUI ScrollBar",
43
937640beb464 Adding support for svgui block code generation
lbessard
parents: 42
diff changeset
   269
                    "generate" : generate_svgui_block, "initialise" : initialise_block},
37
625f52bba682 Primary svgui plugin inherited - broken
etisserant
parents: 20
diff changeset
   270
                {"name" : "NoteBook", "type" : "functionBlock", "extensible" : False, 
138
3a6ebb01760a Changing SVGUI FunctionBlocks interface
lbessard
parents: 137
diff changeset
   271
                    "inputs" : [("Show","BOOL","none"),("Enable","BOOL","none"),("SetSelected","BOOL","none")], 
3a6ebb01760a Changing SVGUI FunctionBlocks interface
lbessard
parents: 137
diff changeset
   272
                    "outputs" : [("Selected","UINT","none")],
42
2bff00eb6cd0 Correct bugs on svgui plugin code generation
lbessard
parents: 39
diff changeset
   273
                    "comment" : "SVGUI Notebook",
43
937640beb464 Adding support for svgui block code generation
lbessard
parents: 42
diff changeset
   274
                    "generate" : generate_svgui_block, "initialise" : initialise_block},
37
625f52bba682 Primary svgui plugin inherited - broken
etisserant
parents: 20
diff changeset
   275
                {"name" : "RotatingCtrl", "type" : "functionBlock", "extensible" : False, 
138
3a6ebb01760a Changing SVGUI FunctionBlocks interface
lbessard
parents: 137
diff changeset
   276
                    "inputs" : [("Show","BOOL","none"),("Enable","BOOL","none"),("SetAngle","REAL","none")], 
3a6ebb01760a Changing SVGUI FunctionBlocks interface
lbessard
parents: 137
diff changeset
   277
                    "outputs" : [("Angle","REAL","none")],
42
2bff00eb6cd0 Correct bugs on svgui plugin code generation
lbessard
parents: 39
diff changeset
   278
                    "comment" : "SVGUI Rotating Control",
43
937640beb464 Adding support for svgui block code generation
lbessard
parents: 42
diff changeset
   279
                    "generate" : generate_svgui_block, "initialise" : initialise_block},
37
625f52bba682 Primary svgui plugin inherited - broken
etisserant
parents: 20
diff changeset
   280
                {"name" : "Transform", "type" : "functionBlock", "extensible" : False, 
138
3a6ebb01760a Changing SVGUI FunctionBlocks interface
lbessard
parents: 137
diff changeset
   281
                    "inputs" : [("Show","BOOL","none"),("Enable","BOOL","none"),("SetX","REAL","none"),("SetY","REAL","none"),("SetXScale","REAL","none"),("SetYScale","REAL","none"),("SetAngle","REAL","none")], 
3a6ebb01760a Changing SVGUI FunctionBlocks interface
lbessard
parents: 137
diff changeset
   282
                    "outputs" : [("X","REAL","none"),("Y","REAL","none")],
42
2bff00eb6cd0 Correct bugs on svgui plugin code generation
lbessard
parents: 39
diff changeset
   283
                    "comment" : "SVGUI Transform",
43
937640beb464 Adding support for svgui block code generation
lbessard
parents: 42
diff changeset
   284
                    "generate" : generate_svgui_block, "initialise" : initialise_block},
37
625f52bba682 Primary svgui plugin inherited - broken
etisserant
parents: 20
diff changeset
   285
               ]}
625f52bba682 Primary svgui plugin inherited - broken
etisserant
parents: 20
diff changeset
   286
        ]
137
187a4e2412e5 Modifying svgui plugin for following new SVGUIEditor version
lbessard
parents: 105
diff changeset
   287
147
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   288
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   289
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   290
class _SVGUICGenerator(SVGUICGenerator):
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   291
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   292
    def __init__(self, elements, svgfile, xmlfile, current_location):
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   293
        SVGUICGenerator.__init__(self, elements, svgfile, xmlfile)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   294
        
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   295
        self.CurrentLocation = current_location
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   296
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   297
    def GenerateProgramHeadersPublicVars(self):
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   298
        text = """    void OnPlcOutEvent(wxEvent& event);
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   299
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   300
    void Retrieve();
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   301
    void Publish();
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   302
    void Initialize();
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   303
"""
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   304
#        text += "    void Print();\n"
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   305
        return text
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   306
    
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   307
    def GenerateIECVars(self):
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   308
        text = ""
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   309
        for element in self.Elements:
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   310
            text += "STATE_TYPE out_state_%d;\n"%element.getid()
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   311
            text += "STATE_TYPE in_state_%d;\n"%element.getid()
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   312
        text +="\n"
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   313
        current_location = "_".join(map(str, self.CurrentLocation))
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   314
        #Declaration des variables
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   315
        for element in self.Elements:
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   316
            block_infos = GetBlockType(SVGUIFB_Types[GetElementType(element)])
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   317
            block_id = element.getid()
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   318
            for i, input in enumerate(block_infos["inputs"]):
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   319
                element_c_type = CTYPECONVERSION[input[1]]
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   320
                variable = "__Q%s%s_%d_%d"%(TYPECONVERSION[input[1]], current_location, block_id, i + 1)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   321
                text += "%s %s;\n"%(element_c_type, variable)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   322
                text += "%s _copy%s;\n"%(element_c_type, variable)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   323
            for i, output in enumerate(block_infos["outputs"]):
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   324
                element_c_type = CTYPECONVERSION[output[1]]
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   325
                variable = "__I%s%s_%d_%d"%(TYPECONVERSION[output[1]], current_location, block_id, i + 1)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   326
                text += "%s %s;\n"%(element_c_type, variable)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   327
                text += "%s _copy%s;\n"%(element_c_type, variable)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   328
            text +="\n"
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   329
        return text
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   330
    
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   331
    def GenerateGlobalVarsAndFuncs(self, size):
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   332
        text = """#include \"iec_types.h\"
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   333
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   334
#ifdef __WXMSW__
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   335
#define COMPARE_AND_SWAP_VAL(Destination, comparand, exchange) InterlockedCompareExchange(Destination, exchange, comparand)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   336
#define THREAD_RETURN_TYPE DWORD WINAPI
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   337
#define STATE_TYPE long int
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   338
#else
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   339
#define COMPARE_AND_SWAP_VAL(Destination, comparand, exchange) __sync_val_compare_and_swap(Destination, comparand, exchange)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   340
#define THREAD_RETURN_TYPE void*
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   341
#define STATE_TYPE volatile int
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   342
#endif
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   343
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   344
"""
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   345
        
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   346
        text += self.GenerateIECVars()
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   347
        
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   348
        text += """IMPLEMENT_APP_NO_MAIN(SVGViewApp);
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   349
IMPLEMENT_WX_THEME_SUPPORT;
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   350
SVGViewApp *myapp = NULL;
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   351
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   352
#ifdef __WXMSW__
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   353
HANDLE wxMainLoop;
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   354
DWORD wxMainLoopId;
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   355
#else
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   356
pthread_t wxMainLoop;
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   357
#endif
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   358
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   359
"""
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   360
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   361
#        text += "pthread_t wxMainLoop,automate;\n"
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   362
        text += """int myargc = 0;
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   363
char** myargv = NULL;
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   364
        
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   365
#define UNCHANGED 1
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   366
#define PLC_BUSY 2
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   367
#define CHANGED 3
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   368
#define GUI_BUSY 4
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   369
#ifdef __WXMSW__
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   370
#else
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   371
#endif
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   372
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   373
bool refresh = false;
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   374
bool refreshing = false;
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   375
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   376
THREAD_RETURN_TYPE InitWxEntry(void* args)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   377
{
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   378
  wxEntry(myargc,myargv);
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   379
  return 0;
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   380
}
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   381
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   382
"""
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   383
#        text += """void* SimulAutomate(void* args)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   384
#{
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   385
#  while(1){
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   386
#    myapp->frame->m_svgCtrl->IN_"+self.BusNumber+"();
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   387
#    //printf(\"AUTOMATE\\n\");
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   388
#    myapp->frame->m_svgCtrl->OUT_"+self.BusNumber+"();
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   389
#    sleep(1);
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   390
#  }
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   391
#  return args;
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   392
#}
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   393
#
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   394
#"""
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   395
      
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   396
        text += """bool SVGViewApp::OnInit()
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   397
{
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   398
  #ifndef __WXMSW__
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   399
    setlocale(LC_NUMERIC, "C");
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   400
  #endif
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   401
"""
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   402
        #text += "  frame = new MainFrame(NULL, wxT(\"Program\"),wxDefaultPosition, wxSize(%d, %d));\n"%size
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   403
        text += """  frame = new MainFrame(NULL, wxT("Program"),wxDefaultPosition, wxDefaultSize);
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   404
  frame->Show();
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   405
  myapp = this;
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   406
"""
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   407
#        text += "  pthread_create(&automate, NULL, SimulAutomate, NULL);\n"
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   408
        text += """  return true;
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   409
}
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   410
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   411
extern "C" {
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   412
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   413
int __init_%(location)s(int argc, char** argv)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   414
{
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   415
  myargc = argc;
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   416
  myargv = argv;
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   417
#ifdef __WXMSW__
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   418
  wxMainLoop = CreateThread(NULL, 0, InitWxEntry, 0, 0, &wxMainLoopId);
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   419
#else
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   420
  pthread_create(&wxMainLoop, NULL, InitWxEntry, NULL);
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   421
#endif
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   422
  return 0;
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   423
}
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   424
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   425
void __cleanup_%(location)s()
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   426
{
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   427
}
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   428
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   429
void __retrieve_%(location)s()
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   430
{
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   431
  if(myapp){
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   432
    myapp->frame->m_svgCtrl->Retrieve();
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   433
  }        
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   434
}
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   435
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   436
void __publish_%(location)s()
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   437
{
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   438
  if(myapp){
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   439
    myapp->frame->m_svgCtrl->Publish();
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   440
  }
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   441
}
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   442
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   443
}
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   444
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   445
IEC_STRING wxStringToIEC_STRING(wxString s)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   446
{
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   447
  IEC_STRING res = {0,""};
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   448
  int i;
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   449
  for(i = 0; i<s.Length() && i<STR_MAX_LEN; i++)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   450
    res.body[i] = s.GetChar(i);
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   451
  res.len = i;
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   452
  return res;
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   453
}
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   454
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   455
"""%{"location" : "_".join(map(str, self.CurrentLocation))}
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   456
        
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   457
        return text
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   458
    
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   459
    def GenerateProgramEventTable(self):
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   460
        text = """BEGIN_DECLARE_EVENT_TYPES()
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   461
DECLARE_LOCAL_EVENT_TYPE( EVT_PLC, wxNewEventType() )
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   462
END_DECLARE_EVENT_TYPES()
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   463
         
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   464
DEFINE_LOCAL_EVENT_TYPE( EVT_PLC )
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   465
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   466
"""     
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   467
        #Event Table Declaration
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   468
        text += "BEGIN_EVENT_TABLE(Program, SVGUIWindow)\n"
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   469
        for element in self.Elements:
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   470
            element_type = GetElementType(element)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   471
            element_name = element.getname()
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   472
            if element_type == ITEM_BUTTON:
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   473
                text += "  EVT_BUTTON (SVGUIID(\"%s\"), Program::On%sClick)\n"%(element_name, element_name)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   474
            elif element_type in [ITEM_SCROLLBAR, ITEM_ROTATING, ITEM_TRANSFORM]:
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   475
                text += "  EVT_COMMAND_SCROLL_THUMBTRACK (SVGUIID(\"%s\"), Program::On%sChanging)\n"%(element_name, element_name)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   476
            elif element_type == ITEM_NOTEBOOK:
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   477
                text += "  EVT_NOTEBOOK_PAGE_CHANGED (SVGUIID(\"%s\"), Program::On%sTabChanged)\n"%(element_name, element_name)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   478
        text += "  EVT_CUSTOM(EVT_PLC, wxID_ANY, Program::OnPlcOutEvent)\n"
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   479
        text += "END_EVENT_TABLE()\n\n"
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   480
        return text
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   481
    
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   482
    def GenerateProgramInitFrame(self):
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   483
        text = """MainFrame::MainFrame(wxWindow *parent, const wxString& title, const wxPoint& pos,const wxSize& size, long style): wxFrame(parent, wxID_ANY, title, pos, size, style)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   484
{
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   485
  m_svgCtrl = new Program(this);
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   486
  if (m_svgCtrl->LoadFiles(wxT("%s"), wxT("%s")))
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   487
  {
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   488
    Show(true);
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   489
    m_svgCtrl->SetFocus();
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   490
    m_svgCtrl->SetFitToFrame(true);
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   491
    m_svgCtrl->RefreshScale();
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   492
    m_svgCtrl->InitScrollBars();
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   493
    m_svgCtrl->Initialize();
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   494
    m_svgCtrl->Update();
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   495
  }
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   496
  else
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   497
  {
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   498
    printf("Error while opening files\\n");
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   499
    exit(0);
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   500
  }
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   501
}
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   502
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   503
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   504
"""%(self.SVGFilePath, self.XMLFilePath)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   505
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   506
        return text
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   507
    
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   508
    def GenerateProgramInitProgram(self):
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   509
        text = "Program::Program(wxWindow* parent):SVGUIWindow(parent)\n{\n"
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   510
        for element in self.Elements:
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   511
            text += "    out_state_%d = UNCHANGED;\n"%element.getid()
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   512
            text += "    in_state_%d = UNCHANGED;\n"%element.getid()
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   513
        text += "}\n\n"
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   514
        return text
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   515
    
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   516
    def GenerateProgramEventFunctions(self):
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   517
        text = ""
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   518
        current_location = "_".join(map(str, self.CurrentLocation))
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   519
        for element in self.Elements:
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   520
            element_type = GetElementType(element)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   521
            element_lock = """  if (COMPARE_AND_SWAP_VAL(&in_state_%d, CHANGED, GUI_BUSY) == CHANGED ||
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   522
      COMPARE_AND_SWAP_VAL(&in_state_%d, UNCHANGED, GUI_BUSY) == UNCHANGED) {
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   523
"""%(element.getid(), element.getid())
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   524
            element_unlock = """    COMPARE_AND_SWAP_VAL(&in_state_%d, GUI_BUSY, CHANGED);
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   525
  }
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   526
  else
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   527
      ProcessEvent(event);
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   528
"""%element.getid()
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   529
            element_name = element.getname()
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   530
                
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   531
            if element_type == ITEM_BUTTON:
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   532
                text += """void Program::On%sClick(wxCommandEvent& event)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   533
{
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   534
  SVGUIButton* button = (SVGUIButton*)GetElementByName(wxT("%s"));\n"""%(element_name, element_name)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   535
                text += element_lock
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   536
                text += "    _copy__IX%s_%d_1 = button->GetToggle();\n"%(current_location, element.getid())
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   537
                text += element_unlock
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   538
                text += "  event.Skip();\n}\n\n"
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   539
            elif element_type == ITEM_ROTATING:
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   540
                text += """void Program::On%sChanging(wxScrollEvent& event)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   541
{
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   542
  SVGUIRotatingCtrl* rotating = (SVGUIRotatingCtrl*)GetElementByName(wxT("%s"));
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   543
"""%(element_name, element_name)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   544
                text += element_lock
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   545
                text += "    _copy__ID%s_%d_1 = rotating->GetAngle();\n"%(current_location, element.getid())
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   546
                text += element_unlock
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   547
                text += "  event.Skip();\n}\n\n"
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   548
            elif element_type == ITEM_NOTEBOOK:
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   549
                text += """void Program::On%sTabChanged(wxNotebookEvent& event)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   550
{
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   551
  SVGUINoteBook* notebook = (SVGUINoteBook*)GetElementByName(wxT("%s"));
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   552
"""%(element_name, element_name)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   553
                text += element_lock
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   554
                text += "    _copy__IB%s_%d_1 = notebook->GetCurrentPage();\n"%(current_location, element.getid())
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   555
                text += element_unlock
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   556
                text += "  event.Skip();\n}\n\n"
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   557
            elif element_type == ITEM_TRANSFORM:
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   558
                text += """void Program::On%sChanging(wxScrollEvent& event)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   559
{
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   560
  SVGUITransform* transform = (SVGUITransform*)GetElementByName(wxT("%s"));
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   561
"""%(element_name, element_name)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   562
                text += element_lock
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   563
                text += "    _copy__ID%s_%d_1 = transform->GetX();\n"%(current_location, element.getid())
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   564
                text += "    _copy__ID%s_%d_2 = transform->GetY();\n"%(current_location, element.getid())
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   565
                text += element_unlock
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   566
                text += "  event.Skip();\n}\n\n"
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   567
        
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   568
        text += "/* OnPlcOutEvent update GUI with provided IEC __Q* PLC output variables */\n"
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   569
        text += """void Program::OnPlcOutEvent(wxEvent& event)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   570
{
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   571
  SVGUIElement* element;
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   572
  
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   573
  refreshing = true;
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   574
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   575
  wxMutexGuiEnter();
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   576
"""
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   577
        for element in self.Elements:
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   578
            element_type = GetElementType(element)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   579
            texts = {"location" : current_location, "id" : element.getid()}
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   580
            
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   581
            text += """  if (COMPARE_AND_SWAP_VAL(&out_state_%(id)d, CHANGED, GUI_BUSY) == CHANGED)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   582
  {
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   583
    element = (SVGUIElement*)GetElementById(wxT("%(id)d"));
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   584
            
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   585
    if (_copy__QX%(location)s_%(id)d_1 != element->IsVisible()) {
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   586
      if (_copy__QX%(location)s_%(id)d_1)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   587
        element->Show();
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   588
      else
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   589
        element->Hide();
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   590
    }
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   591
    if (_copy__QX%(location)s_%(id)d_2 != element->IsEnabled()) {
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   592
      if (_copy__QX%(location)s_%(id)d_2)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   593
        element->Enable();
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   594
      else
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   595
        element->Disable();
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   596
    }
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   597
"""%texts
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   598
            if element_type == ITEM_BUTTON:
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   599
                text += """    if (_copy__QX%(location)s_%(id)d_3 != ((SVGUIButton*)element)->GetToggle())
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   600
      ((SVGUIButton*)element)->SetToggle(_copy__QX%(location)s_%(id)d_3);
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   601
"""%texts
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   602
            elif element_type == ITEM_TEXT:
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   603
                text += """    if (((SVGUITextCtrl*)element)->GetValue().compare(_copy__QX%(location)s_%(id)d_3))
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   604
    {
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   605
      wxString str = wxString::FromAscii(_copy__QB%(location)s_%(id)d_3);
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   606
      ((SVGUITextCtrl*)element)->SetText(str);
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   607
    }
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   608
"""%texts
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   609
            elif  element_type == ITEM_SCROLLBAR:
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   610
                text += """    if (_copy__QW%(location)s_%(id)d_3 != ((SVGUIScrollBar*)element)->GetThumbPosition() ||
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   611
        _copy__QW%(location)s_%(id)d_4 != ((SVGUIScrollBar*)element)->GetThumbSize() ||
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   612
        _copy__QW%(location)s_%(id)d_5 != ((SVGUIScrollBar*)element)->GetRange())
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   613
      ((SVGUIScrollBar*)element)->Init_ScrollBar(_copy__QW%(location)s_%(id)d_3, _copy__QW%(location)s_%(id)d_4, _copy__QW%(location)s_%(id)d_5);
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   614
"""%texts
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   615
            elif element_type == ITEM_ROTATING:
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   616
                text += """    if (_copy__QD%(location)s_%(id)d_3 != ((SVGUIRotatingCtrl*)element)->GetAngle())
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   617
      ((SVGUIRotatingCtrl*)element)->SetAngle(_copy__QD%(location)s_%(id)d_3);
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   618
"""%texts
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   619
            elif element_type == ITEM_NOTEBOOK:
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   620
                text += """    if (_copy__QB%(location)s_%(id)d_3 != ((SVGUINoteBook*)element)->GetCurrentPage())
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   621
      ((SVGUINoteBook*)element)->SetCurrentPage(_copy__QB%(location)s_%(id)d_3);
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   622
"""%texts
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   623
            elif element_type == ITEM_TRANSFORM:
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   624
                text += """    if (_copy__QD%(location)s_%(id)d_3 != ((SVGUITransform*)element)->GetX() ||
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   625
        copy__QD%(location)s_%(id)d_4 != ((SVGUITransform*)element)->GetY())
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   626
      transform->Move(_copy__QD%(location)s_%(id)d_3, _copy__QD%(location)s_%(id)d_4);
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   627
    if (_copy__QD%(location)s_%(id)d_5 != ((SVGUITransform*)element)->GetXScale() ||
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   628
        copy__QD%(location)s_%(id)d_6 != ((SVGUITransform*)element)->GetYScale())
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   629
      transform->Scale(_copy__QD%(location)s_%(id)d_5, _copy__QD%(location)s_%(id)d_6);
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   630
    if (_copy__QD%(location)s_%(id)d_7 != ((SVGUITransform*)element)->GetAngle())
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   631
      transform->Rotate(_copy__QD%(location)s_%(id)d_7);
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   632
"""%texts
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   633
            text += "    COMPARE_AND_SWAP_VAL(&out_state_%(id)d, GUI_BUSY, UNCHANGED);\n  }\n"%texts
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   634
            
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   635
        text += """  wxMutexGuiLeave();
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   636
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   637
  refreshing = false;
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   638
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   639
  event.Skip();
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   640
}
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   641
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   642
"""
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   643
        return text
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   644
    
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   645
    def GenerateProgramPrivateFunctions(self):
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   646
        current_location = "_".join(map(str, self.CurrentLocation))
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   647
        
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   648
        text = "void Program::Retrieve()\n{\n"
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   649
        for element in self.Elements:
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   650
            element_type = GetElementType(element)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   651
            texts = {"location" : current_location, "id" : element.getid()}
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   652
            block_infos = GetBlockType(SVGUIFB_Types[GetElementType(element)])
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   653
            if len(block_infos["outputs"]) > 0:
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   654
                text += """  if (COMPARE_AND_SWAP_VAL(&in_state_%(id)d, CHANGED, PLC_BUSY) == CHANGED) {
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   655
"""%texts
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   656
                for i, output in enumerate(block_infos["outputs"]):
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   657
                    texts["type"] = TYPECONVERSION[output[1]]
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   658
                    texts["pin"] = i + 1
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   659
                    
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   660
                    variable = "__I%(type)s%(location)s_%(id)d_%(pin)d"%texts
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   661
                    text +="    %s = _copy%s;\n"%(variable, variable)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   662
                
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   663
                text += """    COMPARE_AND_SWAP_VAL(&in_state_%(id)d, PLC_BUSY, UNCHANGED);
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   664
  }
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   665
"""%texts
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   666
        text += "}\n\n" 
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   667
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   668
        text += "void Program::Publish()\n{\n  STATE_TYPE new_state;\n\n"
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   669
        for element in self.Elements:
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   670
            element_type = GetElementType(element)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   671
            texts = {"location" : current_location, "id" : element.getid()}
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   672
            block_infos = GetBlockType(SVGUIFB_Types[GetElementType(element)])
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   673
            
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   674
            text += """  if ((new_state = COMPARE_AND_SWAP_VAL(&out_state_%(id)d, UNCHANGED, PLC_BUSY)) == UNCHANGED ||
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   675
       (new_state = COMPARE_AND_SWAP_VAL(&out_state_%(id)d, CHANGED, PLC_BUSY)) == CHANGED) {
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   676
"""%texts
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   677
            for i, input in enumerate(block_infos["inputs"]):
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   678
                texts["type"] = TYPECONVERSION[input[1]]
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   679
                texts["pin"] = i + 1
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   680
                variable = "__Q%(type)s%(location)s_%(id)d_%(pin)d"%texts
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   681
                text += "    if (_copy%s != %s) {\n"%(variable, variable)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   682
                text += "      _copy%s = %s;\n"%(variable, variable)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   683
                text += "      new_state = CHANGED;\n    }\n"%texts
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   684
            text += """    COMPARE_AND_SWAP_VAL(&out_state_%(id)d, PLC_BUSY, new_state);
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   685
    refresh |= new_state == CHANGED;
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   686
  }
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   687
"""%texts
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   688
        
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   689
        text += """  /* Replace this with determinist signal if called from RT */
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   690
  if (refresh && !refreshing) {
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   691
    wxCommandEvent event( EVT_PLC );
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   692
    ProcessEvent(event);
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   693
    refresh = false;
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   694
  }
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   695
};
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   696
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   697
"""
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   698
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   699
        text += """void Program::Initialize()
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   700
{
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   701
  SVGUIElement* element;
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   702
"""
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   703
        for element in self.Elements:
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   704
            element_type = GetElementType(element)
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   705
            texts = {"location" : current_location, "id" : element.getid()}
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   706
            
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   707
            text += """
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   708
  element = (SVGUIElement*)GetElementById(wxT("%(id)d"));
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   709
  __QX%(location)s_%(id)d_1 = 1;
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   710
  _copy__QX%(location)s_%(id)d_1 = 1;
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   711
  __QX%(location)s_%(id)d_2 = 1;
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   712
  _copy__QX%(location)s_%(id)d_2 = 1;
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   713
"""%texts
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   714
            if element_type == ITEM_BUTTON:
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   715
                text += "  _copy__IX%(location)s_%(id)d_1 = ((SVGUIButton*)element)->GetToggle();\n"%texts
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   716
            elif element_type == ITEM_TEXT:
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   717
                text += "  _copy__IB%(location)s_%(id)d_1 = ((SVGUITextCtrl*)element)->GetValue();\n"%texts
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   718
            elif element_type == ITEM_SCROLLBAR:
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   719
                text += "  _copy__IW%(location)s_%(id)d_1 = ((SVGUIScrollBar*)element)->GetThumbPosition();\n"%texts
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   720
            elif element_type == ITEM_ROTATING:
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   721
                text += "  _copy__ID%(location)s_%(id)d_1 = ((SVGUIRotatingCtrl*)element)->GetAngle();\n"%texts
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   722
            elif element_type == ITEM_NOTEBOOK:
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   723
                text += "  _copy__IB%(location)s_%(id)d_1 = ((SVGUINoteBook*)element)->GetCurrentPage();\n"%texts
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   724
            elif element_type == ITEM_TRANSFORM:
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   725
                text += "  _copy__ID%(location)s_%(id)d_1 = ((SVGUITransform*)element)->GetX();\n"%texts
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   726
                text += "  _copy__ID%(location)s_%(id)d_2 = ((SVGUITransform*)element)->GetY();\n"%texts
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   727
        text += "}\n\n"
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   728
        
ccc5e683583d Improve svgui plugin for following SVGUIEditor modifications
lbessard
parents: 142
diff changeset
   729
        return text