tools/portconflicts/port_conflicts_check.lua: detect port conflicts

This tool can be used to detect install conflicts (ports/packages that
conflict with each other because of identically named files).

MFC after:	3 days

tools/tools/portconflicts/port_conflicts_check.lua

@@ -0,0 +1,184 @@
+#!/usr/libexec/flua
+
+--[[
+SPDX-License-Identifier: BSD-2-Clause-FreeBSD
+
+Copyright (c) 2022 Stefan Esser <se@FreeBSD.org>
+
+Generate a list of existing and required CONFLICTS_INSTALL lines
+for all ports (limited to ports for which official packages are 
+provided).
+
+This script depends on the ports-mgmt/pkg-provides port for the list 
+of files installed by all pre-built packages for the architecture
+the script is run on.
+
+The script generates a list of ports by running "pkg provides ." and 
+a mapping from package base name to origin via "pkg rquery '%n %o'".
+
+The existing CONFLICTS and CONFLICTS_INSTALL definitions are fetched
+by "make -C $origin -V CONFLICTS -V CONFLICTS_INSTALL". This list is
+only representative for the options configured for each port (i.e. 
+if non-default options have been selected and registered, these may
+lead to a non-default list of conflicts).
+
+The script detects files used by more than one port, than lists by 
+origin the existing definition and the list of package base names
+that have been detected to cause install conflicts followed by the 
+list of duplicate files separated by a hash character "#".
+
+This script uses the "hidden" LUA interpreter in the FreeBSD base
+systems and does not need any port except "pkg-provides" to be run.
+
+The run-time on my system checking the ~32000 packages available 
+for -CURRENT on amd64 is 150 seconds.
+--]]
+
+require "lfs"
+
+local index_file = "/usr/ports/INDEX-14"
+
+local function read_index ()
+   local ORIGIN = {}
+
+   local pipe = io.popen("pkg rquery '%n %o'")
+   for line in pipe:lines() do
+      local pkgbase, origin = string.match(line, "(%S+) (%S+)")
+      ORIGIN[pkgbase] = origin
+   end
+   pipe:close()
+   return ORIGIN
+end
+
+local function read_files()
+   local FILES_TABLE = {}
+
+   local pkgbase, version
+   local pipe = io.popen("pkg provides .")
+   for line in pipe:lines() do
+      local label = string.sub(line, 1, 10)
+      if label == "Name    : " then
+	 name = string.sub(line, 11)
+	 pkgbase, version = string.match(name, "(.*)-([^-]*)")
+      elseif label == "          " or label == "Filename: " then
+	 local file = string.sub(line, 11)
+	 if file:sub(1, 10) == "usr/local/" then
+	    file = file:sub(11)
+	 else
+	    file = "/" .. file
+	 end
+	 local t = FILES_TABLE[file] or {}
+	 t[#t + 1] = pkgbase
+	 FILES_TABLE[file] = t
+      end
+   end
+   pipe:close()
+   return FILES_TABLE
+end
+
+local PKG_PAIRS = {}
+
+for file, pkgbases in pairs(read_files()) do
+   if #pkgbases > 1 then
+      for i = 1, #pkgbases -1 do
+	 local pkg_i = pkgbases[i]
+	 for j = i + 1, #pkgbases do
+	    local pkg_j = pkgbases[j]
+	    if pkg_i ~= pkg_j then
+	       p1 = PKG_PAIRS[pkg_i] or {}
+	       p2 = p1[pkg_j] or {}
+	       p2[#p2 + 1] = file
+	       p1[pkg_j] = p2
+	       PKG_PAIRS[pkg_i] = p1
+	    end
+	 end
+      end
+   end
+end
+
+local CONFLICT_PKGS = {} 
+local CONFLICT_FILES = {}
+
+for pkg_i, p1 in pairs(PKG_PAIRS) do
+   for pkg_j, p2 in pairs(p1) do
+      CONFLICT_PKGS[pkg_i] = CONFLICT_PKGS[pkg_i] or {}
+      CONFLICT_PKGS[pkg_j] = CONFLICT_PKGS[pkg_j] or {}
+      CONFLICT_FILES[pkg_i] = CONFLICT_FILES[pkg_i] or {}
+      CONFLICT_FILES[pkg_j] = CONFLICT_FILES[pkg_j] or {}
+      table.insert(CONFLICT_PKGS[pkg_i], pkg_j)
+      table.insert(CONFLICT_PKGS[pkg_j], pkg_i)
+      for _, file in ipairs(p2) do
+	 table.insert(CONFLICT_FILES[pkg_i], file)
+	 table.insert(CONFLICT_FILES[pkg_j], file)
+      end
+   end
+end
+
+local function table_sorted_keys(t)
+   result = {}
+   for k, _ in pairs(t) do
+      result[#result + 1] = k
+   end
+   table.sort(result)
+   return result
+end
+
+local function table_sort_uniq(t)
+   local result = {}
+   local last
+
+   table.sort(t)
+   for _, entry in ipairs(t) do
+      if entry ~= last then
+	 last = entry
+	 result[#result + 1] = entry
+      end
+   end
+   return result
+end
+
+local ORIGIN = read_index()
+
+local RESULT_PATTERN = {}
+
+for pkg, pkgs in pairs(CONFLICT_PKGS) do
+   local origin = ORIGIN[pkg]
+
+   if origin then
+      table.sort(pkgs)
+      RESULT_PATTERN[origin] = table.concat(pkgs, " ")
+   end
+end
+
+local FILE_LIST = {}
+
+for pkg, files in pairs(CONFLICT_FILES) do
+   local origin = ORIGIN[pkg]
+
+   if origin then
+      FILE_LIST[origin] = table.concat(table_sort_uniq(files), " ")
+   end
+end
+
+for _, origin in ipairs(table_sorted_keys(RESULT_PATTERN)) do
+   local pipe = io.popen("make -C /usr/ports/" .. origin .. " -V CONFLICTS -V CONFLICTS_INSTALL 2>/dev/null")
+   local conflicts_table = {}
+   local seen = {}
+   for line in pipe:lines() do
+      for word in line:gmatch("(%S*)%s?") do
+	 if word ~= "" and not seen[word] then
+	    table.insert(conflicts_table, word)
+	    seen[word] = true
+	 end
+      end
+   end
+   pipe:close()
+   table.sort(conflicts_table)
+   conflicts_string = table.concat(conflicts_table, " ")
+   local conflicts_new = RESULT_PATTERN[origin]
+   if conflicts_string ~= conflicts_new then
+      print("< " .. origin, conflicts_string)
+      print("> " .. origin, conflicts_new .. " # " .. FILE_LIST[origin])
+      print()
+   end
+end