// extensions: ppt;pptx;pptm
//
// TortoiseSVN Diff script for Powerpoint files
//
// Copyright (C) 2004-2010, 2012-2013, 2015, 2019 the TortoiseSVN team
// This file is distributed under the same license as TortoiseSVN
//
// Last commit by:
// $Author: stefankueng $
// $Date: 2019-08-04 12:31:04 +0200 (So, 04 Aug 2019) $
// $Rev: 28647 $
//
// Authors:
// Arne Moor, 2006
//

/*
This script starts PowerPoint and compares the two given presentations.
To better see the changes and get the highlighting feature of PowerPoint
click on "Apply all changes to the presentation" on the reviewing toolbar.
*/

function PptAppMajorVersion(PowerPoint)
{
    var pptVersion;
    try
    {
        pptVersion = PowerPoint.Version.toString();
        if (pptVersion.indexOf(".") > 0)
        {
            pptVersion = pptVersion.substr(0, pptVersion.indexOf("."));
        }
        if (pptVersion === "")
        {
            return 0;
        }
        return parseInt(pptVersion, 10);
    }
    catch (e)
    {
        return 0;
    }
}

var objArgs, num, sBasePpt, sNewPpt, objScript, powerpoint, source;

objArgs = WScript.Arguments;
num = objArgs.length;
if (num < 2)
{
    WScript.Echo("Usage: [CScript | WScript] diff-ppt.js base.ppt new.ppt");
    WScript.Quit(1);
}

sBasePpt = objArgs(0);
sNewPpt = objArgs(1);

objScript = new ActiveXObject("Scripting.FileSystemObject");

if (!objScript.FileExists(sBasePpt))
{
    WScript.Echo("File " + sBasePpt + " does not exist. Cannot compare the presentations.");
    WScript.Quit(1);
}

if (!objScript.FileExists(sNewPpt))
{
    WScript.Echo("File " + sNewPpt + " does not exist. Cannot compare the presentations.");
    WScript.Quit(1);
}

objScript = null;

try
{
    powerpoint = WScript.CreateObject("Powerpoint.Application");
    // disable macros
    powerpoint.AutomationSecurity = 3; //msoAutomationSecurityForceDisable
}
catch (e)
{
    WScript.Echo("You must have Microsoft Powerpoint installed to perform this operation.");
    WScript.Quit(1);
}

if (PptAppMajorVersion(powerpoint) === 12)
{
    WScript.Echo("Microsoft Powerpoint 2007 doesn't provide the DIFF features any more. Sorry!");
    WScript.Quit(1);
}
else
{
    powerpoint.visible = true;

    // Open the original (base) document
    source = powerpoint.Presentations.Open(sBasePpt);

    // Merge the new document, to show the changes
    source.Merge(sNewPpt);

    // Mark the comparison presentation as saved to prevent the annoying
    // "Save as" dialog from appearing.
    powerpoint.ActivePresentation.Saved = 1;
}