# Install additional software needed to check R packages.  Assumes that the
# software needed to build R on Windows (Msys2, InnoSetup, MikTex),
# setup.ps1, has already been installed.  The installers are downloaded
# automatically unless they are made available in "C:\installers" already
# (but only specific versions are supported, see below).

Set-PSDebug -Trace 1
cd C:\

# Needed on Windows Server 2016 (and probably other older Windows systems)
# to download files via https.
[Net.ServicePointManager]::SecurityProtocol = [Net.SecurityProtocolType]::Tls12

if (-not(Test-Path("temp"))) {
  mkdir temp
}

# Install Pandoc

# https://github.com/jgm/pandoc/releases
if (-not(Test-Path("C:\Program Files\Pandoc"))) {
  cd temp
  if (Test-Path("..\installers\pandoc-2.19.2-windows-x86_64.msi")) {
    cp "..\installers\pandoc-2.19.2-windows-x86_64.msi" pandoc.msi
  } elseif (-not(Test-path("pandoc.msi"))) {
    Invoke-WebRequest -Uri "https://github.com/jgm/pandoc/releases/download/2.19.2/pandoc-2.19.2-windows-x86_64.msi" -OutFile pandoc.msi -UseBasicParsing
  }
  Start-Process -Wait -FilePath ".\pandoc.msi" -ArgumentList "ALLUSERS=1 /quiet"
  cd ..
}

# Install Ghostscript

# https://github.com/ArtifexSoftware/ghostpdl-downloads
if (-not(Test-Path("C:\Program Files\gs\gs\bin"))) {
  cd temp
  if (Test-Path("..\installers\gs1000w64.exe")) {
    cp "..\installers\gs1000w64.exe" gsw64.exe
  } elseif (-not(Test-path("gsw64.exe"))) {
    Invoke-WebRequest -Uri "https://github.com/ArtifexSoftware/ghostpdl-downloads/releases/download/gs1000/gs1000w64.exe" -OutFile gsw64.exe -UseBasicParsing
  }
  Start-Process -Wait -FilePath ".\gsw64.exe" -ArgumentList "/S /D=C:\Program Files\gs\gs"
  cd ..
}

# https://github.com/ArtifexSoftware/ghostpdl-downloads
if (-not(Test-Path("C:\Program Files (x86)\gs\gs\bin"))) {
  cd temp
  if (Test-Path("..\installers\gs1000w32.exe")) {
    cp "..\installers\gs1000w32.exe" gsw32.exe
  } elseif (-not(Test-path("gsw32.exe"))) {
    Invoke-WebRequest -Uri "https://github.com/ArtifexSoftware/ghostpdl-downloads/releases/download/gs1000/gs1000w32.exe" -OutFile gsw32.exe -UseBasicParsing
  }
  Start-Process -Wait -FilePath ".\gsw32.exe" -ArgumentList "/S /D=C:\Program Files (x86)\gs\gs"
  cd ..
}

# Install JDK

# https://adoptium.net/download/
if (-not(Test-Path("C:\Program Files\Eclipse Adoptium"))) {
  # jdk-17.0.5.8-hotspot
  cd temp
  if (Test-Path("..\installers\OpenJDK17U-jdk_x64_windows_hotspot_17.0.5_8.msi")) {
    cp "..\installers\OpenJDK17U-jdk_x64_windows_hotspot_17.0.5_8.msi" jdk.msi
  } elseif (-not(Test-path("jdk.msi"))) {
    Invoke-WebRequest -Uri "https://github.com/adoptium/temurin17-binaries/releases/download/jdk-17.0.5+8/OpenJDK17U-jdk_x64_windows_hotspot_17.0.5_8.msi" -OutFile jdk.msi -UseBasicParsing
  }
  Start-Process -Wait -FilePath ".\jdk.msi" -ArgumentList "/quiet"
  cd ..
}

# Install JAGS

