Skip to content

P
proview
Commit 4b0de989 authored by claes's avatar claes
Browse files
Options

Moved to remote

parent 47031f64
Hide whitespace changes
Inline Side-by-side
Showing with 0 additions and 271 deletions
nmps/wbl/nmps/src/nmps_c_remtransrcv.wb_load deleted 100644 → 0
View file @ 47031f64
!
! Proview $Id: nmps_c_remtransrcv.wb_load,v 1.4 2005-09-01 14:58:00 claes Exp $
! Copyright (C) 2005 SSAB Oxelsund AB.
!
! This program is free software; you can redistribute it and/or
! modify it under the terms of the GNU General Public License as
! published by the Free Software Foundation, either version 2 of
! the License, or (at your option) any later version.
!
! This program is distributed in the hope that it will be useful
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU General Public License for more details.
!
! You should have received a copy of the GNU General Public License
! along with the program, if not, write to the Free Software
! Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
!
! nmps_c_remtransrcv.wb_load -- Defines the class RemTransRcv.
!
SObject NMps:Class
!/**
! @Version 1.0
! @Code rs_plc_macro_nmps.h
! @Group Remote,Plc
! @Summary Supervision of a receive RemTrans object and unpacks the receive buffer.
! The object supervises a receive RemTrans object.
! @image orm_remtransrcv_fo.gif
! In a subwindow, code for unpacking the receive buffer of the remtrans
! can be programmed.
! When a transaction is recived, the subwindow is executed and the output
! Recieved is set to mark that new data is present.
!
! @b See also
! @classlink RemTrans ssab_remtrans.html
! @classlink RemTransSend nmps_remtranssend.html
!*/
Object RemTransRcv $ClassDef 28
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_RtConnectionsAndDevBodies
Attr PopEditor = 2
EndBody
!
! REMTRANSRCV Runtime Body
!
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "RemTransRcv"
EndBody
!/**
! Data input connected to a GetData refering to the RemTrans object.
!*/
Object RemTrans $Input 1
Body SysBody
Attr TypeRef = "pwrs:Type-$Float32"
Attr Flags |= PWR_MASK_POINTER
Attr Flags |= PWR_MASK_PRIVATE
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_NOEDIT
Attr Flags |= PWR_MASK_NOREMOVE
Attr GraphName = "Trs"
EndBody
EndObject
!/**
! Data is received. DataValid in the RemTrans object is detected, and
! the subwindow is executed.
! Received is true in one cycle.
!*/
Object Received $Output 2
Body SysBody
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_NOEDIT
Attr TypeRef = "pwrs:Type-$Boolean"
Attr GraphName = "rcv"
EndBody
EndObject
EndObject
!
! REMTRANSRCV Development Body
!
Object DevBody $ObjBodyDef 2
Object PlcNode $Buffer 1
Body SysBody
Attr Class = pwr_eClass_PlcNode
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
EndObject
Object GraphPlcNode $GraphPlcNode
Body SysBody
Attr object_type = 11
Attr parameters[0] = 1
Attr parameters[1] = 0
Attr parameters[2] = 1
Attr parameters[3] = 0
Attr subwindow_class[0] = "pwrb:Class-WindowPlc"
Attr subwindows = 1
Attr graphmethod = 16
Attr graphindex = 0
Attr default_mask[0] = 1
Attr default_mask[1] = 1
Attr segname_annotation = 1
Attr devbody_annotation = 0
Attr compmethod = 50
Attr compindex = 0
Attr tracemethod = 0
Attr traceindex = 0
Attr executeordermethod = 2
Attr objname = "RemRcv"
Attr graphname = "RemRcv"
Attr debugpar = ""
EndBody
EndObject
EndObject
EndSObject
nmps/wbl/nmps/src/nmps_c_remtranssend.wb_load deleted 100644 → 0
View file @ 47031f64
!
! Proview $Id: nmps_c_remtranssend.wb_load,v 1.4 2005-09-01 14:58:00 claes Exp $
! Copyright (C) 2005 SSAB Oxelsund AB.
!
! This program is free software; you can redistribute it and/or
! modify it under the terms of the GNU General Public License as
! published by the Free Software Foundation, either version 2 of
! the License, or (at your option) any later version.
!
! This program is distributed in the hope that it will be useful
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU General Public License for more details.
!
! You should have received a copy of the GNU General Public License
! along with the program, if not, write to the Free Software
! Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
!
! nmps_c_remtranssend.wb_load -- Defines the class RemTransSend.
!
SObject NMps:Class
!/**
! @Version 1.0
! @Code rs_plc_macro_nmps.h
! @Group Remote,Plc
! @Summary Fill and send a remtrans buffer.
! Fill a remtrans buffer and mark the RemTrans object for send.
! @image orm_remtranssend_fo.gif
!
! The object has a subwindow where code for fill in data in
! a remtrans buffer can be programmed. The object excecutes the
! subwindow and then sets the DataValid attribute in the RemTrans
! object, to indicate that new data is present. Status from the
! RemTrans object is stored in output attributes of the RemTransSend
! object.
!
! @b See also
! @classlink RemTrans ssab_remtrans.html
! @classlink RemTransRcv nmps_remtransrcv.html
!*/
Object RemTransSend $ClassDef 27
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_RtConnectionsAndDevBodies
Attr PopEditor = 2
EndBody
!
! REMTRANSSEND Runtime Body
!
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "RemTransSend"
EndBody
!/**
! Data input connected to a GetData which refers to the RemTrans object.
!*/
Object RemTrans $Input 1
Body SysBody
Attr TypeRef = "pwrs:Type-$Float32"
Attr Flags |= PWR_MASK_POINTER
Attr Flags |= PWR_MASK_PRIVATE
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_NOEDIT
Attr Flags |= PWR_MASK_NOREMOVE
Attr GraphName = "Trs"
EndBody
EndObject
!/**
! Data will be sent on positiv edge. The subwindow is executed and
! DataValid is set in the RemTrans object.
!*/
Object Send $Input 2
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
Attr GraphName = "snd"
Attr Flags |= PWR_MASK_NOINVERT
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_NOEDIT
Attr Flags |= PWR_MASK_NOREMOVE
EndBody
EndObject
!/**
! Indicates that the RemTrans object can't handle any new transactions
! for the moment. The last transaction is not yet sent, or if buffering
! is used, no more buffers are available.
!*/
Object Occupied $Output 3
Body SysBody
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_NOEDIT
Attr TypeRef = "pwrs:Type-$Boolean"
Attr GraphName = "occ"
EndBody
EndObject
!/**
! Indicates that there are buffered transactions.
!*/
Object Buffer $Output 4
Body SysBody
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_NOEDIT
Attr TypeRef = "pwrs:Type-$Boolean"
Attr GraphName = "buf"
EndBody
EndObject
!/**
! Error status was returned for the last transaction.
!*/
Object Error $Output 5
Body SysBody
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_NOEDIT
Attr TypeRef = "pwrs:Type-$Boolean"
Attr GraphName = "err"
EndBody
EndObject
EndObject
!
! REMTRANSSEND Development Body
!
Object DevBody $ObjBodyDef 2
Object PlcNode $Buffer 1
Body SysBody
Attr Class = pwr_eClass_PlcNode
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
EndObject
Object GraphPlcNode $GraphPlcNode
Body SysBody
Attr object_type = 11
Attr parameters[0] = 2
Attr parameters[1] = 0
Attr parameters[2] = 3
Attr parameters[3] = 0
Attr subwindow_class[0] = "pwrb:Class-WindowPlc"
Attr subwindows = 1
Attr graphmethod = 16
Attr graphindex = 0
Attr default_mask[0] = 3
Attr default_mask[1] = 5
Attr segname_annotation = 1
Attr devbody_annotation = 0
Attr compmethod = 50
Attr compindex = 0
Attr tracemethod = 0
Attr traceindex = 0
Attr executeordermethod = 2
Attr objname = "RemSend"
Attr graphname = "RemSend"
Attr debugpar = ""
EndBody
EndObject
EndObject
EndSObject
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment
GitLab Nexedi Edition | About GitLab | About Nexedi | 沪ICP备2021021310号-2 | 沪ICP备2021021310号-7