Improve flexibility around vendored librariesmain

compat53 is vendored since #1757 as it is required to run luarocks with lua 5.1 or 5.2.

However, this introduced some issues as the GNUmakefile install rule places these in the same place where `luarocks install compat53` would install them. This means you get conflicts if you install the actual package:
```
Warning: /.../prefix/share/lua/5.1/compat53/init.lua is not tracked by this installation of LuaRocks. Moving it to /.../prefix/share/lua/5.1/compat53/init.lua~
Warning: /.../prefix/share/lua/5.1/compat53/module.lua is not tracked by this installation of LuaRocks. Moving it to /.../prefix/share/lua/5.1/compat53/module.lua~
Warning: /.../prefix/share/lua/5.1/compat53/file_mt.lua is not tracked by this installation of LuaRocks. Moving it to /.../prefix/share/lua/5.1/compat53/file_mt.lua~
```

It is also not ideal for linux package maintainers to include a vendored package, see: https://github.com/luarocks/luarocks/pull/1757#issuecomment-3409873412.

To solve these issues, this patchset makes the following changes:
- GNUmakefile now places the compat53 files under `luarocks/vendor/compat53` (which is added internally to the luarocks script's `package.path`). This way a user's installation of compat53 does not interfere at all with luarocks one.
- Added `--with-system-compat53` option to configure script for external packaging systems.
- Fixed install.bat's logic for deciding whether to vendor compat53, as the current script includes it for every version.

install.bat already places luarocks sources outside of LUAPATH, so that part can stay as is.

I've also inverted the version check to avoid the need for future patches like: #1850.

1 files changed, 71 insertions, 0 deletions

diff --git a/vendor/compat53/file_mt.lua b/vendor/compat53/file_mt.lua
new file mode 100644
index 00000000..6433619d
--- /dev/null
+++ b/vendor/compat53/file_mt.lua
@@ -0,0 +1,71 @@
+local lua_version = _VERSION:sub(-3)
+
+local M = {}
+
+local unpack = lua_version == "5.1" and unpack or table.unpack
+
+local function addasterisk(fmt)
+   if type(fmt) == "string" and fmt:sub(1, 1) ~= "*" then
+      return "*"..fmt
+   else
+      return fmt
+   end
+end
+
+function M.update_file_meta(file_meta, is_luajit52)
+
+   -- make '*' optional for file:read and file:lines
+
+   local file_lines = file_meta.__index.lines
+   file_meta.__index.lines = function(self, ...)
+      local n = select('#', ...)
+      for i = 1, n do
+         local a = select(i, ...)
+         local b = addasterisk(a)
+         -- as an optimization we only allocate a table for the
+         -- modified format arguments when we have a '*' somewhere
+         if a ~= b then
+            local args = { ... }
+            args[i] = b
+            for j = i+1, n do
+               args[j] = addasterisk(args[j])
+            end
+            return file_lines(self, unpack(args, 1, n))
+         end
+      end
+      return file_lines(self, ...)
+   end
+
+   local file_read = file_meta.__index.read
+   file_meta.__index.read = function(self, ...)
+      local n = select('#', ...)
+      for i = 1, n do
+         local a = select(i, ...)
+         local b = addasterisk(a)
+         -- as an optimization we only allocate a table for the
+         -- modified format arguments when we have a '*' somewhere
+         if a ~= b then
+            local args = { ... }
+            args[i] = b
+            for j = i+1, n do
+               args[j] = addasterisk(args[j])
+            end
+            return file_read(self, unpack(args, 1, n))
+         end
+      end
+      return file_read(self, ...)
+   end
+
+   if not is_luajit52 then
+      local file_write = file_meta.__index.write
+      file_meta.__index.write = function(self, ...)
+         local ret, err = file_write(self, ...)
+         if ret then
+            return self
+         end
+         return ret, err
+      end
+   end
+end
+
+return M