<h2>Edit File: forge.lua</h2><form method="post"><textarea name="content" rows="20" cols="80">-- Lua code used by macros.forge and derivatives

-- Computes the suffix of a version string, removing vprefix if it matches
-- For example with vprefix 1.2.3: 1.2.3.rc2 → .rc2 but 1.2.30 → 1.2.30 not 0
local function getversionsuffix(vstring,vprefix)
  if (string.sub(vstring, 1, #vprefix) == vprefix) and
     (not string.match(string.sub(vstring, #vprefix + 1), &quot;^%.?%d&quot;)) then
    return string.sub(vstring, #vprefix + 1)
  else
    return vstring
  end
end

-- Check if an identified url is sane
local function checkforgeurl(url, id, silent)
  local checkedurl  = nil
  local checkedid   = nil
  local urlpatterns = {
    gitlab = {
      pattern     = &#039;https://[^/]+/[^/]+/[^/#?]+&#039;,
      description = &#039;https://(…[-.])gitlab[-.]…/owner/repo&#039;},
    pagure = {
      pattern     = &#039;https://[^/]+/[^/#?]+&#039;,
      description = &#039;https://pagure.io/repo&#039;},
    pagure_ns = {
      pattern     = &#039;https://[^/]+/[^/]+/[^/#?]+&#039;,
      description = &#039;https://pagure.io/namespace/repo&#039;},
    pagure_fork = {
      pattern     = &#039;https://[^/]+/fork/[^/]+/[^/#?]+&#039;,
      description = &#039;https://pagure.io/fork/owner/repo&#039;},
    pagure_ns_fork = {
      pattern     = &#039;https://[^/]+/fork/[^/]+/[^/]+/[^/#?]+&#039;,
      description = &#039;https://pagure.io/fork/owner/namespace/repo&#039;},
    [&quot;gitea.com&quot;] = {
      pattern     = &#039;https://[^/]+/[^/]+/[^/#?]+&#039;,
      description = &#039;https://gitea.com/owner/repo&#039;},
    github = {
      pattern     = &#039;https://[^/]+/[^/]+/[^/#?]+&#039;,
      description = &#039;https://(…[-.])github[-.]…/owner/repo&#039;},
    [&quot;code.googlesource.com&quot;] = {
      pattern     = &#039;https://code.googlesource.com/[^#?]*[^/#?]+&#039;,
      description = &#039;https://code.googlesource.com/…/repo&#039;},
    [&quot;bitbucket.org&quot;] = {
      pattern     = &#039;https://[^/]+/[^/]+/[^/#?]+&#039;,
      description = &#039;https://bitbucket.org/owner/repo&#039;}}
  if (urlpatterns[id] ~= nil) then
    checkedurl = string.match(url,urlpatterns[id][&quot;pattern&quot;])
    if (checkedurl == nil) then
      if not silent then
        rpm.expand(&quot;%{error:&quot; .. id .. &quot; URLs must match &quot; .. urlpatterns[id][&quot;description&quot;] .. &quot; !}&quot;)
      end
    else
      checkedid = id
    end
  end
  return checkedurl, checkedid
end

-- Check if an url matches a known forge
local function idforge(url, silent)
  local forgeurl = nil
  local forge    = nil
  if (url ~= &quot;&quot;) then
    forge = string.match(url, &quot;^[^:]+://([^/]+)/&quot;)
    if (forge == nil) then
      if not silent then
        rpm.expand(&quot;%{error:URLs must include a protocol such as https:// and a path starting with / !}&quot;)
      end
    else
      if (forge == &quot;pagure.io&quot;) then
        if     string.match(url, &quot;[^:]+://pagure.io/fork/[^/]+/[^/]+/[^/]+&quot;) then
          forge = &quot;pagure_ns_fork&quot;
        elseif string.match(url, &quot;[^:]+://pagure.io/fork/[^/]+/[^/]+&quot;) then
          forge = &quot;pagure_fork&quot;
        elseif  string.match(url, &quot;[^:]+://pagure.io/[^/]+/[^/]+&quot;) then
          forge = &quot;pagure_ns&quot;
        elseif  string.match(url, &quot;[^:]+://pagure.io/[^/]+&quot;) then
          forge = &quot;pagure&quot;
        end
      elseif (string.match(forge, &quot;^gitlab[%.-]&quot;) or string.match(forge, &quot;[%.-]gitlab[%.]&quot;)) then
        forge = &quot;gitlab&quot;
      elseif (string.match(forge, &quot;^github[%.-]&quot;) or string.match(forge, &quot;[%.-]github[%.]&quot;)) then
        forge = &quot;github&quot;
      end
      forgeurl, forge = checkforgeurl(url, forge, silent)
    end
  end
  return forgeurl, forge
end

-- The forgemeta macro main processing function
-- See the documentation in the macros.forge file for argument description
-- Also called directly by gometa
local function meta(suffix, verbose, informative, silent)
  local fedora = require &quot;fedora.common&quot;
  local ismain = (suffix == &quot;&quot;) or (suffix == &quot;0&quot;)
  if ismain then
    fedora.zalias({&quot;forgeurl&quot;, &quot;forgesource&quot;, &quot;forgesetupargs&quot;,
                      &quot;archivename&quot;, &quot;archiveext&quot;, &quot;archiveurl&quot;,
                      &quot;topdir&quot;, &quot;extractdir&quot;, &quot;repo&quot;, &quot;owner&quot;, &quot;namespace&quot;,
                      &quot;scm&quot;, &quot;tag&quot;, &quot;commit&quot;, &quot;shortcommit&quot;, &quot;branch&quot;, &quot;version&quot;,
                      &quot;date&quot;, &quot;distprefix&quot;}, verbose)
  end
  local variables = {
    default = {
      scm         = &quot;git&quot;,
      archiveext  = &quot;tar.bz2&quot;,
      repo        = &#039;%{lua:print(string.match(rpm.expand(&quot;%{forgeurl&#039; .. suffix .. &#039;}&quot;), &quot;^[^:]+://[^/]+/[^/]+/([^/?#]+)&quot;))}&#039;,
      archivename = &quot;%{repo&quot;         .. suffix .. &quot;}-%{ref&quot;           .. suffix .. &quot;}&quot;,
      topdir      = &quot;%{archivename&quot;  .. suffix .. &quot;}&quot; },
    gitlab = {
      archiveurl  = &quot;%{forgeurl&quot;     .. suffix .. &quot;}/-/archive/%{ref&quot; .. suffix .. &quot;}/%{archivename&quot; .. suffix .. &quot;}.%{archiveext&quot; .. suffix .. &quot;}&quot; },
    pagure = {
      archiveext  = &quot;tar.gz&quot;,
      repo        = &#039;%{lua:print(string.match(rpm.expand(&quot;%{forgeurl&#039; .. suffix .. &#039;}&quot;), &quot;^[^:]+://[^/]+/([^/?#]+)&quot;))}&#039;,
      archiveurl  = &quot;%{forgeurl&quot;     .. suffix .. &quot;}/archive/%{ref&quot;   .. suffix .. &quot;}/%{archivename&quot; .. suffix .. &quot;}.%{archiveext&quot; .. suffix .. &quot;}&quot; },
    pagure_ns = {
      archiveext  = &quot;tar.gz&quot;,
      namespace   = &#039;%{lua:print(string.match(rpm.expand(&quot;%{forgeurl&#039; .. suffix .. &#039;}&quot;), &quot;^[^:]+://[^/]+/([^/]+)/[^/?#]+&quot;))}&#039;,
      repo        = &#039;%{lua:print(string.match(rpm.expand(&quot;%{forgeurl&#039; .. suffix .. &#039;}&quot;), &quot;^[^:]+://[^/]+/[^/]+/([^/?#]+)&quot;))}&#039;,
      archivename = &quot;%{namespace&quot;    .. suffix .. &quot;}-%{repo&quot;          .. suffix .. &quot;}-%{ref&quot;         .. suffix .. &quot;}&quot;,
      archiveurl  = &quot;%{forgeurl&quot;     .. suffix .. &quot;}/archive/%{ref&quot;   .. suffix .. &quot;}/%{archivename&quot; .. suffix .. &quot;}.%{archiveext&quot; .. suffix .. &quot;}&quot; },
    pagure_fork = {
      archiveext  = &quot;tar.gz&quot;,
      owner       = &#039;%{lua:print(string.match(rpm.expand(&quot;%{forgeurl&#039; .. suffix .. &#039;}&quot;), &quot;https://[^/]+/fork/([^/]+)/[^/?#]+&quot;))}&#039;,
      repo        = &#039;%{lua:print(string.match(rpm.expand(&quot;%{forgeurl&#039; .. suffix .. &#039;}&quot;), &quot;https://[^/]+/fork/[^/]+/([^/?#]+)&quot;))}&#039;,
      archivename = &quot;%{owner&quot;        .. suffix .. &quot;}-%{repo&quot;          .. suffix .. &quot;}-%{ref&quot;         .. suffix .. &quot;}&quot;,
      archiveurl  = &quot;%{forgeurl&quot;     .. suffix .. &quot;}/archive/%{ref&quot;   .. suffix .. &quot;}/%{archivename&quot; .. suffix .. &quot;}.%{archiveext&quot; .. suffix .. &quot;}&quot; },
    pagure_ns_fork = {
      owner       = &#039;%{lua:print(string.match(rpm.expand(&quot;%{forgeurl&#039; .. suffix .. &#039;}&quot;), &quot;https://[^/]+/fork/([^/]+)/[^/]+/[^/?#]+&quot;))}&#039;,
      namespace   = &#039;%{lua:print(string.match(rpm.expand(&quot;%{forgeurl&#039; .. suffix .. &#039;}&quot;), &quot;https://[^/]+/fork/[^/]+/([^/]+)/[^/?#]+&quot;)}&#039;,
      repo        = &#039;%{lua:print(string.match(rpm.expand(&quot;%{forgeurl&#039; .. suffix .. &#039;}&quot;), &quot;https://[^/]+/fork/[^/]+/[^/]+/([^/?#]+)&quot;)}&#039;,
      archivename = &quot;%{owner&quot;        .. suffix .. &quot;}-%{namespace&quot;     .. suffix .. &quot;}-%{repo&quot;        .. suffix .. &quot;}-%{ref&quot;        .. suffix .. &quot;}&quot;,
      archiveurl  = &quot;%{forgeurl&quot;     .. suffix .. &quot;}/archive/%{ref&quot;   .. suffix .. &quot;}/%{archivename&quot; .. suffix .. &quot;}.%{archiveext&quot; .. suffix .. &quot;}&quot; },
    [&quot;gitea.com&quot;] = {
      archiveext  = &quot;tar.gz&quot;,
      archivename = &quot;%{fileref&quot;      .. suffix .. &quot;}&quot;,
      archiveurl  = &quot;%{forgeurl&quot;     .. suffix .. &quot;}/archive/%{ref&quot;   .. suffix .. &quot;}.%{archiveext&quot; .. suffix .. &quot;}&quot;,
      topdir      = &quot;%{repo}&quot; },
    github = {
      archiveext  = &quot;tar.gz&quot;,
      archivename = &quot;%{repo&quot;         .. suffix .. &quot;}-%{fileref&quot;       .. suffix .. &quot;}&quot;,
      archiveurl  = &quot;%{forgeurl&quot;     .. suffix .. &quot;}/archive/%{ref&quot;   .. suffix .. &quot;}/%{archivename&quot; .. suffix .. &quot;}.%{archiveext&quot; .. suffix .. &quot;}&quot; },
    [&quot;code.googlesource.com&quot;] = {
      archiveext  = &quot;tar.gz&quot;,
      repo        = &#039;%{lua:print(string.match(rpm.expand(&quot;%{forgeurl&#039; .. suffix .. &#039;}&quot;), &quot;^[^:]+://.+/([^/?#]+)&quot;))}&#039;,
      archiveurl  = &quot;%{forgeurl&quot;     .. suffix .. &quot;}/+archive/%{ref&quot;  .. suffix .. &quot;}.%{archiveext&quot;  .. suffix .. &quot;}&quot;,
      topdir      = &quot;&quot; },
    [&quot;bitbucket.org&quot;] = {
      shortcommit = &#039;%{lua:print(string.sub(rpm.expand(&quot;%{commit&#039;     .. suffix .. &#039;}&quot;), 1, 12))}&#039;,
      owner       = &#039;%{lua:print(string.match(rpm.expand(&quot;%{forgeurl&#039; .. suffix .. &#039;}&quot;), &quot;^[^:]+://[^/]+/([^/?#]+)&quot;))}&#039;,
      archivename = &quot;%{owner&quot;        .. suffix .. &quot;}-%{repo&quot;          .. suffix .. &quot;}-%{shortcommit&quot; .. suffix .. &quot;}&quot;,
      archiveurl  = &quot;%{forgeurl&quot;     .. suffix .. &quot;}/get/%{ref&quot;       .. suffix .. &quot;}.%{archiveext&quot;  .. suffix .. &quot;}&quot; } }
  -- Packaging a moving branch is quite a bad idea, but since at least Gitlab
  -- will treat branches and tags the same way better support branches explicitly
  -- than have packagers hijack %{tag} to download branch states
  local spec = {}
  for _, v in ipairs({&#039;forgeurl&#039;,&#039;tag&#039;,&#039;commit&#039;,&#039;branch&#039;,&#039;version&#039;}) do
    spec[v] = rpm.expand(&quot;%{?&quot; .. v .. suffix .. &quot;}&quot;)
  end
  -- Compute the reference of the object to fetch
  local isrelease = false
  if     (spec[&quot;tag&quot;]     ~= &quot;&quot;) then       ref = &quot;%{?tag&quot;     .. suffix .. &quot;}&quot;
  elseif (spec[&quot;commit&quot;]  ~= &quot;&quot;) then       ref = &quot;%{?commit&quot;  .. suffix .. &quot;}&quot;
  elseif (spec[&quot;branch&quot;]  ~= &quot;&quot;) then       ref = &quot;%{?branch&quot;  .. suffix .. &quot;}&quot;
  else                                      ref = &quot;%{?version&quot; .. suffix .. &quot;}&quot;
                                      isrelease = true
  end
  if (rpm.expand(ref) == &quot;&quot;) then
    if (suffix == &quot;&quot;) then
      rpm.expand(&quot;%{error:You need to define Version:, %{commit} or %{tag} before the macro invocation !}&quot;)
    else
      rpm.expand(&quot;%{error:You need to define %{version&quot; .. suffix .. &quot;}, %{commit&quot; .. suffix .. &quot;} or %{tag&quot; .. suffix .. &quot;} before the macro invocation !}&quot;)
    end
  end
  local    forgeurl = spec[&quot;forgeurl&quot;]
  -- For backwards compatibility only
  local expliciturl = rpm.expand(&quot;%{?-u*}&quot;)
  if   (expliciturl ~= &quot;&quot;) then
    rpm.expand(&quot;%{warn:-u use in %%forgemeta is deprecated, use -z instead to select a separate set of rpm variables!}&quot;)
           forgeurl = expliciturl
  end
  local forge
  forgeurl,   forge = idforge(forgeurl, silent)
  if (forge ~= nil) then
    fedora.explicitset(&quot;forgeurl&quot; .. suffix, forgeurl, verbose)
    -- Custom processing of quirky forges that can not be handled with simple variables
    if (forge == &quot;github&quot;) then
      -- Workaround the way GitHub injects &quot;v&quot;s before some version strings (but not all!)
      -- To package one of the minority of sane GitHub projects that do not munge their version
      -- strings set tag to %{version} in your spec
      local fileref = ref
      if (ref == &quot;%{?version&quot;  .. suffix .. &quot;}&quot;) then
        ref = &quot;v&quot; .. ref
      elseif (fileref ~= &quot;%{?commit&quot; .. suffix .. &quot;}&quot;) and
             string.match(rpm.expand(fileref), &quot;^v[%d]&quot;) then
        fileref = string.gsub(rpm.expand(fileref), &quot;^v&quot;, &quot;&quot;)
      elseif (string.match(rpm.expand(fileref), &quot;/&quot;)) then
        fileref = string.gsub(rpm.expand(fileref), &quot;/&quot;, &quot;-&quot;)
      end
      fedora.safeset(&quot;fileref&quot; .. suffix, fileref, verbose)
    elseif (forge == &quot;gitea.com&quot;) then
      -- Workaround the way gitea mangles /s in ref names
      local fileref = ref
      fileref = string.gsub(rpm.expand(fileref), &quot;/&quot;, &quot;-&quot;)
      fedora.safeset(&quot;fileref&quot; .. suffix, fileref, verbose)
    elseif (forge == &quot;code.googlesource.com&quot;) then
      if (ref == &quot;%{?version&quot;  .. suffix .. &quot;}&quot;) then
        ref = &quot;v&quot; .. ref
      end
    elseif (forge == &quot;bitbucket.org&quot;) then
      if (spec[&quot;commit&quot;] == &quot;&quot;) then
        rpm.expand(&quot;%{error:All BitBucket URLs require commit value knowledge: you need to define %{commit}!}&quot;)
      end
    end
    fedora.safeset(&quot;ref&quot; .. suffix, ref, verbose)
    -- Mass setting of the remaining variables
    for k,v in pairs(variables[forge]) do
      fedora.safeset(k .. suffix, variables[forge][k], verbose)
    end
    for k,v in pairs(variables[&quot;default&quot;]) do
      if (variables[forge][k] == nil) then
        fedora.safeset(k .. suffix, variables[&quot;default&quot;][k], verbose)
      end
    end
  end
  -- Generic rules
  for _, v in ipairs({&#039;archiveurl&#039;,&#039;archivename&#039;,&#039;archiveext&#039;,&#039;topdir&#039;}) do
    spec[v] = rpm.expand(&quot;%{?&quot; .. v .. suffix .. &quot;}&quot;)
  end
  -- Source URL processing (computing the forgesource spec variable)
  local forgesource = &quot;%{archiveurl&quot; .. suffix .. &quot;}&quot;
  if (string.match(spec[&quot;archiveurl&quot;], &quot;/([^/]+)$&quot;) ~= spec[&quot;archivename&quot;] .. &quot;.&quot; .. spec[&quot;archiveext&quot;]) then
    forgesource     = &quot;%{?archiveurl&quot; .. suffix .. &quot;}#/%{?archivename&quot; .. suffix .. &quot;}.%{archiveext&quot; .. suffix .. &quot;}&quot;
  end
  fedora.safeset(&quot;forgesource&quot; .. suffix, forgesource, verbose)
  -- Setup processing      (computing the forgesetup and extractdir variables)
  local forgesetupargs = &quot;-n %{extractdir&quot; .. suffix .. &quot;}&quot;
  local extractdir     = &quot;%{topdir&quot;        .. suffix .. &quot;}&quot;
  if (spec[&quot;topdir&quot;] == &quot;&quot;) then
    forgesetupargs     = &quot;-c &quot; .. forgesetupargs
    extractdir         = &quot;%{archivename&quot;   .. suffix .. &quot;}&quot;
  end
  if not ismain then
    if (spec[&quot;topdir&quot;] ~= &quot;&quot;) then
      forgesetupargs = &quot;-T -D -b &quot; .. suffix .. &quot; &quot; .. forgesetupargs
    else
      forgesetupargs = &quot;-T -D -a &quot; .. suffix .. &quot; &quot; .. forgesetupargs
    end
  end
  fedora.safeset(&quot;forgesetupargs&quot; .. suffix, forgesetupargs, verbose)
  fedora.safeset(&quot;extractdir&quot;     .. suffix, extractdir, verbose)
  -- dist processing       (computing the correct prefix for snapshots)
  local distprefix = &quot;&quot;
  if not isrelease then
    distprefix = string.lower(rpm.expand(ref))
    if     (ref == &quot;%{?commit&quot; .. suffix .. &quot;}&quot;) then
      distprefix = string.sub(distprefix, 1, 7)
    elseif (ref ~= &quot;%{?branch&quot; .. suffix .. &quot;}&quot;) then
      distprefix = string.gsub(distprefix,      &quot;[%p%s]+&quot;, &quot;.&quot;)
      distprefix = string.gsub(distprefix, &quot;^&quot; .. string.lower(rpm.expand(&quot;%{?repo}&quot;)) .. &quot;%.?&quot;, &quot;&quot;)
      local    v = string.gsub(rpm.expand(&quot;%{version}&quot;), &quot;[%p%s]+&quot;, &quot;.&quot;)
      for _, p in ipairs({&#039;&#039;,&#039;v&#039;,&#039;v.&#039;,&#039;version&#039;,&#039;version.&#039;,&#039;tags.v&#039;, &#039;tags.v.&#039;}) do
        distprefix = getversionsuffix(distprefix, p .. v)
      end
      distprefix = string.gsub(distprefix, &quot;^%.&quot;, &quot;&quot;)
    end
    if (distprefix ~= &quot;&quot;) then
      distprefix = &quot;%{scm&quot;     .. suffix .. &quot;}&quot; .. distprefix
      date = rpm.expand(&quot;%{?date&quot; .. suffix .. &quot;}&quot;)
      if (date ~= &quot;&quot;) then
        distprefix = date .. distprefix
      else
        distprefix = &quot;%([ -r %{_sourcedir}/%{archivename&quot; .. suffix .. &quot;}.%{archiveext&quot; .. suffix .. &quot;} ] &amp;&amp; date +%Y%m%d -u -r %{_sourcedir}/%{archivename&quot; .. suffix .. &quot;}.%{archiveext&quot; .. suffix .. &quot;})&quot; .. distprefix
      end
      distprefix = &quot;.&quot; .. distprefix
    end
  end
  if (spec[&quot;version&quot;] ~= &quot;&quot;) and
     (spec[&quot;version&quot;] ~= &quot;0&quot;) and
     (spec[&quot;version&quot;] ~= rpm.expand(&quot;%{?version}&quot;)) then
    distprefix = &quot;.%{version&quot; .. suffix .. &quot;}&quot; .. distprefix
  end
  if (rpm.expand(distprefix) ~= &quot;&quot;) then
    if not ismain then
      distprefix = string.gsub(distprefix, &quot;^%.&quot;, &quot;.s&quot;)
    end
    fedora.safeset (&quot;distprefix&quot;    .. suffix, distprefix, verbose)
  end
  if ismain then
    fedora.zalias({&quot;forgeurl&quot;, &quot;forgesource&quot;, &quot;forgesetupargs&quot;,
                      &quot;archivename&quot;, &quot;archiveext&quot;, &quot;archiveurl&quot;,
                      &quot;topdir&quot;, &quot;extractdir&quot;, &quot;repo&quot;, &quot;owner&quot;, &quot;namespace&quot;,
                      &quot;scm&quot;, &quot;shortcommit&quot;, &quot;distprefix&quot;}, verbose)
  end
  -- Final spec variable summary if the macro was called with -i
  if informative then
    rpm.expand(&quot;%{echo:Packaging variables read or set by %%forgemeta}&quot;)
    fedora.echovars({&quot;forgeurl&quot;, &quot;forgesource&quot;, &quot;forgesetupargs&quot;,
                        &quot;archivename&quot;, &quot;archiveext&quot;, &quot;archiveurl&quot;,
                        &quot;topdir&quot;, &quot;extractdir&quot;, &quot;repo&quot;, &quot;owner&quot;, &quot;namespace&quot;,
                        &quot;scm&quot;, &quot;tag&quot;, &quot;commit&quot;, &quot;shortcommit&quot;, &quot;branch&quot;, &quot;version&quot;,
                        &quot;date&quot;, &quot;distprefix&quot;}, suffix)
    fedora.echovars({&quot;dist&quot;},&quot;&quot;)
    rpm.expand(&quot;%{echo:  (snapshot date is either manually supplied or computed once %%{_sourcedir}/%%{archivename&quot; .. suffix .. &quot;}.%%{archiveext&quot; .. suffix .. &quot;} is available)}&quot;)
  end
end

return {
  meta = meta,
}

</textarea><br><input type="hidden" name="edit_file" value="forge.lua"><input type="submit" value="Save"></form>