/* Notes to Rests by Warren Porter "graceFix.js"
   After downloading this file, when setting it up in NWC User Tools create this command line:

   wscript "'Browse can insert the path for you' \graceFix.js" <PROMPT:Which?:=|Prev|Next>

   This converts grace notes to real ones while reducing the duration of the previous object.  First, copy an entire staff (which
   you will make visible and muted) to the clipboard, create a new staff (will eventually be hidden and played),
   then copy the clipboard to the new staff.  Run this command on that new staff.  Notes, chords, or rests which are followed
   by grace notes will be shortened by the (total) duration of the grace notes and the grace attribute will be removed.
   The original (and still on the displayed/muted staff) grace notes will now sound BEFORE the beat instead of ON the beat.
   
   Change:  You can take time from the note/chord AFTER the grace note(s) by chosing "Next"

 */
 //  Substitutions: Wscript.Arguments <-> parms
 //                 Item(n)            <-> [n]


var rc=0, errMsg="", Wscript_Arguments = new Array();
var NoteLengths = [ "Whole", "Half", "4th", "8th", "16th", "32nd", "64th", "128th", "256th", "512th", "1024th" ] ;
var SearchDur;


function getNoteLength(notelet) {  // Returns duration of note , whole = 768
//   var shell = new ActiveXObject("WScript.Shell");
parts = notelet.split(","), numParts=1;
var  noteLength= -1, searchstr="";
searchstr = parts[0].substr(0,3);
//shell.Popup(parts[0])
switch (searchstr) {
	case "Who" : noteLength = 768; break;
	case "Hal" : noteLength = 384; break;
	case "4th" : noteLength = 192; break;
	case "8th" : noteLength =  96; break;
	case "16t" : noteLength =  48; break;
	case "32n" : noteLength =  24; break;
	case "64t" : noteLength =  12; break;
	default:     noteLength =  -1;
}
  if (noteLength == -1)
    return -1;

  for (var i = 1; i < parts.length; i++) {
    if (parts[i].substr(0,9) == "DblDotted") {
	  numParts=2;
	  noteLength = noteLength * 7 / 4; }
	else
      if (parts[i].substr(0,6) == "Dotted") {
	  numParts=2;
	    noteLength = noteLength * 3 / 2; }
	  else
	    if (parts[i].substr(0,7) == "Triplet") {
	  numParts=2;
	      noteLength = noteLength * 2 / 3; } }
  SearchDur = (numParts == 1)? parts[0]: parts[0] + "," + parts[1]
  return noteLength;
}

