// 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 for PBN files,
//  and scans the PBN files for boards in which a player has
//  a particular card holding.
//
//  $Id: FindHolding.wsf 110 2022-09-03 05:16:49Z Ray $

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

function Exit(rc)
{
  var disp = (rc) ? "canceled" : "complete";
  bc.progress(BCP_FINISH, 'Scan ' + disp + ': ' + nFind + ' found\n' + strFind);
  WScript.Quit(rc);
}

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) {
        ScanFolder(item.GetFolder);
      }
    } 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 ebds = new Enumerator(bds);
  for (ebds.moveFirst() ; !ebds.atEnd() ; ebds.moveNext()) {
    var bd = ebds.item();
    var num = bd.TagValue('Board');
    var strDeal = bd.TagValue('Deal');
    var deal = new Deal(strDeal);
    // Example: Check for South holding 7 or more spades to the AKQ
    var S = deal.hand[SOUTH];
    if (S.suit[SPADES].length >= 7
      && S.hasCard('SA')
      && S.hasCard('SK')
      && S.hasCard('SQ')) {
        ++nFind;
        strFind += '\n' + fpath + ' #' + num;
    }
  }
}

var bc = GetBC('5.96');
if (WScript.Arguments.length > 0)
  bc.Open(WScript.Arguments.Item(0));  // for dialog positioning
var nFind = 0;
var sh = WScript.CreateObject('Shell.Application');
var strFldr = bc.BrowseForFolder('FindHolding: Folder to scan');
if (!strFldr) WScript.Quit();
var fldr = sh.NameSpace(strFldr);  // convert string path into Folder object
var bSubfolders = bc.confirm('FindHolding: Scan subfolders?', MB_YESNO | MB_DEFBUTTON2);
bc.progress(BCP_TITLE, 'FindHolding');
var strFind = '';
ScanFolder(fldr);
Exit(0);
</script>
</job>