# Copyright (c) 2008-2009 Nokia Corporation and/or its subsidiary(-ies).
# All rights reserved.
# This component and the accompanying materials are made available
# under the terms of "Eclipse Public License v1.0"
# which accompanies this distribution, and is available
# at the URL "http://www.eclipse.org/legal/epl-v10.html".
#
# Initial Contributors:
# Nokia Corporation - initial contribution.
#
# Contributors:
#
# Description:
#

my $installScript = $ARGV[0] ? $ARGV[0] : "my_systemmodeltoolkit.nsi";

my $productName = "SystemModelToolkit";
my $productVersion = "1.1";

my $depDir = ".."; # The location of Dep directory

# all directory pathnames are relative to DepToolkit\Dep
my @subDirsToInstall = ("src\\svg");
my %individualFilesToInstall = ();

my @filesToUnistall = (); # w.r.t the root of installation directory
my @dirsToUnistall = (); # w.r.t the root of installation directory

CreateInstallScript();

sub CreateInstallScript()
	{
	open (SCRIPT, ">$installScript") or die "Cannot open $installScript to write to: $!";
	print SCRIPT Header();
	print SCRIPT InstallationTextSection();
	print SCRIPT Middle();
	print SCRIPT UninstallationTextSection();
	}

sub InstallationTextSection()
	{
	my $text = "\n;--------------------------- INSTALL SECTION ---------------------------\nSection \"Install Files\" SEC01\n\n";
	
	my $directory = "src\\svg";
	
	# Copy the main script, DrawSvg.pl into the root of installtion directory:
	$text .= "  SetOutPath \"\$INSTDIR\"\n";
	$text .= "  SetOverwrite try\n";
	$text .= "  File \"$depDir\\$directory\\DrawSvg.pl\"\n";
	push @filesToUnistall, "DrawSvg.pl";
	$text .= "  File \"$depDir\\$directory\\distribution.policy\"\n";
	push @filesToUnistall, "distribution.policy";
	$text .= "\n";
	
	# rest of the svg files' in SVG
	$text .= "  SetOutPath \"\$INSTDIR\\svg\"\n";
	$text .= "  SetOverwrite try\n";
	opendir DIR, "$depDir\\$directory" or die "Directory $depDir\\$directory doesn't exist...\n";
	my @files = readdir DIR;
	closedir DIR;
	foreach my $file (@files)
		{
		#next if $file =~ m/^\.+$/;
		#next if -d $file; # no sub-directories need installing
		#next if lc $file eq "drawsvg.pl"; # .pl script goes in the root of installation (covered above).
		
		# only install the .pm, .xsl, .xml, .ini and .policy files
		next if lc $file !~ m/\.xsl$/ and 
				 lc $file !~ m/\.xml$/ and 
				 lc $file !~ m/\.pm$/ and 
				 lc $file !~ m/\.ini$/ and 
				 lc $file !~ m/\.policy$/; 
		
		$text .= "  File \"$depDir\\$directory\\$file\"\n";
		push @filesToUnistall, "svg\\$file";
		}
	$text .= "\n";
	push @dirsToUnistall, "svg";
	
	# now copy the common files:
	$directory = "src\\common";
	$text .= "  SetOutPath \"\$INSTDIR\\common\"\n";
	$text .= "  SetOverwrite try\n";
	@files = ("DepConstants.pm", "Logger.pm", "LogItem.pm", "distribution.policy");
	foreach my $file (@files)
		{
		$text .= "  File \"$depDir\\$directory\\$file\"\n";
		push @filesToUnistall, "common\\$file";
		}
	$text .= "\n";
	push @dirsToUnistall, "common";
	
	$directory = "resources\\installed\\Xalan";
	$text .= "  SetOutPath \"\$INSTDIR\\resources\\installed\\Xalan\"\n";
	$text .= "  SetOverwrite try\n";
	opendir DIR, "$depDir\\$directory" or die "Directory $depDir\\$directory doesn't exist...\n";
	my @files = readdir DIR;
	closedir DIR;
	foreach my $file (@files)
		{
		next if $file =~ m/^\.+$/;
		next if -d $file; # no sub-directories need installing
		$text .= "  File \"$depDir\\$directory\\$file\"\n";
		push @filesToUnistall, "$directory\\$file";
		}
	$text .= "\n";
	
	# now copy the common files:
	$directory = "resources\\auxiliary";
	$text .= "  SetOutPath \"\$INSTDIR\\resources\\auxiliary\"\n";
	$text .= "  SetOverwrite try\n";
	opendir DIR, "$depDir\\$directory" or die "Directory $depDir\\$directory doesn't exist...\n";
	my @files = readdir DIR;
	closedir DIR;
	foreach my $file (@files)
		{
		next if $file =~ m/^\.+$/;
		next if -d $file; # no sub-directories need installing
		$text .= "  File \"$depDir\\$directory\\$file\"\n";
		push @filesToUnistall, "$directory\\$file";
		}
	$text .= "\n";
	
	# remember all the resource directories for deletion:
	push @dirsToUnistall, "resources\\installed\\Xalan";
	push @dirsToUnistall, "resources\\installed";
	push @dirsToUnistall, "resources\\auxiliary";
	push @dirsToUnistall, "resources";
	
	# finally the documentation:
	$directory = "docs";
	$text .= "  SetOutPath \"\$INSTDIR\\docs\"\n";
	$text .= "  SetOverwrite try\n";
	@files = ("Building the System Model.doc", "distribution.policy", "dep.css", "sample_drawsvg.ini", "SystemModelToolkitInstaller_main.jpg", "user_guide_system_model_toolkit.html");
	foreach my $file (@files)
		{
		$text .= "  File \"$depDir\\$directory\\$file\"\n";
		push @filesToUnistall, "docs\\$file";
		}
	$text .= "\n";
	push @dirsToUnistall, "docs";
	
	$text .= "\nSectionEnd\n;-------------------------------------------------------\n\n";
	return $text;
	}

