Skip to content

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

Integer io implemented

parent 16a45557
Expand all Show whitespace changes
Inline Side-by-side
Showing with 5249 additions and 341 deletions
src/wbl/pwrb/src/cnv_setup.dat
View file @ d652e713
......@@ -24,3 +24,4 @@ group PlcDrive pwrb_drive.html
group PlcEdit pwrb_bodytext.html
group PlcString pwrb_atostr.html
group PlcData pwrb_dataarithm.html
group PlcConversion pwrb_atoi.html
src/wbl/pwrb/src/pwrb_c_atoi.wb_load 0 → 100644
View file @ d652e713
! pwrb_c_atoi.wb_load -- Defines the class AtoI.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! <Description>.
!
!/**
! @Version 1.0
! @Code rt_plc_macro_io.h
! @Group Plc,PlcConversion
! @Summary Convert analog value to integer
! Convert analog value to integer.
! @image orm_atoi_fo.gif
!
! The AtoI object converts the value of the analog input to
! an integer (pwr_tInt32) stored in ActVal.
! The analog value is rounded to closest integer value.
!*/
SObject pwrb:Class
Object AtoI $ClassDef 343
Body SysBody
Attr Editor = pwr_eEditor_PlcEd
Attr Method = pwr_eMethod_Connections
Attr PopEditor = 2
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "AtoI"
EndBody
!/**
! Analog input that will be converted to integer.
!*/
Object In $Input 1
Body SysBody
Attr TypeRef = "pwrs:Type-$Float32"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_NOEDIT
Attr Flags |= PWR_MASK_NOREMOVE
Attr GraphName = "In"
EndBody
EndObject
!/**
! Output that contains the integer.
!*/
Object ActVal $Output 3
Body SysBody
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_NOEDIT
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "Val"
EndBody
EndObject
EndObject
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 subwindows = 0
Attr graphmethod = 1
Attr graphindex = 0
Attr default_mask[0] = 1
Attr default_mask[1] = 1
Attr segname_annotation = 1
Attr compmethod = 5
Attr compindex = 0
Attr tracemethod = 0
Attr traceindex = 0
Attr executeordermethod = 2
Attr objname = "AtoI"
Attr graphname = "AtoI"
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_carithm.wb_load
View file @ d652e713
......@@ -171,6 +171,69 @@ SObject pwrb:Class
EndBody
EndObject
!/**
! Integer quantities that can be included in the Code
! attribute. If , for example, I1 is connected, the
! external signal is used, otherwise the internal
! attribute IIn1. Changes in IIn1, ..., IIn8 in the run
! time system are taken into consideration.
!*/
Object IIn1 $Input 33
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "I1"
Attr Flags |= PWR_MASK_NOINVERT
EndBody
EndObject
Object IIn2 $Input 34
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "I2"
Attr Flags |= PWR_MASK_NOINVERT
EndBody
EndObject
Object IIn3 $Input 35
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "I3"
Attr Flags |= PWR_MASK_NOINVERT
EndBody
EndObject
Object IIn4 $Input 36
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "I4"
Attr Flags |= PWR_MASK_NOINVERT
EndBody
EndObject
Object IIn5 $Input 37
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "I5"
Attr Flags |= PWR_MASK_NOINVERT
EndBody
EndObject
Object IIn6 $Input 38
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "I6"
Attr Flags |= PWR_MASK_NOINVERT
EndBody
EndObject
Object IIn7 $Input 39
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "I7"
Attr Flags |= PWR_MASK_NOINVERT
EndBody
EndObject
Object IIn8 $Input 40
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "I8"
Attr Flags |= PWR_MASK_NOINVERT
EndBody
EndObject
!/**
! The analog results of the latest Code evaluation.
!*/
Object OutA1 $Output 17
......@@ -320,13 +383,88 @@ SObject pwrb:Class
Attr GraphName = "od8"
EndBody
EndObject
!/**
! The integer results of the latest Code evaluation.
!*/
Object OutI1 $Output 41
Body SysBody
Attr PgmName = "OutI1"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_NOEDIT
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "OI1"
EndBody
EndObject
Object OutI2 $Output 42
Body SysBody
Attr PgmName = "OutI2"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_NOEDIT
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "OI2"
EndBody
EndObject
Object OutI3 $Output 43
Body SysBody
Attr PgmName = "OutI3"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_NOEDIT
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "OI3"
EndBody
EndObject
Object OutI4 $Output 44
Body SysBody
Attr PgmName = "OutI4"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_NOEDIT
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "OI4"
EndBody
EndObject
Object OutI5 $Output 45
Body SysBody
Attr PgmName = "OutI5"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_NOEDIT
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "OI5"
EndBody
EndObject
Object OutI6 $Output 46
Body SysBody
Attr PgmName = "OutI6"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_NOEDIT
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "OI6"
EndBody
EndObject
Object OutI7 $Output 47
Body SysBody
Attr PgmName = "OutI7"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_NOEDIT
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "OI7"
EndBody
EndObject
Object OutI8 $Output 48
Body SysBody
Attr PgmName = "OutI8"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_NOEDIT
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "OI8"
EndBody
EndObject
EndObject
Object GraphPlcNode $GraphPlcNode
Body SysBody
Attr object_type = 11
Attr parameters[0] = 16
Attr parameters[0] = 24
Attr parameters[1] = 0
Attr parameters[2] = 16
Attr parameters[2] = 24
Attr parameters[3] = 0
Attr subwindows = 1
Attr graphmethod = 14
......
src/wbl/pwrb/src/pwrb_c_cstoai.wb_load
View file @ d652e713
......@@ -19,11 +19,9 @@
!
! Conditional is aimed at the con-input, which is
! supposed to be connected.
!
! @b Note!
! This object is used for simulation purposes.
! SimulFlag will be set TRUE and ReadWriteFlag FALSE
! in the IOHandler object, i.e. any physical I/O-hardware may
! Note! This object is used for simulation purposes.
! IOSimulFlag will be set TRUE and IOReadWriteFlag FALSE
! in the $Node object, i.e. any physical I/O-hardware may
! not be used on the node in connection to this object.
!*/
SObject pwrb:Class
......
src/wbl/pwrb/src/pwrb_c_cstoatoip.wb_load 0 → 100644
View file @ d652e713
! pwrb_c_cstoatoip.wb_load -- Defines the class CStoAtoIp.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! Conditional Store Integer parameter.
!
! Range ldh_eDId_Base
!
!/**
! @Version 1.0
! @Code rt_plc_macro_io.h
! @Group Plc,PlcIO
! @Summary Conditional storage of integer attribute
! Conditional Storage Integer parameter.
! @image orm_cstoatoip_fo.gif
!
! Conditional storage of an analog value ( parameter,
! input, or output signal of the type pwr_tFloat32) on a
! specified 32-,16-, or 8-bits integer parameter in a
! local object.
! Conditional is aimed at the con-input, which is
! supposed to be connected. The analog value is rounded to
! closest integer value.
!
! The last name segment of the object and the name of the
! parameter will be shown in the right empty part of the
! CStoAtoIp symbol.
! The conditional input signal can be inverted by means
! of the Attribute Editor but the graphic symbol cannot
! display it. So the user is recommended -- if needed ---
! to an explicit use of an Inv object.
!
! It is not allowed, by means of a function in C or PLC
! programs, to write in any of the inputs.
!*/
SObject pwrb:Class
Object CStoAtoIp $ClassDef 78
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_RtConnectionsAndDevBodies
Attr Flags = pwr_mClassDef_DevOnly
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "CStoAtoIp"
EndBody
!/**
! The input is connected to an analog signal or left
! open. In the latter case the In is considered to be
! stored.
!*/
Object In $Input 1
Body SysBody
Attr PgmName = "In"
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_DEVBODYREF
Attr TypeRef = "pwrs:Type-$Float32"
Attr GraphName = "VAL"
Attr ConPointNr = 0
EndBody
EndObject
!/**
! Specifies whether a storage will be done or not. FALSE
! means no storage and TRUE means storage of an analog
! value.
!*/
Object Cond $Input 2
Body SysBody
Attr PgmName = "Cond"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_DEVBODYREF
Attr Flags |= PWR_MASK_NOEDIT
Attr TypeRef = "pwrs:Type-$Boolean"
Attr GraphName = "con"
Attr ConPointNr = 1
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
!/**
! Specifies the name of the object where to store the
! value.
!*/
Object Object $Intern 1
Body SysBody
Attr PgmName = "Object"
Attr TypeRef = "pwrs:Type-$Objid"
Attr GraphName = "sts"
Attr NiNaAnnot = 1
Attr NiNaSegments = 1
EndBody
EndObject
!/**
! Specifies, in an object specified by Object, the name
! of the attribute where to store the value.
!*/
Object Parameter $Intern 2
Body SysBody
Attr PgmName = "Parameter"
Attr TypeRef = "pwrs:Type-$String80"
Attr GraphName = "par"
Attr NiNaAnnot = 2
Attr ConPointNr = 0
EndBody
EndObject
!/**
! Specifies how many segments of the actual object name
! that is to be displayed in the symbol of the CStoAtoIp
! object. The segments are counted from behind.
!
! 0 and 1 both result in displaying the last segment of
! the actual object name.
!*/
Object ObjectSegments $Intern 3
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
EndBody
EndObject
Object PlcNode $Buffer 4
Body SysBody
Attr Class = pwr_eClass_PlcNode
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
EndObject
Object GraphPlcNode $GraphPlcNode
Body SysBody
Attr object_type = 251
Attr parameters[0] = 2
Attr parameters[1] = 0
Attr parameters[2] = 0
Attr parameters[3] = 0
Attr subwindows = 0
Attr graphmethod = 15
Attr graphindex = 0
Attr default_mask[0] = 3
Attr default_mask[1] = 0
Attr segname_annotation = 0
Attr devbody_annotation = 1
Attr compmethod = 12
Attr compindex = 0
Attr tracemethod = 0
Attr traceindex = 1
Attr connectmethod = 7
Attr executeordermethod = 2
Attr objname = "CStoAtoIp"
Attr graphname = "CStoAtoIp"
Attr debugpar = "Cond"
EndBody
EndObject
Object Template CStoAtoIp
Body RtBody
Attr Cond = 1
EndBody
Body DevBody
Attr ObjectSegments = 2
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_cstoii.wb_load 0 → 100644
View file @ d652e713
! pwrb_c_cstoii.wb_load -- Defines the class CStoIi.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! <Description>.
!
! Range ldh_eDId_Base
!
!/**
! @Version 1.0
! @Code rt_plc_macro_io.h
! @Summary Conditional storage of Ii signal
! Conditional Storage Integer input.
! @image orm_cstoii_fo.gif
!
! Conditional storage of an integer value on a specified
! local Ii-signal (= Ii object).
!
! Conditional is aimed at the con-input, which is
! supposed to be connected.
!
! @b Note!
! This object is used for simulation purposes.
! SimulFlag will be set TRUE and ReadWriteFlag FALSE
! in the IOHandler object, i.e. any physical I/O-hardware may
! not be used on the node in connection to this object.
!*/
SObject pwrb:Class
Object CStoIi $ClassDef 335
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_RtConnectionsAndDevBodies
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "cstoii"
EndBody
!/**
! The input is connected to an integer signal or left
! open. In the latter case the In value is considered to
! be stored.
!*/
Object In $Input 1
Body SysBody
Attr PgmName = "ActualValue"
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_DEVBODYREF
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "VAL"
EndBody
EndObject
!/**
! Specifies whether a storage will be done or not. FALSE
! means no storage and TRUE means storage of an integer
! value.
!*/
Object Cond $Input 2
Body SysBody
Attr PgmName = "Cond"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_DEVBODYREF
Attr Flags |= PWR_MASK_NOEDIT
Attr TypeRef = "pwrs:Type-$Boolean"
Attr GraphName = "con"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
!/**
! Specifies the name of the Ii object where to store the
! value.
!*/
Object IiObject $Intern 1
Body SysBody
Attr PgmName = "IiObject"
Attr TypeRef = "pwrs:Type-$Objid"
Attr GraphName = "In"
Attr NiNaAnnot = 1
Attr NiNaSegments = 1
EndBody
EndObject
!/**
! Used by the PLC Editor.
!*/
Object SigChanCon $Intern 2
Body SysBody
Attr TypeRef = "pwrs:Type-$Objid"
Attr Flags |= PWR_MASK_INVISIBLE
Attr NiNaAnnot = 3
Attr NiNaCond = 1
Attr NiNaSegments = 1
EndBody
EndObject
!/**
! Specifies how many segments of the Ii object name that
! is to be displayed in the symbol of the CStoIi object.
! The segments are counted from behind.
! 0 and 1 both result in displaying the last segment of
!*/
Object IiObjectSegments $Intern 3
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
EndBody
EndObject
!/**
! Specifies if the name on the channel object (
! associated with the signal object) is to be displayed
! in the symbol of the CStoIi object or not. FALSE means
! no displaying and TRUE displaying.
! See also SigChanConSegments.
!*/
Object ShowSigChanCon $Intern 4
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
!/**
! Specifies, when ShowSigChanCon = TRUE, how many
! segments of the channel object name that is to be
! displayed in the symbol of the CStoIi object. The
! segments are counted from behind.
! 0 and 1 both result in displaying the last segment of
! the channel object name.
!*/
Object SigChanConSegments $Intern 5
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
EndBody
EndObject
Object PlcNode $Buffer 6
Body SysBody
Attr Class = pwr_eClass_PlcNode
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
EndObject
Object GraphPlcNode $GraphPlcNode
Body SysBody
Attr object_type = 268
Attr parameters[0] = 2
Attr parameters[1] = 0
Attr parameters[2] = 0
Attr parameters[3] = 0
Attr subwindows = 0
Attr graphmethod = 15
Attr graphindex = 1
Attr default_mask[0] = 3
Attr default_mask[1] = 0
Attr segname_annotation = 0
Attr devbody_annotation = 1
Attr compmethod = 38
Attr compindex = 0
Attr tracemethod = 0
Attr traceindex = 1
Attr connectmethod = 22
Attr executeordermethod = 2
Attr objname = "CStoIi"
Attr graphname = "CStoIi"
Attr debugpar = "Cond"
EndBody
EndObject
Object Template CStoIi
Body DevBody
Attr IiObjectSegments = 2
Attr ShowSigChanCon = 1
Attr SigChanConSegments = 2
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_cstoio.wb_load 0 → 100644
View file @ d652e713
! pwrb_c_cstoio.wb_load -- Defines the class CStoIo.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! Conditional Store value of Integer Output signal.
!
! Range ldh_eDId_Base
!
!/**
! @Version 1.0
! @Code rt_plc_macro_io.h
! @Group Plc,PlcIO
! @Summary Conditional storage of Io signal
! Conditional Storage Integer output.
! @image orm_cstoio_fo.gif
!
! Conditional storage of an integer value on a specified
! local Io-signal (= Io object).
!
! Conditional is aimed at the con-input, which is
! supposed to be connected.
!
! The conditional input signal can be inverted by means
! of the Attribute Editor.
!
! It is not allowed, by means of a function in C or PLC
! programs, to write in any of the inputs.
!*/
SObject pwrb:Class
Object CStoIo $ClassDef 336
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_RtConnectionsAndDevBodies
Attr Flags = pwr_mClassDef_DevOnly
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "cstoio"
EndBody
!/**
! The input is connected to an integer signal or left
! open. In the latter case the In value is considered to
! be stored.
!*/
Object In $Input 1
Body SysBody
Attr PgmName = "ActualValue"
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_DEVBODYREF
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "VAL"
EndBody
EndObject
!/**
! Specifies whether a storage will be done or not. FALSE
! means no storage and TRUE means storage of an integer
! value.
!*/
Object Cond $Input 2
Body SysBody
Attr PgmName = "Cond"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_DEVBODYREF
Attr Flags |= PWR_MASK_NOEDIT
Attr TypeRef = "pwrs:Type-$Boolean"
Attr GraphName = "con"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
!/**
! Specifies the name of the Io object where to store the
! value.
!*/
Object IoObject $Intern 1
Body SysBody
Attr PgmName = "IoObject"
Attr TypeRef = "pwrs:Type-$Objid"
Attr GraphName = "In"
Attr NiNaAnnot = 1
Attr NiNaSegments = 1
EndBody
EndObject
!/**
! Used by the PLC Editor.
!*/
Object SigChanCon $Intern 2
Body SysBody
Attr TypeRef = "pwrs:Type-$Objid"
Attr Flags |= PWR_MASK_INVISIBLE
Attr NiNaAnnot = 3
Attr NiNaCond = 1
Attr NiNaSegments = 1
EndBody
EndObject
!/**
! Specifies how many segments of the Io object name that
! is to be displayed in the symbol of the CStoIo object.
! The segments are counted from behind.
! 0 and 1 both result in displaying the last segment of
! the signal object name.
!*/
Object IoObjectSegments $Intern 3
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
EndBody
EndObject
!/**
! Specifies if the name on the channel object (
! associated with the signal object) is to be displayed
! in the symbol of the CStoIo object or not. FALSE means
! no displaying and TRUE displaying.
! See also SigChanConSegments.
!*/
Object ShowSigChanCon $Intern 4
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
!/**
! Specifies, when ShowSigChanCon = TRUE, how many
! segments of the channel object name that is to be
! displayed in the symbol of the CStoIo object. The
! segments are counted from behind.
! 0 and 1 both result in displaying the last segment of
! the channel object name.
!*/
Object SigChanConSegments $Intern 5
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
EndBody
EndObject
Object PlcNode $Buffer 6
Body SysBody
Attr Class = pwr_eClass_PlcNode
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
EndObject
Object GraphPlcNode $GraphPlcNode
Body SysBody
Attr object_type = 149
Attr parameters[0] = 2
Attr parameters[1] = 0
Attr parameters[2] = 0
Attr parameters[3] = 0
Attr subwindows = 0
Attr graphmethod = 15
Attr graphindex = 1
Attr default_mask[0] = 3
Attr default_mask[1] = 0
Attr segname_annotation = 0
Attr devbody_annotation = 1
Attr compmethod = 11
Attr compindex = 0
Attr tracemethod = 0
Attr traceindex = 1
Attr connectmethod = 23
Attr executeordermethod = 2
Attr objname = "CStoIo"
Attr graphname = "CStoIo"
Attr debugpar = "Cond"
EndBody
EndObject
Object Template CStoIo
Body RtBody
Attr Cond = 1
EndBody
Body DevBody
Attr IoObjectSegments = 2
Attr SigChanConSegments = 2
Attr ShowSigChanCon = 1
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_cstoip.wb_load
View file @ d652e713
......@@ -15,8 +15,8 @@
! Conditional Storage Integer parameter.
! @image orm_cstoip_fo.gif
!
! Conditional storage of an analog value ( parameter,
! input, or output signal of the type pwr_tFloat32) on a
! Conditional storage of an integer value (attribute,
! input, or output signal of the type pwr_tInt32) on a
! specified 32-,16-, or 8-bits integer parameter in a
! local object.
! Conditional is aimed at the con-input, which is
......@@ -35,7 +35,7 @@
! programs, to write in any of the inputs.
!*/
SObject pwrb:Class
Object CStoIp $ClassDef 78
Object CStoIp $ClassDef 341
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_RtConnectionsAndDevBodies
......@@ -43,10 +43,10 @@ SObject pwrb:Class
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "cstoip"
Attr StructName = "CStoIp"
EndBody
!/**
! The input is connected to an analog signal or left
! The input is connected to an integer signal or left
! open. In the latter case the In is considered to be
! stored.
!*/
......@@ -55,14 +55,14 @@ SObject pwrb:Class
Attr PgmName = "In"
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_DEVBODYREF
Attr TypeRef = "pwrs:Type-$Float32"
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "VAL"
Attr ConPointNr = 0
EndBody
EndObject
!/**
! Specifies whether a storage will be done or not. FALSE
! means no storage and TRUE means storage of an analog
! means no storage and TRUE means storage of an integer
! value.
!*/
Object Cond $Input 2
......@@ -127,7 +127,7 @@ SObject pwrb:Class
EndObject
Object GraphPlcNode $GraphPlcNode
Body SysBody
Attr object_type = 251
Attr object_type = 270
Attr parameters[0] = 2
Attr parameters[1] = 0
Attr parameters[2] = 0
......
src/wbl/pwrb/src/pwrb_c_cstoiv.wb_load 0 → 100644
View file @ d652e713
! pwrb_c_cstoiv.wb_load -- Defines the class CStoIv.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! Conditional Store value of Integer Value signal.
!
! Range ldh_eDId_Base
!
!/**
! @Version 1.0
! @Code rt_plc_macro_io.h
! @Group Plc,PlcIO
! Conditional Storage Integer value.
! @image orm_cstoiv_fo.gif
!
! Conditional storage of an integer value on a specified
! local Iv-signal (= Iv object).
! Conditional is aimed at the con-input, which is
! supposed to be connected.
!
! The conditional input signal can be inverted by means
! of the Attribute Editor.
! It is not allowed, by means of a function in C or PLC
! programs, to write in any of the inputs.
!*/
SObject pwrb:Class
Object CStoIv $ClassDef 337
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_RtConnectionsAndDevBodies
Attr Flags = pwr_mClassDef_DevOnly
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "cstoiv"
EndBody
!/**
! The input is connected to an integer signal or left
! open. In the latter case the value of In, is considered
! to be stored.
!*/
Object In $Input 1
Body SysBody
Attr PgmName = "ActualValue"
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_DEVBODYREF
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "VAL"
EndBody
EndObject
!/**
! Specifies whether a storage will be done or not. FALSE
! means no storage and TRUE means storage of an integer
! value.
!*/
Object Cond $Input 2
Body SysBody
Attr PgmName = "Cond"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_DEVBODYREF
Attr Flags |= PWR_MASK_NOEDIT
Attr TypeRef = "pwrs:Type-$Boolean"
Attr GraphName = "con"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
!/**
! Specifies the name of the object where to store the
! value.
!*/
Object IvObject $Intern 1
Body SysBody
Attr PgmName = "IvObject"
Attr TypeRef = "pwrs:Type-$Objid"
Attr GraphName = "In"
Attr NiNaAnnot = 1
Attr NiNaSegments = 1
EndBody
EndObject
!/**
! Specifies how many segments of the Iv object name that
! is to be displayed in the symbol of the CStoIv object.
! The segments are counted from behind.
!*/
Object IvObjectSegments $Intern 2
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
EndBody
EndObject
Object PlcNode $Buffer 3
Body SysBody
Attr Class = pwr_eClass_PlcNode
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
EndObject
Object GraphPlcNode $GraphPlcNode
Body SysBody
Attr object_type = 148
Attr parameters[0] = 2
Attr parameters[1] = 0
Attr parameters[2] = 0
Attr parameters[3] = 0
Attr subwindows = 0
Attr graphmethod = 15
Attr graphindex = 1
Attr default_mask[0] = 3
Attr default_mask[1] = 0
Attr segname_annotation = 0
Attr devbody_annotation = 1
Attr compmethod = 11
Attr compindex = 0
Attr tracemethod = 0
Attr traceindex = 1
Attr connectmethod = 21
Attr executeordermethod = 2
Attr objname = "CStoIv"
Attr graphname = "CStoIv"
Attr debugpar = "Cond"
EndBody
EndObject
Object Template CStoIv
Body RtBody
Attr Cond = 1
EndBody
Body DevBody
Attr IvObjectSegments = 2
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_dataarithm.wb_load
View file @ d652e713
......@@ -260,6 +260,72 @@ SObject pwrb:Class
EndBody
EndObject
!/**
! @Summary Integer input I1.
! Integer input.
! I1 or the aliasname is used to refer to the input in the code.
!*/
Object IIn1 $Input 37
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "I1"
EndBody
EndObject
!/**
! @Summary Integer input I2.
! Integer input.
! I2 or the aliasname is used to refer to the input in the code.
!*/
Object IIn2 $Input 38
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "I2"
EndBody
EndObject
!/**
! @Summary Integer input I3.
! Integer input.
! I3 or the aliasname is used to refer to the input in the code.
!*/
Object IIn3 $Input 39
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "I3"
EndBody
EndObject
!/**
! @Summary Integer input I4.
! Integer input.
! I4 or the aliasname is used to refer to the input in the code.
!*/
Object IIn4 $Input 40
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "I4"
EndBody
EndObject
!/**
! @Summary Integer input I5.
! Integer input.
! I5 or the aliasname is used to refer to the input in the code.
!*/
Object IIn5 $Input 41
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "I5"
EndBody
EndObject
!/**
! @Summary Integer input I6.
! Integer input.
! I6 or the aliasname is used to refer to the input in the code.
!*/
Object IIn6 $Input 42
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "I6"
EndBody
EndObject
!/**
! @Summary Data object reference output ODa1.
! Data object reference output.
! ODa1 is used to refer to the output in the code.
......@@ -536,6 +602,90 @@ SObject pwrb:Class
Attr GraphName = "od6"
EndBody
EndObject
!/**
! @Summary Integer output IO1.
! Integer output.
! IO1 is used to refer to the output in the code.
!*/
Object OutI1 $Output 43
Body SysBody
Attr PgmName = "OutI1"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_NOEDIT
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "OI1"
EndBody
EndObject
!/**
! @Summary Integer output IO2.
! Integer output.
! IO2 is used to refer to the output in the code.
!*/
Object OutI2 $Output 44
Body SysBody
Attr PgmName = "OutI2"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_NOEDIT
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "OI2"
EndBody
EndObject
!/**
! @Summary Integer output IO3.
! Integer output.
! IO3 is used to refer to the output in the code.
!*/
Object OutI3 $Output 45
Body SysBody
Attr PgmName = "OutI3"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_NOEDIT
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "OI3"
EndBody
EndObject
!/**
! @Summary Integer output IO4.
! Integer output.
! IO4 is used to refer to the output in the code.
!*/
Object OutI4 $Output 46
Body SysBody
Attr PgmName = "OutI4"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_NOEDIT
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "OI4"
EndBody
EndObject
!/**
! @Summary Integer output IO5.
! Integer output.
! IO5 is used to refer to the output in the code.
!*/
Object OutI5 $Output 47
Body SysBody
Attr PgmName = "OutI5"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_NOEDIT
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "OI5"
EndBody
EndObject
!/**
! @Summary Integer output IO6.
! Integer output.
! IO6 is used to refer to the output in the code.
!*/
Object OutI6 $Output 48
Body SysBody
Attr PgmName = "OutI6"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_NOEDIT
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "OI6"
EndBody
EndObject
EndObject
!
! DATAARITHM Development Body
......@@ -543,9 +693,9 @@ SObject pwrb:Class
Object GraphPlcNode $GraphPlcNode
Body SysBody
Attr object_type = 224
Attr parameters[0] = 16
Attr parameters[0] = 22
Attr parameters[1] = 0
Attr parameters[2] = 16
Attr parameters[2] = 22
Attr parameters[3] = 0
Attr subwindows = 0
Attr graphmethod = 14
......
src/wbl/pwrb/src/pwrb_c_dtoenum.wb_load 0 → 100644
View file @ d652e713
This diff is collapsed.
src/wbl/pwrb/src/pwrb_c_dtomask.wb_load 0 → 100644
View file @ d652e713
This diff is collapsed.
src/wbl/pwrb/src/pwrb_c_enumtod.wb_load 0 → 100644
View file @ d652e713
This diff is collapsed.
src/wbl/pwrb/src/pwrb_c_getigeneric.wb_load 0 → 100644
View file @ d652e713
! pwrb_c_getigeneric.wb_load -- Defines the class GetIgeneric.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! <Description>.
!
!/**
! @Version 1.0
! @Group Plc,PlcIO
! @Summary Temporary object produced by the plc editor.
! A GetIgeneric object is a temporary object, created in the plc-editor
! when a connection is created from a integer input. The object will
! be transformed to its final appearence when it is connected to a
! signal or attribute.
! @image orm_getigeneric_fo.gif
!*/
!
SObject pwrb:Class
Object GetIgeneric $ClassDef 338
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_DevBodyOnly
Attr PopEditor = 2
EndBody
Object DevBody $ObjBodyDef 2
Object ActualValue $Output 1
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
Object PlcNode $Buffer 2
Body SysBody
Attr Class = pwr_eClass_PlcNode
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
EndObject
Object GraphPlcNode $GraphPlcNode
Body SysBody
Attr object_type = 140
Attr parameters[0] = 0
Attr parameters[1] = 0
Attr parameters[2] = 1
Attr parameters[3] = 0
Attr subwindows = 0
Attr graphmethod = 4
Attr graphindex = 38
Attr default_mask[0] = 0
Attr default_mask[1] = 1
Attr segname_annotation = 0
Attr compmethod = 56
Attr compindex = 0
Attr tracemethod = 1
Attr connectmethod = 24
Attr traceindex = 1
Attr executeordermethod = 0
Attr objname = "GetI"
Attr graphname = "GetI"
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_getii.wb_load 0 → 100644
View file @ d652e713
! pwrb_c_getii.wb_load -- Defines the class GetIi.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! Get status of Integer Input signal.
!
!/**
! @Version 1.0
! @Group Plc,PlcIO
! @Summary Get Ii signal
! Get Integer input.
! @image orm_getii_fo.gif
!
! Fetches the engineering value for a specified Ii-signal
! from I/O-copied area. See PROVIEW/R Designer's Guide.
!
! The complete name of the Ii-signal has to be supplied;
! its last segment is shown in the right empty part of
! the symbol.
!
! The GetIi object
! - is a pure address reference to the I/O-copied area
! for Ii-signals,
! - contains no relevant information (=data) in rtdb,
! - is without executable code.
!*/
SObject pwrb:Class
Object GetIi $ClassDef 330
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_RtAndDevBodies
Attr Flags = pwr_mClassDef_DevOnly
EndBody
Object RtBody $ObjBodyDef 1
!/**
! Used by the PLC Editor.
!*/
Object ActVal $Output 1
Body SysBody
Attr PgmName = "ActualValue"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_DEVBODYREF
Attr Flags |= PWR_MASK_INVISIBLE
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "VAL"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
!/**
! Used by the PLC Editor. Specifies the complete name of
! the Ii object.
!*/
Object IiObject $Intern 1
Body SysBody
Attr PgmName = "IiObject"
Attr TypeRef = "pwrs:Type-$Objid"
Attr GraphName = "VAL"
Attr NiNaAnnot = 1
Attr NiNaSegments = 1
Attr ConPointNr = 2
EndBody
EndObject
!/**
! Used by the PLC Editor.
!*/
Object SigChanCon $Intern 2
Body SysBody
Attr TypeRef = "pwrs:Type-$Objid"
Attr Flags |= PWR_MASK_INVISIBLE
Attr NiNaAnnot = 2
Attr NiNaCond = 1
Attr NiNaSegments = 1
EndBody
EndObject
!/**
! Specifies how many segments of the Ii object name that
! is to be displayed in the symbol of the GetIi object.
! The segments are counted from behind.
!
! 0 and 1 both result in displaying the last segment of
! the signal object name.
!*/
Object IiObjectSegments $Intern 3
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
EndBody
EndObject
!/**
! Specifies if the name on the channel object (
! associated with the signal object) is to be displayed
! in the symbol of the GetIi object or not. FALSE means
! no displaying and TRUE displaying.
! See also SigChanConSegments.
!*/
Object ShowSigChanCon $Intern 4
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
!/**
! Specifies, when ShowSigChanCon = TRUE, how many
! segments of the channel object name that is to be
! displayed in the symbol of the GetIi object. The
! segments are counted from behind.
! 0 and 1 both result in displaying the last segment of
! the channel object name.
!*/
Object SigChanConSegments $Intern 5
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
EndBody
EndObject
Object PlcNode $Buffer 6
Body SysBody
Attr Class = pwr_eClass_PlcNode
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
EndObject
Object GraphPlcNode $GraphPlcNode
Body SysBody
Attr object_type = 143
Attr parameters[0] = 0
Attr parameters[1] = 0
Attr parameters[2] = 1
Attr parameters[3] = 0
Attr subwindows = 0
Attr graphmethod = 7
Attr graphindex = 1
Attr default_mask[0] = 0
Attr default_mask[1] = 1
Attr segname_annotation = 0
Attr devbody_annotation = 1
Attr compmethod = 8
Attr compindex = 0
Attr tracemethod = 0
Attr traceindex = 0
Attr connectmethod = 22
Attr executeordermethod = 0
Attr objname = "GetIi"
Attr graphname = "Ii"
Attr debugpar = ""
EndBody
EndObject
Object Template GetIi
Body DevBody
Attr IiObjectSegments = 2
Attr SigChanConSegments = 2
Attr ShowSigChanCon = 1
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_getio.wb_load 0 → 100644
View file @ d652e713
! pwrb_c_getio.wb_load -- Defines the class GetIo.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! Get status of Integer Output signal.
!
!/**
! @Version 1.0
! @Group Plc,PlcIO
! @Summary Get Integer output signal
! Get Integer output.
! @image orm_getio_fo.gif
!
! Fetches the engineering value for a specified Io-signal
! from I/O-copied area. See PROVIEW/R Designer's Guide.
! The complete name of the Io-signal has to be supplied;
! its last segment is shown in the right empty part of
! the symbol.
!
! The GetIo object
! - is a pure address reference to the I/O-copied area
! for Io-signals,
! - contains no relevant information (=data) in rtdb,
! - is without executable code.
!*/
SObject pwrb:Class
Object GetIo $ClassDef 331
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_RtAndDevBodies
Attr Flags = pwr_mClassDef_DevOnly
EndBody
Object RtBody $ObjBodyDef 1
!/**
! Used by the PLC Editor.
!*/
Object ActVal $Output 1
Body SysBody
Attr PgmName = "ActualValue"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_DEVBODYREF
Attr Flags |= PWR_MASK_INVISIBLE
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "VAL"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
!/**
! Used by the PLC Editor. Specifies the complete name of
! the Io object.
!*/
Object IoObject $Intern 1
Body SysBody
Attr PgmName = "IoObject"
Attr TypeRef = "pwrs:Type-$Objid"
Attr GraphName = "VAL"
Attr NiNaAnnot = 1
Attr NiNaSegments = 1
EndBody
EndObject
!/**
! Used by the PLC Editor.
!*/
Object SigChanCon $Intern 2
Body SysBody
Attr TypeRef = "pwrs:Type-$Objid"
Attr Flags |= PWR_MASK_INVISIBLE
Attr NiNaAnnot = 2
Attr NiNaCond = 1
Attr NiNaSegments = 1
EndBody
EndObject
!/**
! Specifies how many segments of the Io object name that
! is to be displayed in the symbol of the GetIo object.
! The segments are counted from behind.
!
! 0 and 1 both result in displaying the last segment of
! the signal object name.
!*/
Object IoObjectSegments $Intern 3
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
EndBody
EndObject
!/**
! Specifies if the name on the channel object (
! associated with the signal object) is to be displayed
! in the symbol of the GetIo object or not. FALSE means
! no displaying and TRUE displaying.
! See also SigChanConSegments.
!*/
Object ShowSigChanCon $Intern 4
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
!/**
! Specifies, when ShowSigChanCon = TRUE, how many
! segments of the channel object name that is to be
! displayed in the symbol of the GetIo object. The
! segments are counted from behind.
!
! 0 and 1 both result in displaying the last segment of
! the channel object name.
!*/
Object SigChanConSegments $Intern 5
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
EndBody
EndObject
Object PlcNode $Buffer 6
Body SysBody
Attr Class = pwr_eClass_PlcNode
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
EndObject
Object GraphPlcNode $GraphPlcNode
Body SysBody
Attr object_type = 144
Attr parameters[0] = 0
Attr parameters[1] = 0
Attr parameters[2] = 1
Attr parameters[3] = 0
Attr subwindows = 0
Attr graphmethod = 7
Attr graphindex = 1
Attr default_mask[0] = 0
Attr default_mask[1] = 1
Attr segname_annotation = 0
Attr devbody_annotation = 1
Attr compmethod = 8
Attr compindex = 0
Attr tracemethod = 0
Attr traceindex = 0
Attr connectmethod = 23
Attr executeordermethod = 0
Attr objname = "GetIo"
Attr graphname = "Io"
Attr debugpar = ""
EndBody
EndObject
Object Template GetIo
Body DevBody
Attr IoObjectSegments = 2
Attr SigChanConSegments = 2
Attr ShowSigChanCon = 1
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_getip.wb_load
View file @ d652e713
......@@ -11,8 +11,8 @@
! @Version 1.0
! @Code rt_plc_macro_io.h
! @Group Plc,PlcIO
! @Summary Get integer attribute
! Get Integer parameter.
! @Summary Get integer attribute and convert to analog value
! Get Integer parameter and convert to analog value.
! @image orm_getip_fo.gif
!
! Fetches the value of a 32-, 16- or 8-bits integer
......@@ -27,22 +27,22 @@
! @b Example
! In the example below the value of the integer parameter, AccMod is stored:
!
! - unconditionally by StoIp
! - conditionally by CStoIp
! - unconditionally by StoAtoIp
! - conditionally by CStoAtoIp
!
! The value is also unconditionally stored as a pwr_tFloat32 on an attribute
! pwr_float32 in the object named TIC2M
! pwr_tFloat32 in the object named TIC2M
! @image orm_en1-93.gif
!*/
SObject pwrb:Class
Object GetIp $ClassDef 128
Object GetIp $ClassDef 340
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_RtAndDevBodies
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "getip"
Attr StructName = "GetIp"
EndBody
!/**
! Used by the PLC Editor.
......@@ -52,7 +52,7 @@ SObject pwrb:Class
Attr PgmName = "ActVal"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_NOEDIT
Attr TypeRef = "pwrs:Type-$Float32"
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "VAL"
EndBody
EndObject
......@@ -110,7 +110,7 @@ SObject pwrb:Class
EndObject
Object GraphPlcNode $GraphPlcNode
Body SysBody
Attr object_type = 252
Attr object_type = 269
Attr parameters[0] = 0
Attr parameters[1] = 0
Attr parameters[2] = 1
......@@ -140,3 +140,4 @@ SObject pwrb:Class
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_getiptoa.wb_load 0 → 100644
View file @ d652e713
! pwrb_c_getiptoa.wb_load -- Defines the class GetIpToA.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! GET status of any Integer Parameter.
!
! Range ldh_eDId_Base
!
!/**
! @Version 1.0
! @Code rt_plc_macro_io.h
! @Group Plc,PlcIO
! @Summary Get integer attribute and convert to analog value
! Get Integer parameter and convert to analog value.
! @image orm_getiptoa_fo.gif
!
! Fetches the value of a 32-, 16- or 8-bits integer
! parameter in arbitrary object.
!
! The complete name of the parameter has to be supplied.
! The GetIp object
! - is a pure address reference,
! - contains no relevant information (=data) in rtdb,
! - is without executable code.
!
! @b Example
! In the example below the value of the integer parameter, AccMod is stored:
!
! - unconditionally by StoAtoIp
! - conditionally by CStoAtoIp
!
! The value is also unconditionally stored as a pwr_tFloat32 on an attribute
! pwr_tFloat32 in the object named TIC2M
! @image orm_en1-93.gif
!*/
SObject pwrb:Class
Object GetIpToA $ClassDef 128
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_RtAndDevBodies
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "GetIpToA"
EndBody
!/**
! Used by the PLC Editor.
!*/
Object ActVal $Output 1
Body SysBody
Attr PgmName = "ActVal"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_NOEDIT
Attr TypeRef = "pwrs:Type-$Float32"
Attr GraphName = "VAL"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
!/**
! Used by the PLC Editor. Specifies the name of the
! actual object.
!*/
Object IpObject $Intern 1
Body SysBody
Attr PgmName = "IpObject"
Attr TypeRef = "pwrs:Type-$Objid"
Attr GraphName = "VAL"
Attr NiNaAnnot = 1
Attr NiNaSegments = 1
EndBody
EndObject
!/**
! Used by the PLC Editor. Specifies the name of the
! parameter.
!
! Note! The editor is case-sensitive on this attribute; i.e.
! if the attribute is named ActualValue it has to be
! written ActualValue and not ACTUALVALUE, for example.
!*/
Object Parameter $Intern 2
Body SysBody
Attr PgmName = "Parameter"
Attr TypeRef = "pwrs:Type-$String80"
Attr GraphName = "par"
Attr NiNaAnnot = 2
Attr ConPointNr = 0
EndBody
EndObject
!/**
! Specifies how many segments of the actual object name
! that is to be displayed in the symbol of the GetDp
! object. The segments are counted from behind.
!
! 0 and 1 both result in displaying the last segment of
! the actual object name.
!*/
Object IpObjectSegments $Intern 3
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
EndBody
EndObject
Object PlcNode $Buffer 4
Body SysBody
Attr Class = pwr_eClass_PlcNode
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
EndObject
Object GraphPlcNode $GraphPlcNode
Body SysBody
Attr object_type = 252
Attr parameters[0] = 0
Attr parameters[1] = 0
Attr parameters[2] = 1
Attr parameters[3] = 0
Attr subwindows = 0
Attr graphmethod = 15
Attr graphindex = 0
Attr default_mask[0] = 0
Attr default_mask[1] = 1
Attr segname_annotation = 0
Attr devbody_annotation = 1
Attr compmethod = 36
Attr compindex = 0
Attr tracemethod = 0
Attr traceindex = 0
Attr connectmethod = 7
Attr executeordermethod = 2
Attr objname = "GetIpToA"
Attr graphname = "GetIpToA"
Attr debugpar = ""
EndBody
EndObject
Object Template GetIpToA
Body DevBody
Attr IpObjectSegments = 2
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_getiv.wb_load 0 → 100644
View file @ d652e713
! pwrb_c_getiv.wb_load -- Defines the class GetIv.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! GET status of stored Analog Value.
!
! Range ldh_eDId_Base
!
!/**
! @Version 1.0
! @Group Plc,PlcIO
! @Summary Get integer value
! Get integer value.
! @image orm_getiv_fo.gif
!
! Fetches the engineering value for a specified Iv-signal
! from I/O-copied area. See PROVIEW/R Designer's Guide.
! The complete name of the Iv-signal has to be supplied;
! its last segment name is shown in the right empty part
! of the symbol.
!
! The GetIv object
! - is a pure address reference to the I/O-copied area
! for Iv-signals,
! - contains no relevant information (=data) in rtdb,
! - is without executable code.
!*/
SObject pwrb:Class
Object GetIv $ClassDef 329
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_RtAndDevBodies
Attr Flags = pwr_mClassDef_DevOnly
EndBody
Object RtBody $ObjBodyDef 1
!/**
! Used by the PLC Editor.
!*/
Object ActVal $Output 1
Body SysBody
Attr PgmName = "ActualValue"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_DEVBODYREF
Attr Flags |= PWR_MASK_INVISIBLE
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "VAL"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
!/**
! Used by the PLC Editor. Specifies the complete name of
! the Iv object.
!*/
Object IvObject $Intern 1
Body SysBody
Attr PgmName = "IvObject"
Attr TypeRef = "pwrs:Type-$Objid"
Attr GraphName = "VAL"
Attr NiNaAnnot = 1
Attr NiNaSegments = 1
EndBody
EndObject
!/**
! Specifies how many segments of the Iv object name that
! is to be displayed in the symbol of the GetIv object.
! The segments are counted from behind.
!*/
Object IvObjectSegments $Intern 2
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
EndBody
EndObject
Object PlcNode $Buffer 3
Body SysBody
Attr Class = pwr_eClass_PlcNode
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
EndObject
Object GraphPlcNode $GraphPlcNode
Body SysBody
Attr object_type = 142
Attr parameters[0] = 0
Attr parameters[1] = 0
Attr parameters[2] = 1
Attr parameters[3] = 0
Attr subwindows = 0
Attr graphmethod = 7
Attr graphindex = 1
Attr default_mask[0] = 0
Attr default_mask[1] = 1
Attr segname_annotation = 0
Attr devbody_annotation = 1
Attr compmethod = 8
Attr compindex = 0
Attr tracemethod = 0
Attr traceindex = 0
Attr connectmethod = 21
Attr executeordermethod = 0
Attr objname = "GetIv"
Attr graphname = "Iv"
Attr debugpar = ""
EndBody
EndObject
Object Template GetIv
Body DevBody
Attr IvObjectSegments = 2
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_ii.wb_load 0 → 100644
View file @ d652e713
! pwrb_c_ii.wb_load -- Defines the class Ii.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! Integer Input.
!
!/**
! @Version 1.0
! @Group PlantConfiguration,Signals
! @Summary Integer input signal
! Integer input.
!
! Configures an integer input signal in the Plant
! Configuration.
!
! @b Hints
! Put the object below a $PlantHier object in the
! development environment in such a way that it belongs
! to the same target node as its associated channel
! object.
!*/
SObject pwrb:Class
Object Ii $ClassDef 324
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_Standard
Attr PopEditor = 1
Attr Flags |= pwr_mClassDef_IO
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "Ii"
EndBody
!/**
! Optional text, for example the name of the signal or
! what it represents.
!*/
Object Description $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$String80"
EndBody
EndObject
!/**
! Name of the associated channel object.
!*/
Object SigChanCon $Attribute 2
Body SysBody
Attr TypeRef = "pwrs:Type-$Objid"
EndBody
EndObject
!/**
! Index in the Value array at the IiArea objects
! that are used for base frequency and partial frequency
! samples. Initiated at boot time by rt_ini.
!*/
Object ValueIndex $Attribute 3
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
Attr Flags |= PWR_MASK_STATE
EndBody
EndObject
!/**
! Pointer to ActualValue. The value is updated
! continuously. ConversionOn in the channel
! object ChanIi specifies if the value shall be
! converted before storage.
!*/
Object ActualValue $Attribute 4
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
Attr Flags |= PWR_MASK_POINTER
Attr Flags |= PWR_MASK_STATE
EndBody
EndObject
!/**
! @Summary A XttGraph object that will open a graph for this object.
! A XttGraph object that will open a graph that contains data for
! this object. This graph can be opened from the popup menu for
! this object.
!*/
Object DefGraph $Attribute 5
Body SysBody
Attr TypeRef = "pwrs:Type-$Objid"
EndBody
EndObject
!/**
! @Summary A trend object that displays a trend for this object.
! A DsTrend or PlotGroup object that contains a trend for this object.
! The trend can be opened from the popup menu for this object.
!*/
Object DefTrend $Attribute 6
Body SysBody
Attr TypeRef = "pwrs:Type-$Objid"
EndBody
EndObject
!/**
! @Summary A help topic for this hierarchy.
! A help topic in the xtt help file that contains help for this hierarchy.
! The help can be displayed from the popup menu for this object.
!*/
Object HelpTopic $Attribute 7
Body SysBody
Attr TypeRef = "pwrs:Type-$String40"
EndBody
EndObject
!/**
! @Summary A URL to the data sheet for the equipment in this hierarchy.
! A URL to the data sheet for the equipment in this hierarchy.
! The data sheet can be displayed from the popup menu for this object.
!*/
Object DataSheet $Attribute 8
Body SysBody
Attr TypeRef = "pwrs:Type-$URL"
EndBody
EndObject
EndObject
Object ConfiguratorPosnn $Menu
Object Pointed $Menu
Object Disconnect $MenuButton
Body SysBody
Attr ButtonName = "Disconnect Channel"
Attr MethodName = "$Objid-Disconnect"
Attr MethodArguments[0] = "SigChanCon"
Attr FilterName = "$Objid-IsOkDisconnect"
Attr FilterArguments[0] = "SigChanCon"
EndBody
EndObject
EndObject
EndObject
Object ConfiguratorPoson $Menu
Object Pointed $Menu
Object Connect $MenuButton
Body SysBody
Attr ButtonName = "Connect Channel"
Attr MethodName = "$Objid-Connect"
Attr MethodArguments[0] = "SigChanCon"
Attr FilterArguments[1] = "ChanIi"
Attr FilterName = "$Objid-IsOkConnect"
Attr FilterArguments[0] = "SigChanCon"
Attr FilterArguments[1] = "ChanIi"
EndBody
EndObject
Object Disconnect $MenuButton
Body SysBody
Attr ButtonName = "Disconnect Channel"
Attr MethodName = "$Objid-Disconnect"
Attr MethodArguments[0] = "SigChanCon"
Attr FilterName = "$Objid-IsOkDisconnect"
Attr FilterArguments[0] = "SigChanCon"
EndBody
EndObject
EndObject
EndObject
Object ConfiguratorPosos $Menu
Object Pointed $Menu
Object Disconnect $MenuButton
Body SysBody
Attr ButtonName = "Disconnect Channel"
Attr MethodName = "$Objid-Disconnect"
Attr MethodArguments[0] = "SigChanCon"
Attr FilterName = "$Objid-IsOkDisconnect"
Attr FilterArguments[0] = "SigChanCon"
EndBody
EndObject
EndObject
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_iiarea.wb_load 0 → 100644
View file @ d652e713
! pwrb_c_iiarea.wb_load -- Defines the class IiArea.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! <Description>.
!
!/**
! @Version 1.0
! @Summary Area object for Ii values
! Area object for Ii values.
!
! The values of Ii-signals is stored in the Value
! attribut. The index is given by ValueIndex in the
! Ii-objects which is assigned at io initiation.
!
! The object is created at runtime in the dynamic system volume pwrNode.
!*/
SObject pwrb:Class
Object IiArea $ClassDef 328
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_Standard
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "IiArea"
EndBody
Object Value $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
Attr Flags |= PWR_MASK_ARRAY
Attr Flags |= PWR_MASK_STATE
Attr Elements = 1
EndBody
EndObject
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_io.wb_load 0 → 100644
View file @ d652e713
! pwrb_c_io.wb_load -- Defines the class Io.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! Digital Output.
!
! Range ldh_eDId_Base
!
!/**
! @Version 1.0
! @Group PlantConfiguration,Signals
! @Summary Integer output signal
! Integer output.
!
! Configures an integer output signal in the Plant
! Configuration.
!
! @b Hints
! Put the object below a $PlantHier object in the
! development environment in such a way that it belongs
! to the same target node as its associated channel
! object.
!*/
SObject pwrb:Class
Object Io $ClassDef 325
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_Standard
Attr PopEditor = 1
Attr Flags |= pwr_mClassDef_IO
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "Io"
EndBody
!/**
! Optional text, for example the name of the signal or
! what it represents.
!*/
Object Description $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$String80"
EndBody
EndObject
!/**
! Name of the associated channel object.
!*/
Object SigChanCon $Attribute 2
Body SysBody
Attr TypeRef = "pwrs:Type-$Objid"
EndBody
EndObject
!/**
! Index in the Value array at the IoArea objects
! that are used for base frequency and partial frequency
! samples. Initiated at boot time by rt_ini.
!*/
Object ValueIndex $Attribute 3
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
Attr Flags |= PWR_MASK_STATE
EndBody
EndObject
!/**
! Pointer to ActualValue after conversion, if any.
!*/
Object ActualValue $Attribute 4
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
Attr Flags |= PWR_MASK_POINTER
Attr Flags |= PWR_MASK_STATE
EndBody
EndObject
!/**
! @Summary A XttGraph object that will open a graph for this object.
! A XttGraph object that will open a graph that contains data for
! this object. This graph can be opened from the popup menu for
! this object.
!*/
Object DefGraph $Attribute 5
Body SysBody
Attr TypeRef = "pwrs:Type-$Objid"
EndBody
EndObject
!/**
! @Summary A trend object that displays a trend for this object.
! A DsTrend or PlotGroup object that contains a trend for this object.
! The trend can be opened from the popup menu for this object.
!*/
Object DefTrend $Attribute 6
Body SysBody
Attr TypeRef = "pwrs:Type-$Objid"
EndBody
EndObject
!/**
! @Summary A help topic for this hierarchy.
! A help topic in the xtt help file that contains help for this hierarchy.
! The help can be displayed from the popup menu for this object.
!*/
Object HelpTopic $Attribute 7
Body SysBody
Attr TypeRef = "pwrs:Type-$String40"
EndBody
EndObject
!/**
! @Summary A URL to the data sheet for the equipment in this hierarchy.
! A URL to the data sheet for the equipment in this hierarchy.
! The data sheet can be displayed from the popup menu for this object.
!*/
Object DataSheet $Attribute 8
Body SysBody
Attr TypeRef = "pwrs:Type-$URL"
EndBody
EndObject
EndObject
Object ConfiguratorPosnn $Menu
Object Pointed $Menu
Object Disconnect $MenuButton
Body SysBody
Attr ButtonName = "Disconnect Channel"
Attr MethodName = "$Objid-Disconnect"
Attr MethodArguments[0] = "SigChanCon"
Attr FilterName = "$Objid-IsOkDisconnect"
Attr FilterArguments[0] = "SigChanCon"
EndBody
EndObject
EndObject
EndObject
Object ConfiguratorPoson $Menu
Object Pointed $Menu
Object Connect $MenuButton
Body SysBody
Attr ButtonName = "Connect Channel"
Attr MethodName = "$Objid-Connect"
Attr MethodArguments[0] = "SigChanCon"
Attr FilterArguments[1] = "ChanIo"
Attr FilterName = "$Objid-IsOkConnect"
Attr FilterArguments[0] = "SigChanCon"
Attr FilterArguments[1] = "ChanIo"
EndBody
EndObject
Object Disconnect $MenuButton
Body SysBody
Attr ButtonName = "Disconnect Channel"
Attr MethodName = "$Objid-Disconnect"
Attr MethodArguments[0] = "SigChanCon"
Attr FilterName = "$Objid-IsOkDisconnect"
Attr FilterArguments[0] = "SigChanCon"
EndBody
EndObject
EndObject
EndObject
Object ConfiguratorPosos $Menu
Object Pointed $Menu
Object Disconnect $MenuButton
Body SysBody
Attr ButtonName = "Disconnect Channel"
Attr MethodName = "$Objid-Disconnect"
Attr MethodArguments[0] = "SigChanCon"
Attr FilterName = "$Objid-IsOkDisconnect"
Attr FilterArguments[0] = "SigChanCon"
EndBody
EndObject
EndObject
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_ioarea.wb_load 0 → 100644
View file @ d652e713
! pwrb_c_ioarea.wb_load -- Defines the class IoArea.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! <Description>.
!
!/**
! @Version 1.0
! @Summary Area object for Io values
! Area object for Io values.
!
! The values of Io-signals (Integer Output signals) is stored in the Value
! attribut. The index is given by ValueIndex in the Io-objects which is
! assigned at io initiation.
!
! The object is created at runtime in the dynamic system volume pwrNode.
!*/
SObject pwrb:Class
Object IoArea $ClassDef 327
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_Standard
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "IoArea"
EndBody
Object Value $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
Attr Flags |= PWR_MASK_ARRAY
Attr Flags |= PWR_MASK_STATE
Attr Elements = 1
EndBody
EndObject
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_iohandler.wb_load
View file @ d652e713
......@@ -67,16 +67,33 @@ SObject pwrb:Class
Attr TypeRef = "pwrs:Type-$Float32"
EndBody
EndObject
!/**
! Specifies that reading and writing from resp to the configured
! io systems should be executed.
! This flag is set to false by the IO-handler if any fatal error
! is detected.
! At test and simulation cases, when no io should be performed,
! this should be set to false, and IOSimulFlag should be set to
! true.
!*/
Object IOReadWriteFlag $Attribute 3
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
!/**
! At test and simulation cases, when no io should be performed,
! this should be set to true, and IOReadWriteFlag should be set
! to false.
!*/
Object IOSimulFlag $Attribute 4
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
!/**
! Number of configured Di objects in the node.
!*/
Object DiCount $Attribute 5
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
......@@ -84,6 +101,9 @@ SObject pwrb:Class
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
!/**
! Number of configured Do objects in the node.
!*/
Object DoCount $Attribute 6
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
......@@ -91,6 +111,9 @@ SObject pwrb:Class
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
!/**
! Number of configured Ai objects in the node.
!*/
Object AiCount $Attribute 7
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
......@@ -98,6 +121,9 @@ SObject pwrb:Class
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
!/**
! Number of configured Ao objects in the node.
!*/
Object AoCount $Attribute 8
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
......@@ -105,6 +131,9 @@ SObject pwrb:Class
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
!/**
! Number of configured Av objects in the node.
!*/
Object AvCount $Attribute 9
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
......@@ -112,6 +141,9 @@ SObject pwrb:Class
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
!/**
! Number of configured Dv objects in the node.
!*/
Object DvCount $Attribute 10
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
......@@ -119,6 +151,9 @@ SObject pwrb:Class
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
!/**
! Number of configured Co objects in the node.
!*/
Object CoCount $Attribute 11
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
......@@ -126,6 +161,36 @@ SObject pwrb:Class
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
!/**
! Number of configured Ii objects in the node.
!*/
Object IiCount $Attribute 12
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
!/**
! Number of configured Io (Integer Output) objects in the node.
!*/
Object IoCount $Attribute 13
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
!/**
! Number of configured Iv objects in the node.
!*/
Object IvCount $Attribute 14
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
EndObject
!
! Template for IOHandler
......
src/wbl/pwrb/src/pwrb_c_itoa.wb_load 0 → 100644
View file @ d652e713
! pwrb_c_itoa.wb_load -- Defines the class ItoA.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! <Description>.
!
!/**
! @Version 1.0
! @Code rt_plc_macro_io.h
! @Group Plc,PlcConversion
! @Summary Convert integer value to analog
! Convert integer value to analog.
! @image orm_itoa_fo.gif
!
! The ItoA object converts the value of the integer input to
! an analog value stored in ActVal.
!
!*/
SObject pwrb:Class
Object ItoA $ClassDef 344
Body SysBody
Attr Editor = pwr_eEditor_PlcEd
Attr Method = pwr_eMethod_Connections
Attr PopEditor = 2
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "ItoA"
EndBody
!/**
! Integer input that will be converted to analog value.
!*/
Object In $Input 1
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_NOEDIT
Attr Flags |= PWR_MASK_NOREMOVE
Attr GraphName = "In"
EndBody
EndObject
!/**
! Output that contains the analog value.
!*/
Object ActVal $Output 3
Body SysBody
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_NOEDIT
Attr TypeRef = "pwrs:Type-$Float32"
Attr GraphName = "Val"
EndBody
EndObject
EndObject
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 subwindows = 0
Attr graphmethod = 1
Attr graphindex = 0
Attr default_mask[0] = 1
Attr default_mask[1] = 1
Attr segname_annotation = 1
Attr compmethod = 5
Attr compindex = 0
Attr tracemethod = 0
Attr traceindex = 0
Attr executeordermethod = 2
Attr objname = "ItoA"
Attr graphname = "ItoA"
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_itostr.wb_load
View file @ d652e713
......@@ -10,7 +10,7 @@
!/**
! @Version 1.0
! @Code rt_plc_macro_string.h
! @Group Plc,PlcString
! @Group Plc,PlcString,PlcConversion
! @Summary Convert integer value to string.
! Convert integer value to string.
! @image orm_itostr_fo.gif
......
src/wbl/pwrb/src/pwrb_c_iv.wb_load 0 → 100644
View file @ d652e713
! pwrb_c_iv.wb_load -- Defines the class Iv.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! Integer calculated Value.
!
!/**
! @Version 1.0
! @Group PlantConfiguration,Signals
! @Summary Integer value
! Integer value.
!
! Configures a calculated integer value in the Plant
! Configuration. The value is a 32-bit signed integer.
!
! @b Hints
! Put the object below a $PlantHier object in the
! development environment.
!*/
SObject pwrb:Class
Object Iv $ClassDef 326
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_Standard
Attr PopEditor = 1
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "Iv"
EndBody
!/**
! Optional text, for example the name of the signal or
! what it represents.
!*/
Object Description $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$String80"
EndBody
EndObject
!/**
! Index in the Value array at the IvArea objects
! that are used for base frequency respectively partial
! frequency samples. Initiated at boot time by rt_ini.
!*/
Object ValueIndex $Attribute 2
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
Attr Flags |= PWR_MASK_STATE
EndBody
EndObject
!/**
! Pointer to ActualValue.
!*/
Object ActualValue $Attribute 3
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
Attr Flags |= PWR_MASK_POINTER
Attr Flags |= PWR_MASK_STATE
EndBody
EndObject
!/**
! InitialValue specifies starting value of the signal at
! so called 'cold start'. Which value that is used as
! starting value at warm restart ( = change of PLC
! program ) depends on whether the signal is new or not.
! If the signal has exist in the last programversion its
! last value will be used as starting value, otherwise
! InitialValue.
!*/
Object InitialValue $Attribute 4
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
EndBody
EndObject
!/**
! @Summary A XttGraph object that will open a graph for this object.
! A XttGraph object that will open a graph that contains data for
! this object. This graph can be opened from the popup menu for
! this object.
!*/
Object DefGraph $Attribute 5
Body SysBody
Attr TypeRef = "pwrs:Type-$Objid"
EndBody
EndObject
!/**
! @Summary A trend object that displays a trend for this object.
! A DsTrend or PlotGroup object that contains a trend for this object.
! The trend can be opened from the popup menu for this object.
!*/
Object DefTrend $Attribute 6
Body SysBody
Attr TypeRef = "pwrs:Type-$Objid"
EndBody
EndObject
!/**
! @Summary A help topic for this hierarchy.
! A help topic in the xtt help file that contains help for this hierarchy.
! The help can be displayed from the popup menu for this object.
!*/
Object HelpTopic $Attribute 7
Body SysBody
Attr TypeRef = "pwrs:Type-$String40"
EndBody
EndObject
!/**
! @Summary A URL to the data sheet for the equipment in this hierarchy.
! A URL to the data sheet for the equipment in this hierarchy.
! The data sheet can be displayed from the popup menu for this object.
!*/
Object DataSheet $Attribute 8
Body SysBody
Attr TypeRef = "pwrs:Type-$URL"
EndBody
EndObject
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_ivarea.wb_load
View file @ d652e713
......@@ -5,6 +5,17 @@
!
! <Description>.
!
!/**
! @Version 1.0
! @Summary Area object for Iv values
! Area object for Iv values.
!
! The values of Iv-signals is stored in the Value
! attribut. The index is given by ValueIndex in the
! Iv-objects which is assigned at io initiation.
!
! The object is created at runtime in the dynamic system volume pwrNode.
!*/
SObject pwrb:Class
Object IvArea $ClassDef 280
Body SysBody
......
src/wbl/pwrb/src/pwrb_c_masktod.wb_load 0 → 100644
View file @ d652e713
This diff is collapsed.
src/wbl/pwrb/src/pwrb_c_stoatoip.wb_load 0 → 100644
View file @ d652e713
! pwrb_c_stoatoip.wb_load -- Defines the class StoAtoIp.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! Store Integer parameter.
!
! Range ldh_eDId_Base
!
!/**
! @Version 1.0
! @Code rt_plc_macro_io.h
! @Group Plc,PlcIO
! @Summary Store analog valut to integer attribute
! Store analog value to Integer parameter. Used in run time to write in
! integer parameters.
! @image orm_stoatoip_fo.gif
!
! Stores the value of an analog quantity ( e.g. output signal of the
! type pwr_tFloat32) on the specified 32-, 16-, or 8-bits integer
! parameter in a local object. The value is rounded to closest integer
! value.
!
! The last name segment of the object and the name of the
! parameter will be shown in the right empty part of the
! StoIp symbol.
!*/
SObject pwrb:Class
Object StoAtoIp $ClassDef 226
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_RtConnectionsAndDevBodies
Attr Flags = pwr_mClassDef_DevOnly
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "StoAtoIp"
EndBody
!/**
! The input is connected to an analog signal or left
! open. In the latter case In is default 0.0 and not
! adjustable in the run time system. The In attribute
! specifies which value should be assigned to the
! parameter.
!*/
Object In $Input 1
Body SysBody
Attr PgmName = "In"
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_DEVBODYREF
Attr TypeRef = "pwrs:Type-$Float32"
Attr GraphName = "VAL"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
!/**
! Used by the PLC Editor. Specifies the complete name of
! the current object.
!*/
Object Object $Intern 1
Body SysBody
Attr PgmName = "Object"
Attr TypeRef = "pwrs:Type-$Objid"
Attr GraphName = "sts"
Attr NiNaAnnot = 1
Attr NiNaSegments = 1
EndBody
EndObject
!/**
! Used by the PLC Editor. Specifies the name of the
! parameter. The editor is case-sensitive on this
! attribute; i.e. if the attribute is named ActualValue
! it has to be written ActualValue and not ACTUALVALUE,
! for example.
!*/
Object Parameter $Intern 2
Body SysBody
Attr PgmName = "Parameter"
Attr TypeRef = "pwrs:Type-$String80"
Attr GraphName = "par"
Attr NiNaAnnot = 2
Attr ConPointNr = 0
EndBody
EndObject
!/**
! Specifies how many segments of the actual object name
! that is to be displayed in the symbol of the StoAtoIp
! object. The segments are counted from behind.
!
! 0 and 1 both result in displaying the last segment of
! the actual object name.
!*/
Object ObjectSegments $Intern 3
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
EndBody
EndObject
Object PlcNode $Buffer 4
Body SysBody
Attr Class = pwr_eClass_PlcNode
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
EndObject
Object GraphPlcNode $GraphPlcNode
Body SysBody
Attr object_type = 259
Attr parameters[0] = 1
Attr parameters[1] = 0
Attr parameters[2] = 0
Attr parameters[3] = 0
Attr subwindows = 0
Attr graphmethod = 15
Attr graphindex = 0
Attr default_mask[0] = 1
Attr default_mask[1] = 0
Attr segname_annotation = 0
Attr devbody_annotation = 1
Attr compmethod = 12
Attr compindex = 0
Attr tracemethod = 0
Attr traceindex = 0
Attr connectmethod = 7
Attr executeordermethod = 2
Attr objname = "StoAtoIp"
Attr graphname = "StoAtoIp"
Attr debugpar = ""
EndBody
EndObject
Object Template StoAtoIp
Body DevBody
Attr ObjectSegments = 2
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_stoigeneric.wb_load 0 → 100644
View file @ d652e713
! pwrb_c_stoigeneric.wb_load -- Defines the class StoIgeneric.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! <Description>.
!
!/**
! @Version 1.0
! @Group Plc,PlcIO
! @Summary Temporary object produced by the plc editor.
! A StoIgeneric object is a temporary object, created in the plc-editor
! when a connection is created from a integer output. The object will
! be transformed to its final appearence when it is connected to a
! signal or attribute.
! @image orm_stoigeneric_fo.gif
!*/
!
SObject pwrb:Class
Object StoIgeneric $ClassDef 339
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_DevBodyOnly
Attr PopEditor = 2
EndBody
Object DevBody $ObjBodyDef 2
Object In $Input 1
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
Object PlcNode $Buffer 2
Body SysBody
Attr Class = pwr_eClass_PlcNode
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
EndObject
Object GraphPlcNode $GraphPlcNode
Body SysBody
Attr object_type = 141
Attr parameters[0] = 1
Attr parameters[1] = 0
Attr parameters[2] = 0
Attr parameters[3] = 0
Attr subwindows = 0
Attr graphmethod = 4
Attr graphindex = 39
Attr default_mask[0] = 1
Attr default_mask[1] = 0
Attr segname_annotation = 0
Attr compmethod = 56
Attr compindex = 0
Attr tracemethod = 1
Attr traceindex = 1
Attr connectmethod = 25
Attr executeordermethod = 0
Attr objname = "StoI"
Attr graphname = "StoI"
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_stoii.wb_load 0 → 100644
View file @ d652e713
! pwrb_c_stoii.wb_load -- Defines the class StoIi
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! STORE value of Analog Output signal.
!
!/**
! @Version 1.0
! @Code rt_plc_macro_io.h
! @Summary Store Ii signal
! Store Integer input.
! @image orm_stoii_fo.gif
!
! Stores an integer value ( e.g. output signal of the type
! pwr_tInt32) on the specified local Ii object.
!
! The complete name of the Ii object has to be supplied;
! its last segment is shown in the right empty part of
! the symbol.
!
! @b Note!
! This object is used for simulation purposes.
! SimulFlag will be set TRUE and ReadWriteFlag FALSE
! in the IOHandler object, i.e. any physical I/O-hardware may
! not be used on the node in connection to this object.
!*/
SObject pwrb:Class
Object StoIi $ClassDef 333
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_RtConnectionsAndDevBodies
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "stoii"
EndBody
!/**
! The input is connected to an integer signal or left
! open. In the latter case In is default 0 and not
! adjustable in the run time system. The In attribute
! specifies which value should be assigned to the
! Ii-signal.
!*/
Object In $Input 1
Body SysBody
Attr PgmName = "ActualValue"
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_DEVBODYREF
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "VAL"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
!/**
! Used by the PLC Editor. Specifies the complete name of
! the current Ii object.
!*/
Object IiObject $Intern 1
Body SysBody
Attr PgmName = "IiObject"
Attr TypeRef = "pwrs:Type-$Objid"
Attr GraphName = "In"
Attr NiNaAnnot = 1
Attr NiNaSegments = 1
EndBody
EndObject
!/**
! Used by the PLC Editor.
!*/
Object SigChanCon $Intern 2
Body SysBody
Attr TypeRef = "pwrs:Type-$Objid"
Attr Flags |= PWR_MASK_INVISIBLE
Attr NiNaAnnot = 2
Attr NiNaCond = 1
Attr NiNaSegments = 1
EndBody
EndObject
!/**
! Specifies how many segments of the Ii object name that
! is to be displayed in the symbol of the StoIi object.
! The segments are counted from behind.
!
! 0 and 1 both result in displaying the last segment of
! the signal object name.
!*/
Object IiObjectSegments $Intern 3
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
EndBody
EndObject
!/**
! Specifies if the name on the channel object (
! associated with the signal object) is to be displayed
! in the symbol of the StoIi object or not. FALSE means
! no displaying and TRUE displaying.
! See also SigChanConSegments.
!*/
Object ShowSigChanCon $Intern 4
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
!/**
! Specifies, when ShowSigChanCon = TRUE, how many
! segments of the channel object name that is to be
! displayed in the symbol of the StoIi object. The
! segments are counted from behind.
! 0 and 1 both result in displaying the last segment of
! the channel object name.
!*/
Object SigChanConSegments $Intern 5
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
EndBody
EndObject
Object PlcNode $Buffer 6
Body SysBody
Attr Class = pwr_eClass_PlcNode
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
EndObject
Object GraphPlcNode $GraphPlcNode
Body SysBody
Attr object_type = 146
Attr parameters[0] = 1
Attr parameters[1] = 0
Attr parameters[2] = 0
Attr parameters[3] = 0
Attr subwindows = 0
Attr graphmethod = 7
Attr graphindex = 1
Attr default_mask[0] = 1
Attr default_mask[1] = 0
Attr segname_annotation = 0
Attr devbody_annotation = 1
Attr compmethod = 38
Attr compindex = 0
Attr tracemethod = 0
Attr traceindex = 0
Attr connectmethod = 22
Attr executeordermethod = 2
Attr objname = "StoIi"
Attr graphname = "StoIi"
Attr debugpar = ""
EndBody
EndObject
Object Template StoIi
Body DevBody
Attr IiObjectSegments = 2
Attr ShowSigChanCon = 1
Attr SigChanConSegments = 2
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_stoio.wb_load 0 → 100644
View file @ d652e713
! pwrb_c_stoio.wb_load -- Defines the class StoIo.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! Store Integer Output.
!
!/**
! @Version 1.0
! @Code rt_plc_macro_io.h
! @Group Plc,PlcIO
! @Summary Store Integer output signal
! Stores an integer value ( e.g. output signal of the type
! pwr_tInt32) on the specified local Io object.
! @image orm_stoio_fo.gif
!
! The complete name of the Io object has to be supplied;
! its last segment is shown in the right empty part of
! the symbol.
!*/
SObject pwrb:Class
Object StoIo $ClassDef 332
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_RtConnectionsAndDevBodies
Attr Flags = pwr_mClassDef_DevOnly
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "stoio"
EndBody
!/**
! The input is connected to an integer signal or left
! open. In the latter case In is default 0 and not
! adjustable in the run time system. The In attribute
! specifies which value should be assigned to the
! Io-signal.
!*/
Object In $Input 1
Body SysBody
Attr PgmName = "ActualValue"
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_DEVBODYREF
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "VAL"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
!/**
! Used by the PLC Editor. Specifies the complete name of
! the current Io object.
!*/
Object IoObject $Intern 1
Body SysBody
Attr PgmName = "IoObject"
Attr TypeRef = "pwrs:Type-$Objid"
Attr GraphName = "In"
Attr NiNaAnnot = 1
Attr NiNaSegments = 1
EndBody
EndObject
!/**
! Used by the PLC Editor.
!*/
Object SigChanCon $Intern 2
Body SysBody
Attr TypeRef = "pwrs:Type-$Objid"
Attr Flags |= PWR_MASK_INVISIBLE
Attr NiNaAnnot = 2
Attr NiNaCond = 1
Attr NiNaSegments = 1
EndBody
EndObject
!/**
! Specifies how many segments of the Io object name that
! is to be displayed in the symbol of the StoIo object.
! The segments are counted from behind.
!
! 0 and 1 both result in displaying the last segment of
! the signal object name.
!*/
Object IoObjectSegments $Intern 3
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
EndBody
EndObject
!/**
! Specifies if the name on the channel object (
! associated with the signal object) is to be displayed
! in the symbol of the StoIo object or not. FALSE means
! no displaying and TRUE displaying.
! See also SigChanConSegments.
!*/
Object ShowSigChanCon $Intern 4
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
!/**
! Specifies, when ShowSigChanCon = TRUE, how many
! segments of the channel object name that is to be
! displayed in the symbol of the StoIo object. The
! segments are counted from behind.
! 0 and 1 both result in displaying the last segment of
! the channel object name.
!*/
Object SigChanConSegments $Intern 5
Body SysBody
Attr TypeRef = "pwrs:Type-$Int32"
EndBody
EndObject
Object PlcNode $Buffer 6
Body SysBody
Attr Class = pwr_eClass_PlcNode
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
EndObject
Object GraphPlcNode $GraphPlcNode
Body SysBody
Attr object_type = 147
Attr parameters[0] = 1
Attr parameters[1] = 0
Attr parameters[2] = 0
Attr parameters[3] = 0
Attr subwindows = 0
Attr graphmethod = 7
Attr graphindex = 1
Attr default_mask[0] = 1
Attr default_mask[1] = 0
Attr segname_annotation = 0
Attr devbody_annotation = 1
Attr compmethod = 11
Attr compindex = 0
Attr tracemethod = 0
Attr traceindex = 0
Attr connectmethod = 23
Attr executeordermethod = 2
Attr objname = "StoIo"
Attr graphname = "StoIo"
Attr debugpar = ""
EndBody
EndObject
Object Template StoIo
Body DevBody
Attr IoObjectSegments = 2
Attr SigChanConSegments = 2
Attr ShowSigChanCon = 1
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_stoip.wb_load
View file @ d652e713
......@@ -11,13 +11,14 @@
! @Version 1.0
! @Code rt_plc_macro_io.h
! @Group Plc,PlcIO
! @Summary Store integer attribute
! Store Integer parameter. Used in run time to write in
! @Summary Store integer value to integer attribute
! Store integer value (attribute, input or output signal)
! to Integer parameter. Used in run time to write in
! integer parameters.
! @image orm_stoip_fo.gif
!
! Stores, after truncation, the value of an analog
! quantity ( e.g. output signal of the type pwr_tFloat32)
! Stores the value of an integer
! quantity ( e.g. output signal of the type pwr_tInt32)
! on the specified 32-, 16-, or 8-bits integer parameter
! in a local object.
!
......@@ -26,7 +27,7 @@
! StoIp symbol.
!*/
SObject pwrb:Class
Object StoIp $ClassDef 226
Object StoIp $ClassDef 342
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_RtConnectionsAndDevBodies
......@@ -34,11 +35,11 @@ SObject pwrb:Class
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "stoip"
Attr StructName = "StoIp"
EndBody
!/**
! The input is connected to an analog signal or left
! open. In the latter case In is default 0.0 and not
! The input is connected to an integer signal or left
! open. In the latter case In is default 0 and not
! adjustable in the run time system. The In attribute
! specifies which value should be assigned to the
! parameter.
......@@ -48,7 +49,7 @@ SObject pwrb:Class
Attr PgmName = "In"
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_DEVBODYREF
Attr TypeRef = "pwrs:Type-$Float32"
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "VAL"
EndBody
EndObject
......@@ -105,7 +106,7 @@ SObject pwrb:Class
EndObject
Object GraphPlcNode $GraphPlcNode
Body SysBody
Attr object_type = 259
Attr object_type = 271
Attr parameters[0] = 1
Attr parameters[1] = 0
Attr parameters[2] = 0
......
src/wbl/pwrb/src/pwrb_c_stoiv.wb_load 0 → 100644
View file @ d652e713
This diff is collapsed.
xtt/exp/ge/src/pwr_c_chanao.pwg
View file @ d652e713
This diff is collapsed.
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