From e3d3e20dfea253de291d5b31059cd55c0eaabf02 Mon Sep 17 00:00:00 2001
From: Marcos Magueta <maguetamarcos@gmail.com>
Date: Mon, 11 May 2026 23:10:27 -0300
Subject: Multigroup unified reference for hierarchical access

---
 run_tree.ps1 | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 run_tree.ps1

(limited to 'run_tree.ps1')

diff --git a/run_tree.ps1 b/run_tree.ps1
new file mode 100644
index 0000000..7f74bac
--- /dev/null
+++ b/run_tree.ps1
@@ -0,0 +1,38 @@
+param(
+    [switch]$NoRun
+)
+
+$ErrorActionPreference = "Stop"
+
+$repoRoot = $PSScriptRoot
+$projectName = Split-Path -Leaf $repoRoot
+
+Push-Location $repoRoot
+try {
+    (& opam env) -split '\r?\n' | ForEach-Object {
+        if ($_ -ne "") {
+            Invoke-Expression $_
+        }
+    }
+
+    dune build shared/shabptree/sakura_shabptree.dll bin/tree.exe
+
+    $dll = @(
+        Get-ChildItem -Path $repoRoot -Filter sakura_shabptree.dll -Recurse -ErrorAction SilentlyContinue
+        Get-ChildItem -Path (Join-Path $repoRoot "..") -Filter sakura_shabptree.dll -Recurse -ErrorAction SilentlyContinue |
+            Where-Object { $_.FullName -like "*\_build\*\$projectName\shared\shabptree\sakura_shabptree.dll" }
+    ) | Select-Object -First 1
+
+    if ($null -eq $dll) {
+        throw "Could not find built sakura_shabptree.dll"
+    }
+
+    $env:SAKURA_BPLUSTREE_DLL = $dll.FullName
+
+    if (-not $NoRun) {
+        dune exec bin/tree.exe
+    }
+}
+finally {
+    Pop-Location
+}
-- 
cgit v1.2.3