sub UninstallationTextSection()
	{
	my $text = "\n;--------------------------- UNISTALL SECTION ---------------------------\nSection Uninstall\n\n";
	$text .= "  Delete \"\$INSTDIR\\uninst.exe\"\n";

	foreach $file (@filesToUnistall)
		{
		$text .= "  Delete \"\$INSTDIR\\$file\"\n";
		}
	
	$text .= "\n";
	foreach $directory (@dirsToUnistall)
		{
		$text .= "  RMDir \"\$INSTDIR\\$directory\"\n";
		}
	
	$text .= <<TEXT;
  RMDir "\$INSTDIR"

  DeleteRegKey \${PRODUCT_UNINST_ROOT_KEY} "\${PRODUCT_UNINST_KEY}"
  SetAutoClose true
SectionEnd
;-------------------------------------------------------


TEXT
	return $text;
	}

sub Header()
	{
	return <<TEXT;

; Script generated by the HM NIS Edit Script Wizard.

; HM NIS Edit Wizard helper defines
!define PRODUCT_NAME "$productName"
!define PRODUCT_VERSION "$productVersion"
!define PRODUCT_PUBLISHER "Symbian Software Ltd"
!define PRODUCT_WEB_SITE "http://www.symbian.com"
!define PRODUCT_UNINST_KEY "Software\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\\${PRODUCT_NAME}"
!define PRODUCT_UNINST_ROOT_KEY "HKLM"

; MUI 1.67 compatible ------
!include "MUI.nsh"

; MUI Settings
!define MUI_ABORTWARNING
!define MUI_ICON "\${NSISDIR}\\Contrib\\Graphics\\Icons\\modern-install-full.ico"
!define MUI_UNICON "\${NSISDIR}\\Contrib\\Graphics\\Icons\\modern-uninstall-full.ico"

; Welcome page
!define MUI_WELCOMEPAGE_TEXT "This wizard will guide you through the installation of $productName $productVersion\\n\\nClick Next to continue..."
!insertmacro MUI_PAGE_WELCOME
; License page
!define MUI_LICENSEPAGE_CHECKBOX
!insertmacro MUI_PAGE_LICENSE "license.txt"
; Directory page
!insertmacro MUI_PAGE_DIRECTORY
; Instfiles page
!insertmacro MUI_PAGE_INSTFILES
; Finish page
!insertmacro MUI_PAGE_FINISH

; Uninstaller pages
!insertmacro MUI_UNPAGE_INSTFILES

; Language files
!insertmacro MUI_LANGUAGE "English"

; MUI end ------

Name "\${PRODUCT_NAME} \${PRODUCT_VERSION}"
OutFile "SystemModelToolkitInstaller.exe"
InstallDir "D:\\SystemModelToolkit"
InstallDirRegKey HKLM "\${PRODUCT_DIR_REGKEY}" ""
ShowInstDetails show
ShowUnInstDetails show

TEXT
	}

sub Middle()
	{
	return <<TEXT;

Section -Post
  WriteUninstaller "\$INSTDIR\\uninst.exe"
  WriteRegStr \${PRODUCT_UNINST_ROOT_KEY} "\${PRODUCT_UNINST_KEY}" "DisplayName" "\$(^Name)"
  WriteRegStr \${PRODUCT_UNINST_ROOT_KEY} "\${PRODUCT_UNINST_KEY}" "UninstallString" "\$INSTDIR\\uninst.exe"
  WriteRegStr \${PRODUCT_UNINST_ROOT_KEY} "\${PRODUCT_UNINST_KEY}" "DisplayVersion" "\${PRODUCT_VERSION}"
  WriteRegStr \${PRODUCT_UNINST_ROOT_KEY} "\${PRODUCT_UNINST_KEY}" "URLInfoAbout" "\${PRODUCT_WEB_SITE}"
  WriteRegStr \${PRODUCT_UNINST_ROOT_KEY} "\${PRODUCT_UNINST_KEY}" "Publisher" "\${PRODUCT_PUBLISHER}"
SectionEnd


Function un.onUninstSuccess
  HideWindow
  MessageBox MB_ICONINFORMATION|MB_OK "\$(^Name) was successfully removed from your computer."
FunctionEnd

Function un.onInit
  MessageBox MB_ICONQUESTION|MB_YESNO|MB_DEFBUTTON2 "Are you sure you want to completely remove \$(^Name) and all of its components?" IDYES +2
  Abort
FunctionEnd

TEXT
	}

exit;