// This script file is licensed under a Creative Commons
// Attribution 4.0 International License (cc by 4.0):
// http://creativecommons.org/licenses/by/4.0/
// You may adapt and/or share this script file for any purpose,
// provided you give credit to http://bridgecomposer.com

//  This script scans a folder (and optionally its subfolders) for PBN files.
//  It reports boards in each file for which the Dealer and/or Vulnerability
//  differs from the standard value for duplicate board sets
//  (based on the board number).

// $Id: DealerCheck.wsf 224 2025-01-31 03:31:16Z Ray $

<job>
<script language="JScript" src="BCConst.js" />
<script language="JScript" src="BCDeal.js" />
<script language="JScript">

//  Global variables

var bc = WScript.CreateObject('BridgeComposer.Object');
var sh = WScript.CreateObject('Shell.Application');
var nFind = 0;
var strSubpath = '';
var strReport = '';
var bSubfolders = false;
var vVul = ['None', 'NS', 'EW', 'All'];


function Exit(rc)
{
  var disp = (rc) ? "canceled" : "complete";
  var plural = (nFind !== 1) ? 's' : '';
  var str = 'Scan ' + disp + ': ' + nFind + ' issue' + plural + ' found\n' + strReport;
  bc.progress(BCP_FINISH, str);
  WScript.Quit(rc);
}


function GetVul(iBoard)
{
  var v = ((iBoard >> 2) + iBoard) & 3;
  return v;
}


function GetVulIndex(strVul)
{
  for (var i = 0; i < vVul.length; ++i)
  {
    if (strVul === vVul[i])
      return i;
  }

  return -1;
}


function CalcBoard(bd)
{
  var tagDealer = bd.TagValue('Dealer');
  var iDealer = "NESW".indexOf(tagDealer);
  var tagVul = bd.TagValue('Vulnerable');
  var iVul = GetVulIndex(tagVul);
  for (var iBoard = 0; iBoard < 16; ++iBoard)
  {
    var id = iBoard & 3;
    var iv = GetVul(iBoard);
    if (id === iDealer && iv === iVul)
      return iBoard;
  }

  return -1;
}


function ScanFolder(fldr)
{
  //if (!bc.confirm('Scanning folder ' + fldr.Self.Path, MB_ICONINFORMATION)) WScript.Quit();
  var items = fldr.Items();
  for (var i = 0; i < items.Count; ++i) {
    var item = items.Item(i);
    if (item.IsFolder) {
      if (bSubfolders) {
        var strExt = item.Name.substr(item.Name.length - 4).toLowerCase();
        if (strExt !== '.zip') {
          var strSave = strSubpath;
          strSubpath += item.Name + '\\';
          ScanFolder(item.GetFolder);
          strSubpath = strSave;
        }
      }
    } else {
      ScanFile(item);
    }
  }
}


function ScanFile(item)
{
  var fname = item.Name;
  //WScript.Echo('Scanning file', strPath, fname);
  if (!bc.progress(BCP_UPDATE, 'Scanning ' + item.Path + '\n' + nFind + ' found')) Exit(1);
  var ixx = fname.lastIndexOf('.');
  if (ixx < 0) return;
  var ftype = fname.slice(ixx + 1);
  ftype = ftype.toLowerCase();
  if (ftype !== "pbn") return;
  var fpath = item.Path;
  try {
    bc.Open(fpath);
  } catch(ex)
  {
    return;
  }
  var bds = bc.Boards;
  //WScript.Echo(fname, bds.Count, 'boards');
  var nFindInFile = 0;
  var ebds = new Enumerator(bds);
  for (ebds.moveFirst() ; !ebds.atEnd() ; ebds.moveNext()) {
    var bd = ebds.item();
    var tagBoard = bd.TagValue('Board');
    if (tagBoard === "Recap")
      continue;

    var iBoard = parseInt(tagBoard) - 1;
    var tagDealer = bd.TagValue('Dealer');
    var iDlr = iBoard & 3;
    var sDlr = "NESW".charAt(iDlr);

    var tagVul = bd.TagValue('Vulnerable');
    var iVul = GetVul(iBoard);
    var sVul = vVul[iVul];

    if (tagDealer !== sDlr || tagVul !== sVul) {
      ++nFind;
      ++nFindInFile;
      if (nFindInFile == 1)
        strReport += strSubpath + fname + ':\n';
      
      strReport += '  Board ' + tagBoard;
      var strDiag = '';
      if (tagDealer !== sDlr)
        strDiag = ' Dealer ' + tagDealer + ' > ' + sDlr;

      if (tagVul !== sVul) {
        if (strDiag.length)
          strDiag += ';';

        strDiag += ' Vul ' + tagVul + ' > ' + sVul;
      }

      strReport += strDiag + '\n';
    }
  }
}


(function()
{
  if (WScript.Arguments.length > 0)
    bc.Open(WScript.Arguments.Item(0));  // for dialog positioning

  var strFldr = bc.BrowseForFolder('Dealercheck: Folder to scan');
  if (!strFldr) WScript.Quit();
  var fldr = sh.NameSpace(strFldr);  // convert string path into Folder object
  bSubfolders = bc.confirm('DealerCheck: Scan subfolders?', MB_YESNO | MB_DEFBUTTON2);
  bc.progress(BCP_TITLE, 'DealerCheck');
  ScanFolder(fldr);
  Exit(0);
})();
</script>
</job>