The unpac monorepo manager self-hosting as a monorepo using unpac
Interpret . in runtime-launch-info
The runtime-launch-info file includes the location of the binary
directory. The compiler is extended so that . refers to the directory of
the compiler binary.
+5
+5
bytecomp/bytelink.ml
+5
bytecomp/bytelink.ml
···
340
340
let bindir_start = String.index buffer '\n' + 1 in
341
341
let bindir_end = String.index_from buffer bindir_start '\000' in
342
342
let bindir = String.sub buffer bindir_start (bindir_end - bindir_start) in
343
+
let bindir =
344
+
if bindir = Filename.current_dir_name then
345
+
Filename.dirname Sys.executable_name
346
+
else
347
+
bindir in
343
348
let executable_offset = bindir_end + 2 in
344
349
let launcher =
345
350
let kind = String.sub buffer 0 (bindir_start - 1) in