From 112f44f7f863e34d42657ad3bf14d160cc3e11e8 Mon Sep 17 00:00:00 2001
From: Boris Kolpackov <boris@codesynthesis.com>
Date: Thu, 23 Mar 2023 09:17:13 +0200
Subject: Add support for relocatable installation in $install.resolve()

---
 libbuild2/install/rule.cxx | 46 +++++++++++++++++++++++++++++++++++++---------
 1 file changed, 37 insertions(+), 9 deletions(-)

(limited to 'libbuild2/install/rule.cxx')

diff --git a/libbuild2/install/rule.cxx b/libbuild2/install/rule.cxx
index 9f7eaac..5a8242b 100644
--- a/libbuild2/install/rule.cxx
+++ b/libbuild2/install/rule.cxx
@@ -668,24 +668,52 @@ namespace build2
       return rs;
     }
 
-    static inline install_dirs
-    resolve (const target& t, dir_path d, bool fail_unknown = true)
+    static dir_path
+    resolve_dir (const scope& s, const target* t,
+                 dir_path d, dir_path rb,
+                 bool fail_unknown)
     {
-      return resolve (t.base_scope (), &t, move (d), fail_unknown);
+      install_dirs rs (resolve (s, t, move (d), fail_unknown));
+
+      if (rs.empty ())
+        return dir_path ();
+
+      dir_path r (move (rs.back ().dir));
+
+      if (!rb.empty ())
+      {
+        dir_path b (resolve (s, t, move (rb), false).back ().dir);
+
+        try
+        {
+          r = r.relative (b);
+        }
+        catch (const invalid_path&)
+        {
+          fail << "unable to make installation directory " << r
+               << " relative to " << b;
+        }
+      }
+
+      return r;
     }
 
     dir_path
-    resolve_dir (const target& t, dir_path d, bool fail_unknown)
+    resolve_dir (const target& t, dir_path d, dir_path rb, bool fail_unknown)
     {
-      install_dirs r (resolve (t, move (d), fail_unknown));
-      return r.empty () ? dir_path () : move (r.back ().dir);
+      return resolve_dir (t.base_scope (), &t, move (d), move (rb), fail_unknown);
     }
 
     dir_path
-    resolve_dir (const scope& s, dir_path d, bool fail_unknown)
+    resolve_dir (const scope& s, dir_path d, dir_path rb, bool fail_unknown)
+    {
+      return resolve_dir (s, nullptr, move (d), move (rb), fail_unknown);
+    }
+
+    static inline install_dirs
+    resolve (const target& t, dir_path d, bool fail_unknown = true)
     {
-      install_dirs r (resolve (s, nullptr, move (d), fail_unknown));
-      return r.empty () ? dir_path () : move (r.back ().dir);
+      return resolve (t.base_scope (), &t, move (d), fail_unknown);
     }
 
     path
-- 
cgit v1.1