gprdeps.ps1

#
# SweetAda *.gpr dependencies parser.
#
# Copyright (C) 2020-2024 Gabriele Galeotti
#
# This work is licensed under the terms of the MIT License.
# Please consult the LICENSE.txt file located in the top-level directory.
#

#
# Arguments:
# optional starting "-u" = output sorted, not-duplicated units
# $1 = input filename
#
# Environment variables:
# none
#

################################################################################
# Script initialization.                                                       #
#                                                                              #
################################################################################

$scriptname = $MyInvocation.MyCommand.Name
$nl = [Environment]::NewLine

################################################################################
# ExitWithCode()                                                               #
#                                                                              #
################################################################################
function ExitWithCode
{
  param($exitcode)
  $host.SetShouldExit($exitcode)
  exit $exitcode
}

################################################################################
# Write-Stderr()                                                               #
#                                                                              #
################################################################################
function Write-Stderr
{
  param([PSObject]$inputobject)
  $outf = if ($host.Name -eq "ConsoleHost")
  {
    [Console]::Error.WriteLine
  }
  else
  {
    $host.UI.WriteErrorLine
  }
  if ($inputobject)
  {
    [void]$outf.Invoke($inputobject.ToString())
  }
  else
  {
    [string[]]$lines = @()
    $input | % { $lines += $_.ToString() }
    [void]$outf.Invoke($lines -Join $nl)
  }
}

################################################################################
# ParseGpr()                                                                   #
#                                                                              #
################################################################################
function ParseGpr
{
  param([string]$filename)
  $units = ""
  if (-not (Test-Path -Path "$filename" -PathType Leaf))
  {
    return $units
  }
  foreach ($textline in Get-Content "$filename")
  {
    $textline = $textline.Trim()
    if (($textline.Length -eq 0) -or $textline.StartsWith("--"))
    {
      continue
    }
    elseif ($textline.ToLower().StartsWith("with"))
    {
      $unit = $textline                `
                -Replace "`t"," "      `
                -Replace "with *`"","" `
                -Replace "`" *;.*",""
      if ($unit.Length -gt 0)
      {
        $units = "$units $($unit).gpr"
      }
    }
    else
    {
      break
    }
  }
  return $units
}

################################################################################
# ParseRecursive()                                                             #
#                                                                              #
################################################################################
function ParseRecursive
{
  param([string]$gprlist)
  $local:units = ""
  foreach ($local:g in $gprlist.Trim().Split(" "))
  {
    $local:gprs = $(ParseGpr $local:g)
    if ($local:gprs.Length -gt 0)
    {
      $local:units = "$local:units $local:gprs"
      $local:pr = $(ParseRecursive $local:gprs)
      $local:units = "$local:units $local:pr"
    }
  }
  return $local:units
}

################################################################################
# Main loop.                                                                   #
#                                                                              #
################################################################################

[int]$argc = 0
[bool]$uniq = $false

#
# Basic input parameters check.
#
if ([string]$args[$argc] -eq "-u")
{
  $uniq = $true
  $argc++
}
$input_filename = $args[$argc]
if ([string]::IsNullOrEmpty($input_filename))
{
  Write-Stderr "$($scriptname): *** Error: no input file specified."
  ExitWithCode 1
}

$gprdeps = $(ParseRecursive $input_filename).Split(" ")

if ($uniq)
{
  $gprdeps = $gprdeps | Sort-Object -Unique
}

Write-Host "$gprdeps"

ExitWithCode 0