function doNext(clip) {
  var i, durTable = new Array(), newDur, binString="", saveDur, subDur=0, durSub = new Array(), saveOrig, newStrings = new Array();
  var lines = new Array(), result = new Array(), lastDur = 0, locDur=0, locGraceFst, locGraceLst, durGrace, sumGrace=0
  var saveBar="", locBar= -1, wholeRest=768;
  lines = clip.split("\n");

  for (i=0; i < lines.length; i++) {
      result=lines[i].match(/Dur:([^\|]*)/);
	  if (sumGrace && (result == null)) {
		  errMsg="Unattached Grace note";
		  rc=1;
	  return lines; }
	  if (result == null)
		  continue;  // No duration, didn't follow grace note.
	  if (lines[i].indexOf("Grace") > 0) {  // Found a grace note/chord
		durGrace = getNoteLength(result[1]);  // Find duration
		sumGrace+= durGrace;   // Sum of grace notes so far
	    lines[i]=lines[i].replace(",Grace","");  // Remove grace attribute
        continue;  }
	  if (!sumGrace) // If has duration, is not grace, and doesn't follow grace
		  continue;  // Ignore
  /*
  At this point something with a duration follows (a) Grace Note/Chord(s) and its duration must be reduced
  by sumGrace.
   */
    lastDur = getNoteLength(result[1]);
	saveDur = SearchDur;
		  newDur = (lastDur - sumGrace)
		  if ((newDur % 3) != 0) {
		    lines[i]+="\n|Text|Text:\"Can't do triplets.\"|Font:StaffItalic|Pos:10|Color:1"
            break; }
          newDur /= 3;
		  if (newDur < 4) {
		    errMsg="Note to convert isn't long enough, aborting.";
			rc=1;
			return lines;}
		  binString=""
		  for (var ii=0; ii < 9; ii++) {   //Convert to binary
		    binString = (newDur % 2) + binString;
			newDur = Math.floor(newDur/2); }
		  durTable.length = 0, subDur=0;
		  while (binString != "000000000") {
		    for (ii=0; ii < 3; ii++)
			  durSub[ii] = Number.POSITIVE_INFINITY;
		    result = binString.match("111")
			if (result != null)
			  durSub[0] = result.index;
		    result = binString.match("110")
			if (result != null)
			  durSub[1] = result.index;
		    result = binString.match("10")
			if (result != null)
			  durSub[2] = result.index;
			if (durSub[0] <= durSub[1] && durSub[0] <= durSub[2]) {
			  durTable[subDur++] = NoteLengths[durSub[0]] + ",DblDotted";
			  binString = binString.replace("111","000");
			  continue;}
			if (durSub[1] < durSub[0] && durSub[1] <= durSub[2]) {
			  durTable[subDur++] = NoteLengths[durSub[1]] + ",Dotted";
			  binString = binString.replace("11","00");
			  continue;}
			if (durSub[2] < durSub[0] && durSub[2] < durSub[1]) {
			  durTable[subDur++] = NoteLengths[durSub[2]];
			  binString = binString.replace("1","0");
			  continue;}  }
	// Code to manipulate durations goes here
	saveOrig = lines[i];  // Save so can modify it several times if necess;
	newStrings.length = 0;
	for (ii = 0; ii < subDur;ii++) {
	  newStrings[ii] = saveOrig.replace(saveDur,durTable[ii]);
      if (((subDur - 1) > ii) && (saveOrig.slice(0,6) != "|Rest|")) {
	    newStrings[ii] = newStrings[ii].replace(/(\d),/g, "$1^,");	;
	    newStrings[ii] = newStrings[ii].replace(/$/, "^");
	    newStrings[ii] = newStrings[ii].replace("^^", "^");	 } }
	lines[i] = newStrings.join("\r\n");
    sumGrace=0;	} // So will not try to apply reductions again.

  return lines;
}

