///Validates selected XML fragment or whole document, pointing potential error place 
// https://github.com/FeyFre/akelpad-customisations/blob/scripts/XMLValidator.js 
// http://akelpad.sourceforge.net/forum/viewtopic.php?p=15256#15256 
// Version: 2.0 (2016.02.28) by VladSh 
// Version: 1.9 (2016.02.24) by Skif_off 
// Version: 1.8 (2015.04.10) by VladSh 
// Version: 1.7 (2014.12.01) by VladSh 
// Version: 1.6 (2012.10.24) by VladSh 
// Version: 1.0 (2011.10.25) (c) Panych Y.W. aka FeyFre 
// 
// Arguments: 
//   keep: 
//      • [0 | без параметра] - не сохранять исходное выделение, устанавливая курсор в место ошибки 
//      • 1 - сохранять исходное выделение; если выделения нет, то курсор также будет установлен в место ошибки 
//   msgOpts - параметры вывода сообщений: 
//      • [0 | без параметра] - в диалоговое окно; 
//      • перечень кодов сообщений через запятую, которые выводить в панели вывода Log-плагина: 
//         1 - все сообщения/ошибки; 
//         16 - критическая ошибка xml-парсера; 
//         48 - ошибка xml-синтаксиса (можно выводить только её, т.к. можно переходить на место ошибки); 
//         64 - сообщение об успешной проверке валидации 
//   lClose - параметры закрытия панели Log-плагина (при msgOpts=1 игнорируется): 
//      • [0 | без параметра] - не закрывать (в панели может остаться нужный текст, в т.ч. и от других вкладок программы); 
//      • 1 - закрывать только при успешной проверке валидации; 
//      • 2 - закрывать всегда (только при msgOpts=0) 
//   append - параметры вывода в панель Log-плагина: 
//      • [0 | без параметра] - очищать содержимое панели перед записью 
//      • 1, 2 - не очищать (см. Log-Rus.txt -> вызов с кодом 4 -> пареметр "APPEND") 
// 
// Examples: 
//    Call("Scripts::Main", 1, "XMLValidator.js")                - вывод в обычное диалоговое сообщение 
//    Call("Scripts::Main", 1, "XMLValidator.js", `-msgOpts=1`) - вывод всех сообщений в панель Log-плагина 
//    Call("Scripts::Main", 1, "XMLValidator.js", `-msgOpts=48 -lClose=1`) - вывод в панель Log-плагина только сообщений об ошибках xml-синтаксиса с закрытием панели при успешной проверке валидации 
//    Call("Scripts::Main", 1, "XMLValidator.js", `-msgOpts=48 -append=1`) - вывод в панель Log-плагина только сообщений об ошибках xml-синтаксиса с добавлением их к уже существующим в панели сообщениям 

var parserName = "msxml2.DOMDocument"; 
var xml = new ActiveXObject(parserName); 
try { 
   xml.async = false; 
   xml.validateOnParse = true; 
   xml.resolveExternals = false; 
} catch (e) { 
   output("Internal parser " + parserName + " error: " + e.description, 16 /*MB_ICONSTOP*/); 
   WScript.Quit(); 
} 

var text = AkelPad.GetSelText(); 
var selection; 
if (!text) { 
   text = AkelPad.GetTextRange(0, -1); 
   selection = false; 
} else { 
   selection = true; 
} 

var t = new Date(); 
var extInfo = t.toLocaleTimeString() + " " + (AkelPad.GetEditFile(0) || "*") + " -> "; 

xml.loadXML(text); 
if (xml.parseError.errorCode !== 0) { 
   var err = xml.parseError; 
   if (!selection || !AkelPad.GetArgValue("keep", 0)) { 
      var np = Math.min(AkelPad.GetSelStart(), AkelPad.GetSelEnd()); 
      if (selection) 
         np += err.filepos; 
      else 
         np = err.filepos; 
      AkelPad.SetSel(np, np); 
   } 
   var errInfo = extInfo + "XML validation error:\r(" + err.line + "," + err.linepos + ")\t\t" + err.reason; 
   output(errInfo, 48 /*MB_ICONEXCLAMATION*/); 
} else { 
   output(extInfo + "XML fragment is valid.\r", 64 /*MB_ICONINFORMATION*/); 
} 

function output(msg, nIcon /*MB_ICON...*/) { 
   var slog = AkelPad.GetArgValue("msgOpts", "0"); 
   if (slog == "1" || (slog != "0" && slog.indexOf(nIcon.toString()) != -1)) { 
      var fLogOutput = "Log::Output"; 
      if (AkelPad.Call(fLogOutput, 1, "", "", "^\\((\\d+),(\\d+)\\)", "/GOTOLINE=\\1:\\2") != -1) { 
         var nAppend = AkelPad.GetArgValue("append", 0); 
         AkelPad.Call(fLogOutput, 4, msg, -1, nAppend); 
      } 
   } 
   else { 
      var lClose = AkelPad.GetArgValue("lClose", 0); 
      if ((lClose == 1 && nIcon == 64) || lClose == 2) 
         AkelPad.Call("Log::Output", 6); 
      AkelPad.MessageBox(AkelPad.GetEditWnd(), msg, WScript.ScriptName, nIcon); 
   } 
}