# https://sourceforge.net/projects/mcmc-jags/files/JAGS/4.x/Windows/JAGS-4.3.1.exe
if (-not(Test-Path("C:\Program Files\JAGS\JAGS-4.3.1"))) {
  cd temp
  if (Test-Path("..\installers\JAGS-4.3.1.exe")) {
    cp "..\installers\JAGS-4.3.1.exe" jags.exe
  } elseif (-not(Test-path("jags.exe"))) {
    # -UserAgent "NativeHost" to work-around issues with redirects with the default
    Invoke-WebRequest -Uri "https://sourceforge.net/projects/mcmc-jags/files/JAGS/4.x/Windows/JAGS-4.3.1.exe/download" -OutFile jags.exe -UseBasicParsing -UserAgent "NativeHost"
  }
  Start-Process -Wait -FilePath ".\jags.exe" -ArgumentList "/S"
  cd ..
}

# Install handle from Sysinternals

# https://docs.microsoft.com/en-us/sysinternals/downloads/handle
if (-not(Test-Path("C:\Program Files\sysinternals"))) {
  cd temp
  if (Test-Path("..\installers\Handle.zip")) {
    cp "..\installers\Handle.zip" handle.zip
  } elseif (-not(Test-path("handle.zip"))) {
    Invoke-WebRequest -Uri https://download.sysinternals.com/files/Handle.zip -OutFile handle.zip -UseBasicParsing
  }
  mkdir handle
  Expand-Archive -DestinationPath handle -Path handle.zip -Force
  cd handle
  Start-Process -Wait -FilePath ".\handle64" -ArgumentList "-accepteula > $null 2>&1"
  mkdir "C:\Program Files\sysinternals"
  cp *.* "C:\Program Files\sysinternals"
  cd ..\..
}

# Install MSMPI 

# https://github.com/microsoft/Microsoft-MPI/releases/download/v10.1.1/msmpisetup.exe
if (-not(Test-Path("C:\Windows\System32\msmpi.dll"))) {
  cd temp
  if (Test-Path("..\installers\msmpisetup.exe")) {
    cp "..\installers\msmpisetup.exe" msmpisetup.exe
  } elseif (-not(Test-path("msmpisetup.exe"))) {
    Invoke-WebRequest -Uri "https://github.com/microsoft/Microsoft-MPI/releases/download/v10.1.1/msmpisetup.exe" -OutFile msmpisetup.exe -UseBasicParsing
  }
  Start-Process -Wait -FilePath ".\msmpisetup.exe" -ArgumentList "-unattend"
  cd ..
}

# Install GDAL

# QGIS includes GDAL and the installer works unattended, but installed takes
# over 2G).  It should be possible to install GDAL using the osgeo4w-setup
# installer, but for some reason it currently does not seem to be working
# unattended.
#
# (should be no longer needed)

# # https://qgis.org/downloads/QGIS-OSGeo4W-3.22.0-4.msi
# if (-not(Test-Path("C:\Program Files\QGIS 3.22.0"))) {
#   cd temp
#   if (Test-Path("..\installers\QGIS-OSGeo4W-3.22.0-4.msi")) {
#     cp "..\installers\QGIS-OSGeo4W-3.22.0-4.msi" qgis.msi
#   } elseif (-not(Test-path("qgis.msi"))) {
#     Invoke-WebRequest -Uri "https://qgis.org/downloads/QGIS-OSGeo4W-3.22.0-4.msi" -OutFile qgis.msi -UseBasicParsing
#   }
#   Start-Process -Wait -FilePath ".\qgis.msi" -ArgumentList "/quiet"
#   cd ..
# }

# Install PhantomJS

# https://phantomjs.org/download.html
# https://github.com/ariya/phantomjs/tags
if (-not(Test-Path("C:\Program Files\phantomjs"))) {
  cd temp
  if (Test-Path("..\installers\phantomjs.zip")) {
    cp "..\installers\phantomjs-2.1.1-windows.zip" phantomjs.zip
  } elseif (-not(Test-path("phantomjs.zip"))) {
    Invoke-WebRequest -Uri https://bitbucket.org/ariya/phantomjs/downloads/phantomjs-2.1.1-windows.zip -OutFile phantomjs.zip -UseBasicParsing
  }
  mkdir phantomjs
  Expand-Archive -DestinationPath phantomjs -Path phantomjs.zip -Force
  cd phantomjs
  mv phantomjs* phantomjs
  mv phantomjs "C:\Program Files"
  cd ..\..
}

