instow

:)
git clone https://git.sr.ht/~ashymad/instow
Log | Files | Refs | LICENSE

tools.janet (837B)

      1 (import ./file)
      2 
      3 (defn toolpath [tool]
      4   (case tool
      5     :make ["make" "gmake"]
      6     :ninja ["ninja"]
      7     :cmake ["cmake"]
      8     :qmake ["qmake" "qmake6"]
      9     :configure ["./configure"]
     10     :autogen ["./autogen.sh"]
     11     :autoreconf ["autoreconf"]
     12     :ldconfig ["ldconfig" "/sbin/ldconfig"]
     13     :jpm ["jpm"]
     14     :go ["go"]
     15     :python ["python" "python3"]
     16     :pip ["pip" "pip3"]
     17     :cargo ["cargo"]
     18     :meson ["meson"]
     19     :waf ["./waf" "waf"]
     20     :rinstall ["rinstall"]
     21     :npm ["npm"]
     22     :stow ["stow" "xstow"]
     23     :perl ["perl"]))
     24 
     25 (defn gettool [tool]
     26   (var ret nil)
     27   (each path (array/concat @[(os/getenv (string/ascii-upper tool))] (toolpath tool))
     28     (if (not (nil? path))
     29       (let [fullpath (file/which path)]
     30         (if (not (nil? fullpath)) 
     31           (do
     32             (set ret fullpath)
     33             (break))))))
     34   ret)
     35