default-ldflags-with-runpath

default-ldflags-with-runpath.janet

(def *default-ldflags* "-s")
(def zlib {:path "/abc/zlib"})
(def libuv {:path "/abc/libuv"})
(defn default-ldflags-with-runpath [&keys collections]
  (var to-join @[])
  (each key (keys collections)
    (let [prefix (string "/" key)
          libs   (in collections key)
          extra  (join-pkg-paths ":" prefix libs)]
      (set to-join (array/concat to-join extra))))

  (string *default-ldflags*
          " "
          "-Wl,--enable-new-dtags"
          " "
          "-Wl,-rpath=" (string/join to-join ":")))

(print (default-ldflags-with-runpath :lib [zlib] :lib64 [libuv]))
(print (default-ldflags-with-runpath :lib64 [libuv]))
(print (default-ldflags-with-runpath :lib [zlib]))

# Output
# -s -Wl,--enable-new-dtags -Wl,-rpath=/abc/zlib/lib:/abc/libuv/lib64
# -s -Wl,--enable-new-dtags -Wl,-rpath=/abc/libuv/lib64
# -s -Wl,--enable-new-dtags -Wl,-rpath=/abc/zlib/lib