# Install Python

# https://www.python.org/ftp/python/3.11.0/python-3.11.0-amd64.exe
#
# python from Msys2 (msys2 subsystem) does not accept mixed full paths on the
# command line
#
if (-not(Test-Path("C:\Program Files\Python311"))) {
  cd temp
  if (Test-Path("..\installers\python-3.11.0-amd64.exe")) {
    cp "..\installers\python-3.11.0-amd64.exe" python.exe
  } elseif (-not(Test-path("python.exe"))) {
    Invoke-WebRequest -Uri "https://www.python.org/ftp/python/3.11.0/python-3.11.0-amd64.exe" -OutFile python.exe -UseBasicParsing
  }
  Start-Process -Wait -FilePath ".\python.exe" -ArgumentList "/quiet InstallAllUsers=1"
  # this hack is needed to make e.g. Reticulate work, to allow masking "python3.exe" from Rtools/Msys2
  cp "C:\Program Files\Python311\python.exe" "C:\Program Files\Python311\python3.exe"
  cd ..
}

# Install Git

# https://github.com/git-for-windows/git/releases/download/v2.38.1.windows.1/Git-2.38.1-64-bit.exe
#
if (-not(Test-Path("C:\Program Files\Git"))) {
  cd temp
  if (Test-Path("..\installers\Git-2.38.1-64-bit.exe")) {
    cp "..\installers\Git-2.38.1-64-bit.exe" git.exe
  } elseif (-not(Test-path("git.exe"))) {
    Invoke-WebRequest -Uri "https://github.com/git-for-windows/git/releases/download/v2.38.1.windows.1/Git-2.38.1-64-bit.exe" -OutFile git.exe -UseBasicParsing
  }
  Start-Process -Wait -FilePath ".\git.exe" -ArgumentList "/SUPPRESSMSGBOXES /VERYSILENT"
  cd ..
}

# Install Ruby

# https://github.com/oneclick/rubyinstaller2/releases/download/RubyInstaller-3.1.3-1/rubyinstaller-devkit-3.1.3-1-x64.exe
# FIXME: it uses another instance of Msys2
#
if (-not(Test-Path("C:\Ruby"))) {
  cd temp
  if (Test-Path("..\installers\rubyinstaller-devkit-3.1.3-1-x64.exe")) {
    cp "..\installers\rubyinstaller-devkit-3.1.3-1-x64.exe" ruby.exe
  } elseif (-not(Test-path("ruby.exe"))) {
    Invoke-WebRequest -Uri "https://github.com/oneclick/rubyinstaller2/releases/download/RubyInstaller-3.1.3-1/rubyinstaller-devkit-3.1.3-1-x64.exe" -OutFile ruby.exe -UseBasicParsing
  }
  Start-Process -Wait -FilePath ".\ruby.exe" -ArgumentList "/SUPPRESSMSGBOXES /VERYSILENT /DIR=C:\Ruby"
  cd ..
}

# Install Rust

# https://forge.rust-lang.org/infra/other-installation-methods.html
# https://static.rust-lang.org/dist/rust-1.66.0-x86_64-pc-windows-gnu.msi
if (-not(Test-Path("C:\Program Files\Rust stable GNU 1.66\bin"))) {
  cd temp
  if (Test-Path("..\installers\rust-1.66.0-x86_64-pc-windows-gnu.msi")) {
    cp "..\installers\rust-1.66.0-x86_64-pc-windows-gnu.msi" rust.msi
  } elseif (-not(Test-path("rust.msi"))) {
    Invoke-WebRequest -Uri "https://static.rust-lang.org/dist/rust-1.66.0-x86_64-pc-windows-gnu.msi" -OutFile rust.msi -UseBasicParsing
  }
  Start-Process -Wait -FilePath ".\rust.msi" -ArgumentList "ALLUSERS=1 /quiet"
  cd ..
}