Skip to content

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

Time objects stored

parent c058edb4
Hide whitespace changes
Inline Side-by-side
Showing with 912 additions and 52 deletions
src/exp/inc/src/pwr.h
View file @ 648d5e8e
/*
* Proview $Id: pwr.h,v 1.22 2005-12-14 13:05:51 claes Exp $
* Proview $Id: pwr.h,v 1.23 2006-04-28 04:59:58 claes Exp $
* Copyright (C) 2005 SSAB Oxelsund AB.
*
* This program is free software; you can redistribute it and/or
......@@ -503,6 +503,8 @@ static const pwr_tTid pwr_cNTid = 0; //!< Zero type identity constan
static const pwr_tVid pwr_cNVid = 0; //!< Zero volume identity constant.
static const pwr_tNid pwr_cNNid = 0; //!< Zero node identity constant.
static const pwr_tStatus pwr_cNStatus = 0; //!< Zero status constant.
static const pwr_tTime pwr_cNTime = {0, 0}; //!< Zero time constant.
static const pwr_tDeltaTime pwr_cNDeltaTime = {0, 0}; //!< Zero deltatime constant.
/* Gereral macro definitions */
......
src/lib/rt/src/rt_plc_macro.h
View file @ 648d5e8e
/*
* Proview $Id: rt_plc_macro.h,v 1.3 2005-09-20 13:27:45 claes Exp $
* Proview $Id: rt_plc_macro.h,v 1.4 2006-04-28 04:59:58 claes Exp $
* Copyright (C) 2005 SSAB Oxelsund AB.
*
* This program is free software; you can redistribute it and/or
......@@ -39,5 +39,6 @@
#include "rt_plc_macro_div.h"
#include "rt_plc_macro_mps.h"
#include "rt_plc_macro_string.h"
#include "rt_plc_macro_time.h"
#include "ra_plc_user.h"
src/lib/rt/src/rt_plc_macro_time.h 0 → 100644
View file @ 648d5e8e
/*
* Proview $Id: rt_plc_macro_time.h,v 1.1 2006-04-28 04:59:58 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.
*/
/* Preprocessor routines for time operations */
/*_*
STOATV
store absolute time value
@aref stoatv StoATv
*/
#define StoATv_exec(obj,in) \
obj->ActualValue = in;
/*_*
STODTV
store delta time value
@aref stodtv StoDTv
*/
#define StoDTv_exec(obj,in) \
obj->ActualValue = in;
/*_*
CSTOATV
store conditionally into absolute time value
@aref cstoatv CStoATv
*/
#define CStoATv_exec(obj,in,cond) \
if ( cond ) \
obj->ActualValue = in;
/*_*
CSTODTV
store conditionally into delta time value
@aref cstodtv CStoDTv
*/
#define CStoDTv_exec(obj,in,cond) \
if ( cond ) \
obj->ActualValue = in;
/*_*
STOATP
Store into absolute time attribute
@aref stoatp StoATp
*/
#define StoATp_exec(ut,in) \
ut = in;
/*_*
STODTP
Store into delta time attribute
@aref stodtp StoDTp
*/
#define StoDTp_exec(ut,in) \
ut = in;
/*_*
CSTOATP
Store conditionally into absolute time attribute
@aref cstoatp CStoATp
*/
#define CStoATp_exec(ut,in,cond) \
if ( cond) \
ut = in;
/*_*
CSTODTP
Store conditionally into delta time attribute
@aref cstodtp CStoDTp
*/
#define CStoDTp_exec(ut,in,cond) \
if ( cond) \
ut = in;
/*_*
ATADD
@aref atadd AtAdd
*/
#define AtAdd_exec(obj,t1,t2) \
time_Aadd( &obj->ActVal, &t1, &t2);
/*_*
DTADD
@aref dtadd DtAdd
*/
#define DtAdd_exec(obj,t1,t2) \
time_Dadd( &obj->ActVal, &t1, &t2);
/*_*
ATSUB
@aref atsub AtSub
*/
#define AtSub_exec(obj,t1,t2) \
time_Adiff( &obj->ActVal, &t1, &t2);
/*_*
ATDTSUB
@aref atdtsub AtDtSub
*/
#define AtDtSub_exec(obj,t1,t2) \
time_Asub( &obj->ActVal, &t1, &t2);
/*_*
DTSUB
@aref dtsub DtSub
*/
#define DtSub_exec(obj,t1,t2) \
time_Dsub( &obj->ActVal, &t1, &t2);
/*_*
DTTOA
@aref dttoa DtToA
*/
#define DtToA_exec(obj,t) \
time_DToFloat( &obj->ActVal, &t);
src/wbl/pwrb/src/pwrb_c_atadd.wb_load
View file @ 648d5e8e
!
! Proview $Id: pwrb_c_atadd.wb_load,v 1.1 2006-04-24 13:15:30 claes Exp $
! Proview $Id: pwrb_c_atadd.wb_load,v 1.2 2006-04-28 04:59:58 claes Exp $
! Copyright (C) 2005 SSAB Oxelsund AB.
!
! This program is free software; you can redistribute it and/or
......@@ -21,7 +21,7 @@
SObject pwrb:Class
!/**
! @Version 1.0
! @Code rt_plc_macro_io.h
! @Code rt_plc_macro_time.h
! @Group Plc,PlcTime
! @Summary Add an absolute time and a delta time.
! Add an absolute time and a delta time.
......@@ -60,9 +60,9 @@ SObject pwrb:Class
EndBody
EndObject
!/**
! @Summary The second string that is appended to the first string.
! The second string that is appended to the first string.
! The input has to be connected to an output of type String.
! @Summary A delta time that is added to the absolute time.
! A delta time that is added to the absolute time.
! The input has to be connected to an output of type DeltaTime.
!*/
Object DTime $Input 2
Body SysBody
......@@ -114,7 +114,7 @@ SObject pwrb:Class
Attr traceindex = 0
Attr executeordermethod = 2
Attr objname = "AtAdd"
Attr graphname = "AdAdd"
Attr graphname = "AtAdd"
EndBody
EndObject
EndObject
......
src/wbl/pwrb/src/pwrb_c_atdtsub.wb_load 0 → 100644
View file @ 648d5e8e
!
! Proview $Id: pwrb_c_atdtsub.wb_load,v 1.1 2006-04-28 04:59:58 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_atdtsub.wb_load -- Defines the class AtDtSub.
!
SObject pwrb:Class
!/**
! @Version 1.0
! @Code rt_plc_macro_time.h
! @Group Plc,PlcTime
! @Summary Subtracts a delta times from an absolute time.
! Subtracts a delta time from an absolute time.
! @image orm_atdtsub_fo.gif
!
! AtDtAdd subtracts the second delta time input from the first absolute time
! input.
!
! The first input has to be connected to an absolute time, and
! the second to a delta time.
! The resulting output is an absolute time.
!*/
Object AtDtSub $ClassDef 463
Body SysBody
Attr Editor = pwr_eEditor_PlcEd
Attr Method = pwr_eMethod_Connections
Attr PopEditor = 2
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "AtDtSub"
EndBody
!/**
! Minuend absolute time.
!*/
Object ATime $Input 1
Body SysBody
Attr TypeRef = "pwrs:Type-$Time"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_NOEDIT
Attr Flags |= PWR_MASK_NOREMOVE
Attr GraphName = "ATim"
EndBody
EndObject
!/**
! Subtrahend absolute time.
!*/
Object DTime $Input 2
Body SysBody
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_NOEDIT
Attr Flags |= PWR_MASK_NOREMOVE
Attr TypeRef = "pwrs:Type-$DeltaTime"
Attr GraphName = "DTim"
EndBody
EndObject
!/**
! The result of the subtraction ATime - DTime. The result is an absolute time.
!*/
Object ActVal $Output 3
Body SysBody
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_NOEDIT
Attr TypeRef = "pwrs:Type-$Time"
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] = 2
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] = 3
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 = "AtDtSub"
Attr graphname = "AtDtSub"
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_atgreaterthan.wb_load 0 → 100644
View file @ 648d5e8e
!
! Proview $Id: pwrb_c_atgreaterthan.wb_load,v 1.1 2006-04-28 04:59:58 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_atgreaterthan.wb_load -- Defines the class AtGreaterThan.
!
SObject pwrb:Class
!/**
! @Version 1.0
! @Code rt_plc_macro_time.h
! @Group Plc,PlcTime
! @Summary Add an absolute time and a delta time.
! Add an absolute time and a delta time.
! @image orm_atgreaterthan_fo.gif
!
! AtGreaterThan compares two absolute times and returns true if the first are
! greater than the second.
!
! Both inputs have to be connected to absolute times. The result is a digital value.
!*/
Object AtAdd $ClassDef 465
Body SysBody
Attr Editor = pwr_eEditor_PlcEd
Attr Method = pwr_eMethod_Connections
Attr PopEditor = 2
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "AtGreaterThan"
EndBody
!/**
! An absolute time.
! The input has to be connected to an output of type Time.
!*/
Object ATime1 $Input 1
Body SysBody
Attr TypeRef = "pwrs:Type-$Time"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_NOEDIT
Attr Flags |= PWR_MASK_NOREMOVE
Attr GraphName = "ATim1"
EndBody
EndObject
!/**
! An absolute time.
! The input has to be connected to an output of type Time.
!*/
Object ATime2 $Input 2
Body SysBody
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_NOEDIT
Attr Flags |= PWR_MASK_NOREMOVE
Attr TypeRef = "pwrs:Type-$DeltaTime"
Attr GraphName = "ATim2"
EndBody
EndObject
!/**
! 1 if ATime 1 > ATime 2, else 0..
!*/
Object Status $Output 3
Body SysBody
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_NOEDIT
Attr TypeRef = "pwrs:Type-$Boolean"
Attr GraphName = "sts"
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] = 2
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] = 3
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 = "AtGt"
Attr graphname = "AtGt"
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_atsub.wb_load 0 → 100644
View file @ 648d5e8e
!
! Proview $Id: pwrb_c_atsub.wb_load,v 1.1 2006-04-28 04:59:58 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_atsub.wb_load -- Defines the class AtSub.
!
SObject pwrb:Class
!/**
! @Version 1.0
! @Code rt_plc_macro_time.h
! @Group Plc,PlcTime
! @Summary Subtract two absolute times.
! Subtract two absolute times.
! @image orm_atsub_fo.gif
!
! AtAdd subtracts the second absolute time input from the first absolute time
! input.
!
! The inputs has to be connected to absolute times.
! The resulting output is a delta time.
!*/
Object AtSub $ClassDef 461
Body SysBody
Attr Editor = pwr_eEditor_PlcEd
Attr Method = pwr_eMethod_Connections
Attr PopEditor = 2
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "AtSub"
EndBody
!/**
! Minuend absolute time.
!*/
Object ATime1 $Input 1
Body SysBody
Attr TypeRef = "pwrs:Type-$Time"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_NOEDIT
Attr Flags |= PWR_MASK_NOREMOVE
Attr GraphName = "ATim1"
EndBody
EndObject
!/**
! Subtrahend absolute time.
!*/
Object ATime2 $Input 2
Body SysBody
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_NOEDIT
Attr Flags |= PWR_MASK_NOREMOVE
Attr TypeRef = "pwrs:Type-$Time"
Attr GraphName = "ATim2"
EndBody
EndObject
!/**
! The result of the subtraction ATime1 - ATime2. The result is a deltatime.
!*/
Object ActVal $Output 3
Body SysBody
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_NOEDIT
Attr TypeRef = "pwrs:Type-$DeltaTime"
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] = 2
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] = 3
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 = "AtSub"
Attr graphname = "AtSub"
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_cstoatp.wb_load
View file @ 648d5e8e
!
! Proview $Id: pwrb_c_cstoatp.wb_load,v 1.1 2006-04-24 13:15:30 claes Exp $
! Proview $Id: pwrb_c_cstoatp.wb_load,v 1.2 2006-04-28 04:59:58 claes Exp $
! Copyright (C) 2005 SSAB Oxelsund AB.
!
! This program is free software; you can redistribute it and/or
......@@ -48,7 +48,7 @@ SObject pwrb:Class
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "cstosp"
Attr StructName = "CStoATp"
EndBody
!/**
! The input is connected to an analog signal or left
......@@ -60,7 +60,8 @@ SObject pwrb:Class
Attr PgmName = "In"
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_DEVBODYREF
Attr TypeRef = "pwrs:Type-$String80"
Attr Flags |= PWR_MASK_NOREMOVE
Attr TypeRef = "pwrs:Type-$Time"
Attr GraphName = "VAL"
Attr ConPointNr = 0
EndBody
......
src/wbl/pwrb/src/pwrb_c_cstoatv.wb_load
View file @ 648d5e8e
!
! Proview $Id: pwrb_c_cstoatv.wb_load,v 1.1 2006-04-24 13:15:30 claes Exp $
! Proview $Id: pwrb_c_cstoatv.wb_load,v 1.2 2006-04-28 04:59:58 claes Exp $
! Copyright (C) 2005 SSAB Oxelsund AB.
!
! This program is free software; you can redistribute it and/or
......@@ -21,7 +21,7 @@
SObject pwrb:Class
!/**
! @Version 1.0
! @Code rt_plc_macro_io.h
! @Code rt_plc_macro_time.h
! @Group Plc,PlcTime
! @Summary Conditional storage of absolute time value.
! Conditional storage of absolute time value.
......@@ -63,9 +63,9 @@ SObject pwrb:Class
Attr PgmName = "ActualValue"
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_DEVBODYREF
Attr Flags |= PWR_MASK_NOREMOVE
Attr TypeRef = "pwrs:Type-$Time"
Attr GraphName = "VAL"
Attr NiNaAnnot = 2
EndBody
EndObject
!/**
......@@ -90,7 +90,7 @@ SObject pwrb:Class
! Specifies the name of the object where to store the
! value.
!*/
Object SvObject $Intern 1
Object ATvObject $Intern 1
Body SysBody
Attr PgmName = "ATvObject"
Attr TypeRef = "pwrs:Type-$AttrRef"
......@@ -124,9 +124,9 @@ SObject pwrb:Class
Attr parameters[2] = 0
Attr parameters[3] = 0
Attr subwindows = 0
Attr graphmethod = 8
Attr graphmethod = 15
Attr graphindex = 1
Attr default_mask[0] = 2
Attr default_mask[0] = 3
Attr default_mask[1] = 0
Attr segname_annotation = 0
Attr devbody_annotation = 1
......
src/wbl/pwrb/src/pwrb_c_cstodtp.wb_load
View file @ 648d5e8e
!
! Proview $Id: pwrb_c_cstodtp.wb_load,v 1.1 2006-04-24 13:15:30 claes Exp $
! Proview $Id: pwrb_c_cstodtp.wb_load,v 1.2 2006-04-28 04:59:58 claes Exp $
! Copyright (C) 2005 SSAB Oxelsund AB.
!
! This program is free software; you can redistribute it and/or
......@@ -48,7 +48,7 @@ SObject pwrb:Class
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "cstosp"
Attr StructName = "CStoDTp"
EndBody
!/**
! The input is connected to an analog signal or left
......@@ -60,7 +60,8 @@ SObject pwrb:Class
Attr PgmName = "In"
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_DEVBODYREF
Attr TypeRef = "pwrs:Type-$String80"
Attr Flags |= PWR_MASK_NOREMOVE
Attr TypeRef = "pwrs:Type-$DeltaTime"
Attr GraphName = "VAL"
Attr ConPointNr = 0
EndBody
......
src/wbl/pwrb/src/pwrb_c_cstodtv.wb_load
View file @ 648d5e8e
!
! Proview $Id: pwrb_c_cstodtv.wb_load,v 1.1 2006-04-24 13:15:30 claes Exp $
! Proview $Id: pwrb_c_cstodtv.wb_load,v 1.2 2006-04-28 04:59:58 claes Exp $
! Copyright (C) 2005 SSAB Oxelsund AB.
!
! This program is free software; you can redistribute it and/or
......@@ -21,7 +21,7 @@
SObject pwrb:Class
!/**
! @Version 1.0
! @Code rt_plc_macro_io.h
! @Code rt_plc_macro_time.h
! @Group Plc,PlcTime
! @Summary Conditional storage of delta time value.
! Conditional storage of delta time value.
......@@ -63,9 +63,9 @@ SObject pwrb:Class
Attr PgmName = "ActualValue"
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_DEVBODYREF
Attr Flags |= PWR_MASK_NOREMOVE
Attr TypeRef = "pwrs:Type-$DeltaTime"
Attr GraphName = "VAL"
Attr NiNaAnnot = 2
EndBody
EndObject
!/**
......@@ -90,7 +90,7 @@ SObject pwrb:Class
! Specifies the name of the object where to store the
! value.
!*/
Object SvObject $Intern 1
Object DTvObject $Intern 1
Body SysBody
Attr PgmName = "DTvObject"
Attr TypeRef = "pwrs:Type-$AttrRef"
......@@ -124,9 +124,9 @@ SObject pwrb:Class
Attr parameters[2] = 0
Attr parameters[3] = 0
Attr subwindows = 0
Attr graphmethod = 8
Attr graphmethod = 15
Attr graphindex = 1
Attr default_mask[0] = 2
Attr default_mask[0] = 3
Attr default_mask[1] = 0
Attr segname_annotation = 0
Attr devbody_annotation = 1
......
src/wbl/pwrb/src/pwrb_c_dtadd.wb_load
View file @ 648d5e8e
!
! Proview $Id: pwrb_c_dtadd.wb_load,v 1.1 2006-04-24 13:15:30 claes Exp $
! Proview $Id: pwrb_c_dtadd.wb_load,v 1.2 2006-04-28 04:59:58 claes Exp $
! Copyright (C) 2005 SSAB Oxelsund AB.
!
! This program is free software; you can redistribute it and/or
......@@ -21,7 +21,7 @@
SObject pwrb:Class
!/**
! @Version 1.0
! @Code rt_plc_macro_io.h
! @Code rt_plc_macro_time.h
! @Group Plc,PlcTime
! @Summary Add two delta times.
! Add two delta times.
......@@ -110,7 +110,7 @@ SObject pwrb:Class
Attr traceindex = 0
Attr executeordermethod = 2
Attr objname = "DtAdd"
Attr graphname = "DdAdd"
Attr graphname = "DtAdd"
EndBody
EndObject
EndObject
......
src/wbl/pwrb/src/pwrb_c_dtsub.wb_load 0 → 100644
View file @ 648d5e8e
!
! Proview $Id: pwrb_c_dtsub.wb_load,v 1.1 2006-04-28 04:59:58 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_dtsub.wb_load -- Defines the class DtSub.
!
SObject pwrb:Class
!/**
! @Version 1.0
! @Code rt_plc_macro_time.h
! @Group Plc,PlcTime
! @Summary Subtract two absolute times.
! Subtract two delta times.
! @image orm_dtsub_fo.gif
!
! DtSub subtracts the second delta time input from the first delta time
! input.
!
! The inputs has to be connected to delta times.
! The resulting output is a delta time.
!*/
Object DtSub $ClassDef 462
Body SysBody
Attr Editor = pwr_eEditor_PlcEd
Attr Method = pwr_eMethod_Connections
Attr PopEditor = 2
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "DtSub"
EndBody
!/**
! Minuend delta time.
!*/
Object DTime1 $Input 1
Body SysBody
Attr TypeRef = "pwrs:Type-$DeltaTime"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_NOEDIT
Attr Flags |= PWR_MASK_NOREMOVE
Attr GraphName = "DTim1"
EndBody
EndObject
!/**
! Subtrahend absolute time.
!*/
Object DTime2 $Input 2
Body SysBody
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_NOEDIT
Attr Flags |= PWR_MASK_NOREMOVE
Attr TypeRef = "pwrs:Type-$DeltaTime"
Attr GraphName = "DTim2"
EndBody
EndObject
!/**
! The result of the subtraction DTime1 - DTime2. The result is a deltatime.
!*/
Object ActVal $Output 3
Body SysBody
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_NOEDIT
Attr TypeRef = "pwrs:Type-$DeltaTime"
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] = 2
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] = 3
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 = "DtSub"
Attr graphname = "DtSub"
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_dttoa.wb_load 0 → 100644
View file @ 648d5e8e
!
! Proview $Id: pwrb_c_dttoa.wb_load,v 1.1 2006-04-28 04:59:58 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_dttoa.wb_load -- Defines the class DtToA.
!
SObject pwrb:Class
!/**
! @Version 1.0
! @Code rt_plc_macro_time.h
! @Group Plc,PlcTime
! @Summary Convert a delta time to analog value.
! Convert a delta time to analog value.
! @image orm_dttoa_fo.gif
!
! DtToA converts a delta time to an analog value.
!*/
Object DtToA $ClassDef 464
Body SysBody
Attr Editor = pwr_eEditor_PlcEd
Attr Method = pwr_eMethod_Connections
Attr PopEditor = 2
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "DtToA"
EndBody
!/**
! Delta time.
!*/
Object DTime $Input 1
Body SysBody
Attr TypeRef = "pwrs:Type-$DeltaTime"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_NOEDIT
Attr Flags |= PWR_MASK_NOREMOVE
Attr GraphName = "DTim"
EndBody
EndObject
!/**
! The time converted to an 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 = "DtToA"
Attr graphname = "DtToA"
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_getatgeneric.wb_load
View file @ 648d5e8e
!
! Proview $Id: pwrb_c_getatgeneric.wb_load,v 1.1 2006-04-24 13:15:30 claes Exp $
! Proview $Id: pwrb_c_getatgeneric.wb_load,v 1.2 2006-04-28 04:59:58 claes Exp $
! Copyright (C) 2005 SSAB Oxelsund AB.
!
! This program is free software; you can redistribute it and/or
......@@ -59,7 +59,7 @@ SObject pwrb:Class
Attr parameters[3] = 0
Attr subwindows = 0
Attr graphmethod = 4
Attr graphindex = 36
Attr graphindex = 41
Attr default_mask[0] = 0
Attr default_mask[1] = 1
Attr segname_annotation = 0
......@@ -67,7 +67,7 @@ SObject pwrb:Class
Attr compindex = 0
Attr tracemethod = 1
Attr traceindex = 1
Attr connectmethod = 19
Attr connectmethod = 28
Attr executeordermethod = 0
Attr objname = "GetAT"
Attr graphname = "GetAT"
......
src/wbl/pwrb/src/pwrb_c_getatp.wb_load
View file @ 648d5e8e
!
! Proview $Id: pwrb_c_getatp.wb_load,v 1.1 2006-04-24 13:15:30 claes Exp $
! Proview $Id: pwrb_c_getatp.wb_load,v 1.2 2006-04-28 04:59:58 claes Exp $
! Copyright (C) 2005 SSAB Oxelsund AB.
!
! This program is free software; you can redistribute it and/or
......@@ -62,7 +62,7 @@ SObject pwrb:Class
! Used by the PLC Editor. Specifies the complete name of
! the actual attribute.
!*/
Object SpObject $Intern 1
Object ATpObject $Intern 1
Body SysBody
Attr PgmName = "ATpObject"
Attr TypeRef = "pwrs:Type-$AttrRef"
......
src/wbl/pwrb/src/pwrb_c_getdtgeneric.wb_load
View file @ 648d5e8e
!
! Proview $Id: pwrb_c_getdtgeneric.wb_load,v 1.1 2006-04-24 13:15:30 claes Exp $
! Proview $Id: pwrb_c_getdtgeneric.wb_load,v 1.2 2006-04-28 04:59:58 claes Exp $
! Copyright (C) 2005 SSAB Oxelsund AB.
!
! This program is free software; you can redistribute it and/or
......@@ -59,7 +59,7 @@ SObject pwrb:Class
Attr parameters[3] = 0
Attr subwindows = 0
Attr graphmethod = 4
Attr graphindex = 36
Attr graphindex = 43
Attr default_mask[0] = 0
Attr default_mask[1] = 1
Attr segname_annotation = 0
......@@ -67,7 +67,7 @@ SObject pwrb:Class
Attr compindex = 0
Attr tracemethod = 1
Attr traceindex = 1
Attr connectmethod = 19
Attr connectmethod = 28
Attr executeordermethod = 0
Attr objname = "GetDT"
Attr graphname = "GetDT"
......
src/wbl/pwrb/src/pwrb_c_getdtp.wb_load
View file @ 648d5e8e
!
! Proview $Id: pwrb_c_getdtp.wb_load,v 1.1 2006-04-24 13:15:30 claes Exp $
! Proview $Id: pwrb_c_getdtp.wb_load,v 1.2 2006-04-28 04:59:58 claes Exp $
! Copyright (C) 2005 SSAB Oxelsund AB.
!
! This program is free software; you can redistribute it and/or
......@@ -62,7 +62,7 @@ SObject pwrb:Class
! Used by the PLC Editor. Specifies the complete name of
! the actual attribute.
!*/
Object SpObject $Intern 1
Object DTpObject $Intern 1
Body SysBody
Attr PgmName = "DTpObject"
Attr TypeRef = "pwrs:Type-$AttrRef"
......
src/wbl/pwrb/src/pwrb_c_stoatgeneric.wb_load
View file @ 648d5e8e
!
! Proview $Id: pwrb_c_stoatgeneric.wb_load,v 1.1 2006-04-24 13:15:30 claes Exp $
! Proview $Id: pwrb_c_stoatgeneric.wb_load,v 1.2 2006-04-28 04:59:58 claes Exp $
! Copyright (C) 2005 SSAB Oxelsund AB.
!
! This program is free software; you can redistribute it and/or
......@@ -59,7 +59,7 @@ SObject pwrb:Class
Attr parameters[3] = 0
Attr subwindows = 0
Attr graphmethod = 4
Attr graphindex = 37
Attr graphindex = 42
Attr default_mask[0] = 1
Attr default_mask[1] = 0
Attr segname_annotation = 0
......@@ -67,7 +67,7 @@ SObject pwrb:Class
Attr compindex = 0
Attr tracemethod = 1
Attr traceindex = 1
Attr connectmethod = 20
Attr connectmethod = 29
Attr executeordermethod = 0
Attr objname = "StoAT"
Attr graphname = "StoAT"
......
src/wbl/pwrb/src/pwrb_c_stoatv.wb_load
View file @ 648d5e8e
!
! Proview $Id: pwrb_c_stoatv.wb_load,v 1.1 2006-04-24 13:15:30 claes Exp $
! Proview $Id: pwrb_c_stoatv.wb_load,v 1.2 2006-04-28 04:59:58 claes Exp $
! Copyright (C) 2005 SSAB Oxelsund AB.
!
! This program is free software; you can redistribute it and/or
......@@ -21,7 +21,7 @@
SObject pwrb:Class
!/**
! @Version 1.0
! @Code rt_plc_macro_io.h
! @Code rt_plc_macro_time.h
! @Group Plc,PlcTime
! @Summary Storage of absolute time value
! Storage of absolute time value.
......@@ -63,7 +63,7 @@ SObject pwrb:Class
! Specifies the name of the object where to store the
! value.
!*/
Object SvObject $Intern 1
Object ATvObject $Intern 1
Body SysBody
Attr PgmName = "ATvObject"
Attr TypeRef = "pwrs:Type-$AttrRef"
......
src/wbl/pwrb/src/pwrb_c_stodtgeneric.wb_load
View file @ 648d5e8e
!
! Proview $Id: pwrb_c_stodtgeneric.wb_load,v 1.1 2006-04-24 13:15:30 claes Exp $
! Proview $Id: pwrb_c_stodtgeneric.wb_load,v 1.2 2006-04-28 04:59:58 claes Exp $
! Copyright (C) 2005 SSAB Oxelsund AB.
!
! This program is free software; you can redistribute it and/or
......@@ -30,7 +30,7 @@ SObject pwrb:Class
! @image orm_stodtgeneric_fo.gif
!*/
!
Object StodTgeneric $ClassDef 456
Object StoDTgeneric $ClassDef 456
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_DevBodyOnly
......@@ -59,7 +59,7 @@ SObject pwrb:Class
Attr parameters[3] = 0
Attr subwindows = 0
Attr graphmethod = 4
Attr graphindex = 37
Attr graphindex = 44
Attr default_mask[0] = 1
Attr default_mask[1] = 0
Attr segname_annotation = 0
......@@ -67,7 +67,7 @@ SObject pwrb:Class
Attr compindex = 0
Attr tracemethod = 1
Attr traceindex = 1
Attr connectmethod = 20
Attr connectmethod = 29
Attr executeordermethod = 0
Attr objname = "StoDT"
Attr graphname = "StoDT"
......
src/wbl/pwrb/src/pwrb_c_stodtp.wb_load 0 → 100644
View file @ 648d5e8e
!
! Proview $Id: pwrb_c_stodtp.wb_load,v 1.1 2006-04-28 04:59:58 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_stodtp.wb_load -- Defines the class StoDTp.
!
SObject pwrb:Class
!/**
! @Version 1.0
! @Code rt_plc_macro_io.h
! @Group Plc,PlcTime
! @Summary Store delta time attribute
! Store delta time attribute. Used in run time to write in
! time parameters.
! @image orm_stodtp_fo.gif
!
! Stores an absolute time value in specified time
! attribute in a local object. The receiving
! attribute may not concern a pointer.
! The last name segment of the object and the name of the
! parameter will be shown in the right empty part of the
! StoDTp symbol.
!*/
Object StoDTp $ClassDef 460
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 = "StoDTp"
EndBody
!/**
! The input is connected to an string attribute or left
! open. In the latter case In is default a NULL string 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-$DeltaTime"
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-$AttrRef"
Attr GraphName = "sts"
Attr NiNaAnnot = 1
Attr NiNaSegments = 1
EndBody
EndObject
!/**
! Specifies how many segments of the actual object name
! that is to be displayed in the symbol of the StoSp
! 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 = 288
Attr parameters[0] = 1
Attr parameters[1] = 0
Attr parameters[2] = 0
Attr parameters[3] = 0
Attr subwindows = 0
Attr graphmethod = 7
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 = "StoDTp"
Attr graphname = "StoDTp"
Attr debugpar = ""
EndBody
EndObject
Object Template StoDTp
Body DevBody
Attr ObjectSegments = 2
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_stodtv.wb_load
View file @ 648d5e8e
!
! Proview $Id: pwrb_c_stodtv.wb_load,v 1.1 2006-04-24 13:15:30 claes Exp $
! Proview $Id: pwrb_c_stodtv.wb_load,v 1.2 2006-04-28 04:59:58 claes Exp $
! Copyright (C) 2005 SSAB Oxelsund AB.
!
! This program is free software; you can redistribute it and/or
......@@ -21,7 +21,7 @@
SObject pwrb:Class
!/**
! @Version 1.0
! @Code rt_plc_macro_io.h
! @Code rt_plc_macro_time.h
! @Group Plc,PlcTime
! @Summary Storage of delta time value
! Storage of delta time value.
......@@ -63,7 +63,7 @@ SObject pwrb:Class
! Specifies the name of the object where to store the
! value.
!*/
Object SvObject $Intern 1
Object DTvObject $Intern 1
Body SysBody
Attr PgmName = "DTvObject"
Attr TypeRef = "pwrs:Type-$AttrRef"
......
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