Skip to content

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

Work on flow files and crossref files

parent 7d9dd6c8
Expand all Hide whitespace changes
Inline Side-by-side
Showing with 503 additions and 63 deletions
wb/lib/wb/src/wb_crrgen.cpp
View file @ 9b328658
This diff is collapsed.
wb/lib/wb/src/wb_foe.cpp
View file @ 9b328658
/*
* Proview $Id: wb_foe.cpp,v 1.8 2008-04-07 14:53:06 claes Exp $
* Proview $Id: wb_foe.cpp,v 1.9 2008-05-29 14:57:53 claes Exp $
* Copyright (C) 2005 SSAB Oxelsund AB.
*
* This program is free software; you can redistribute it and/or
......@@ -3711,6 +3711,48 @@ int WFoe::redraw_and_save()
}
//
// Create flowfiles.
//
int WFoe::create_flow()
{
int sts;
if ( !classeditor) {
sts = gre->set_trace_attributes( 0);
sts = gre->save( 0);
}
else {
vldh_t_wind wind;
int size;
pwr_tOName name;
vldh_t_plc plc;
pwr_tFileName fname;
char classname[80];
pwr_tObjid classdef;
wind = gre->wind;
plc = wind->hw.plc;
sts = ldh_ObjidToName( wind->hw.ldhses, plc->lp.oid,
ldh_eName_Hierarchy, name, sizeof( name), &size);
if ( EVEN(sts)) return sts;
sts = ldh_GetParent( wind->hw.ldhses, plc->lp.oid, &classdef);
if ( EVEN(sts)) return sts;
sts = ldh_ObjidToName( wind->hw.ldhses, classdef,
ldh_eName_Object, classname, sizeof( classname), &size);
if ( EVEN(sts)) return sts;
cdh_ToLower( classname, classname);
sprintf( fname, "$pwrp_load/pwr_%s.flw", classname);
sts = gre->set_trace_attributes( name);
sts = gre->save( fname);
}
return sts;
}
/* API routines */
#if 0
......
wb/lib/wb/src/wb_foe.h
View file @ 9b328658
/*
* Proview $Id: wb_foe.h,v 1.15 2007-10-15 12:15:04 claes Exp $
* Proview $Id: wb_foe.h,v 1.16 2008-05-29 14:57:53 claes Exp $
* Copyright (C) 2005 SSAB Oxelsund AB.
*
* This program is free software; you can redistribute it and/or
......@@ -255,6 +255,7 @@ class WFoe : public WUtility {
int print_pdf_overview();
int change_mode( int new_mode);
int redraw_and_save();
int create_flow();
static WFoe *get( pwr_tOid oid);
static void reset_current_node( WFoe *foe);
......
wb/lib/wb/src/wb_gre.cpp
View file @ 9b328658
/*
* Proview $Id: wb_gre.cpp,v 1.9 2008-05-28 11:54:59 claes Exp $
* Proview $Id: wb_gre.cpp,v 1.10 2008-05-29 14:57:53 claes Exp $
* Copyright (C) 2005 SSAB Oxelsund AB.
*
* This program is free software; you can redistribute it and/or
......@@ -2988,6 +2988,24 @@ int WGre::set_trace_attributes( char *host)
case pwr_cClass_cstoap:
case pwr_cClass_StoIp:
case pwr_cClass_CStoIp:
case pwr_cClass_stosv:
case pwr_cClass_cstosv:
case pwr_cClass_GetSv:
case pwr_cClass_GetSp:
case pwr_cClass_stosp:
case pwr_cClass_cstosp:
case pwr_cClass_GetATv:
case pwr_cClass_StoATv:
case pwr_cClass_CStoATv:
case pwr_cClass_GetATp:
case pwr_cClass_StoATp:
case pwr_cClass_CStoATp:
case pwr_cClass_GetDTv:
case pwr_cClass_StoDTv:
case pwr_cClass_CStoDTv:
case pwr_cClass_GetDTp:
case pwr_cClass_StoDTp:
case pwr_cClass_CStoDTp:
sts = ldh_GetObjectBodyDef( wind->hw.ldhses,
(*node_ptr)->ln.cid, "DevBody", 1,
&bodydef, &rows);
......@@ -3027,6 +3045,15 @@ int WGre::set_trace_attributes( char *host)
case pwr_cClass_cstoap:
case pwr_cClass_StoIp:
case pwr_cClass_CStoIp:
case pwr_cClass_GetSp:
case pwr_cClass_stosp:
case pwr_cClass_cstosp:
case pwr_cClass_GetATp:
case pwr_cClass_StoATp:
case pwr_cClass_CStoATp:
case pwr_cClass_GetDTp:
case pwr_cClass_StoDTp:
case pwr_cClass_CStoDTp:
s = strrchr( object_str, '.');
if ( s) {
strcpy( attr_str, s + 1);
......@@ -3098,11 +3125,10 @@ int WGre::save( char *filename)
}
else
dcli_translate_filename( fname, filename);
sts = flow_Save( flow_ctx, fname);
sts = flow_Save( flow_ctx, fname);
return sts;
}
//
// Set gridsize
//
......
wb/lib/wb/src/wb_utl.cpp
View file @ 9b328658
/*
* Proview $Id: wb_utl.cpp,v 1.10 2008-05-28 11:53:08 claes Exp $
* Proview $Id: wb_utl.cpp,v 1.11 2008-05-29 14:57:53 claes Exp $
* Copyright (C) 2005 SSAB Oxelsund AB.
*
* This program is free software; you can redistribute it and/or
......@@ -1022,6 +1022,7 @@ int wb_utl::print_document (
#if 0
/*************************************************************************
*
......@@ -1342,7 +1343,316 @@ int wb_utl::redraw_windows (
return FOE__SUCCESS;
}
#endif
/*************************************************************************
*
* Description: Find all plcpgm and open all windows and call the callback
* function.
*
**************************************************************************/
int wb_utl::exec_plcpgms( ldh_tSesContext ldhses,
ldh_tWBContext ldhwb,
char *hiername,
char *fromname,
int all,
int templ,
int no_focode,
int (*cb) (void *, void *))
{
int sts, sts2, size;
pwr_tClassId *classp;
pwr_tObjid hierobjdid;
pwr_tClassId class_vect[2];
utl_t_objidlist *list_ptr;
utl_t_objidlist *plcpgmlist;
int plcpgmcount;
pwr_tOName plcname;
pwr_tObjid fromobjdid;
int from;
int from_found;
ldh_sSessInfo info;
char plc_objid_str[80];
pwr_tCid cid;
/* Get class */
if ( !templ)
class_vect[0] = pwr_cClass_plc;
else
class_vect[0] = pwr_cClass_PlcTemplate;
class_vect[1] = 0;
classp = class_vect;
if ( !all) {
/* Get objdid for the hierarchy object */
sts = ldh_NameToObjid( ldhses, &hierobjdid, hiername);
if ( EVEN(sts))
return FOE__HIERNAME;
}
else
hierobjdid = pwr_cNObjid;
if ( fromname != NULL) {
sts = ldh_NameToObjid( ldhses, &fromobjdid, fromname);
if ( EVEN(sts)) {
return FOE__OBJECT;
}
from = 1;
}
else
from = 0;
/* Check that the utilily session is saved */
sts = ldh_GetSessionInfo( ldhses, &info);
if ( EVEN(sts)) return sts;
if ( !info.Empty)
return GSX__NOTSAVED;
/* To be able to redraw the windows, the session has to
be set to ReadOnly */
sts = ldh_SetSession( ldhses, ldh_eAccess_ReadOnly);
if ( EVEN(sts)) return sts;
plcpgmcount = 0;
plcpgmlist = 0;
if ( cdh_ObjidIsNotNull( hierobjdid)) {
sts = ldh_GetObjectClass( ldhses, hierobjdid, &cid);
if ( EVEN(sts)) return sts;
}
else
cid = 0;
if ( cid == pwr_cClass_plc || cid == pwr_cClass_PlcTemplate) {
pwr_tAttrRef aref = cdh_ObjidToAref( hierobjdid);
utl_objidlist_insert( &aref, &plcpgmlist, &plcpgmcount, 0, 0, 0);
}
else {
sts = trv_get_objects_hier_class_name( ldhses, hierobjdid, classp, NULL,
&utl_objidlist_insert, &plcpgmlist, &plcpgmcount,
0, 0, 0);
if ( EVEN (sts)) goto error_return;
}
list_ptr = plcpgmlist;
from_found = 0;
while ( list_ptr) {
if ( from) {
if ( !from_found ) {
if ( cdh_ObjidIsEqual( list_ptr->objid, fromobjdid)) {
/* Start to redraw from now on */
from_found = 1;
}
else {
list_ptr = list_ptr->next;
continue;
}
}
}
sts = ldh_ObjidToName( ldhses, list_ptr->objid, ldh_eName_Hierarchy,
plcname, sizeof( plcname), &size);
if ( EVEN (sts)) goto error_return;
sts = ldh_ObjidToName( ldhses, list_ptr->objid, ldh_eName_Objid,
plc_objid_str, sizeof( plc_objid_str), &size);
if ( EVEN (sts)) goto error_return;
printf( "Plcpgm %s %s\n",
plcname, plc_objid_str);
sts = exec_plcpgm_windows( list_ptr->objid,
ldhses, ldhwb, no_focode, cb);
if ( EVEN (sts)) goto error_return;
list_ptr = list_ptr->next;
}
utl_objidlist_free( plcpgmlist);
/* Return to session access ReadWrite */
sts2 = ldh_SetSession( ldhses, ldh_eAccess_ReadWrite);
if ( EVEN(sts2)) return sts2;
return FOE__SUCCESS;
error_return:
sts2 = ldh_SetSession( ldhses, ldh_eAccess_ReadWrite);
if ( EVEN(sts2)) return sts2;
return sts;
}
/*************************************************************************
*
* Description: Find all windows in a plcpgm and call the backcall function.
*
**************************************************************************/
int wb_utl::exec_plcpgm_windows( pwr_tObjid Objdid,
ldh_tSesContext ldhses,
ldh_tWBContext ldhwb,
int no_focode,
int (*cb) (void *, void *))
{
int sts, size;
int j;
pwr_eClass eclass;
unsigned long wind_count;
pwr_tObjid *windlist;
pwr_tObjid *windlist_ptr;
pwr_tObjid plc;
pwr_tObjid window;
pwr_sPlcWindow *windbuffer;
WFoe *foe;
pwr_tObjid nodeobjdid;
pwr_tObjid parwindobjdid;
vldh_t_wind parentwind;
vldh_t_node node;
int new_window;
unsigned long windowindex;
/* Get objdid for the plcpgm */
plc = Objdid;
/* Get the windows */
sts = trv_get_plc_window( ldhses, plc, &window);
if ( sts == GSX__NOSUBWINDOW) {
/* No subwindows on this window, return */
return FOE__SUCCESS;
}
else if ( EVEN(sts)) return sts;
sts = trv_get_window_windows( ldhses, window, &wind_count, &windlist);
if ( EVEN(sts)) return sts;
/* We don't want to see foe on the screen */
/* Start foe for the root window */
sts = utl_foe_new( "AutoPrint", plc, ldhwb, ldhses,
&foe, 0, ldh_eAccess_SharedReadWrite);
if ( EVEN(sts)) return sts;
// Call callback function
sts = (cb) ( this, foe);
if ( EVEN(sts)) return sts;
windlist_ptr = windlist;
windlist_ptr++;
for ( j = 1; j < (int)wind_count; j++) {
/* Get parent in ldh and find him in vldh */
sts = ldh_GetParent( ldhses, *windlist_ptr, &nodeobjdid);
if ( EVEN(sts)) return sts;
/* Get the window of the parent */
sts = ldh_GetParent( ldhses, nodeobjdid, &parwindobjdid);
if ( EVEN(sts)) return sts;
if ( no_focode) {
// Don't execute FoCode objects
pwr_tCid cid;
pwr_tOid p = nodeobjdid;
bool next = false;
sts = ldh_GetObjectClass( ldhses, p, &cid);
while ( cid != pwr_cClass_plc) {
if ( is_focodeobject( ldhses, cid)) {
next = true;
break;
}
sts = ldh_GetParent( ldhses, p, &p);
if ( EVEN(sts)) break;
sts = ldh_GetObjectClass( ldhses, p, &cid);
if ( EVEN(sts)) break;
}
if ( next) {
windlist_ptr++;
continue;
}
}
sts = vldh_get_wind_objdid( parwindobjdid, &parentwind);
if ( EVEN(sts)) return sts;
sts = vldh_get_node_objdid( nodeobjdid, parentwind, &node);
if ( EVEN(sts)) return sts;
/* Get the window index for this window */
sts = ldh_GetObjectBuffer( ldhses,
*windlist_ptr, "DevBody", "PlcWindow", &eclass,
(char **)&windbuffer, &size);
if( EVEN(sts)) return sts;
windowindex = windbuffer->subwindowindex;
free((char *) windbuffer);
new_window = FALSE;
foe = (WFoe *)parentwind->hw.foe;
/* Create subwindow */
sts = utl_foe_new_local( foe,
node->hn.name, pwr_cNObjid, 0, parentwind->hw.ldhses,
node, windowindex, new_window, &foe, 0,
ldh_eAccess_SharedReadWrite, foe_eFuncAccess_Edit);
/* Redraw the window */
sts = (cb) ( this, foe);
if ( EVEN(sts)) return sts;
windlist_ptr++;
}
/* Delete all foe */
for ( j = 0; j < (int)wind_count; j++) {
windlist_ptr--;
sts = vldh_get_wind_objdid( *windlist_ptr, &parentwind);
if ( EVEN(sts)) continue;
((WFoe *)parentwind->hw.foe)->quit();
}
if ( wind_count > 0) free((char *) windlist);
if ( wind_count == 0)
return FOE__NOWIND;
return FOE__SUCCESS;
}
int wb_utl::create_flow_plc( ldh_tSesContext ldhses,
ldh_tWBContext ldhwb,
char *hiername,
char *fromname,
int all,
int templ)
{
return exec_plcpgms( ldhses, ldhwb, hiername,fromname, all, templ, 1,
create_flow_cb);
}
int wb_utl::create_flow_cb( void *utl, void *foe)
{
return ((WFoe *)foe)->create_flow();
}
int wb_utl::redraw_plc_hier( ldh_tSesContext ldhses,
ldh_tWBContext ldhwb,
char *hiername,
char *fromname,
int all,
int templ)
{
return exec_plcpgms( ldhses, ldhwb, hiername,fromname, all, templ, 1,
plc_redraw_cb);
}
int wb_utl::plc_redraw_cb( void *utl, void *foe)
{
return ((WFoe *)foe)->redraw_and_save();
}
/*_Methods defined for this module_______________________________________*/
......
wb/lib/wb/src/wb_utl.h
View file @ 9b328658
/*
* Proview $Id: wb_utl.h,v 1.12 2008-05-28 11:53:08 claes Exp $
* Proview $Id: wb_utl.h,v 1.13 2008-05-29 14:57:53 claes Exp $
* Copyright (C) 2005 SSAB Oxelsund AB.
*
* This program is free software; you can redistribute it and/or
......@@ -50,16 +50,35 @@ class wb_utl {
int print_plc_hier( ldh_tSesContext ldhses, ldh_tWBContext ldhwb,
char *hiername, char *fromname, int document,
int overview, int all, int pdf);
int redraw_plc( ldh_tSesContext ldhses, ldh_tWBContext ldhwb,
char *plcstring);
int redraw_plc_hier( ldh_tSesContext ldhses,
ldh_tWBContext ldhwb, char *hiername,
char *fromname, int all);
char *fromname, int all, int templ);
int print_document( pwr_tOid Objdid, ldh_tSesContext ldhses,
ldh_tWBContext ldhwb, unsigned long document,
unsigned long overview, int pdf, FILE *plclink);
int redraw_windows( pwr_tObjid Objdid, ldh_tSesContext ldhses,
ldh_tWBContext ldhwb);
int exec_plcpgms( ldh_tSesContext ldhses,
ldh_tWBContext ldhwb,
char *hiername,
char *fromname,
int all,
int templ,
int no_focode,
int (*cb) (void *, void *));
int exec_plcpgm_windows( pwr_tObjid Objdid,
ldh_tSesContext ldhses,
ldh_tWBContext ldhwb,
int no_focode,
int (*cb) (void *, void *));
int create_flow_plc( ldh_tSesContext ldhses,
ldh_tWBContext ldhwb,
char *hiername,
char *fromname,
int all,
int templ);
static int create_flow_cb( void *utl, void *foe);
static int plc_redraw_cb( void *utl, void *foe);
static pwr_tStatus utl_replace_symbol( ldh_tSesContext ldhses,
pwr_tObjid oid,
pwr_sAttrRef *arp);
......
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