// 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 prints the card holdings for all the boards
//  in a bridge document. The holdings for each player are
//  printed on a separate page.
//
//  This type of printout is useful for bidding practice,
//  duplicate hand preparation, and similar functions.
//  It is somewhat like "curtain card" page layout, but places
//  each player's cards on a separate page and can conveniently
//  display card holdings for many more boards.
//
//  This script may be run by (1) double-clicking, (2) from a
//  command line, or (3) from the BridgeComposer "Script" menu.
//  Case 1: You will be prompted for the input bridge document
//  (PBN or other supported format).
//  Case 2: You may specify the input document as a command line
//  argument, and then you will not be prompted for it. Otherwise,
//  you will be prompted as in case 1.
//  Case 3: The script will operate on the document currently open
//  in BridgeComposer, so you will not be promted for an input document.
//
//  Whether or not you are prompted for an input document, you will
//  be prompted for an output file in HTM format. If you choose an
//  existing file, it will be overwritten.
//
//  To print the results, you may open the HTM output file in a
//  web browser (usually, by double-clicking the HTM file), and 
//  use the web browser's Print command. Tip: To print the background
//  shading for alternate rows, select the web browser print settings 
//  "Background graphics" option.
//
//  There are programs available on the web that print HTM files;
//  this script could be modified to call such a program to print
//  automatically.
//
//  $Id: HandsByPlayer.wsf 18 2021-04-13 20:06:03Z Ray $

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

//  Define HTML rendering of suit pips and the void suit symbol

var strPip = [];
strPip[SPADES] = '<span class=spades>&spades;</span>';
strPip[HEARTS] = '<span class=hearts>&hearts;</span>';
strPip[DIAMS] = '<span class=diams>&diams;</span>';
strPip[CLUBS] = '<span class=clubs>&clubs;</span>';
var strVoid = '&mdash;';

//  FormatBoard: Formats the board "iBoard" into four HTML
//  "td" (table cell) elements: the board number, dealer, vulnerability,
//  and the card holding of the player "iHand" (0 to 3).

function FormatBoard(iBoard, iHand) {
  if (iBoard >= bc.Boards.Count)
    return '<td class=board><td class=dealer><td class=vul><td class=cards>';
  
  var bd = bc.Boards.Item(iBoard);
  var strBoard = bd.TagValue('Board') + '.';
  var strDealer = bd.TagValue('Dealer');
  var strVul = bd.TagValue('Vulnerable');
  if (strVul === 'All')
    strVul = 'Both';
  
  var deal = new Deal(bd.TagValue('Deal'));
  var strHolding = '';
  for (var iSuit = 0; iSuit < NSUITS; ++iSuit) {
    if (iSuit > 0)
      strHolding += '&nbsp;&nbsp;';
      
    strHolding += strPip[iSuit];
    strHolding += ' ';
      
    var cc = deal.hand[iHand].suit[iSuit].length;
    if (cc == 0) {
      strHolding += strVoid;
    } else {
      for (var iRank = RANK_A; iRank >= RANK_2; --iRank) {
        if (deal.hand[iHand].hasCard2(iSuit, iRank)) {
          var strCard = deal_strRank.charAt(iRank - RANK_2);
          if (strCard === 'T')
            strCard = '10';
            
          strHolding += strCard;
        }
      }
    }
  }
  
  var strLine = '<td class=board>' + strBoard + '<td class=dealer>' + strDealer
    + '<td class=vul>' + strVul + '<td class=cards>' + strHolding;
    
  return strLine;
}

//  Connect to BridgeComposer and establish the input document

var bc = WScript.CreateObject('BridgeComposer.Object');
if (WScript.Arguments.length > 0) {
  bc.Open(WScript.Arguments(0));
} else {
  if (!bc.Open()) WScript.Quit();
}

//  Prompt for the HTM output file

var strPathname = bc.BrowseForFile('HandsByPlayer Output File', 1, 'HTML files (*.htm)|*.htm||');
if (!strPathname)
  WScript.Quit();
  
//  CSS style declarations

var strStyle = [
  '<style>',
  'h1 {font: bold 16pt Verdana, sans-serif}',
  'h2 {font: bold 14pt Verdana, sans-serif}',
  'div.page {page-break-after: always}',
  'table.holdings {border: 1px solid; border-spacing: 1px; font: 12pt "Times New Roman", serif}',
  'th {padding: 0 .33em}',
  'td {padding: 0 .33em}',
  'th.vul {text-align: left}',
  'th.cards {text-align: left}',
  'tr.holding {padding-top: .2em; padding-bottom: .2em}',
  'tr.evenrow {background-color: #e6e6e6}',
  'td.board {text-align: right}',
  'td.dealer {text-align: center}',
  'td.cards {text-align: left}',
  'span.hearts {color: red}',
  'span.diams {color: red}',
  '</style>'];

//  Create the output file and write style declarations

var fso = WScript.CreateObject('Scripting.FileSystemObject');
var fout = fso.CreateTextFile(strPathname, true);
for (var ix in strStyle) {
  fout.WriteLine(strStyle[ix]);
}

//  Process each player position in turn

for (var iHand = 0; iHand < NHANDS; ++iHand) {
  var strPlayer = ['North', 'East', 'South', 'West'][iHand];
  fout.WriteLine('<div class=page>');

  //  Output the hand record Site, Event, and Date information
  //  (when present in the input document)
  
  if (bc.Site)
    fout.WriteLine('<h1>' + bc.Site + '</h1>');
    
  var strLine = '';
  var strEvent = bc.Event;
  if (strEvent)
    strLine += strEvent + ' (';
  
  strLine += strPlayer + ' Hands';
  if (strEvent)
    strLine += ')';
  
  fout.WriteLine('<h2>' + strLine + '</h2>');
      
  var d = new Date(bc.Date);
  if (d.getFullYear() > 1970) 
    fout.WriteLine('<h2>' + d.toLocaleDateString() + '</h2>');
  
  //  Output the boards
  
  fout.WriteLine('<table class=holdings>');
  fout.WriteLine('<tr><th class=board>Board<th class=dealer>Dealer'
    + '<th class=vul>Vul<th class=cards>' + strPlayer);
  var cRows = bc.Boards.Count;
  for (var iRow = 0; iRow < cRows; ++iRow) {
    var strClass = (iRow & 1) ? 'oddrow' : 'evenrow';
    fout.WriteLine('<tr class="holding ' + strClass + '">');
    fout.WriteLine(FormatBoard(iRow, iHand));
  }
  fout.WriteLine('</table>');
  fout.WriteLine('</div>');
}
</script>
</job>