Skip to content

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

New classeditor and template plc

parent d8b5dcae
Hide whitespace changes
Inline Side-by-side
Showing with 1557 additions and 0 deletions
src/wbl/pwrb/src/pwrb_c_cstoaattr.wb_load 0 → 100644
View file @ c2056524
! pwrb_c_cstoaattr.wb_load -- Defines the class CStoAattr.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! Conditional store of an analog attribute from class template plc.
!
! Range ldh_eDId_Base
!
SObject pwrb:Class
!/**
! @Version 1.0
! @Code rt_plc_macro_io.h
! @Group Plc,PlcIO
! @Summary Conditional store of analog attribute from class template plc.
! Conditional store of analog attribute from class template plc.
! @image orm_cstoaattr_fo.gif
!
! The object is used in a class template plc, to store
! the value of an analog quantity on the specified
! attribute in the parent object of the plc. The storage
! is executed only when the condition is true.
!*/
Object CStoAattr $ClassDef 354
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 = "CStoAattr"
EndBody
!/**
! The input is connected to a analog quantity or left
! open. In the latter case In is default FALSE and not
! adjustable in the run time system. The In attribute
! specifies which value should be assigned to the
! host attribute.
!*/
Object In $Input 1
Body SysBody
Attr PgmName = "ActualValue"
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_DEVBODYREF
Attr TypeRef = "pwrs:Type-$Float32"
Attr GraphName = "IN"
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"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
!/**
! Used by the PLC Editor. Specifies the complete name of
! the current Dv object.
!*/
Object Attribute $Intern 1
Body SysBody
Attr PgmName = "attr"
Attr TypeRef = "pwrs:Type-$String32"
Attr NiNaAnnot = 1
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 = 11
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 = 57
Attr compindex = 0
Attr tracemethod = 1
Attr traceindex = 1
Attr connectmethod = 0
Attr executeordermethod = 6
Attr objname = "CStoAattr"
Attr graphname = "CStoAattr"
Attr debugpar = "In"
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_cstoiattr.wb_load 0 → 100644
View file @ c2056524
! pwrb_c_cstoiattr.wb_load -- Defines the class CStoIattr.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! Conditional store of integer attribute from class template plc.
!
! Range ldh_eDId_Base
!
SObject pwrb:Class
!/**
! @Version 1.0
! @Code rt_plc_macro_io.h
! @Group Plc,PlcIO
! @Summary Conditional store of integer attribute from class template plc.
! Conditional store of integer attribute from class template plc.
! @image orm_cstoiattr_fo.gif
!
! The object is used in a class template plc, to store
! the value of an integer quantity on the specified
! attribute in the parent object of the plc. The storage
! is executed only when the condition is true.
!*/
Object CStoIattr $ClassDef 355
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 = "CStoIattr"
EndBody
!/**
! The input is connected to a integer quantity or left
! open. In the latter case In can be set from the object
! editor but is not
! adjustable in the run time system. The In attribute
! specifies which value should be assigned to the
! host attribute.
!*/
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 = "In"
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"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
!/**
! Used by the PLC Editor. Specifies the complete name of
! the current Dv object.
!*/
Object Attribute $Intern 1
Body SysBody
Attr PgmName = "attr"
Attr TypeRef = "pwrs:Type-$String32"
Attr NiNaAnnot = 1
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 = 11
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 = 57
Attr compindex = 0
Attr tracemethod = 1
Attr traceindex = 1
Attr connectmethod = 0
Attr executeordermethod = 6
Attr objname = "CStoIattr"
Attr graphname = "CStoIattr"
Attr debugpar = "In"
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_cstosattr.wb_load 0 → 100644
View file @ c2056524
! pwrb_c_cstosattr.wb_load -- Defines the class CStoSattr.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! Conditional store of an analog attribute from class template plc.
!
! Range ldh_eDId_Base
!
SObject pwrb:Class
!/**
! @Version 1.0
! @Code rt_plc_macro_io.h
! @Group Plc,PlcIO
! @Summary Conditional store of string attribute from class template plc.
! Conditional store of string attribute from class template plc.
! @image orm_cstosattr_fo.gif
!
! The object is used in a class template plc, to store
! the value of an string quantity on the specified
! attribute in the parent object of the plc. The storage
! is executed only when the condition is true.
!*/
Object CStoSattr $ClassDef 357
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 = "CStoSattr"
EndBody
!/**
! The input is connected to a string quantity or left
! open. In the latter case In is default FALSE and not
! adjustable in the run time system. The In attribute
! specifies which value should be assigned to the
! host attribute.
!*/
Object In $Input 1
Body SysBody
Attr PgmName = "ActualValue"
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_DEVBODYREF
Attr TypeRef = "pwrs:Type-$String80"
Attr GraphName = "IN"
EndBody
EndObject
!/**
! Specifies whether a storage will be done or not. FALSE
! means no storage and TRUE means storage of a string
! 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
!/**
! Used by the PLC Editor. Specifies the complete name of
! the current Dv object.
!*/
Object Attribute $Intern 1
Body SysBody
Attr PgmName = "attr"
Attr TypeRef = "pwrs:Type-$String32"
Attr NiNaAnnot = 1
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 = 11
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 = 57
Attr compindex = 0
Attr tracemethod = 1
Attr traceindex = 1
Attr connectmethod = 0
Attr executeordermethod = 6
Attr objname = "CStoSattr"
Attr graphname = "CStoSattr"
Attr debugpar = "In"
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_getaattr.wb_load 0 → 100644
View file @ c2056524
! pwrb_c_getaattr.wb_load -- Defines the class GetAattr.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! Get analog attribute from class template plc.
!
! Range ldh_eDId_Base
!
SObject pwrb:Class
!/**
! @Version 1.0
! @Group Plc,PlcIO
! @Summary Get analog attribute from class template plc.
! Get analog attribute from class template plc.
!
! @image orm_getaattr_fo.gif
!
! The object is used in a class template plc, to get
! the value of an analog quantity on the specified
! attribute in the parent object of the plc.
!*/
Object GetAattr $ClassDef 359
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_DevBodyOnly
Attr Flags = pwr_mClassDef_DevOnly
EndBody
Object RtBody $ObjBodyDef 1
!/**
! Used by the PLC Editor.
!*/
Object Status $Output 1
Body SysBody
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_DEVBODYREF
Attr TypeRef = "pwrs:Type-$Float32"
Attr GraphName = "sts"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
!/**
! The name of the attribute in the host object to get.
!*/
Object Attribute $Intern 1
Body SysBody
Attr PgmName = "attr"
Attr TypeRef = "pwrs:Type-$String32"
Attr NiNaAnnot = 1
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 = 11
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 = 59
Attr compindex = 0
Attr tracemethod = 1
Attr traceindex = 1
Attr connectmethod = 0
Attr executeordermethod = 0
Attr objname = "GetAattr"
Attr graphname = "GetAattr"
Attr debugpar = "Status"
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_getdattr.wb_load 0 → 100644
View file @ c2056524
! pwrb_c_getdattr.wb_load -- Defines the class GetDattr.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! Get digital attribute from class template plc.
!
! Range ldh_eDId_Base
!
SObject pwrb:Class
!/**
! @Version 1.0
! @Group Plc,PlcIO
! @Summary Get digital attribute from class template plc.
! Get digital attribute from class template plc.
!
! @image orm_getdattr_fo.gif
!
! The object is used in a class template plc, to get
! the value of a digital quantity on the specified
! attribute in the parent object of the plc.
!*/
Object GetDattr $ClassDef 358
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_DevBodyOnly
Attr Flags = pwr_mClassDef_DevOnly
EndBody
Object RtBody $ObjBodyDef 1
!/**
! Used by the PLC Editor.
!*/
Object Status $Output 1
Body SysBody
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_DEVBODYREF
Attr TypeRef = "pwrs:Type-$Boolean"
Attr GraphName = "sts"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
!/**
! The name of the attribute in the host object to get.
!*/
Object Attribute $Intern 1
Body SysBody
Attr PgmName = "attr"
Attr TypeRef = "pwrs:Type-$String32"
Attr NiNaAnnot = 1
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 = 11
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 = 59
Attr compindex = 0
Attr tracemethod = 1
Attr traceindex = 1
Attr connectmethod = 0
Attr executeordermethod = 0
Attr objname = "GetDattr"
Attr graphname = "GetDattr"
Attr debugpar = "Status"
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_getiattr.wb_load 0 → 100644
View file @ c2056524
! pwrb_c_getiattr.wb_load -- Defines the class GetIattr.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! Get integer attribute from class template plc.
!
! Range ldh_eDId_Base
!
SObject pwrb:Class
!/**
! @Version 1.0
! @Group Plc,PlcIO
! @Summary Get integer attribute from class template plc.
! Get integer attribute from class template plc.
!
! @image orm_getiattr_fo.gif
!
! The object is used in a class template plc, to get
! the value of an integer quantity on the specified
! attribute in the parent object of the plc.
! The attribute should be of type pwr_tInt32.
!*/
Object GetIattr $ClassDef 360
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_DevBodyOnly
Attr Flags = pwr_mClassDef_DevOnly
EndBody
Object RtBody $ObjBodyDef 1
!/**
! Used by the PLC Editor.
!*/
Object Status $Output 1
Body SysBody
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_DEVBODYREF
Attr TypeRef = "pwrs:Type-$Int32"
Attr GraphName = "sts"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
!/**
! The name of the attribute in the host object to get.
!*/
Object Attribute $Intern 1
Body SysBody
Attr PgmName = "attr"
Attr TypeRef = "pwrs:Type-$String32"
Attr NiNaAnnot = 1
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 = 11
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 = 59
Attr compindex = 0
Attr tracemethod = 1
Attr traceindex = 1
Attr connectmethod = 0
Attr executeordermethod = 0
Attr objname = "GetIattr"
Attr graphname = "GetIattr"
Attr debugpar = "Status"
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_getsattr.wb_load 0 → 100644
View file @ c2056524
! pwrb_c_getsattr.wb_load -- Defines the class GetSattr.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! Get string attribute from class template plc.
!
! Range ldh_eDId_Base
!
SObject pwrb:Class
!/**
! @Version 1.0
! @Group Plc,PlcIO
! @Summary Get string attribute from class template plc.
! Get string attribute from class template plc.
!
! @image orm_getsattr_fo.gif
!
! The object is used in a class template plc, to get
! the value of a string quantity on the specified
! attribute in the parent object of the plc.
!*/
Object GetSattr $ClassDef 361
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_DevBodyOnly
Attr Flags = pwr_mClassDef_DevOnly
EndBody
Object RtBody $ObjBodyDef 1
!/**
! Used by the PLC Editor.
!*/
Object Status $Output 1
Body SysBody
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_DEVBODYREF
Attr TypeRef = "pwrs:Type-$String80"
Attr GraphName = "sts"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
!/**
! The name of the attribute in the host object to get.
!*/
Object Attribute $Intern 1
Body SysBody
Attr PgmName = "attr"
Attr TypeRef = "pwrs:Type-$String32"
Attr NiNaAnnot = 1
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 = 11
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 = 59
Attr compindex = 0
Attr tracemethod = 1
Attr traceindex = 1
Attr connectmethod = 0
Attr executeordermethod = 0
Attr objname = "GetSattr"
Attr graphname = "GetSattr"
Attr debugpar = "Status"
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_resdattr.wb_load 0 → 100644
View file @ c2056524
! pwrb_c_resdattr.wb_load -- Defines the class ResDattr.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! Reset digital attribute from class template plc.
!
! Range ldh_eDId_Base
!
SObject pwrb:Class
!/**
! @Version 1.0
! @Code rt_plc_macro_io.h
! @Group Plc,PlcIO
! @Summary Reset digital attribute from class template plc.
! Reset digital attribute from class template plc.
! @image orm_resdattr_fo.gif
!
! The object is used in a class template plc, to reset
! the value of a digital quantity on the specified
! attribute in the parent object of the plc.
!*/
Object ResDattr $ClassDef 351
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 = "ResDattr"
EndBody
!/**
! The input is connected to a digital quantity or left
! open. In the latter case In is default FALSE and not
! adjustable in the run time system. When the In attribute
! is TRUE the value of the host attribute is set to FALSE,
! otherwise it is left unchanged.
!*/
Object In $Input 1
Body SysBody
Attr PgmName = "ActualValue"
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_DEVBODYREF
Attr TypeRef = "pwrs:Type-$Boolean"
Attr GraphName = "in"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
!/**
! Used by the PLC Editor. Specifies the complete name of
! the current Dv object.
!*/
Object Attribute $Intern 1
Body SysBody
Attr PgmName = "attr"
Attr TypeRef = "pwrs:Type-$String32"
Attr NiNaAnnot = 1
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 = 11
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 = 57
Attr compindex = 0
Attr tracemethod = 1
Attr traceindex = 1
Attr connectmethod = 0
Attr executeordermethod = 6
Attr objname = "ResDattr"
Attr graphname = "ResDattr"
Attr debugpar = "In"
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_setdattr.wb_load 0 → 100644
View file @ c2056524
! pwrb_c_setdattr.wb_load -- Defines the class SetDattr.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! Set digital attribute from class template plc.
!
! Range ldh_eDId_Base
!
SObject pwrb:Class
!/**
! @Version 1.0
! @Code rt_plc_macro_io.h
! @Group Plc,PlcIO
! @Summary Set digital attribute from class template plc.
! Set digital attribute from class template plc.
! @image orm_setdattr_fo.gif
!
! The object is used in a class template plc, to set
! the value of a digital quantity on the specified
! attribute in the parent object of the plc.
!*/
Object SetDattr $ClassDef 350
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 = "SetDattr"
EndBody
!/**
! The input is connected to a digital quantity or left
! open. In the latter case In is default FALSE and not
! adjustable in the run time system. When the In attribute
! is TRUE the value of the host attribute is set to TRUE,
! otherwise it is left unchanged.
!*/
Object In $Input 1
Body SysBody
Attr PgmName = "ActualValue"
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_DEVBODYREF
Attr TypeRef = "pwrs:Type-$Boolean"
Attr GraphName = "in"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
!/**
! Used by the PLC Editor. Specifies the complete name of
! the current Dv object.
!*/
Object Attribute $Intern 1
Body SysBody
Attr PgmName = "attr"
Attr TypeRef = "pwrs:Type-$String32"
Attr NiNaAnnot = 1
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 = 11
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 = 57
Attr compindex = 0
Attr tracemethod = 1
Attr traceindex = 1
Attr connectmethod = 0
Attr executeordermethod = 6
Attr objname = "SetDattr"
Attr graphname = "SetDattr"
Attr debugpar = "In"
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_stoaattr.wb_load 0 → 100644
View file @ c2056524
! pwrb_c_stoaattr.wb_load -- Defines the class StoAattr.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! Store analog attribute from class template plc.
!
! Range ldh_eDId_Base
!
SObject pwrb:Class
!/**
! @Version 1.0
! @Code rt_plc_macro_io.h
! @Group Plc,PlcIO
! @Summary Store analog attribute from class template plc.
! Store analog attribute from class template plc.
! @image orm_stoaattr_fo.gif
!
! The object is used in a class template plc, to store
! the value of an analog quantity on the specified
! attribute in the parent object of the plc.
!*/
Object StoAattr $ClassDef 353
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 = "StoAattr"
EndBody
!/**
! The input is connected to a analog quantity or left
! open. In the latter case In can be set from the
! object editor, but is not
! adjustable in the run time system. The In attribute
! specifies which value should be assigned to the
! host attribute.
!*/
Object In $Input 1
Body SysBody
Attr PgmName = "ActualValue"
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_DEVBODYREF
Attr TypeRef = "pwrs:Type-$Float32"
Attr GraphName = "IN"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
!/**
! Used by the PLC Editor. Specifies the complete name of
! the current Dv object.
!*/
Object Attribute $Intern 1
Body SysBody
Attr PgmName = "attr"
Attr TypeRef = "pwrs:Type-$String32"
Attr NiNaAnnot = 1
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 = 11
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 = 57
Attr compindex = 0
Attr tracemethod = 1
Attr traceindex = 1
Attr connectmethod = 0
Attr executeordermethod = 6
Attr objname = "StoAattr"
Attr graphname = "StoAattr"
Attr debugpar = "In"
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_stodattr.wb_load 0 → 100644
View file @ c2056524
! pwrb_c_stodattr.wb_load -- Defines the class StoDattr.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! Store digital attribute from class template plc.
!
! Range ldh_eDId_Base
!
SObject pwrb:Class
!/**
! @Version 1.0
! @Code rt_plc_macro_io.h
! @Group Plc,PlcIO
! @Summary Store digital attribute from class template plc.
! Store digital attribute from class template plc.
! @image orm_stodattr_fo.gif
!
! The object is used in a class template plc, to store
! the value of a digital quantity on the specified
! attribute in the parent object of the plc.
!*/
Object StoDattr $ClassDef 349
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 = "StoDattr"
EndBody
!/**
! The input is connected to a digital quantity or left
! open. In the latter case In is default FALSE and not
! adjustable in the run time system. The In attribute
! specifies which value should be assigned to the
! host attribute.
!*/
Object In $Input 1
Body SysBody
Attr PgmName = "ActualValue"
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_DEVBODYREF
Attr TypeRef = "pwrs:Type-$Boolean"
Attr GraphName = "in"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
!/**
! Name of the attribute in the host object to store.
!*/
Object Attribute $Intern 1
Body SysBody
Attr PgmName = "attr"
Attr TypeRef = "pwrs:Type-$String32"
Attr NiNaAnnot = 1
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 = 11
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 = 57
Attr compindex = 0
Attr tracemethod = 1
Attr traceindex = 1
Attr connectmethod = 0
Attr executeordermethod = 6
Attr objname = "StoDattr"
Attr graphname = "StoDattr"
Attr debugpar = "In"
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_stoiattr.wb_load 0 → 100644
View file @ c2056524
! pwrb_c_stoiattr.wb_load -- Defines the class StoIattr.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! Store integer attribute from class template plc.
!
! Range ldh_eDId_Base
!
SObject pwrb:Class
!/**
! @Version 1.0
! @Code rt_plc_macro_io.h
! @Group Plc,PlcIO
! @Summary Store integer attribute from class template plc.
! Store integer attribute from class template plc.
! @image orm_stoiattr_fo.gif
!
! The object is used in a class template plc, to store
! the value of an integer quantity on the specified
! attribute in the parent object of the plc.
!*/
Object StoIattr $ClassDef 352
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 = "StoIattr"
EndBody
!/**
! The input is connected to a integer quantity or left
! open. In the latter case the value stored, can be set
! from the object editor, but is not
! adjustable in the run time system. The In attribute
! specifies which value should be assigned to the
! host attribute.
!*/
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 = "In"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
!/**
! Used by the PLC Editor. Specifies the complete name of
! the current Dv object.
!*/
Object Attribute $Intern 1
Body SysBody
Attr PgmName = "attr"
Attr TypeRef = "pwrs:Type-$String32"
Attr NiNaAnnot = 1
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 = 11
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 = 57
Attr compindex = 0
Attr tracemethod = 1
Attr traceindex = 1
Attr connectmethod = 0
Attr executeordermethod = 6
Attr objname = "StoIattr"
Attr graphname = "StoIattr"
Attr debugpar = "In"
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_stosattr.wb_load 0 → 100644
View file @ c2056524
! pwrb_c_stosattr.wb_load -- Defines the class StoSattr.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! Store string attribute from class template plc.
!
! Range ldh_eDId_Base
!
SObject pwrb:Class
!/**
! @Version 1.0
! @Code rt_plc_macro_io.h
! @Group Plc,PlcIO
! @Summary Store string attribute from class template plc.
! Store string attribute from class template plc.
! @image orm_stosattr_fo.gif
!
! The object is used in a class template plc, to store
! the value of a string quantity on the specified
! attribute in the parent object of the plc.
!*/
Object StoSattr $ClassDef 356
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 = "StoSattr"
EndBody
!/**
! The input is connected to a string quantity or left
! open. In the latter case In can be set from the
! object editor, but is not
! adjustable in the run time system. The In attribute
! specifies which value should be assigned to the
! host attribute.
!*/
Object In $Input 1
Body SysBody
Attr PgmName = "ActualValue"
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_DEVBODYREF
Attr TypeRef = "pwrs:Type-$String80"
Attr GraphName = "IN"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
!/**
! Used by the PLC Editor. Specifies the complete name of
! the current Dv object.
!*/
Object Attribute $Intern 1
Body SysBody
Attr PgmName = "attr"
Attr TypeRef = "pwrs:Type-$String32"
Attr NiNaAnnot = 1
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 = 11
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 = 57
Attr compindex = 0
Attr tracemethod = 1
Attr traceindex = 1
Attr connectmethod = 0
Attr executeordermethod = 6
Attr objname = "StoSattr"
Attr graphname = "StoSattr"
Attr debugpar = "In"
EndBody
EndObject
EndObject
EndSObject
wb/exp/wb/src/pwr_wb_palette.cnf
View file @ c2056524
......@@ -172,6 +172,33 @@ topobjects ClassNavigatorW2
palette ClassNavigatorPalette
{
menu Class
{
class $Attribute
class $AttrXRef
class $Buffer
class $ClassDef
class $ClassHier
class $GraphPlcNode
class $Input
class $Intern
class $ObjBodyDef
class $ObjXRef
class $Output
class PlcPgm
}
menu Type
{
class $TypeDef
class $TypeHier
}
menu Menu
{
class $Menu
class $MenuButton
class $MenuSeparator
class $RtMenu
}
menu AllClasses
{
classvolume pwrs
......@@ -449,6 +476,22 @@ palette PlcEditorPalette
class StoIi
class StoPi
}
menu Function
{
class CStoAattr
class CStoIattr
class CStoSattr
class GetAattr
class GetDattr
class GetIattr
class GetSattr
class ResDattr
class SetDattr
class StoAattr
class StoDattr
class StoIattr
class StoSattr
}
}
menu TLog TLog
{
......
wb/lib/wb/src/wb_c_attribute.c 0 → 100644
View file @ c2056524
/* wb_c_attribute.c -- work bench methods of the Attribute class.
PROVIEW/R
Copyright (C) 1994 by Comator Process AB. */
#include <string.h>
#include "wb_pwrs.h"
#include "wb_pwrs_msg.h"
#include "wb_ldh.h"
static pwr_tStatus AnteCreate (
ldh_tSesContext Session,
pwr_tObjid Father,
pwr_tClassId Class
) {
pwr_tCid cid;
pwr_tStatus sts;
if ( cdh_ObjidIsNull( Father))
return PWRS__POSATTRIBUTE;
// Check that the father is of class ClassDef
sts = ldh_GetObjectClass( Session, Father, &cid);
if ( EVEN(sts) || cid != pwr_eClass_ObjBodyDef)
return PWRS__POSATTRIBUTE;
return PWRS__SUCCESS;
}
static pwr_tStatus AnteMove (
ldh_tSesContext Session,
pwr_tObjid Object,
pwr_tObjid Father,
pwr_tObjid OldFather
) {
// Check that that the father is the same
if ( !(Father.oix == OldFather.oix && Father.vid == OldFather.vid))
return PWRS__MOVEATTRIBUTE;
return PWRS__SUCCESS;
}
pwr_dExport pwr_BindMethods($Attribute) = {
pwr_BindMethod(AnteCreate),
pwr_BindMethod(AnteMove),
pwr_NullMethod
};
wb/lib/wb/src/wb_c_classdef.c 0 → 100644
View file @ c2056524
/* wb_c_classdef.c -- work bench methods of the ClassDef class.
PROVIEW/R
Copyright (C) 1994 by Comator Process AB. */
#include <X11/Intrinsic.h>
#undef Status
#include <string.h>
#include "wb_pwrs.h"
#include "wb_pwrs_msg.h"
#include "wb_ldh.h"
#include "ge.h"
static pwr_tStatus AnteCreate (
ldh_tSesContext Session,
pwr_tObjid Father,
pwr_tClassId Class
) {
pwr_tCid cid;
pwr_tStatus sts;
if ( cdh_ObjidIsNull( Father))
return PWRS__POSCLASSDEF;
// Check that the father is of class ClassHier
sts = ldh_GetObjectClass( Session, Father, &cid);
if ( EVEN(sts) || cid != pwr_eClass_ClassHier)
return PWRS__POSCLASSDEF;
return PWRS__SUCCESS;
}
static pwr_tStatus OpenClassGraph (
ldh_sMenuCall *ip
)
{
int sts;
char name[32];
int size;
sts = ldh_ObjidToName( ip->PointedSession, ip->Pointed.Objid, ldh_eName_Object,
name, sizeof(name), &size);
if ( EVEN(sts)) return sts;
cdh_ToLower( name, name);
ge_new( NULL, ip->WindowContext, ip->PointedSession, 0, name);
return PWRS__SUCCESS;
}
pwr_dExport pwr_BindMethods($ClassDef) = {
pwr_BindMethod(AnteCreate),
pwr_BindMethod(OpenClassGraph),
pwr_NullMethod
};
wb/lib/wb/src/wb_c_classhier.c 0 → 100644
View file @ c2056524
/* wb_c_classdef.c -- work bench methods of the ClassDef class.
PROVIEW/R
Copyright (C) 1994 by Comator Process AB. */
#include <string.h>
#include "wb_pwrs.h"
#include "wb_pwrs_msg.h"
#include "wb_ldh.h"
static pwr_tStatus AnteCreate (
ldh_tSesContext Session,
pwr_tObjid Father,
pwr_tClassId Class
) {
// ClassHier should be a top object
if ( Father.oix != 0)
return PWRS__POSCLASSHIER;
return PWRS__SUCCESS;
}
pwr_dExport pwr_BindMethods($ClassHier) = {
pwr_BindMethod(AnteCreate),
pwr_NullMethod
};
wb/lib/wb/src/wb_c_classvolumeconfig.c 0 → 100644
View file @ c2056524
/* wb_c_classvolumeconfig.c -- work bench methods of the ClassVolumeConfig class.
PROVIEW/R
Copyright (C) 1994 by Comator Process AB. */
#include <stdio.h>
#include <stdlib.h>
#ifdef OS_VMS
#include <descrip.h>
#include <lib$routines.h>
#include <clidef.h>
#endif
#include "wb_pwrs.h"
#include "wb_ldh_msg.h"
#include "wb_ldh.h"
#include "wb_login.h"
#include "co_cdh.h"
#include "co_dcli.h"
#include "wb_api.h"
/*----------------------------------------------------------------------------*\
Open a workbench from a RootVolumeConfig object.
\*----------------------------------------------------------------------------*/
static pwr_tStatus EditClassVolume (
ldh_sMenuCall *ip
)
{
int size;
int sts;
char name[120];
char fname[200];
char cmd[200];
sts = ldh_ObjidToName ( ip->PointedSession, ip->Pointed.Objid,
ldh_eName_Object, name, sizeof(name), &size);
if ( EVEN(sts)) return sts;
cdh_ToLower( name, name);
sprintf( fname, "$pwrp_db/%s.wb_load", name);
dcli_translate_filename( fname, fname);
sprintf( cmd, "open classeditor /file=\"%s\"", fname);
wtt_command( ip->EditorContext, cmd);
return 1;
}
/*----------------------------------------------------------------------------*\
Every method to be exported to the workbench should be registred here.
\*----------------------------------------------------------------------------*/
pwr_dExport pwr_BindMethods(ClassVolumeConfig) = {
pwr_BindMethod(EditClassVolume),
pwr_NullMethod
};
wb/lib/wb/src/wb_c_objbodydef.c 0 → 100644
View file @ c2056524
/* wb_c_classdef.c -- work bench methods of the ClassDef class.
PROVIEW/R
Copyright (C) 1994 by Comator Process AB. */
#include <string.h>
#include "wb_pwrs.h"
#include "wb_pwrs_msg.h"
#include "wb_ldh.h"
static pwr_tStatus AnteCreate (
ldh_tSesContext Session,
pwr_tObjid Father,
pwr_tClassId Class
) {
pwr_tCid cid;
pwr_tStatus sts;
if ( cdh_ObjidIsNull( Father))
return PWRS__POSOBJBODYDEF;
// Check that the father is of class ClassDef
sts = ldh_GetObjectClass( Session, Father, &cid);
if ( EVEN(sts) || cid != pwr_eClass_ClassDef)
return PWRS__POSOBJBODYDEF;
return PWRS__SUCCESS;
}
static pwr_tStatus AnteMove (
ldh_tSesContext Session,
pwr_tObjid Object,
pwr_tObjid Father,
pwr_tObjid OldFather
) {
// Check that that the father is the same
if ( !(Father.oix == OldFather.oix && Father.vid == OldFather.vid))
return PWRS__MOVEBODY;
return PWRS__SUCCESS;
}
pwr_dExport pwr_BindMethods($ObjBodyDef) = {
pwr_BindMethod(AnteCreate),
pwr_BindMethod(AnteMove),
pwr_NullMethod
};
xtt/exp/inc/src/xnav_bitmap_docblock12.h 0 → 100644
View file @ c2056524
#define xnav_bitmap_docblock12_width 12
#define xnav_bitmap_docblock12_height 12
static unsigned char xnav_bitmap_docblock12_bits[] = {
0xff, 0x0f, 0x01, 0x08, 0x6d, 0x0b, 0x01, 0x08, 0xdd, 0x08, 0x01, 0x08,
0xf5, 0x0a, 0x01, 0x08, 0xdd, 0x09, 0x01, 0x08, 0x01, 0x08, 0xff, 0x0f};
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