Skip to content

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

New object for administrator

parent 20773435
Hide whitespace changes
Inline Side-by-side
Showing with 659 additions and 0 deletions
src/wbl/pwrb/src/pwrb_c_basereg.wb_load 0 → 100644
View file @ f3d9cf9b
!
! Proview $Id: pwrb_c_basereg.wb_load,v 1.1 2005-09-20 13:18:56 claes Exp $
! Copyright (C) 2005 SSAB Oxelsund AB.
!
! This program is free software; you can redistribute it and/or
! modify it under the terms of the GNU General Public License as
! published by the Free Software Foundation, either version 2 of
! the License, or (at your option) any later version.
!
! This program is distributed in the hope that it will be useful
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU General Public License for more details.
!
! You should have received a copy of the GNU General Public License
! along with the program, if not, write to the Free Software
! Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
!
! pwrb_c_basereg.wb_load -- Defines the class BaseReg.
!
SObject pwrb:Class
Object BaseReg $ClassDef 431
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_Standard
Attr Flags |= pwr_mClassDef_TopObject
EndBody
Object RtBody $ObjBodyDef 1
Object Description $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$String80"
EndBody
EndObject
Object Version $Attribute 2
Body SysBody
Attr TypeRef = "pwrs:Type-$String16"
EndBody
EndObject
Object Path $Attribute 3
Body SysBody
Attr TypeRef = "pwrs:Type-$String80"
EndBody
EndObject
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_projectreg.wb_load 0 → 100644
View file @ f3d9cf9b
!
! Proview $Id: pwrb_c_projectreg.wb_load,v 1.1 2005-09-20 13:18:56 claes Exp $
! Copyright (C) 2005 SSAB Oxelsund AB.
!
! This program is free software; you can redistribute it and/or
! modify it under the terms of the GNU General Public License as
! published by the Free Software Foundation, either version 2 of
! the License, or (at your option) any later version.
!
! This program is distributed in the hope that it will be useful
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU General Public License for more details.
!
! You should have received a copy of the GNU General Public License
! along with the program, if not, write to the Free Software
! Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
!
! pwrb_c_projectreg.wb_load -- Defines the class ProjectReg.
!
SObject pwrb:Class
Object ProjectReg $ClassDef 432
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_Standard
Attr Flags |= pwr_mClassDef_TopObject
EndBody
Object RtBody $ObjBodyDef 1
Object Description $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$String80"
EndBody
EndObject
Object Project $Attribute 2
Body SysBody
Attr TypeRef = "pwrs:Type-$String40"
EndBody
EndObject
Object Version $Attribute 3
Body SysBody
Attr TypeRef = "pwrs:Type-$String16"
EndBody
EndObject
Object Path $Attribute 4
Body SysBody
Attr TypeRef = "pwrs:Type-$String80"
EndBody
EndObject
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_systemgroupreg.wb_load 0 → 100644
View file @ f3d9cf9b
!
! Proview $Id: pwrb_c_systemgroupreg.wb_load,v 1.1 2005-09-20 13:18:56 claes Exp $
! Copyright (C) 2005 SSAB Oxelsund AB.
!
! This program is free software; you can redistribute it and/or
! modify it under the terms of the GNU General Public License as
! published by the Free Software Foundation, either version 2 of
! the License, or (at your option) any later version.
!
! This program is distributed in the hope that it will be useful
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU General Public License for more details.
!
! You should have received a copy of the GNU General Public License
! along with the program, if not, write to the Free Software
! Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
!
! pwrb_c_systemgroupreg.wb_load -- Defines the class SystemGroupReg.
!
SObject pwrb:Class
Object SystemGroupReg $ClassDef 430
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_Standard
Attr Flags |= pwr_mClassDef_TopObject
EndBody
Object RtBody $ObjBodyDef 1
Object Description $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$String80"
EndBody
EndObject
Object Attributes $Attribute 2
Body SysBody
Attr TypeRef = "pwrb:Type-SysGroupAttrMask"
EndBody
EndObject
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_userreg.wb_load 0 → 100644
View file @ f3d9cf9b
!
! Proview $Id: pwrb_c_userreg.wb_load,v 1.1 2005-09-20 13:18:56 claes Exp $
! Copyright (C) 2005 SSAB Oxelsund AB.
!
! This program is free software; you can redistribute it and/or
! modify it under the terms of the GNU General Public License as
! published by the Free Software Foundation, either version 2 of
! the License, or (at your option) any later version.
!
! This program is distributed in the hope that it will be useful
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU General Public License for more details.
!
! You should have received a copy of the GNU General Public License
! along with the program, if not, write to the Free Software
! Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
!
! pwrb_c_volumereg.wb_load -- Defines the class VolumeReg.
!
SObject pwrb:Class
Object UserReg $ClassDef 429
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_Standard
EndBody
Object RtBody $ObjBodyDef 1
Object Description $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$String80"
EndBody
EndObject
Object Password $Attribute 2
Body SysBody
Attr TypeRef = "pwrs:Type-$ProString40"
EndBody
EndObject
Object Privileges $Attribute 3
Body SysBody
Attr TypeRef = "pwrs:Type-$PrivMask"
EndBody
EndObject
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_volumereg.wb_load 0 → 100644
View file @ f3d9cf9b
!
! Proview $Id: pwrb_c_volumereg.wb_load,v 1.1 2005-09-20 13:18:56 claes Exp $
! Copyright (C) 2005 SSAB Oxelsund AB.
!
! This program is free software; you can redistribute it and/or
! modify it under the terms of the GNU General Public License as
! published by the Free Software Foundation, either version 2 of
! the License, or (at your option) any later version.
!
! This program is distributed in the hope that it will be useful
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU General Public License for more details.
!
! You should have received a copy of the GNU General Public License
! along with the program, if not, write to the Free Software
! Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
!
! pwrb_c_volumereg.wb_load -- Defines the class VolumeReg.
!
SObject pwrb:Class
Object VolumeReg $ClassDef 428
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_Standard
Attr Flags |= pwr_mClassDef_TopObject
EndBody
Object RtBody $ObjBodyDef 1
Object Description $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$String80"
EndBody
EndObject
Object VolumeId $Attribute 2
Body SysBody
Attr TypeRef = "pwrs:Type-$VolumeId"
EndBody
EndObject
Object Project $Attribute 3
Body SysBody
Attr TypeRef = "pwrs:Type-$String80"
EndBody
EndObject
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_td_sysgroupattrmask.wb_load 0 → 100644
View file @ f3d9cf9b
!
! Proview $Id: pwrb_td_sysgroupattrmask.wb_load,v 1.1 2005-09-20 13:18:56 claes Exp $
! Copyright (C) 2005 SSAB Oxelsund AB.
!
! This program is free software; you can redistribute it and/or
! modify it under the terms of the GNU General Public License as
! published by the Free Software Foundation, either version 2 of
! the License, or (at your option) any later version.
!
! This program is distributed in the hope that it will be useful
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU General Public License for more details.
!
! You should have received a copy of the GNU General Public License
! along with the program, if not, write to the Free Software
! Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
!
! pwrb_sysgroupmask.wb_load -- Defines the mask type SysGroupAttrMask
!
SObject pwrb:Type
!/**
! @Version 1.0
! @Group Types
! Bitmask for SystemGroup Attributes.
!
! @b See also
! @classlink SystemGroupRef pwrb_systemgroupreg.html
!*/
Object SysGroupAttrMask $TypeDef 34
Body SysBody
Attr Type = pwr_eType_Mask
Attr Size = 4
Attr TypeRef = "pwrs:Type-$Mask"
Attr Elements = 1
EndBody
!/**
! Inherit users.
!*/
Object UserInherit $Bit
Body SysBody
Attr PgmName = "UserInherit"
Attr Text = "UserInherit"
Attr Value = 1
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrs/src/pwrs_c_hier.wb_load 0 → 100644
View file @ f3d9cf9b
!
! Proview $Id: pwrs_c_hier.wb_load,v 1.1 2005-09-20 13:18:56 claes Exp $
! Copyright (C) 2005 SSAB Oxelsund AB.
!
! This program is free software; you can redistribute it and/or
! modify it under the terms of the GNU General Public License as
! published by the Free Software Foundation, either version 2 of
! the License, or (at your option) any later version.
!
! This program is distributed in the hope that it will be useful
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU General Public License for more details.
!
! You should have received a copy of the GNU General Public License
! along with the program, if not, write to the Free Software
! Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
!
! pwrs_c_hier.wb_load -- Defines the class Hier.
!
SObject pwrs:Class
!/**
! @Version 1.0
! General hierarchy object.
!*/
Object $Hier $ClassDef pwr_eCix_Hier
Body SysBody
Attr Flags |= pwr_mClassDef_System
Attr Flags |= pwr_mClassDef_TopObject
EndBody
Object SysBody $ObjBodyDef 1
Body SysBody
Attr StructName = "DocHier"
EndBody
!/**
! Optional text to describe the use of the object.
!*/
Object Description $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$String80"
EndBody
EndObject
EndObject
EndObject
EndSObject
src/wbl/pwrs/src/pwrs_t_prostring.wb_load 0 → 100644
View file @ f3d9cf9b
!
! Proview $Id: pwrs_t_prostring.wb_load,v 1.1 2005-09-20 13:18:56 claes Exp $
! Copyright (C) 2005 SSAB Oxelösund AB.
!
! This program is free software; you can redistribute it and/or
! modify it under the terms of the GNU General Public License as
! published by the Free Software Foundation, either version 2 of
! the License, or (at your option) any later version.
!
! This program is distributed in the hope that it will be useful
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU General Public License for more details.
!
! You should have received a copy of the GNU General Public License
! along with the program, if not, write to the Free Software
! Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
!
! pwrs_t_string.wb_load -- Defines the basic type ProString
!
SObject pwrs:Type
!/**
! @Version 1.0
! @Code pwr.h
! @Group BasicTypes,Types
! 8-bit protected string character. Basic type.
! The ProString type is a base type for the derived string types ProString40
!
! @b See also
! @classlink ProString40 pwrs_prostring40.html
!*/
Object $ProString pwr_eClass_Type pwr_eTix_ProString
Body SysBody
Attr Type = pwr_eType_ProString
Attr Size = 1
EndBody
EndObject
EndSObject
src/wbl/pwrs/src/pwrs_td_privmask.wb_load 0 → 100644
View file @ f3d9cf9b
!
! Proview $Id: pwrs_td_privmask.wb_load,v 1.1 2005-09-20 13:18:56 claes Exp $
! Copyright (C) 2005 SSAB Oxelsund AB.
!
! This program is free software; you can redistribute it and/or
! modify it under the terms of the GNU General Public License as
! published by the Free Software Foundation, either version 2 of
! the License, or (at your option) any later version.
!
! This program is distributed in the hope that it will be useful
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU General Public License for more details.
!
! You should have received a copy of the GNU General Public License
! along with the program, if not, write to the Free Software
! Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
!
! pwrs_td_privmask.wb_load -- Defines the type PrivMask
!
SObject pwrs:Type
!/**
! @Version 1.0
! @Code pwr.h
! @Group DerivedTypes,Types
! Proview Privilege bitmask. Derived from Mask.
!
! @b See also
! @classlink Mask pwrs_mask.html
!*/
Object $PrivMask $TypeDef 20
Body SysBody
Attr TypeRef = "pwrs:Type-$Mask"
Attr PgmName = "OpSys"
EndBody
!/**
! Read access in runtime
!*/
Object RtRead $Bit
Body SysBody
Attr PgmName = "RtRead"
Attr Text = "RtRead"
Attr Value = 1
EndBody
EndObject
!/**
! Write access in runtime
!*/
Object RtWrite $Bit
Body SysBody
Attr PgmName = "RtWrite"
Attr Text = "RtWrite"
Attr Value = 2
EndBody
EndObject
!/**
! System manager privilege
!*/
Object System $Bit
Body SysBody
Attr PgmName = "System"
Attr Text = "System"
Attr Value = 4
EndBody
EndObject
!/**
! Maintenance privilege
!*/
Object Maintenance $Bit
Body SysBody
Attr PgmName = "Maintenance"
Attr Text = "Maintenance"
Attr Value = 8
EndBody
EndObject
!/**
! Process privilege
!*/
Object Process $Bit
Body SysBody
Attr PgmName = "Process"
Attr Text = "Process"
Attr Value = 16
EndBody
EndObject
!/**
! Instrument privilege
!*/
Object Instrument $Bit
Body SysBody
Attr PgmName = "Instrument"
Attr Text = "Instrument"
Attr Value = 32
EndBody
EndObject
!/**
! Operator 1 privilege
!*/
Object Operator1 $Bit
Body SysBody
Attr PgmName = "Operator1"
Attr Text = "Operator1"
Attr Value = 64
EndBody
EndObject
!/**
! Operator 2 privilege
!*/
Object Operator2 $Bit
Body SysBody
Attr PgmName = "Operator2"
Attr Text = "Operator2"
Attr Value = 128
EndBody
EndObject
!/**
! Operator 3 privilege
!*/
Object Operator3 $Bit
Body SysBody
Attr PgmName = "Operator3"
Attr Text = "Operator3"
Attr Value = 256
EndBody
EndObject
!/**
! Operator 4 privilege
!*/
Object Operator4 $Bit
Body SysBody
Attr PgmName = "Operator4"
Attr Text = "Operator4"
Attr Value = 512
EndBody
EndObject
!/**
! Operator 5 privilege
!*/
Object Operator5 $Bit
Body SysBody
Attr PgmName = "Operator5"
Attr Text = "Operator5"
Attr Value = 1024
EndBody
EndObject
!/**
! Operator 6 privilege
!*/
Object Operator6 $Bit
Body SysBody
Attr PgmName = "Operator6"
Attr Text = "Operator6"
Attr Value = 2048
EndBody
EndObject
!/**
! Operator 7 privilege
!*/
Object Operator7 $Bit
Body SysBody
Attr PgmName = "Operator7"
Attr Text = "Operator7"
Attr Value = 4096
EndBody
EndObject
!/**
! Operator 8 privilege
!*/
Object Operator8 $Bit
Body SysBody
Attr PgmName = "Operator8"
Attr Text = "Operator8"
Attr Value = 8192
EndBody
EndObject
!/**
! Operator 9 privilege
!*/
Object Operator9 $Bit
Body SysBody
Attr PgmName = "Operator9"
Attr Text = "Operator9"
Attr Value = 16384
EndBody
EndObject
!/**
! Operator 10 privilege
!*/
Object Operator10 $Bit
Body SysBody
Attr PgmName = "Operator10"
Attr Text = "Operator10"
Attr Value = 32768
EndBody
EndObject
!/**
! Read access in development environment
!*/
Object DevRead $Bit
Body SysBody
Attr PgmName = "DevRead"
Attr Text = "DevRead"
Attr Value = 2097152
EndBody
EndObject
!/**
! Plc editing access
!*/
Object DevPlc $Bit
Body SysBody
Attr PgmName = "DevPlc"
Attr Text = "DevPlc"
Attr Value = 4194304
EndBody
EndObject
!/**
! Configurator editing access
!*/
Object DevConfig $Bit
Body SysBody
Attr PgmName = "DevConfig"
Attr Text = "DevConfig"
Attr Value = 8388608
EndBody
EndObject
!/**
! Class editing access
!*/
Object DevClass $Bit
Body SysBody
Attr PgmName = "DevClass"
Attr Text = "DevClass"
Attr Value = 16777216
EndBody
EndObject
!/**
! Event blocking privilege
!*/
Object RtEvents $Bit
Body SysBody
Attr PgmName = "RtEvents"
Attr Text = "RtEvents"
Attr Value = 33554432
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrs/src/pwrs_td_prostring40.wb_load 0 → 100644
View file @ f3d9cf9b
!
! Proview $Id: pwrs_td_prostring40.wb_load,v 1.1 2005-09-20 13:18:56 claes Exp $
! Copyright (C) 2005 SSAB Oxelösund AB.
!
! This program is free software; you can redistribute it and/or
! modify it under the terms of the GNU General Public License as
! published by the Free Software Foundation, either version 2 of
! the License, or (at your option) any later version.
!
! This program is distributed in the hope that it will be useful
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU General Public License for more details.
!
! You should have received a copy of the GNU General Public License
! along with the program, if not, write to the Free Software
! Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
!
! pwrs_td_string40.wb_load -- Defines the type String40
!
SObject pwrs:Type
!/**
! @Version 1.0
! @Code pwr.h
! @Group DerivedTypes,Types
! 40 characters null-terminated protected string. Derived type from ProString.
!
! The maximum length of the string without the null termination is
! 39 characters.
!
! @b See also
! @classlink ProString pwrs_prostring.html
!*/
Object $ProString40 $TypeDef 21
Body SysBody
Attr Type = pwr_eType_ProString
Attr Size = 40
Attr TypeRef = "pwrs:Type-$ProString"
Attr Elements = 40
EndBody
EndObject
EndSObject
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment
GitLab Nexedi Edition | About GitLab | About Nexedi | 沪ICP备2021021310号-2 | 沪ICP备2021021310号-7