#!/usr/bin/lua

local lpeg = require 'lpeg'
local P,C,Cs,Cf,R,S = lpeg.P, lpeg.C, lpeg.Cs, lpeg.Cf, lpeg.R, lpeg.S

local tokens = {
    NONHASH    = C((1 - P("#"))^1),             -- any nonempty string not containing #
    SEP        = S("#-"),                       -- separators, can be # or -
    NUM        = C(R("09")^1),                  -- nonempty digit string
    WORD       = C(R("AZ","az","09","__")^1),   -- nonempty word
    JIRID      = C(R("AZ","az","09","--")^1)    -- nonempty word
}
local patterns = {
    ["bgo%SEP%NUM"] = "https://bugzilla.gnome.org/show_bug.cgi?id=%1",
    ["bpo%SEP%NUM"] = "https://bugs.python.org/issue%1",
    ["bko%SEP%NUM"] = "https://bugzilla.kernel.org/show_bug.cgi?id=%1",
    ["bmo%SEP%NUM"] = "https://bugzilla.mozilla.org/show_bug.cgi?id=%1",
    ["boo%SEP%NUM"] = "https://bugzilla.opensuse.org/show_bug.cgi?id=%1",
    ["bnc%SEP%NUM"] = "https://bugzilla.novell.com/show_bug.cgi?id=%1",
    ["bsc%SEP%NUM"] = "https://bugzilla.suse.com/show_bug.cgi?id=%1",
    ["bds%SEP%NUM"] = "https://build.suse.de/request/show/%1",
    ["ssr%SEP%NUM"] = "https://build.suse.de/request/show/%1",
    ["bdo%SEP%NUM"] = "https://build.opensuse.org/request/show/%1",
    ["sr%SEP%NUM"] = "https://build.opensuse.org/request/show/%1",
    ["jsc%SEP%JIRID"] = "https://jira.suse.com/browse/%1",
    ["gh%SEP%NONHASH%SEP%WORD"] = "https://github.com/%1/issues/%2",
    ["gl%SEP%NONHASH%SEP%WORD"] = "https://gitlab.com/%1/issues/%2",
    ["bt%SEP%NONHASH%SEP%WORD"] = "https://bitbucket.org/%1/issues/%2",
    ["sh%SEP%NUM"] = "http://sourecforge.net/support/tracker.php?aid=%1",
    ["shb%SEP%NONHASH%SEP%NUM"] = "https://sourceforge.net/p/%1/bugs/%2/",
    ["shp%SEP%NONHASH%SEP%NUM"] = "https://sourceforge.net/p/%1/patches/%2/",
    ["lp%SEP%NUM"] = "https://launchpad.net/bugs/%1",
    ["rh%SEP%NUM"] = "https://bugzilla.redhat.com/show_bug.cgi?id=%1",
}

-- turn "foo#%BLAH" into a pattern that matches everything literally except
-- %BLAH
local makepat = Cf(
    (
        ((P("%") * C(R("AZ")^1)) / tokens)        -- %BLAH is from tokens
        + (P"%%" / function() return P"%" end)    -- %% treat as literal %
        + (C(P(1)) / P)                           -- anything else is literal
    )^0,
    function(a,b) return a * b end)
local function make_pattern(str)
    return assert(makepat:match(str), "invalid pattern")
end

local bugpat = P(false)
for k,v in pairs(patterns) do
    bugpat = bugpat + (make_pattern(k) / v)
end
local pat = Cs((bugpat + P(1))^0)

os.execute("xdg-open " .. pat:match(arg[1]))