Root page: Service Functions – XML

Parent page: Service Functions – XML / WinRunner

Create XML Node

public function xml_node_create(inout dtNode[], in tag, in text) {
 delete dtNode[];
 dtNode["tag"] = tag;
 dtNode["text"] = xml_str_norm(text);
}

Add Attributes to XML Node

public function xml_node_attr_add(inout dtNode[], in attr_tag1, in attr_value1, in attr_tag2, in attr_value2, in attr_tag3, in attr_value3, in attr_tag4, in attr_value4, in attr_tag5, in attr_value5) {
 if ((nargs()-1)<=0) return;
 if (attr_tag1 != "") {
 dtNode[1,"attr_tag"] = attr_tag1; 
 dtNode[1,"attr_value"] = xml_str_norm(attr_value1); 
 dtNode[0,"attr_count"] = 1;
 }
 else
 return; 
 if (attr_tag2 != "") {
 dtNode[2,"attr_tag"] = attr_tag2; 
 dtNode[2,"attr_value"] = xml_str_norm(attr_value2); 
 dtNode[0,"attr_count"] = 2;
 }
 else
 return; 
 if (attr_tag3 != "") {
 dtNode[3,"attr_tag"] = attr_tag3; 
 dtNode[3,"attr_value"] = xml_str_norm(attr_value3); 
 dtNode[0,"attr_count"] = 3;
 }
 else
 return; 
 if (attr_tag4 != "") {
 dtNode[4,"attr_tag"] = attr_tag4; 
 dtNode[4,"attr_value"] = xml_str_norm(attr_value4); 
 dtNode[0,"attr_count"] = 4;
 }
 else
 return; 
 if (attr_tag5 != "") {
 dtNode[5,"attr_tag"] = attr_tag5; 
 dtNode[5,"attr_value"] = xml_str_norm(attr_value5); 
 dtNode[0,"attr_count"] = 5;
 }
 else
 return; 
}

Append XML Node to file

public function xml_node_open(in xml_file, inout dtNode[]) {
 auto rc;
 auto s_line;
 if (xml_write_mode) {
 rc = file_open(xml_file, FO_MODE_APPEND);
 if (rc != E_OK) return(rc);
 file_printf(xml_file, "%s\r\n", "");
 s_line = node_indent & xml_str_node_tag(dtNode);
 file_printf(xml_file, "%s\r\n", s_line); 
 if (dtNode["text"] != "")
 file_printf(xml_file, "%s\r\n", node_indent & " " & dtNode["text"]);
 file_printf(xml_file, "%s\r\n", "");
 file_close(xml_file);
 }
 else {
 dump_printf("%s\r\n", "");
 s_line = node_indent & xml_str_node_tag(dtNode);
 dump_printf("%s\r\n", s_line); 
 if (dtNode["text"] != "")
 dump_printf("%s\r\n", node_indent & " " & dtNode["text"]);
 dump_printf("%s\r\n", "");
 } 
### Indent!!! 
 node_indent = node_indent & "\t";
 return(E_OK);
}
static function xml_str_node_tag(inout dtNode[]) {
 auto res, i,c;
 res = "<" & dtNode["tag"];
 c = dtNode[0,"attr_count"];
 if (c=="") c=0;
 for (i=1;i<=c;i++)
 res = res & " " & dtNode[i,"attr_tag"] & "=" & "\""& dtNode[i,"attr_value"] & "\""; 
 res = res & ">";
 return(res); 
}

Finalize XML Node to file

public function xml_node_close(in xml_file, inout dtNode[]) {
 auto rc;
 auto s_line;
### Indent!!! 
 node_indent = substr(node_indent,2);
 if (xml_write_mode) {
 rc = file_open(xml_file, FO_MODE_APPEND);
 if (rc != E_OK) return(rc);
 file_printf(xml_file, "%s\r\n", "");
 s_line = node_indent & "</" & dtNode["tag"] & ">";
 file_printf(xml_file, "%s\r\n", s_line); 
 file_printf(xml_file, "%s\r\n", "");
 file_close(xml_file);
 }
 else {
 dump_printf("%s\r\n", "");
 s_line = node_indent & "</" & dtNode["tag"] & ">";
 dump_printf("%s\r\n", s_line); 
 dump_printf("%s\r\n", "");
 } 
 return(E_OK);
}