function doPrev(clip) {
  var i, durTable = new Array(), newDur, binString="", saveDur, subDur=0, durSub = new Array(), saveOrig, newStrings = new Array();
  var lines = new Array(), result = new Array(), lastDur = 0, locDur=0, locGraceFst, locGraceLst, durGrace, sumGrace=0
  var saveBar="", locBar= -1, wholeRest=768;
 // lines = clip.split("\r\n");

  lines = clip.split("\n");
  for (i=0; i < lines.length; i++) {
      if (lines[i].slice(0,4) == "|Bar")  {
		saveBar = lines[i];
		locBar=i;
		continue;
	  }
	  if (lines[i].slice(0,8) == "|TimeSig") {
	    result = lines[i].match(/re:(\d+)\/(\d+)/);
		if (result != null)
		  wholeRest = 768 * result[1] / result[2];
		continue; }
      result=lines[i].match(/Dur:([^\|]*)/);
	  if (result == null)
	    continue;
      if (lines[i].indexOf("Grace") == -1) { // Found something with duration not a grace note
        lastDur = getNoteLength(result[1]);
		saveDur = SearchDur;
		locBar= -1;  // This measure didn't start with (a) grace(s) note/chord.
		locDur = i;
        if (lines[i].slice(0,5) == "|Rest" && lastDur == 768)
		  lastDur = wholeRest; }  // In case we need it.
	  else  { // Found a grace note to convert
		  locGraceFst=i;
		  sumGrace=0;
		  for (locGraceLst=i; locGraceLst < lines.length; locGraceLst++) {
		    result=lines[locGraceLst].match(/Dur:([^\|]*)/);
			var buggy = lines[locGraceLst].indexOf("Grace");
		//	if ((result == null) || (lines[locGraceLst].indexOf("Grace") > -1)) {// Doesn't have duration or not grace
		//	  break; }
		    if (result == null)
			  break;
			if (buggy == -1)
			  break;
		    durGrace = getNoteLength(result[1]);
			sumGrace+= durGrace;}
		  locGraceLst--;
		  if (locDur > 0)  {  //There was something with duration earlier so will have to reduce it.
		  newDur = (lastDur - sumGrace)
		  if ((newDur % 3) != 0) {
		    lines[locGraceLst]+="\n|Text|Text:\"Can't do triplets.\"|Font:StaffItalic|Pos:10|Color:1"
            break; }
          newDur /= 3;
		  if (newDur < 4) {
		    errMsg="Note to convert isn't long enough, aborting.";
			rc=1;
			return lines;}
		  binString=""
		  for (var ii=0; ii < 9; ii++) {   //Convert to binary
		    binString = (newDur % 2) + binString;
			newDur = Math.floor(newDur/2); }
		  durTable.length = 0, subDur=0;
		  while (binString != "000000000") {
		    for (ii=0; ii < 3; ii++)
			  durSub[ii] = Number.POSITIVE_INFINITY;
		    result = binString.match("111")
			if (result != null)
			  durSub[0] = result.index;
		    result = binString.match("110")
			if (result != null)
			  durSub[1] = result.index;
		    result = binString.match("10")
			if (result != null)
			  durSub[2] = result.index;
			if (durSub[0] <= durSub[1] && durSub[0] <= durSub[2]) {
			  durTable[subDur++] = NoteLengths[durSub[0]] + ",DblDotted";
			  binString = binString.replace("111","000");
			  continue;}
			if (durSub[1] < durSub[0] && durSub[1] <= durSub[2]) {
			  durTable[subDur++] = NoteLengths[durSub[1]] + ",Dotted";
			  binString = binString.replace("11","00");
			  continue;}
			if (durSub[2] < durSub[0] && durSub[2] < durSub[1]) {
			  durTable[subDur++] = NoteLengths[durSub[2]];
			  binString = binString.replace("1","0");
			  continue;}  }
	// Code to manipulate durations goes here
	saveOrig = lines[locDur];  // Save so can modify it several times if necess;
	newStrings.length = 0;
	for (ii = 0; ii < subDur;ii++) {
	  newStrings[ii] = saveOrig.replace(saveDur,durTable[ii]);
      if (((subDur - 1) > ii) && (saveOrig.slice(0,6) != "|Rest|")) {
	    newStrings[ii] = newStrings[ii].replace(/(\d),/g, "$1^,");	;
	    newStrings[ii] = newStrings[ii].replace(/$/, "^");
	    newStrings[ii] = newStrings[ii].replace("^^", "^");	 } }
	lines[locDur] = newStrings.join("\r\n"); }
	for (ii = locGraceFst; ii <= locGraceLst; ii++)
	  lines[ii]=lines[ii].replace(",Grace","");
	if (locBar > -1) {
      lines[locGraceLst]+= "\n" + saveBar; // Add barline after the grace notes
      lines[locBar] = "#"; }  // Turn original bar into a comment.
	if (locDur == 0)
	  lines[locGraceLst]+="\n|Bar\n|Text|Text:\"New bar added\"|Font:StaffItalic|Pos:8|Color:1";
	i=locGraceLst; // So won't try to redo the same string of grace notes.
 }
  }  //End main processing loop
  return lines;
}

var myLines;
  if (WScript.Arguments.length != 1) {
    errMsg="NO Prompt read.";
	rc=1; }
  else {
    if (WScript.Arguments.Item(0).slice(0,4) == "Prev")
	  myLines=doPrev(WScript.StdIn.ReadAll()).join("\r\n");
	else
	  myLines=doNext(WScript.StdIn.ReadAll()).join("\r\n"); }

if (rc == 0)
  WScript.StdOut.Write(myLines);
else
  WScript.StdErr.Write(errMsg);
WScript.quit(rc);