//
// History log
//
static pwr_tStatus History( ldh_sMenuCall *ip)
{
pwr_tStatus sts;
pwr_tOName oname;
char item[300];
int size;
pwr_sMenuButton mb;
pwr_tCmd cmd;
char categories[80];
int showitem = 0;
pwr_tCid cid;
char *s;
sts = ldh_ObjidToName(ip->PointedSession, ip->Pointed.Objid,
ldh_eName_VolPath, oname, sizeof(oname), &size);
if (EVEN(sts)) return sts;
sts = ldh_GetObjectClass(ip->PointedSession, ip->Pointed.Objid, &cid);
if (EVEN(sts)) return sts;
sts = ldh_ReadObjectBody(ip->PointedSession, ip->ItemList[ip->ChosenItem].MenuObject,
"SysBody", &mb, sizeof(pwr_sMenuButton));
switch ( cid) {
case pwr_cClass_XttGraph: {
char *action;
// Get action attribute
sts = ldh_GetObjectPar( ip->PointedSession, ip->Pointed.Objid, "RtBody",
"Action", &action, &size);
if ( EVEN(sts)) return sts;
strncpy( item, action, sizeof(item));
free( action);
if ( (s = strstr( item, ".pwg")))
*s = 0;
else
return 1;
strncpy( categories, mb.MethodArguments[0], sizeof(categories));
showitem = 1;
break;
}
case pwr_cClass_NodeConfig: {
char *nodename;
// Get NodeName attribute
sts = ldh_GetObjectPar( ip->PointedSession, ip->Pointed.Objid, "RtBody",
"NodeName", &nodename, &size);
if ( EVEN(sts)) return sts;
strncpy( item, nodename, sizeof(item));
free( nodename);
strncpy( categories, mb.MethodArguments[0], sizeof(categories));
showitem = 1;
break;
}
case pwr_cClass_RootVolumeConfig:
case pwr_cClass_ClassVolumeConfig:
case pwr_cClass_SubVolumeConfig:
case pwr_cClass_SharedVolumeConfig: {
pwr_tObjName vname;
// Get object name attribute
sts = ldh_ObjidToName(ip->PointedSession, ip->Pointed.Objid,
ldh_eName_Object, vname, sizeof(vname), &size);
if ( EVEN(sts)) return sts;
strncpy( item, vname, sizeof(item));
strncpy( categories, mb.MethodArguments[0], sizeof(categories));
showitem = 1;
break;
}
default:
// Item is object name
strncpy( item, oname, sizeof(item));
strncpy( categories, mb.MethodArguments[0], sizeof(categories));
if (strcmp(mb.MethodArguments[1], "Descendants") == 0) {
strncat( item, "*", sizeof(item));
showitem = 1;
}
}
snprintf( cmd, sizeof(cmd), "open history/item=\"%s\"/categories=\"%s\"", item, categories);
if ( showitem)
strncat( cmd, "/showitem", sizeof(cmd));
ip->wnav->command( cmd);
return 1;
}
int Graph::generate_web(ldh_tSesContext ldhses, pwr_tOid opplaceweb_oid)
{
#if LDH
int sts;
int size;
pwr_tClassId classid;
pwr_tObjid webgraph_objid;
pwr_tObjid weblink_objid;
char* value_p;
pwr_tString80 title;
pwr_tString80 text;
pwr_tString80 file_name;
pwr_tString80 pwrhost;
pwr_tBoolean enable_login;
pwr_tBoolean enable_alarmlist;
pwr_tBoolean enable_eventlog;
pwr_tBoolean enable_navigator;
pwr_tString256 load_archives;
char style_sheet[80];
char start_URL[80];
char name[80];
char graph_name[80];
char graph_text[80];
char link_URL[80];
char link_text[80];
char* s;
std::ofstream fp_login;
std::ofstream fp_start;
std::ofstream fp_menu;
std::ofstream fp_ow;
std::ofstream fp_ows;
char fname[120];
char menu_file_name[80];
char codebase[200];
pwr_tEnum web_target;
char target_str[80];
char sname[80];
char arlist[400];
pwr_tOName opplaceweb_name;
pwr_tOid nodeobject_oid;
pwr_tAName nodeobject_name;
ge_get_systemname(sname);
// Get codebase for applets from global config file
cnf_get_value("appletCodebase", codebase, sizeof(codebase));
// Get OpPlaceWeb data
sts = ldh_ObjidToName(ldhses, opplaceweb_oid, ldh_eName_Hierarchy,
opplaceweb_name, sizeof(opplaceweb_name), &size);
if (EVEN(sts))
return sts;
// Attribute FileName
sts = ldh_GetObjectPar(
ldhses, opplaceweb_oid, "RtBody", "FileName", &value_p, &size);
if (EVEN(sts))
return sts;
if (streq(value_p, ""))
strcpy(file_name, "index.html");
else
strcpy(file_name, value_p);
free(value_p);
// Attribute Title
sts = ldh_GetObjectPar(
ldhses, opplaceweb_oid, "RtBody", "Title", &value_p, &size);
if (EVEN(sts))
return sts;
strcpy(title, value_p);
free(value_p);
// Attribute Text
sts = ldh_GetObjectPar(
ldhses, opplaceweb_oid, "RtBody", "Text", &value_p, &size);
if (EVEN(sts))
return sts;
strcpy(text, value_p);
free(value_p);
// Attribute PwrHost
sts = ldh_GetObjectPar(
ldhses, opplaceweb_oid, "RtBody", "PwrHost", &value_p, &size);
if (EVEN(sts))
return sts;
strcpy(pwrhost, value_p);
free(value_p);
str_trim(pwrhost, pwrhost);
// Attribute EnableLogin
sts = ldh_GetObjectPar(
ldhses, opplaceweb_oid, "RtBody", "EnableLogin", &value_p, &size);
if (EVEN(sts))
return sts;
enable_login = *(pwr_tBoolean*)value_p;
free(value_p);
// Attribute EnableAlarmList
sts = ldh_GetObjectPar(
ldhses, opplaceweb_oid, "RtBody", "EnableAlarmList", &value_p, &size);
if (EVEN(sts))
return sts;
enable_alarmlist = *(pwr_tBoolean*)value_p;
free(value_p);
// Attribute EnableEventLog
sts = ldh_GetObjectPar(
ldhses, opplaceweb_oid, "RtBody", "EnableEventLog", &value_p, &size);
if (EVEN(sts))
return sts;
enable_eventlog = *(pwr_tBoolean*)value_p;
free(value_p);
// Attribute EnableNavigator
sts = ldh_GetObjectPar(
ldhses, opplaceweb_oid, "RtBody", "EnableNavigator", &value_p, &size);
if (EVEN(sts))
return sts;
enable_navigator = *(pwr_tBoolean*)value_p;
free(value_p);
// Attribute StyleSheet
sts = ldh_GetObjectPar(
ldhses, opplaceweb_oid, "RtBody", "StyleSheet", &value_p, &size);
if (EVEN(sts))
return sts;
strcpy(style_sheet, value_p);
free(value_p);
// Attribute StartURL
sts = ldh_GetObjectPar(
ldhses, opplaceweb_oid, "RtBody", "StartURL", &value_p, &size);
if (EVEN(sts))
return sts;
strcpy(start_URL, value_p);
free(value_p);
// Attribute LoadArchives
sts = ldh_GetObjectPar(
ldhses, opplaceweb_oid, "RtBody", "LoadArchives", &value_p, &size);
if (EVEN(sts))
return sts;
strcpy(load_archives, (char*)value_p);
free(value_p);
strcpy(arlist, "pwr_rt_client.jar,pwr_jop.jar,pwr_jopg.jar");
// strcat( arlist ",pwr_bcomp.jar,pwr_bcompfc.jar,pwr_abb.jar");
str_trim(load_archives, load_archives);
if (!streq(load_archives, "")) {
strcat(arlist, ",");
strcat(arlist, load_archives);
}
// Login applet as default start URL
if (streq(start_URL, "") && enable_login)
strcpy(start_URL, "pwr_login.html");
// pwr_css as default css
if (streq(style_sheet, ""))
strcpy(style_sheet, "pwr_css.css");
// Parse the name of the start page
if ((s = strrchr(file_name, '/')) || (s = strrchr(file_name, '<'))
|| (s = strrchr(file_name, ':')))
strcpy(name, s + 1);
else
strcpy(name, file_name);
if ((s = strrchr(name, '.')))
*s = 0;
strcpy(menu_file_name, name);
strcat(menu_file_name, "_menu_as.html");
// Generate html-file for login applet
strcpy(fname, "$pwrp_web/pwr_login.html");
dcli_translate_filename(fname, fname);
// If OpPlaceWeb is positioned under the node object, use $node syntax
sts = ldh_GetClassList(ldhses, pwr_eClass_Node, &nodeobject_oid);
if (EVEN(sts))
return sts;
sts = ldh_ObjidToName(ldhses, nodeobject_oid, ldh_eName_Hierarchy,
nodeobject_name, sizeof(nodeobject_name), &size);
if (EVEN(sts))
return sts;
if (str_StartsWith(opplaceweb_name, nodeobject_name)) {
pwr_tAName tmp;
strcpy(tmp, &opplaceweb_name[strlen(nodeobject_name)]);
strcpy(opplaceweb_name, "$node");
strcat(opplaceweb_name, tmp);
}
fp_login.open(fname);
fp_login
<< "<!-- Generated by Ge -->\n"
<< "<!-- Do not edit this file -->\n"
<< "</html>\n"
<< " <head>\n"
<< " <title>Login</title>\n"
<< " </head>\n"
<< " <body>\n"
<< "\n"
<< " <object classid=\"clsid:8AD9C840-044E-11D1-B3E9-00805F499D93\""
<< '\n'
<< " width=300 height=120 codebase=\"" << codebase << "\">\n"
<< " <param name = code value=jpwr.jop.JopLoginApplet.class >"
<< '\n'
<< " <param name =\"archive\" "
"value=\"pwr_rt_client.jar,pwr_jop.jar,pwr_jopg.jar\">"
<< '\n'
<< " <param name=\"type\" "
"value=\"application/x-java-applet;version=1.3\">"
<< '\n'
<< " <param name=\"scriptable\" value=\"false\">\n"
<< " </body>\n"
<< "</html>\n";
fp_login.close();
// Generate html-file for start page applet style
sprintf(fname, "$pwrp_web/%s_as.html", name);
dcli_translate_filename(fname, fname);
fp_start.open(fname);
fp_start << "<! Generated by Ge >\n"
<< "<html>\n"
<< " <head>\n"
<< " <title>" << title << "</title>\n"
<< " </head>\n"
<< "\n"
<< " <frameset cols=\"20%,80%\">\n"
<< " <frame name=\"left\" src=\"" << menu_file_name << "\">"
<< '\n';
if (!streq(start_URL, ""))
fp_start << " <frame name=\"right\" src=\"" << start_URL << "\">"
<< '\n';
else
fp_start << " <frame NAME=\"right\">\n";
fp_start << " </frameset>\n"
<< "\n"
<< "</html>\n";
fp_start.close();
// Generate menu file
sprintf(fname, "$pwrp_web/%s", menu_file_name);
dcli_translate_filename(fname, fname);
fp_menu.open(fname);
fp_menu << "<html>\n"
<< " <head>\n"
<< " <link rel=\"stylesheet\" type=\"text/css\" href=\""
<< style_sheet << "\">\n"
<< " <title>Menu</title>\n"
<< " </head>\n"
<< " <body>\n"
<< " <h1>" << title << "</h1><br>\n"
<< " <h2>" << text << "</h2>\n"
<< " <hr>\n"
<< "\n";
if (enable_login) {
fp_menu << " <a href=\"pwr_login.html\" target=\"right\">Login</a><br>"
<< '\n';
}
if (enable_navigator) {
fp_menu << " <a "
"href=\"javascript:open_applet('pwr_navigator.html','Navigator',"
"1,400,600)\">Navigator</a><br>"
<< '\n';
}
if (enable_alarmlist) {
fp_menu << " <a "
"href=\"javascript:open_applet('pwr_events.html','"
"AlarmandEventlist',1,600,600)\">Alarm and Event list</a><br>"
<< '\n';
}
if (enable_login || enable_navigator) {
fp_menu << " <hr>\n";
}
// Get all WebGraph objects
sts = ldh_GetChild(ldhses, opplaceweb_oid, &webgraph_objid);
while (ODD(sts)) {
sts = ldh_GetObjectClass(ldhses, webgraph_objid, &classid);
if (EVEN(sts))
return sts;
if (classid == pwr_cClass_WebGraph) {
// Attribute Name
sts = ldh_GetObjectPar(
ldhses, webgraph_objid, "RtBody", "Name", &value_p, &size);
if (EVEN(sts))
return sts;
str_ToLower(graph_name, value_p);
free(value_p);
// Attribute WebTarget
sts = ldh_GetObjectPar(
ldhses, webgraph_objid, "RtBody", "WebTarget", &value_p, &size);
if (EVEN(sts))
return sts;
web_target = *(pwr_tEnum*)value_p;
free(value_p);
if ((s = strrchr(graph_name, '.')))
*s = 0;
// Attribute Text
sts = ldh_GetObjectPar(
ldhses, webgraph_objid, "RtBody", "Text", &value_p, &size);
if (EVEN(sts))
return sts;
strcpy(graph_text, value_p);
free(value_p);
switch (web_target) {
case graph_eWebTarget_ParentWindow:
strcpy(target_str, "_parent");
fp_menu << " <a href=\"" << graph_name << ".html\" target=\""
<< target_str << "\">" << graph_text << "</a><br>\n";
break;
case graph_eWebTarget_SeparateWindow: {
int width, height;
int resize = 0;
strcpy(target_str, "_blank");
sts = graph_get_applet_size(graph_name, &width, &height);
if (EVEN(sts)) {
width = height = 700;
resize = 1;
}
fp_menu << " <a href=\"javascript:open_applet('" << graph_name
<< ".html','" << graph_text << "'," << resize << ","
<< width + 20 << "," << height + 20 << ")\">" << graph_text
<< "</a><br>\n";
break;
}
default:
strcpy(target_str, "right");
fp_menu << " <a href=\"" << graph_name << ".html\" target=\""
<< target_str << "\">" << graph_text << "</a><br>\n";
}
}
sts = ldh_GetNextSibling(ldhses, webgraph_objid, &webgraph_objid);
}
fp_menu << " <hr>\n"
<< "\n";
// Get all WebLink objects
sts = ldh_GetChild(ldhses, opplaceweb_oid, &weblink_objid);
while (ODD(sts)) {
sts = ldh_GetObjectClass(ldhses, weblink_objid, &classid);
if (EVEN(sts))
return sts;
if (classid == pwr_cClass_WebLink) {
// Attribute URL
sts = ldh_GetObjectPar(
ldhses, weblink_objid, "RtBody", "URL", &value_p, &size);
if (EVEN(sts))
return sts;
strcpy(link_URL, value_p);
free(value_p);
// Attribute Text
sts = ldh_GetObjectPar(
ldhses, weblink_objid, "RtBody", "Text", &value_p, &size);
if (EVEN(sts))
return sts;
strcpy(link_text, value_p);
free(value_p);
// Attribute WebTarget
sts = ldh_GetObjectPar(
ldhses, weblink_objid, "RtBody", "WebTarget", &value_p, &size);
if (EVEN(sts))
return sts;
web_target = *(pwr_tEnum*)value_p;
free(value_p);
switch (web_target) {
case graph_eWebTarget_ParentWindow:
strcpy(target_str, "_parent");
break;
case graph_eWebTarget_SeparateWindow:
strcpy(target_str, "_blank");
break;
default:
strcpy(target_str, "right");
}
fp_menu << " <a href=\"" << link_URL << "\" target=\"" << target_str
<< "\">" << link_text << "</a><br>\n";
}
sts = ldh_GetNextSibling(ldhses, weblink_objid, &weblink_objid);
}
fp_menu << " </body>\n"
<< "</html>\n";
// Function for opening a window without menues and toolbar
fp_menu << "<script language=\"JavaScript\">\n"
<< "function open_applet(url,name,resizable,width,height)\n"
<< "{\n"
<< " var win = window.open(url, name, "
"'resizable='+resizable+',menubar=no,scrollbars=no,location=no,"
"toolbar=no,width='+width+',height='+height+',directories=no');"
<< '\n'
<< "}\n"
<< "</script>\n";
fp_menu.close();
// Generate html-file for opwindow applet
sprintf(fname, "$pwrp_web/%s_opwin_menu.html", name);
dcli_translate_filename(fname, fname);
fp_ow.open(fname);
fp_ow << "<!-- Generated by Ge -->\n"
<< "<!-- Do not edit this file -->\n"
<< "</html>\n"
<< " <head>\n"
<< " <title>" << title << "</title>\n"
<< " </head>\n"
<< " <body>\n"
<< "<!--[if !IE]> -->\n"
<< " <object classid=\"java:jpwr.jop.JopOpWindowApplet.class\""
<< '\n'
<< " type=\"application/x-java-applet\"\n"
<< " archive=\"" << arlist << ",pwrp_" << sname << "_web.jar\""
<< '\n'
<< " width=100% height=100% >\n"
<< " <param name = \"code\" "
"value=\"jpwr.jop.JopOpWindowApplet.class\" >"
<< '\n'
<< " <param name =\"archive\" value=\"" << arlist << ",pwrp_"
<< sname << "_web.jar\">\n"
<< " <param name=\"persistState\" value=\"false\" />\n"
<< " <param name=\"scriptable\" value=\"false\">\n"
<< " <param name=\"pwrplace\" value=\"" << opplaceweb_name << "\">"
<< '\n';
if (!streq(pwrhost, ""))
fp_ow << " <param name=\"pwrhost\" value=\"" << pwrhost << "\">"
<< '\n';
fp_ow << " </object>\n"
<< "<!--<![endif]--> \n"
<< "<!--[if IE]>\n"
<< " <object classid=\"clsid:8AD9C840-044E-11D1-B3E9-00805F499D93\""
<< '\n'
<< " width=100% height=100% codebase=\"" << codebase << "\">"
<< '\n'
<< " <param name = code value=jpwr.jop.JopOpWindowApplet.class >"
<< '\n'
<< " <param name =\"archive\" value=\"" << arlist << ",pwrp_"
<< sname << "_web.jar\">\n"
<< " <param name=\"type\" "
"value=\"application/x-java-applet;version=1.3\">"
<< '\n'
<< " <param name=\"scriptable\" value=\"false\">\n"
<< " <param name=\"pwrplace\" value=\"" << opplaceweb_name << "\">"
<< '\n';
if (!streq(pwrhost, ""))
fp_ow << " <param name=\"pwrhost\" value=\"" << pwrhost << "\">"
<< '\n';
fp_ow << " </object>\n"
<< "<![endif]-->\n"
<< " </body>\n"
<< "</html>\n";
fp_ow.close();
// Generate html-file for start page for opwindow applet
sprintf(fname, "$pwrp_web/%s.html", name);
dcli_translate_filename(fname, fname);
fp_ows.open(fname);
fp_ows << "<!-- Generated by Ge -->\n"
<< "<!-- Do not edit this file -->\n"
<< "<html>\n"
<< " <head>\n"
<< " <title>" << title << "</title>\n"
<< " </head>\n"
<< " <frameset cols=\"242,*\">\n"
<< " <frame name=\"left\" src=\"" << name << "_opwin_menu.html\">"
<< '\n'
<< " <frame name=\"right\" src=\"xtt_help_index.html\">\n"
<< " </frameset>\n"
<< "</html>\n";
fp_ows.close();
printf("-- Web startpage generated $pwrp_web/%s.html\n", name);
#endif
return 1;
}
static pwr_tStatus OpenDb (
ldh_sMenuCall *ip
)
{
#ifdef OS_VMS
int size;
char *db_id;
int sts;
char name[80];
static char cmd[100];
$DESCRIPTOR(cmd_desc,cmd);
unsigned long cli_flag = CLI$M_NOWAIT;
sts = ldh_GetObjectPar( ip->PointedSession,
ip->Pointed.Objid, "RtBody",
"Id", (char **) &db_id, &size);
if (EVEN(sts)) return sts;
sts = ldh_ObjidToName ( ip->PointedSession, ip->Pointed.Objid,
ldh_eName_Object, name, sizeof(name), &size);
if ( EVEN(sts)) return sts;
sprintf( cmd,
"@pwr_exe:wb_open_db \"%s\" \"%s\" \"%s\" \"\" \"%s\"",
db_id, CoLogin::username(), CoLogin::uspassword(), name);
free( db_id);
sts = lib$spawn (&cmd_desc , 0 , 0 , &cli_flag );
if (EVEN(sts)) {
printf("-- Error when creating subprocess.\n");
return sts;
}
#else
int size;
char *db_id_p;
char db_id[80];
int sts;
char name[80];
char filename[80];
char cmd[100];
sts = ldh_GetObjectPar( ip->PointedSession,
ip->Pointed.Objid, "RtBody",
"Id", (char **) &db_id_p, &size);
if (EVEN(sts)) return sts;
sts = ldh_ObjidToName ( ip->PointedSession, ip->Pointed.Objid,
ldh_eName_Object, name, sizeof(name), &size);
if ( EVEN(sts)) return sts;
dcli_translate_filename( filename, "$pwr_exe/wb_open_db.sh");
cdh_ToLower( db_id, db_id_p);
sprintf( cmd,
"%s \"%s\" \"%s\" \"%s\" \"\" \"%s\" &",
filename, db_id, CoLogin::username(), CoLogin::ucpassword(), name);
free( db_id_p);
sts = system( cmd);
if ( sts == -1 || sts == 127) {
printf("-- Error when creating process.\n");
return sts;
}
#endif
return 1;
}
static pwr_tStatus ConfigFc (
ldh_sMenuCall *ip
)
{
int sts;
pwr_tOName name;
pwr_tOName pname;
pwr_tObjName oname;
int size;
pwr_tCid cid;
pwr_tTid tid;
unsigned int flags;
pwr_tInt32 int_val;
pwr_tObjid oid;
pwr_tObjid coid;
int plcconnect = 0;
int plctemplate = 0;
char str[80];
pwr_sMenuButton mb;
sts = ldh_GetChild(ip->PointedSession, ip->Pointed.Objid, &oid);
if ( ODD(sts)) {
ip->wnav->wow->DisplayError( "Error",
"ClassDef is already configured\n Object has child");
return 0;
}
/* If argument is PlcConnect, configure a connected function object
i.e. an $Intern named PlcConnnect, a PlcConnect MenuRef, and
connectmethod 10 */
sts = ldh_ReadObjectBody(ip->PointedSession,
ip->ItemList[ip->ChosenItem].MenuObject,
"SysBody", &mb, sizeof(pwr_sMenuButton));
if ( strcmp(mb.MethodArguments[0], "PlcConnect") == 0) {
plcconnect = 1;
plctemplate = 1;
}
else if ( strcmp(mb.MethodArguments[0], "CCode") == 0) {
plcconnect = 0;
plctemplate = 0;
}
else if ( strcmp(mb.MethodArguments[0], "PlcConnectCCode") == 0) {
plcconnect = 1;
plctemplate = 0;
}
else {
plcconnect = 0;
plctemplate = 1;
}
sts = ldh_ObjidToName( ip->PointedSession, ip->Pointed.Objid, ldh_eName_Hierarchy,
pname, sizeof(pname), &size);
if ( EVEN(sts)) return sts;
sts = ldh_ObjidToName( ip->PointedSession, ip->Pointed.Objid, ldh_eName_Object,
oname, sizeof(oname), &size);
if ( EVEN(sts)) return sts;
sts = ldh_CreateObject( ip->PointedSession, &oid, "RtBody", pwr_eClass_ObjBodyDef,
ip->Pointed.Objid, ldh_eDest_IntoFirst);
if ( plcconnect) {
// Create PlcConnect attribute
strcpy( name, pname);
strcat( name, "-");
strcat( name, "RtBody");
sts = ldh_NameToObjid( ip->PointedSession, &oid, name);
if ( EVEN(sts)) return sts;
sts = ldh_CreateObject( ip->PointedSession, &coid, "PlcConnect", pwr_eClass_Intern,
oid, ldh_eDest_IntoLast);
if ( ODD(sts)) {
tid = pwr_eType_AttrRef;
sts = ldh_SetObjectPar(ip->PointedSession, coid, "SysBody", "TypeRef", (char *)&tid,
sizeof(tid));
if ( EVEN(sts)) return sts;
}
if ( !plctemplate) {
// Create PlcConnectP attribute
sts = ldh_CreateObject( ip->PointedSession, &coid, "PlcConnectP", pwr_eClass_Intern,
oid, ldh_eDest_IntoLast);
if ( ODD(sts)) {
tid = pwr_eType_Char;
sts = ldh_SetObjectPar(ip->PointedSession, coid, "SysBody", "TypeRef", (char *)&tid,
sizeof(tid));
if ( EVEN(sts)) return sts;
flags = PWR_MASK_INVISIBLE | PWR_MASK_POINTER | PWR_MASK_PRIVATE;
sts = ldh_SetObjectPar(ip->PointedSession, coid, "SysBody", "Flags", (char *)&flags,
sizeof(flags));
if ( EVEN(sts)) return sts;
}
}
}
sts = ldh_CreateObject( ip->PointedSession, &oid, "DevBody", pwr_eClass_ObjBodyDef,
ip->Pointed.Objid, ldh_eDest_IntoLast);
if ( EVEN(sts)) {
// The object already exist
}
strcpy( name, pname);
strcat( name, "-");
strcat( name, "DevBody");
sts = ldh_NameToObjid( ip->PointedSession, &oid, name);
if ( EVEN(sts)) return sts;
sts = ldh_CreateObject( ip->PointedSession, &oid, "PlcNode", pwr_eClass_Buffer,
oid, ldh_eDest_IntoLast);
if ( ODD(sts)) {
cid = pwr_eClass_PlcNode;
sts = ldh_SetObjectPar(ip->PointedSession, oid, "SysBody", "Class", (char *)&cid,
sizeof(cid));
if ( EVEN(sts)) return sts;
}
sts = ldh_CreateObject( ip->PointedSession, &oid, "GraphPlcNode",
pwr_eClass_GraphPlcNode,
ip->Pointed.Objid, ldh_eDest_IntoLast);
if ( ODD(sts)) {
if ( plctemplate) {
pwr_tCid scid[2];
scid[0] = pwr_cClass_windowplc;
scid[1] = 0;
int_val = 1;
sts = ldh_SetObjectPar(ip->PointedSession, oid, "SysBody", "subwindows",
(char *)&int_val, sizeof(int_val));
if ( EVEN(sts)) return sts;
sts = ldh_SetObjectPar(ip->PointedSession, oid, "SysBody", "subwindow_class[0]",
(char *)scid, sizeof(scid));
if ( EVEN(sts)) return sts;
}
int_val = 1;
sts = ldh_SetObjectPar(ip->PointedSession, oid, "SysBody", "segname_annotation",
(char *)&int_val, sizeof(int_val));
if ( EVEN(sts)) return sts;
if ( plctemplate)
int_val = 58;
else if ( plcconnect)
int_val = 35;
else
int_val = 4;
sts = ldh_SetObjectPar(ip->PointedSession, oid, "SysBody", "compmethod",
(char *)&int_val, sizeof(int_val));
if ( EVEN(sts)) return sts;
if ( plcconnect) {
int_val = 10;
sts = ldh_SetObjectPar(ip->PointedSession, oid, "SysBody", "connectmethod",
(char *)&int_val, sizeof(int_val));
if ( EVEN(sts)) return sts;
}
int_val = 2;
sts = ldh_SetObjectPar(ip->PointedSession, oid, "SysBody", "executeordermethod",
(char *)&int_val, sizeof(int_val));
if ( EVEN(sts)) return sts;
oname[15] = 0;
sts = ldh_SetObjectPar(ip->PointedSession, oid, "SysBody", "objname",
oname, sizeof(pwr_tString16));
if ( EVEN(sts)) return sts;
sts = ldh_SetObjectPar(ip->PointedSession, oid, "SysBody", "graphname",
oname, sizeof(pwr_tString16));
if ( EVEN(sts)) return sts;
}
if ( plcconnect) {
sts = ldh_CreateObject( ip->PointedSession, &oid, "RtXtt",
pwr_eClass_RtMenu,
ip->Pointed.Objid, ldh_eDest_IntoLast);
strcpy( name, pname);
strcat( name, "-");
strcat( name, "RtXtt");
sts = ldh_NameToObjid( ip->PointedSession, &oid, name);
if ( EVEN(sts)) return sts;
sts = ldh_CreateObject( ip->PointedSession, &oid, "PlcConnect", pwr_eClass_MenuRef,
oid, ldh_eDest_IntoLast);
if ( ODD(sts)) {
strcpy( str, "PlcConnect");
sts = ldh_SetObjectPar(ip->PointedSession, oid, "SysBody", "ButtonName",
str, sizeof(pwr_tString40));
if ( EVEN(sts)) return sts;
sts = ldh_SetObjectPar(ip->PointedSession, oid, "SysBody", "RefAttribute",
str, sizeof(pwr_tString40));
if ( EVEN(sts)) return sts;
}
}
if ( plctemplate) {
sts = ldh_CreateObject( ip->PointedSession, &oid, "Code",
pwr_cClass_PlcTemplate,
ip->Pointed.Objid, ldh_eDest_IntoLast);
}
return PWRS__SUCCESS;
}
