static pwr_tStatus ConnectAttribute (
ldh_sMenuCall *ip
) {
pwr_tStatus sts;
pwr_sMenuButton mb;
pwr_sAttrRef PattrRef;
sts = ldh_ReadObjectBody(ip->PointedSession,
ip->ItemList[ip->ChosenItem].MenuObject,
"SysBody", &mb, sizeof(pwr_sMenuButton));
if (EVEN(sts)) return sts;
// Assume RtBody or SysBody
char *aname_p;
pwr_tAName aname;
int size;
sts = ldh_AttrRefToName( ip->PointedSession, &ip->Pointed, ldh_eName_ArefVol, &aname_p, &size);
if ( EVEN(sts)) return 0;
strncpy( aname, aname_p, sizeof(aname));
strncat( aname, ".", sizeof(aname));
strncat( aname, mb.MethodArguments[0], sizeof(aname));
sts = ldh_NameToAttrRef( ip->PointedSession, aname, &PattrRef);
if (ODD(sts))
sts = ldh_WriteAttribute(ip->PointedSession, &PattrRef, &ip->Selected[0],
sizeof(pwr_tAttrRef));
if ( ip->message_cb) {
char msg[200];
if ( ODD(sts)) {
pwr_tOName name;
sts = ldh_AttrRefToName( ip->PointedSession, &ip->Selected[0], ldh_eName_Hierarchy,
&aname_p, &size);
if ( ODD(sts))
strncpy( name, aname_p, sizeof(name));
else
cdh_ObjidToString( name, ip->Selected[0].Objid, 1);
snprintf( msg, sizeof(msg), "%s connected to: %s", mb.MethodArguments[0], name);
ip->wtt->message( 'I', msg);
}
else {
msg_GetMsg( sts, msg, sizeof(msg));
ip->wtt->message( 'E', msg);
}
}
return LDH__SUCCESS;
}
void wb_build::plcpgm( pwr_tOid oid)
{
int check_hierarchy = cdh_ObjidIsNotNull( m_hierarchy);
int hierarchy_found = 0;
wb_object o = m_session.object(oid);
if ( !o) {
m_sts = o.sts();
return;
}
// Check that no ancestor is a LibHier
for ( wb_object p = o.parent(); p.oddSts(); p = p.parent()) {
if ( p.cid() == pwr_eClass_LibHier) {
m_sts = PWRB__INLIBHIER;
return;
}
if ( check_hierarchy && cdh_ObjidIsEqual( m_hierarchy, p.oid()))
hierarchy_found = 1;
}
if ( check_hierarchy && !hierarchy_found) {
m_sts = PWRB__NOBUILT;
return;
}
m_sts = utl_compile( (ldh_tSession *)&m_session, ldh_SessionToWB( (ldh_tSession *)&m_session),
o.longName().name(cdh_mName_volumeStrict), 0, 0, 0,
!opt.force, opt.debug, 0, 0);
if ( oddSts() && m_sts != GSX__NOMODIF) {
char msg[200];
sprintf( msg, "Build: PlcPgm %s", o.longName().name(cdh_mName_path | cdh_mName_object));
MsgWindow::message('I', msg, msgw_ePop_No, oid);
}
else if ( m_sts == GSX__NOMODIF) {
m_sts = PWRB__NOBUILT;
}
else {
char msg[500];
char msg2[256];
msg_GetMsg( m_sts, msg, sizeof(msg));
sprintf( msg2, ", PlcPgm %s", o.longName().name(cdh_mName_path | cdh_mName_object));
strcat( msg, msg2);
MsgWindow::message('E', msg, msgw_ePop_Yes, oid, true);
}
}
pwr_tStatus wsx_error_msg(
ldh_tSesContext sesctx,
pwr_tStatus sts,
pwr_tAttrRef aref,
int *errorcount,
int *warningcount
)
{
static char msg[256];
int status, size;
pwr_tAName name;
char *namep;
FILE *logfile;
logfile = NULL;
if (EVEN(sts)) {
msg_GetMsg( sts, msg, sizeof(msg));
if (logfile != NULL)
fprintf(logfile, "%s\n", msg);
else
printf("%s\n", msg);
if ( cdh_ObjidIsNull( aref.Objid))
MsgWindow::message( co_error(sts), 0, 0);
else {
/* Get the full hierarchy name for the node */
status = ldh_AttrRefToName( sesctx, &aref,
cdh_mNName, &namep, &size);
if( EVEN(status)) return status;
strncpy( name, namep, sizeof(name));
if (logfile != NULL)
fprintf(logfile, " in object %s\n", name);
else
printf(" in object %s\n", name);
MsgWindow::message( co_error(sts), " in object", name, aref.Objid);
}
if ( (sts & 2) && !(sts & 1))
(*errorcount)++;
else if ( !(sts & 2) && !(sts & 1))
(*warningcount)++;
}
return WSX__SUCCESS;
}
static pwr_tStatus Connect (
ldh_sMenuCall *ip
) {
pwr_tStatus sts;
pwr_sMenuButton mb;
pwr_sAttrRef PattrRef;
pwr_sAttrRef aref = ip->Selected[0];
sts = ldh_ReadObjectBody(ip->PointedSession,
ip->ItemList[ip->ChosenItem].MenuObject,
"SysBody", &mb, sizeof(pwr_sMenuButton));
if (EVEN(sts)) return sts;
if ( strcmp( mb.MethodArguments[1], "") != 0) {
char arg_cid_str[20][32];
int arg_cid_cnt;
int i;
int cid_ok = 0;
pwr_tCid cid;
pwr_tCid arg_cid;
// arg 1 holds the allowed class or classes to connect to
arg_cid_cnt = dcli_parse( mb.MethodArguments[1], ",", "", (char *) arg_cid_str,
sizeof( arg_cid_str) / sizeof( arg_cid_str[0]),
sizeof( arg_cid_str[0]), 0);
sts = ldh_GetAttrRefTid( ip->PointedSession, &ip->Selected[0], &cid);
if ( EVEN(sts)) return 0;
for ( i = 0; i < arg_cid_cnt; i++) {
sts = ldh_ClassNameToId( ip->PointedSession, &arg_cid, arg_cid_str[i]);
if ( EVEN(sts)) return 0;
if ( cid == arg_cid) {
cid_ok = 1;
break;
}
}
if ( !cid_ok)
return 0;
}
if ( strcmp( mb.MethodArguments[2], "") != 0)
// Body in MethodArguments 2, probably DevBody
sts = ldh_SetObjectPar( ip->PointedSession, ip->Pointed.Objid, mb.MethodArguments[2],
mb.MethodArguments[0], (char *) &ip->Selected[0], sizeof(ip->Selected[0]));
else {
char *name_p;
pwr_tAName name;
int size;
pwr_tCid cid;
// If Selected is a Template object in a classvolume, replace with
// symbol $IoConnect
if ( cdh_IsClassVolume( aref.Objid.vid)) {
sts = ldh_ObjidToName( ip->PointedSession, aref.Objid, ldh_eName_Object,
name, sizeof(name), &size);
if ( ODD(sts) && strcmp( name, "Template") == 0) {
sts = ldh_GetObjectClass( ip->PointedSession, aref.Objid, &cid);
if ( EVEN(sts)) return sts;
aref.Objid.vid = ldh_cIoConnectVolume;
aref.Objid.oix = cid;
}
}
// Assume RtBody or SysBody
sts = ldh_AttrRefToName(ip->PointedSession, &ip->Pointed, ldh_eName_VolPath,
&name_p, &size);
if ( ODD(sts)) {
strcpy( name, name_p);
strcat( name, ".");
strcat( name, mb.MethodArguments[0]);
sts = ldh_NameToAttrRef( ip->PointedSession, name, &PattrRef);
if (ODD(sts))
sts = ldh_WriteAttribute(ip->PointedSession, &PattrRef, &aref,
sizeof(aref));
}
}
char msg[500];
if ( ODD(sts)) {
pwr_tAName name;
char *name_p;
int len;
sts = ldh_AttrRefToName( ip->PointedSession, &aref, ldh_eName_Hierarchy,
&name_p, &len);
if ( EVEN(sts))
cdh_ObjidToString( name, aref.Objid, 1);
else
strcpy( name, name_p);
sprintf( msg, "%s connected to: %s", mb.MethodArguments[0], name);
ip->wtt->message( 'I', msg);
}
else {
msg_GetMsg( sts, msg, sizeof(msg));
ip->wtt->message( 'E', msg);
}
return PWRS__SUCCESS;
}
static pwr_tStatus IoConnect (
ldh_sMenuCall *ip
) {
pwr_tStatus sts;
pwr_sMenuButton mb;
pwr_sAttrRef aref = ip->Selected[0];
pwr_sAttrRef PattrRef;
char *name_p;
pwr_tAName name;
int size;
sts = ldh_ReadObjectBody(ip->PointedSession,
ip->ItemList[ip->ChosenItem].MenuObject,
"SysBody", &mb, sizeof(pwr_sMenuButton));
if (EVEN(sts)) return sts;
if ( strcmp( mb.MethodArguments[0], "") != 0) {
char arg_cid_str[20][32];
int arg_cid_cnt;
int i;
int cid_ok = 0;
pwr_tCid cid;
pwr_tCid arg_cid;
// arg 0 holds the allowed class or classes to connect to
arg_cid_cnt = dcli_parse( mb.MethodArguments[0], ",", "", (char *) arg_cid_str,
sizeof( arg_cid_str) / sizeof( arg_cid_str[0]),
sizeof( arg_cid_str[0]), 0);
sts = ldh_GetAttrRefTid( ip->PointedSession, &ip->Selected[0], &cid);
if ( EVEN(sts)) return 0;
for ( i = 0; i < arg_cid_cnt; i++) {
sts = ldh_ClassNameToId( ip->PointedSession, &arg_cid, arg_cid_str[i]);
if ( EVEN(sts)) return 0;
if ( cid == arg_cid) {
cid_ok = 1;
break;
}
}
if ( !cid_ok)
return 0;
}
#if 0
printf( "Here in IoConnect\n");
wb_session *sp = (wb_session *)ip->PointedSession;
wb_object o = sp->object( ip->Pointed.Objid);
if ( !o) return o.sts();
wb_attribute oa = sp->attribute( &ip->Pointed);
if ( !oa) return oa.sts();
replaceClass( sp, oa, &ip->Selected[0]);
#endif
sts = ldh_AttrRefToName(ip->PointedSession, &ip->Pointed, ldh_eName_VolPath,
&name_p, &size);
if ( ODD(sts)) {
strcpy( name, name_p);
strcat( name, ".IoConnect");
sts = ldh_NameToAttrRef( ip->PointedSession, name, &PattrRef);
if (ODD(sts))
sts = ldh_WriteAttribute(ip->PointedSession, &PattrRef, &aref,
sizeof(aref));
}
char msg[500];
if ( ODD(sts)) {
pwr_tAName name;
char *name_p;
int len;
sts = ldh_AttrRefToName( ip->PointedSession, &aref, ldh_eName_Hierarchy,
&name_p, &len);
if ( EVEN(sts))
cdh_ObjidToString( name, aref.Objid, 1);
else
strcpy( name, name_p);
sprintf( msg, "Io connected to: %s", name);
ip->wtt->message( 'I', msg);
}
else {
msg_GetMsg( sts, msg, sizeof(msg));
ip->wtt->message( 'E', msg);
}
return PWRS__SUCCESS;
}
void wb_build::webgraph( pwr_tOid oid)
{
pwr_tFileName dest_fname;
pwr_tFileName src_fname;
pwr_tCmd cmd;
pwr_tString80 java_name;
pwr_tString80 name;
pwr_tTime dest_time, src_time;
int check_hierarchy = cdh_ObjidIsNotNull( m_hierarchy);
int hierarchy_found = 0;
int is_frame, is_applet;
char jname[80];
pwr_tStatus fsts;
int jexport;
int found;
pwr_tFileName found_file, file_spec;
pwr_tFileName graph_name, dir;
char dev[80], type[80];
int version;
pwr_tString80 appletsignature = "";
char *s;
wb_object o = m_session.object(oid);
if ( !o) {
m_sts = o.sts();
return;
}
// Check that no ancestor is a LibHier
for ( wb_object p = o.parent(); p.oddSts(); p = p.parent()) {
if ( p.cid() == pwr_eClass_LibHier) {
m_sts = PWRB__INLIBHIER;
return;
}
if ( check_hierarchy && cdh_ObjidIsEqual( m_hierarchy, p.oid()))
hierarchy_found = 1;
}
if ( check_hierarchy && !hierarchy_found) {
m_sts = PWRB__NOBUILT;
return;
}
wb_attribute a = m_session.attribute( oid, "RtBody", "Name");
if ( !a) {
m_sts = a.sts();
return;
}
a.value( java_name);
if ( !a) {
m_sts = a.sts();
return;
}
if ( isupper(java_name[0])) {
cdh_ToLower( java_name, java_name);
java_name[0] = toupper(java_name[0]);
// Get the .pwg file for this javaname
strcpy( graph_name, cdh_Low(java_name));
sprintf( name, "$pwrp_pop/%s.pwg", graph_name);
dcli_translate_filename( name, name);
m_sts = dcli_file_time( name, &src_time);
if ( evenSts()) {
// Search in all pwg files
found = 0;
strcpy( file_spec, "$pwrp_pop/*.pwg");
for ( fsts = dcli_search_file( file_spec, found_file, DCLI_DIR_SEARCH_INIT);
ODD(fsts);
fsts = dcli_search_file( file_spec, found_file, DCLI_DIR_SEARCH_NEXT)) {
fsts = grow_IsJava( found_file, &is_frame, &is_applet, jname);
if ( EVEN(fsts)) continue;
if ( is_frame && strcmp( jname, java_name) == 0) {
dcli_parse_filename( found_file, dev, dir, graph_name, type, &version);
strcpy( name, found_file);
found = 1;
break;
}
}
dcli_search_file( file_spec, found_file, DCLI_DIR_SEARCH_END);
if ( !found) {
char msg[200];
sprintf( msg, "Graph for %s not found", java_name);
MsgWindow::message('E', msg, msgw_ePop_Yes, oid);
m_sts = PWRB__NOBUILT;
return;
}
}
m_sts = dcli_file_time( name, &src_time);
if ( evenSts()) return;
// Check exported java frame
jexport = 0;
sprintf( dest_fname, "$pwrp_pop/%s.java", java_name);
dcli_translate_filename( dest_fname, dest_fname);
fsts = dcli_file_time( dest_fname, &dest_time);
if ( opt.force || EVEN(fsts) || time_Acomp( &src_time, &dest_time) == 1)
jexport = 1;
if ( jexport) {
if ( !m_wnav) {
sprintf( cmd, "Build: WebGraph Unable to export java in this environment %s", java_name);
MsgWindow::message('W', cmd, msgw_ePop_No, oid);
}
else {
// Get signature from WebHandler
for ( wb_object p = o.parent(); p.oddSts(); p = p.parent()) {
if ( p.cid() == pwr_cClass_WebHandler) {
wb_attribute a = m_session.attribute( p.oid(), "RtBody", "AppletSignature");
if ( !a) {
m_sts = a.sts();
return;
}
a.value( appletsignature);
if ( !a) {
m_sts = a.sts();
return;
}
dcli_trim( appletsignature, appletsignature);
break;
}
}
Ge *gectx = m_wnav->ge_new( graph_name, 1);
if ( strcmp( appletsignature, "") == 0)
strcpy( cmd, "export java");
else
sprintf( cmd, "export java /signature=\"%s\"", appletsignature);
m_sts = gectx->command( cmd);
if ( evenSts()) {
msg_GetMsg( m_sts, cmd, sizeof(cmd));
MsgWindow::message('E', cmd, msgw_ePop_Yes, oid);
m_sts = PWRB__NOBUILT;
delete gectx;
return;
}
delete gectx;
sprintf( cmd, "Build: WebGraph Export java %s", java_name);
MsgWindow::message('I', cmd, msgw_ePop_No, oid);
m_sts = PWRB__SUCCESS;
}
}
}
else {
// Copy from $pwrp_pop to $pwrp_web
strcpy( graph_name, cdh_Low(java_name));
cdh_ToLower( graph_name, graph_name);
strcpy( src_fname, "$pwrp_pop/");
strcat( src_fname, graph_name);
if ( strstr( src_fname, ".pwg") == 0)
strcat( src_fname, ".pwg");
dcli_translate_filename( src_fname, src_fname);
m_sts = dcli_file_time( src_fname, &src_time);
if ( evenSts()) {
m_sts = PWRB__NOBUILT;
return;
}
strcpy( dest_fname, "$pwrp_web/");
strcat( dest_fname, graph_name);
if ( strstr( dest_fname, ".pwg") == 0)
strcat( dest_fname, ".pwg");
dcli_translate_filename( dest_fname, dest_fname);
m_sts = dcli_file_time( dest_fname, &dest_time);
if ( opt.force || evenSts() || src_time.tv_sec > dest_time.tv_sec) {
sprintf( cmd, "cp %s %s", src_fname, dest_fname);
system( cmd);
sprintf( cmd, "Build: WebGraph copy $pwrp_pop/%s -> $pwrp_web", graph_name);
MsgWindow::message( 'I', cmd, msgw_ePop_No, oid);
strcpy( name, graph_name);
if (( s = strrchr( name, '.')))
*s = 0;
wb_log::log( wlog_eCategory_GeBuild, name, 0);
m_sts = PWRB__SUCCESS;
}
else
m_sts = PWRB__NOBUILT;
}
}
void wb_build::xttgraph( pwr_tOid oid)
{
pwr_tFileName src_fname, dest_fname;
pwr_tCmd cmd;
pwr_tString80 action;
pwr_tString80 name;
pwr_tTime dest_time, src_time;
int check_hierarchy = cdh_ObjidIsNotNull( m_hierarchy);
int hierarchy_found = 0;
int is_frame, is_applet;
char java_name[80];
pwr_tStatus fsts;
int jexport;
char *s;
wb_object o = m_session.object(oid);
if ( !o) {
m_sts = o.sts();
return;
}
// Check that no ancestor is a LibHier
for ( wb_object p = o.parent(); p.oddSts(); p = p.parent()) {
if ( p.cid() == pwr_eClass_LibHier) {
m_sts = PWRB__INLIBHIER;
return;
}
if ( check_hierarchy && cdh_ObjidIsEqual( m_hierarchy, p.oid()))
hierarchy_found = 1;
}
if ( check_hierarchy && !hierarchy_found) {
m_sts = PWRB__NOBUILT;
return;
}
wb_attribute a = m_session.attribute( oid, "RtBody", "Action");
if ( !a) {
m_sts = a.sts();
return;
}
a.value( &action);
if ( !a) {
m_sts = a.sts();
return;
}
if ( strstr( action, ".pwg")) {
strcpy( src_fname, "$pwrp_pop/");
strcat( src_fname, action);
dcli_translate_filename( src_fname, src_fname);
m_sts = dcli_file_time( src_fname, &src_time);
if ( evenSts()) {
m_sts = PWRB__NOBUILT;
return;
}
strcpy( dest_fname, "$pwrp_exe/");
strcat( dest_fname, action);
dcli_translate_filename( dest_fname, dest_fname);
m_sts = dcli_file_time( dest_fname, &dest_time);
if ( opt.force || evenSts() || src_time.tv_sec > dest_time.tv_sec) {
sprintf( cmd, "cp %s %s", src_fname, dest_fname);
system( cmd);
sprintf( cmd, "Build: XttGraph copy $pwrp_pop/%s -> $pwrp_exe", action);
MsgWindow::message( 'I', cmd, msgw_ePop_No, oid);
strcpy( name, action);
if (( s = strrchr( name, '.')))
*s = 0;
wb_log::log( wlog_eCategory_GeBuild, name, 0);
m_sts = PWRB__SUCCESS;
}
else
m_sts = PWRB__NOBUILT;
jexport = 0;
fsts = grow_IsJava( src_fname, &is_frame, &is_applet, java_name);
if ( EVEN(fsts)) {
m_sts = fsts;
return;
}
if ( (is_frame || is_applet) &&
strcmp( java_name, "") == 0) {
// Java name is not yet set, use the default java name
strcpy( java_name, action);
if ( (s = strchr( java_name, '.')) != 0)
*s = 0;
java_name[0] = _toupper( java_name[0]);
}
if ( is_frame) {
// Check exported java frame
sprintf( dest_fname, "$pwrp_pop/%s.java", java_name);
dcli_translate_filename( dest_fname, dest_fname);
fsts = dcli_file_time( dest_fname, &dest_time);
if ( opt.force || EVEN(fsts) || time_Acomp( &src_time, &dest_time) == 1)
jexport = 1;
}
if ( is_applet) {
// Check exported java applet
sprintf( dest_fname, "$pwrp_pop/%s_A.java", java_name);
dcli_translate_filename( dest_fname, dest_fname);
fsts = dcli_file_time( dest_fname, &dest_time);
if ( opt.force || EVEN(fsts) || time_Acomp( &src_time, &dest_time) == 1)
jexport = 1;
}
if ( jexport) {
if ( !m_wnav) {
sprintf( cmd, "Build: XttGraph Unable to export java in this environment %s", action);
MsgWindow::message('W', cmd, msgw_ePop_No, oid);
}
else {
Ge *gectx = m_wnav->ge_new( action, 1);
strcpy( cmd, "export java");
m_sts = gectx->command( cmd);
if ( evenSts()) {
msg_GetMsg( m_sts, cmd, sizeof(cmd));
MsgWindow::message('E', cmd, msgw_ePop_Yes, oid);
m_sts = PWRB__NOBUILT;
delete gectx;
return;
}
sprintf( cmd, "Build: XttGraph Export java %s", action);
MsgWindow::message('I', cmd, msgw_ePop_No, oid);
delete gectx;
m_sts = PWRB__SUCCESS;
}
}
}
}
