Root page: Service Functions – XML

Parent page: Service Functions – XML / WinRunner

Write child comment

public function xml_comment_write(in xml_file, in comment_str) {
 auto rc;
 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", node_indent & " " & "<!--"&comment_str&"-->"); 
 file_close(xml_file);
 }
 else {
 dump_printf("%s\r\n", node_indent & " " & "<!--"&comment_str&"-->"); 
 }
 return(E_OK);
}

Write XML body text

public function xml_text_write(in xml_file, in text_str) {
 auto rc;
 if (xml_write_mode) {
 rc = file_open(xml_file, FO_MODE_APPEND);
 if (rc != E_OK) return(rc);
 text_str = xml_str_norm(text_str);
 file_printf(xml_file, "%s\r\n", node_indent & " " & text_str); 
 file_close(xml_file);
 }
 else {
 text_str = xml_str_norm(text_str);
 dump_printf("%s\r\n", node_indent & " " & text_str); 
 } 
 return(E_OK);
}