Commit 16ebc80d authored by claes's avatar claes

Moved from src

parent 9c6fe08d
include $(pwre_dir_symbols)
-include $(pwre_kroot)/tools/bld/src/$(os_name)/$(hw_name)/$(type_name)_generic.mk
ifeq ($($(type_name)_generic_mk),)
-include $(pwre_kroot)/tools/bld/src/$(os_name)/$(type_name)_generic.mk
endif
ifeq ($($(type_name)_generic_mk),)
include $(pwre_kroot)/tools/bld/src/$(type_name)_generic.mk
endif
This diff is collapsed.
/*
* Proview $Id: rs_tlog_diff.c,v 1.1 2006-01-10 14:38:36 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.
*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <clidef.h>
#include <climsgdef.h>
#include <processes.h>
#include <smgdef.h>
#include <trmdef.h>
#include <ssdef.h>
#include <descrip.h>
#include <lib$routines.h>
#include <smg$routines.h>
#include "pwr.h"
#include "pwr_class.h"
int cli$dcl_parse();
int cli$dispatch();
int *tlog_cld () ; /* module name in tlog_cld.cld file */
/*************************************************************************
*
* Name: info_msg()
* Type void
*
* Type Parameter IOGF Description
* unsigned long sts I error message to print.
*
* Description:
* If the message is a error, warning or info message it is printed.
*
**************************************************************************/
void sutil_msg( unsigned long sts)
{
static int msgsts;
static int msglen;
static char msg[256];
struct dsc$descriptor_s msgdesc = {sizeof(msg)-1,DSC$K_DTYPE_T,
DSC$K_CLASS_S,};
msgdesc.dsc$a_pointer = msg;
if ( ( EVEN(sts)) || ((sts & 1) && (sts & 2)) )
{
msgsts = sts;
lib$sys_getmsg(&msgsts, &msglen, &msgdesc, 0, 0);
msg[msglen]='\0';
printf("%s\n", msg);
}
}
main(int argc, char *argv[])
{
long sts ;
int i;
char str[256] ;
int key_id ;
unsigned short res_len ;
$DESCRIPTOR ( device_desc , "sys$input" );
$DESCRIPTOR ( outdevice_desc , "sys$output" );
$DESCRIPTOR ( prompt_desc , "tlog> " );
struct dsc$descriptor_s str_desc = {sizeof(str)-1,DSC$K_DTYPE_T,
DSC$K_CLASS_S,};
str_desc.dsc$a_pointer = str;
/* avanti */
/* If arguments, treat them as a command and then exit */
if ( argc >= 2 )
{
str[0] = 0;
for ( i = 1; i < argc; i++)
{
if ( i != 1)
strcat( str, " ");
strcat( str, argv[i]);
}
sts = cli$dcl_parse ( &str_desc , tlog_cld, 0, 0 , 0 ) ;
/* send the command to the rtn associated */
if ( sts == CLI$_NORMAL )
sts = cli$dispatch();
sutil_msg( sts);
exit(sts);
}
/* init input */
sts = smg$create_virtual_keyboard (
&key_id ,
&device_desc ,
0 ,0, 0 );
while ( 1 )
{
/* get and parse the command */
/* get input */
sts = smg$read_composed_line (
&key_id , 0, &str_desc , &prompt_desc , &res_len);
if ( res_len == 0)
continue;
if ( !(sts && 1 ) ) lib$signal (sts ) ;
str[res_len] = 0 ;
sts = cli$dcl_parse (
&str_desc , tlog_cld, 0, 0 , 0 ) ;
/* send the command to the rtn associated */
if ( sts == CLI$_NORMAL )
{
sts = cli$dispatch ( ) ;
sutil_msg( sts);
}
}
}
module tlog_cld
! to get help
define verb help , routine scli_help
! to stop the game
define verb exit , routine scli_exit
define verb quit , routine scli_quit
! tlog commands
define verb tlog,
parameter p1 , label =p1tlog , value ( required , type = p1tlogtype )
! associate syntax depending of the parameter value
define type p1tlogtype
keyword difference, syntax = p1tlogdifference_syntax
keyword save, syntax = p1tlogsave_syntax
define syntax p1tlogdifference_syntax
qualifier file, nonnegatable , value ( required )
qualifier output, nonnegatable , value ( required )
qualifier time, nonnegatable , value ( required )
qualifier since, nonnegatable , value
qualifier before, nonnegatable , value
qualifier parallell
qualifier attribute
qualifier text
qualifier ttext
qualifier noorder
qualifier exact
disallow attribute and not parallell
disallow text and not parallell
disallow text and attribute
disallow text and ttext
disallow ttext and attribute
disallow noorder and exact
routine scli_tlog_difference
define syntax p1tlogsave_syntax
qualifier file, nonnegatable , value ( required )
disallow not file
routine scli_tlog_save
/*
* Proview $Id: tlog_cli.c,v 1.1 2006-01-10 14:38:36 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.
*/
#include <stdio.h>
#include <stdlib.h>
#include <stddef.h>
#include <string.h>
#include <clidef.h>
#include <climsgdef.h>
#include <ssdef.h>
#include <descrip.h>
#include <lib$routines.h>
#include <processes.h>
#include <smgdef.h>
#include <trmdef.h>
#include "pwr.h"
#include "tlog_diff.h"
/* What should be included to declare this ????? */
int cli$get_value();
int cli$present();
static unsigned long userlist = 0;
int sutil_get_qualval ( qual , qual_val , sendlen )
char *qual ;
char *qual_val ;
int sendlen ;
/*
qual_val should be the address of the array of char and not a pointer to
char
*/
{
struct dsc$descriptor_s q1desc ;
struct dsc$descriptor_s q1strdesc ;
int i;
short len ;
long sts ;
/*
Notice that cli$get_value does not terminate the string with '\0' but
return his length instead.
*/
/* a descriptor is a complicated object ! */
q1desc.dsc$b_dtype = DSC$K_DTYPE_T ;
q1desc.dsc$b_class = DSC$K_CLASS_S ;
q1desc.dsc$a_pointer = qual ;
q1desc.dsc$w_length = strlen ( qual ) ;
q1strdesc.dsc$b_dtype = DSC$K_DTYPE_T ;
q1strdesc.dsc$b_class = DSC$K_CLASS_S ;
q1strdesc.dsc$a_pointer = qual_val ;
q1strdesc.dsc$w_length = sendlen ;
/* I have not found a way to oblige the user to enter a qualifier
so you have to check here if there is one */
sts= cli$present ( &q1desc ) ;
if ( sts != CLI$_PRESENT ) return 0 ;
else
{
sts= cli$get_value ( &q1desc , &q1strdesc , &len ) ;
if ( sts == CLI$_ABSENT ) return 0 ;
else if ( sts == CLI$_COMMA )
{
while ( sts == CLI$_COMMA )
{
*(q1strdesc.dsc$a_pointer+len) = ',' ;
q1strdesc.dsc$a_pointer += len +1 ;
q1strdesc.dsc$w_length -= len + 1 ;
sts= cli$get_value ( &q1desc , &q1strdesc , &len ) ;
}
if ( sts != SS$_NORMAL )
{
printf ("sutil_getqual_val : ERROR no end of list of qual values\n");
return 0 ;
}
}
*(q1strdesc.dsc$a_pointer+len) = '\0' ;
}
return 1 ;
}
int sutil_get_qual ( qual , condval_ptr )
char *qual ;
long *condval_ptr;
/*
check the presence of the qualifier which name is sended in the qual argument
in the last parsed command.
you should call this rtn to chack the presence of qualifier to which
there is no associated value.
the return status is true if
the qual is present (even by default ) and not negated in the last parsed command
(the condition value returned is not CLI$_ABSENT ).
false otherwise : in this case *condval_ptr contain the condition value :
CLI$_LOCPRES , CLI$_LOCNEG , CLI$_DEFAULTED
*/
{
struct dsc$descriptor_s q1desc ;
long sts ;
/* a descriptor is a complicated object ! */
q1desc.dsc$b_dtype = DSC$K_DTYPE_T ;
q1desc.dsc$b_class = DSC$K_CLASS_S ;
q1desc.dsc$a_pointer = qual ;
q1desc.dsc$w_length = strlen ( qual ) ;
/* I have not found a way to oblige the user to enter a qualifier
so you have to check here if there is one */
*condval_ptr = cli$present ( &q1desc ) ;
if ( *condval_ptr != CLI$_ABSENT && *condval_ptr != CLI$_NEGATED )
return 1 ;
return 0 ;
}
int scli_help ( )
{
char command[120];
strcpy ( command , "help/libra=ssab_lib:ds_ssabutl_hlp ssab_utils ssab_utl");
system ( command );
return 1;
}
int scli_quit ()
{
/* Quit */
exit( 1);
return 1;
}
int scli_exit ()
{
exit( 1);
return 1;
}
int scli_tlog_difference()
{
char filestr[80];
char outputstr[80];
char *outputstr_p;
char timestr[80];
char *timestr_p;
char sincestr[80];
char *sincestr_p;
char beforestr[80];
char *beforestr_p;
int parallell;
int attribute;
int text;
int ttext;
int noorder;
int exact;
int sts ;
int condval;
if ( !sutil_get_qualval ( "file" , filestr, 80))
strcpy( filestr, "*");
if ( sutil_get_qualval ( "output" , outputstr, 80))
outputstr_p = outputstr;
else
outputstr_p = NULL;
if ( sutil_get_qualval ( "time" , timestr, 80))
timestr_p = timestr;
else
timestr_p = NULL;
parallell = sutil_get_qual ( "parallell" , &sts );
attribute = sutil_get_qual ( "attribute" , &sts );
text = sutil_get_qual ( "text" , &sts );
ttext = sutil_get_qual ( "ttext" , &sts );
noorder = sutil_get_qual ( "noorder" , &sts );
exact = sutil_get_qual ( "exact" , &sts );
if ( sutil_get_qual ( "since" , &sts ))
{
if ( ! sutil_get_qualval ( "since" , sincestr, 80))
strcpy( sincestr, "");
sincestr_p = sincestr;
}
else
sincestr_p = NULL;
if ( sutil_get_qual ( "before" , &sts ))
{
if ( ! sutil_get_qualval ( "before" , beforestr, 80))
strcpy( beforestr, "");
beforestr_p = beforestr;
}
else
beforestr_p = NULL;
sts = tlog_diff( filestr, outputstr_p, timestr_p, parallell,
attribute, text, ttext, noorder, exact, sincestr_p, beforestr_p);
return sts;
}
int scli_tlog_save()
{
char filestr[80];
int sts ;
int condval;
sutil_get_qualval ( "file" , filestr, 80);
sts = tlog_save( filestr);
return sts;
}
This diff is collapsed.
/*
* Proview $Id: tlog_diff.h,v 1.1 2006-01-10 14:38:36 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.
*/
/************************************************************************
*
* Filename: rs_tlog_diff.h
* Date Pgm. Read. Remark
* Modified 950914 CS Initial creation
*
* Description:
* Include file for Test Logging difference function.
*
**************************************************************************/
pwr_tStatus tlog_diff( char *filename,
char *output,
char *timestr,
int parallell,
int attribute,
int text,
int ttext,
int noorder,
int exact,
char *since_str,
char *before_str);
int tlog_save( char *filename);
# makefile -- <short description>
#
# PROVIEW/R
# Copyright (C) 1996 by Comator Process AB.
#
# <Description>.
#
include $(pwre_dir_symbols)
ifndef variables_mk
-include $(pwre_kroot)/tools/bld/src/$(os_name)/$(hw_name)/variables.mk
endif
ifndef variables_mk
include $(pwre_kroot)/tools/bld/src/$(os_name)/variables.mk
endif
ifndef rules_mk
-include $(pwre_kroot)/tools/bld/src/$(os_name)/$(hw_name)/rules.mk
endif
ifndef rules_mk
include $(pwre_kroot)/tools/bld/src/$(os_name)/rules.mk
endif
.PHONY : all init copy lib exe clean realclean\
$(clean_wbl)
all : init copy exe
init :
copy : $(inc_dir)/pwr_tlogclasses.h \
$(inc_dir)/pwr_tlogclasses.hpp
lib : $(load_dir)/tlog.dbs
exe : $(doc_dir)/en_us/orm/tlog_allclasses.html \
$(exe_dir)/tlog_xtthelp.dat
clean :
realclean : clean $(clean_wbl)
$(load_dir)/tlog.dbs :
@ echo "Generating loadfile for tlog"
@ export pwr_load=$(pwr_eload); \
wb_cmd -q -i create snapshot /file=\"$(pwre_sroot)/wbl/tlog/src/\"/out=\"$(target)\"
@ chmod a+w $(target)
$(inc_dir)/pwr_tlogclasses.h :
@ echo "Generating struct files for tlog classes..."
@ co_convert -s -d $(inc_dir) "$(pwre_sroot)/wbl/tlog/src/tlog_c_*.wb_load"
$(inc_dir)/pwr_tlogclasses.hpp :
@ echo "Generating hpp files for tlog classes..."
@ co_convert -po -d $(inc_dir) "$(pwre_sroot)/wbl/tlog/src/tlog_c_*.wb_load"
$(doc_dir)/en_us/orm/tlog_allclasses.html :
@ echo "Generating html files for tlog classes en_us..."
@ co_convert -w -d $(doc_dir)/en_us/orm "$(pwre_sroot)/wbl/tlog/src/tlog_c_*.wb_load"
@ echo "Generating html files for tlog structs en_us..."
@ co_convert -c -d $(doc_dir)/en_us/orm $(inc_dir)/pwr_tlogclasses.h
@ echo "Generating html files for tlog code en_us..."
@ co_convert -c -d $(doc_dir)/en_us/orm "$(pwre_sroot)/lib/rs/src/rs_plc_macro_tlog.h"
@ co_convert -c -d $(doc_dir)/en_us/orm "$(pwre_sroot)/lib/rs/src/rs_plc_tlog*.c"
@ echo "Generating html files for tlog classes sv_se..."
@ co_convert -w -l sv_se -d $(doc_dir)/sv_se/orm "$(pwre_sroot)/wbl/tlog/src/tlog_c_*.wb_load"
@ echo "Generating html files for tlog structs sv_se..."
@ co_convert -c -d $(doc_dir)/sv_se/orm $(inc_dir)/pwr_tlogclasses.h
@ echo "Generating html files for tlog code sv_se..."
@ co_convert -c -d $(doc_dir)/sv_se/orm "$(pwre_sroot)/lib/rs/src/rs_plc_macro_tlog.h"
@ co_convert -c -d $(doc_dir)/sv_se/orm "$(pwre_sroot)/lib/rs/src/rs_plc_tlog*.c"
@ echo "Generating postscript file for tlog classes..."
@ co_convert -q -d $(doc_dir)/en_us "$(pwre_sroot)/wbl/tlog/src/tlog_*.wb_load"
$(exe_dir)/tlog_xtthelp.dat :
@ echo "Generating xtt help files for tlog classes"
@ co_convert -x -d $(exe_dir) "$(pwre_sroot)/wbl/tlog/src/tlog_c_*.wb_load"
clean_wbl :
@ if [ -e $(load_dir)/tlog.dbs ]; then \
$(rm) $(rmflags) $(load_dir)/tlog.dbs; \
fi
!
! Proview $Id: tlog_c_atlog.wb_load,v 1.1 2006-01-10 14:38:36 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.
!
! tlog_c_AtLog.wb_load -- Defines the class AtLog.
!
SObject TLog:Class
Object AtLog $ClassDef 1
Body SysBody
Attr Editor = pwr_eEditor_PlcEd
Attr Method = pwr_eMethod_RtConnectionsAndDevBodies
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "AtLog"
EndBody
Object In $Input 1
Body SysBody
Attr Flags |= PWR_MASK_INVISIBLE
Attr Flags |= PWR_MASK_STATE
Attr TypeRef = "pwrs:Type-$Float32"
EndBody
EndObject
Object InOld $Intern 2
Body SysBody
Attr Flags |= PWR_MASK_INVISIBLE
Attr Flags |= PWR_MASK_STATE
Attr TypeRef = "pwrs:Type-$Float32"
EndBody
EndObject
Object Limit $Intern 3
Body SysBody
Attr TypeRef = "pwrs:Type-$Float32"
EndBody
EndObject
Object UpSignal $Intern 4
Body SysBody
Attr Flags |= PWR_MASK_INVISIBLE
Attr Flags |= PWR_MASK_STATE
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object DownSignal $Intern 5
Body SysBody
Attr Flags |= PWR_MASK_INVISIBLE
Attr Flags |= PWR_MASK_STATE
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object UpTime $Intern 6
Body SysBody
Attr Flags |= PWR_MASK_INVISIBLE
Attr Flags |= PWR_MASK_STATE
Attr TypeRef = "pwrs:Type-$Time"
EndBody
EndObject
Object DownTime $Intern 7
Body SysBody
Attr Flags |= PWR_MASK_INVISIBLE
Attr Flags |= PWR_MASK_STATE
Attr TypeRef = "pwrs:Type-$Time"
EndBody
EndObject
Object UpText $Intern 8
Body SysBody
Attr TypeRef = "pwrs:Type-$String40"
Attr NiNaAnnot = 2
Attr NiNaCond = 1
EndBody
EndObject
Object DownText $Intern 9
Body SysBody
Attr TypeRef = "pwrs:Type-$String40"
EndBody
EndObject
Object Attribute $Intern 10
Body SysBody
Attr TypeRef = "pwrs:Type-$AttrRef"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
Object ShowUpText $Intern 1
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
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 = 111
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 = 1
Attr rtbody_annotation = 1
Attr compmethod = 47
Attr compindex = 0
Attr tracemethod = 0
Attr traceindex = 0
Attr objname = "AtLog"
Attr graphname = "AtLog"
Attr debugpar = ""
EndBody
EndObject
!
! Template object
!
Object Template AtLog
Body DevBody
Attr ShowUpText = 0
EndBody
EndObject
EndObject
EndSObject
!
! Proview $Id: tlog_c_catlog.wb_load,v 1.1 2006-01-10 14:38:36 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.
!
! tlog_c_CAtLog.wb_load -- Defines the class CAtLog.
!
SObject TLog:Class
Object CAtLog $ClassDef 3
Body SysBody
Attr Editor = pwr_eEditor_PlcEd
Attr Method = pwr_eMethod_RtConnectionsAndDevBodies
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "CAtLog"
EndBody
Object In $Input 1
Body SysBody
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_INVISIBLE
Attr Flags |= PWR_MASK_STATE
Attr TypeRef = "pwrs:Type-$Float32"
EndBody
EndObject
Object Cond $Input 2
Body SysBody
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_INVISIBLE
Attr Flags |= PWR_MASK_STATE
Attr TypeRef = "pwrs:Type-$Boolean"
Attr GraphName = "con"
EndBody
EndObject
Object CondOld $Intern 3
Body SysBody
Attr Flags |= PWR_MASK_INVISIBLE
Attr Flags |= PWR_MASK_STATE
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object LogSignal $Intern 4
Body SysBody
Attr Flags |= PWR_MASK_INVISIBLE
Attr Flags |= PWR_MASK_STATE
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object LogTime $Intern 5
Body SysBody
Attr Flags |= PWR_MASK_INVISIBLE
Attr Flags |= PWR_MASK_STATE
Attr TypeRef = "pwrs:Type-$Time"
EndBody
EndObject
Object LogText $Intern 6
Body SysBody
Attr TypeRef = "pwrs:Type-$String40"
Attr NiNaAnnot = 2
Attr NiNaCond = 1
EndBody
EndObject
Object Attribute $Intern 7
Body SysBody
Attr TypeRef = "pwrs:Type-$AttrRef"
EndBody
EndObject
Object LogValue $Intern 8
Body SysBody
Attr Flags |= PWR_MASK_INVISIBLE
Attr Flags |= PWR_MASK_STATE
Attr TypeRef = "pwrs:Type-$Float32"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
Object ShowLogText $Intern 1
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
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 = 107
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 = 1
Attr rtbody_annotation = 1
Attr compmethod = 47
Attr compindex = 0
Attr tracemethod = 0
Attr traceindex = 0
Attr objname = "CAtLog"
Attr graphname = "CAtLog"
Attr debugpar = ""
EndBody
EndObject
!
! Template object
!
Object Template CAtLog
Body DevBody
Attr ShowLogText = 0
EndBody
EndObject
EndObject
EndSObject
!
! Proview $Id: tlog_c_cdtlog.wb_load,v 1.1 2006-01-10 14:38:36 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.
!
! tlog_c_CDtLog.wb_load -- Defines the class CDtLog.
!
SObject TLog:Class
Object CDtLog $ClassDef 5
Body SysBody
Attr Editor = pwr_eEditor_PlcEd
Attr Method = pwr_eMethod_RtConnectionsAndDevBodies
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "CDtLog"
EndBody
Object In $Input 1
Body SysBody
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_INVISIBLE
Attr Flags |= PWR_MASK_STATE
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object Cond $Input 2
Body SysBody
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_INVISIBLE
Attr Flags |= PWR_MASK_STATE
Attr TypeRef = "pwrs:Type-$Boolean"
Attr GraphName = "con"
EndBody
EndObject
Object CondOld $Intern 3
Body SysBody
Attr Flags |= PWR_MASK_INVISIBLE
Attr Flags |= PWR_MASK_STATE
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object LogSignal $Intern 4
Body SysBody
Attr Flags |= PWR_MASK_INVISIBLE
Attr Flags |= PWR_MASK_STATE
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object LogTime $Intern 5
Body SysBody
Attr Flags |= PWR_MASK_INVISIBLE
Attr Flags |= PWR_MASK_STATE
Attr TypeRef = "pwrs:Type-$Time"
EndBody
EndObject
Object LogText $Intern 6
Body SysBody
Attr TypeRef = "pwrs:Type-$String40"
Attr NiNaAnnot = 2
Attr NiNaCond = 1
EndBody
EndObject
Object Attribute $Intern 7
Body SysBody
Attr TypeRef = "pwrs:Type-$AttrRef"
EndBody
EndObject
Object LogValue $Intern 8
Body SysBody
Attr Flags |= PWR_MASK_INVISIBLE
Attr Flags |= PWR_MASK_STATE
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
Object ShowLogText $Intern 1
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
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 = 108
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 = 1
Attr rtbody_annotation = 1
Attr compmethod = 47
Attr compindex = 0
Attr tracemethod = 0
Attr traceindex = 0
Attr objname = "CDtLog"
Attr graphname = "CDtLog"
Attr debugpar = ""
EndBody
EndObject
!
! Template object
!
Object Template CDtLog
Body DevBody
Attr ShowLogText = 1
EndBody
EndObject
EndObject
EndSObject
!
! Proview $Id: tlog_c_chgatlog.wb_load,v 1.1 2006-01-10 14:38:36 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.
!
! tlog_c_ChgAtLog.wb_load -- Defines the class ChgAtLog.
!
SObject TLog:Class
Object ChgAtLog $ClassDef 7
Body SysBody
Attr Editor = pwr_eEditor_PlcEd
Attr Method = pwr_eMethod_RtConnectionsAndDevBodies
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "ChgAtLog"
EndBody
Object In $Input 1
Body SysBody
Attr Flags |= PWR_MASK_INVISIBLE
Attr Flags |= PWR_MASK_STATE
Attr TypeRef = "pwrs:Type-$Float32"
EndBody
EndObject
Object InOld $Intern 2
Body SysBody
Attr Flags |= PWR_MASK_INVISIBLE
Attr Flags |= PWR_MASK_STATE
Attr TypeRef = "pwrs:Type-$Float32"
EndBody
EndObject
Object LogSignal $Intern 3
Body SysBody
Attr Flags |= PWR_MASK_INVISIBLE
Attr Flags |= PWR_MASK_STATE
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object LogTime $Intern 4
Body SysBody
Attr Flags |= PWR_MASK_INVISIBLE
Attr Flags |= PWR_MASK_STATE
Attr TypeRef = "pwrs:Type-$Time"
EndBody
EndObject
Object LogText $Intern 5
Body SysBody
Attr TypeRef = "pwrs:Type-$String40"
Attr NiNaAnnot = 2
Attr NiNaCond = 1
EndBody
EndObject
Object LogValue $Intern 6
Body SysBody
Attr TypeRef = "pwrs:Type-$Float32"
EndBody
EndObject
Object Attribute $Intern 7
Body SysBody
Attr TypeRef = "pwrs:Type-$AttrRef"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
Object ShowLogText $Intern 1
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
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 = 1
Attr rtbody_annotation = 1
Attr compmethod = 47
Attr compindex = 0
Attr tracemethod = 0
Attr traceindex = 0
Attr objname = "ChgAtLog"
Attr graphname = "ChgAtLog"
Attr debugpar = ""
EndBody
EndObject
!
! Template object
!
Object Template ChgAtLog
Body DevBody
Attr ShowLogText = 0
EndBody
EndObject
EndObject
EndSObject
!
! Proview $Id: tlog_c_chgotlog.wb_load,v 1.1 2006-01-10 14:38:36 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.
!
! tlog_c_ChgOtLog.wb_load -- Defines the class ChgOtLog.
!
SObject TLog:Class
Object ChgOtLog $ClassDef 9
Body SysBody
Attr Editor = pwr_eEditor_PlcEd
Attr Method = pwr_eMethod_RtConnectionsAndDevBodies
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "ChgOtLog"
EndBody
Object In $Input 1
Body SysBody
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_INVISIBLE
Attr Flags |= PWR_MASK_STATE
Attr TypeRef = "pwrs:Type-$Objid"
EndBody
EndObject
Object InOld $Intern 2
Body SysBody
Attr Flags |= PWR_MASK_INVISIBLE
Attr Flags |= PWR_MASK_STATE
Attr TypeRef = "pwrs:Type-$Objid"
EndBody
EndObject
Object LogSignal $Intern 3
Body SysBody
Attr Flags |= PWR_MASK_INVISIBLE
Attr Flags |= PWR_MASK_STATE
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object LogTime $Intern 4
Body SysBody
Attr Flags |= PWR_MASK_INVISIBLE
Attr Flags |= PWR_MASK_STATE
Attr TypeRef = "pwrs:Type-$Time"
EndBody
EndObject
Object LogText $Intern 5
Body SysBody
Attr TypeRef = "pwrs:Type-$String40"
Attr NiNaAnnot = 2
Attr NiNaCond = 1
EndBody
EndObject
Object Attribute $Intern 6
Body SysBody
Attr TypeRef = "pwrs:Type-$AttrRef"
EndBody
EndObject
Object LogValue $Intern 7
Body SysBody
Attr Flags |= PWR_MASK_INVISIBLE
Attr Flags |= PWR_MASK_STATE
Attr TypeRef = "pwrs:Type-$Objid"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
Object ShowLogText $Intern 1
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
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 = 1
Attr rtbody_annotation = 1
Attr compmethod = 47
Attr compindex = 0
Attr tracemethod = 0
Attr traceindex = 0
Attr objname = "ChgOtLog"
Attr graphname = "ChgOtLog"
Attr debugpar = ""
EndBody
EndObject
!
! Template object
!
Object Template ChgOtLog
Body DevBody
Attr ShowLogText = 0
EndBody
EndObject
EndObject
EndSObject
!
! Proview $Id: tlog_c_cotlog.wb_load,v 1.1 2006-01-10 14:38:36 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.
!
! tlog_c_COtLog.wb_load -- Defines the class COtLog.
!
SObject TLog:Class
Object COtLog $ClassDef 11
Body SysBody
Attr Editor = pwr_eEditor_PlcEd
Attr Method = pwr_eMethod_RtConnectionsAndDevBodies
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "COtLog"
EndBody
Object In $Input 1
Body SysBody
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_INVISIBLE
Attr Flags |= PWR_MASK_STATE
Attr TypeRef = "pwrs:Type-$Objid"
EndBody
EndObject
Object Cond $Input 2
Body SysBody
Attr Flags |= PWR_MASK_RTVIRTUAL
Attr Flags |= PWR_MASK_INVISIBLE
Attr Flags |= PWR_MASK_STATE
Attr TypeRef = "pwrs:Type-$Boolean"
Attr GraphName = "con"
EndBody
EndObject
Object CondOld $Intern 3
Body SysBody
Attr Flags |= PWR_MASK_INVISIBLE
Attr Flags |= PWR_MASK_STATE
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object LogSignal $Intern 4
Body SysBody
Attr Flags |= PWR_MASK_INVISIBLE
Attr Flags |= PWR_MASK_STATE
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object LogTime $Intern 5
Body SysBody
Attr Flags |= PWR_MASK_INVISIBLE
Attr Flags |= PWR_MASK_STATE
Attr TypeRef = "pwrs:Type-$Time"
EndBody
EndObject
Object LogText $Intern 6
Body SysBody
Attr TypeRef = "pwrs:Type-$String40"
Attr NiNaAnnot = 2
Attr NiNaCond = 1
EndBody
EndObject
Object Attribute $Intern 7
Body SysBody
Attr TypeRef = "pwrs:Type-$AttrRef"
EndBody
EndObject
Object LogValue $Intern 8
Body SysBody
Attr Flags |= PWR_MASK_INVISIBLE
Attr Flags |= PWR_MASK_STATE
Attr TypeRef = "pwrs:Type-$Objid"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
Object ShowLogText $Intern 1
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
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 = 106
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 = 1
Attr rtbody_annotation = 1
Attr compmethod = 47
Attr compindex = 0
Attr tracemethod = 0
Attr traceindex = 0
Attr objname = "COtLog"
Attr graphname = "COtLog"
Attr debugpar = ""
EndBody
EndObject
!
! Template object
!
Object Template COtLog
Body DevBody
Attr ShowLogText = 0
EndBody
EndObject
EndObject
EndSObject
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
!
! Proview $Id: tlog_c_tlogconfigure.wb_load,v 1.1 2006-01-10 14:38:36 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.
!
! tlog_c_TLogConfigure.wb_load -- Defines the class TLogConfigure.
!
SObject TLog:Class
Object TLogConfigure $ClassDef 19
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_Standard
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "TLogConfigure"
EndBody
Object TLogDirectory $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$String40"
EndBody
EndObject
Object UserObject $Attribute 2
Body SysBody
Attr TypeRef = "pwrs:Type-$Objid"
EndBody
EndObject
Object On $Attribute 3
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object CycleTime $Attribute 4
Body SysBody
Attr TypeRef = "pwrs:Type-$Float32"
EndBody
EndObject
Object AutoAck $Attribute 5
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
EndObject
!
! Template object
!
Object Template TLogConfigure
Body RtBody
Attr TLogDirectory = "pwrp_tlog:"
Attr On = 1
Attr AutoAck = 1
EndBody
EndObject
EndObject
EndSObject
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
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