skandinavien-wiki.net

Modul:WLink: Unterschied zwischen den Versionen

Modul Diskussion

Modul:WLink (Quelltext anzeigen)

Version vom 11. Februar 2023, 20:58 Uhr

17.458 Bytes entfernt ,  vor 2 Jahren
K
35 Versionen von wikivoyage:Modul:WLink importiert
K (35 Versionen von w:Modul:WLink importiert)
K (35 Versionen von wikivoyage:Modul:WLink importiert)
 
(5 dazwischenliegende Versionen von 3 Benutzern werden nicht angezeigt)
Zeile 1: Zeile 1:
local WLink = { suite  = "WLink",
local WLink = { suite  = "WLink",
                 serial = "2019-11-16",
                 serial = "2016-10-05" };
                item  = 19363224,
                globals = { URLutil = 10859193 } };
 
--[=[
--[=[
ansiPercent()
ansiPercent()
Zeile 14: Zeile 11:
getFragment()
getFragment()
getLanguage()
getLanguage()
getLinktextProblem()
getNamespace()
getNamespace()
getNamespaced()
getPlain()
getPlain()
getProject()
getProject()
getTarget()
getTarget()
getTalkPage()
getTargetPage()
getTargetPage()
getTitle()
getTitle()
getWeblink()
getWeblink()
getWikilink()
isBracketedLink()
isBracketedLink()
isBracketedURL()
isBracketedURL()
Zeile 32: Zeile 25:
isInterwiki()
isInterwiki()
isMedia()
isMedia()
isTalkPage()
isTitledLink()
isTitledLink()
isValidLink()
isValidLink()
isValidLinktext()
isWikilink()
isWikilink()
pageLink()
pageTarget()
wikilink()
wikilink()
failsafe()
failsafe()
Zeile 46: Zeile 35:


-- local globals
-- local globals
local URLutil   = false;
local URLutil = false;
local Failsafe  = WLink;
local GlobalMod = WLink;
 
 
 
local htmlInline = { b      = true,
                    bdi    = true,
                    bdo    = true,
                    big    = true,
                    code  = true,
                    em    = true,
                    i      = true,
                    kbd    = true,
                    s      = true,
                    samp  = true,
                    small  = true,
                    span  = true,
                    strong = true,
                    style  = true,
                    sub    = true,
                    sup    = true,
                    tt    = true,
                    var    = true };
 
 
 
local foreignModule = function ( access, advanced, append, alt, alert )
    -- Fetch global module
    -- Precondition:
    --    access    -- string, with name of base module
    --    advanced  -- true, for require(); else mw.loadData()
    --    append    -- string, with subpage part, if any; or false
    --    alt      -- number, of wikidata item of root; or false
    --    alert    -- true, for throwing error on data problem
    -- Postcondition:
    --    Returns whatever, probably table
    -- 2019-10-29
    local storage = access;
    local finer = function ()
                      if append then
                          storage = string.format( "%s/%s",
                                                  storage,
                                                  append );
                      end
                  end
    local fun, lucky, r, suited;
    if advanced then
        fun = require;
    else
        fun = mw.loadData;
    end
    GlobalMod.globalModules = GlobalMod.globalModules or { };
    suited = GlobalMod.globalModules[ access ];
    if not suited then
        finer();
        lucky, r = pcall( fun,  "Module:" .. storage );
    end
    if not lucky then
        if not suited  and
          type( alt ) == "number"  and
          alt > 0 then
            suited = string.format( "Q%d", alt );
            suited = mw.wikibase.getSitelink( suited );
            GlobalMod.globalModules[ access ] = suited or true;
        end
        if type( suited ) == "string" then
            storage = suited;
            finer();
            lucky, r = pcall( fun, storage );
        end
        if not lucky and alert then
            error( "Missing or invalid page: " .. storage, 0 );
        end
    end
    return r;
end -- foreignModule()




Zeile 132: Zeile 45:
     --    Throws error, if not available
     --    Throws error, if not available
     if not URLutil then
     if not URLutil then
         local util = foreignModule( "URLutil",
         local lucky, util = pcall( require, "Module:URLutil" );
                                    true,
         if lucky then
                                    false,
            if type( util ) == "table" then
                                    WLink.globals.URLutil );
                URLutil = util.URLutil();
         if type( util ) == "table" then
            end
            URLutil = util.URLutil();
        else
             util = "library URLutil invalid";
             util = "library URLutil invalid";
         end
         end
Zeile 147: Zeile 58:
     return URLutil;
     return URLutil;
end -- utilURL()
end -- utilURL()
local cleanWikilink = function ( access )
    -- Refine wikilink spacing and decode
    -- Precondition:
    --    access  -- string, with presumable link
    -- Postcondition:
    --    Returns  string, with pretty target
    local r = access:gsub( "_",        " " )
                    :gsub( " ",  " " )
                    :gsub( " ", " " )
                    :gsub( " ",  " " )
                    :gsub( " ",  " " )
                    :gsub( "%s+",      " " );
    r = mw.text.decode( r );
    return r;
end -- cleanWikilink()




Zeile 295: Zeile 188:
             r1 = false;
             r1 = false;
         else
         else
             r1 = cleanWikilink( r1 );
             r1 = r1:gsub( "_",        " " )
                  :gsub( " ",  " " )
                  :gsub( " ", " " )
                  :gsub( " ",  " " )
                  :gsub( " ",  " " )
                  :gsub( "  +",      " " );
            r1 = mw.text.decode( r1 );
         end
         end
     end
     end
Zeile 303: Zeile 202:




local farming = function ( already )
local prefix = function ( ask, ahead )
    -- Retrieve wikifarm project information
    -- Precondition:
    --    already  -- table, with wikilink components
    -- Postcondition:
    --    Returns  table, with wikilink components extended
    local r = already;
    if not r.project then
        local codes  = { mediawiki  = "mw",
                        wikibooks  = "b",
                        wikidata    = "d",
                        wikinews    = "n",
                        wikipedia  = "w",
                        wikiquote  = "q",
                        wikisource  = "s",
                        wikiversity = "v",
                        wikivoyage  = "voy",
                        wiktionary  = "wikt" };
        local server = mw.site.server:gsub( "([/.])m%.",
                                            "%1" )
                                      :gsub( "%.beta%.wmflabs%.org$",
                                            ".org" );
        local site  = server:match( "[/.](%l+)%.org$" );
        r.project = codes[ site ];
        if r.project then
            if not r.lang  and
              r.project ~= "mw"  and  r.project ~= "d" then
                r.lang = server:match( "//(%l+)%." );
            end
        else
            site = server:match( "//(%l+)%.wikimedia%.org$" );
            if site == "commons"  or  site == "meta" then
                r.project = site;
            end
        end
    end
    if r.project  and  r.ns  and
      ( r.project == "commons"  or
        r.project == "d"        or
        r.project == "meta"    or
        r.project == "mw" ) then
        r.language = true;
    end
    return r;
end -- farming()
 
 
 
local prefix = function ( ask )
     -- Interprete prefix of language or project type
     -- Interprete prefix of language or project type
     -- Precondition:
     -- Precondition:
     --    ask    -- string, with presumable prefix
     --    ask    -- string, with presumable prefix
    --    ahead  -- true, if first segment
     -- Postcondition:
     -- Postcondition:
     --    Returns  string,string or nil
     --    Returns  string,string or nil
Zeile 389: Zeile 241:
                     };
                     };
     local s = mw.text.trim( ask );
     local s = mw.text.trim( ask );
     if s ~= "" then
     if s == "" then
        if ahead then
            r1 = "lead";
            r2 = true;
        end
    else
         local p;
         local p;
         s = s:lower();
         s = s:lower();
Zeile 468: Zeile 325:
                 end
                 end
             else
             else
                 s = string.format( "%%%02X", k );
                 s = string.format( "%%%2X", k );
             end
             end
             r = string.format( "%s%s%s",
             r = string.format( "%s%s%s",
Zeile 476: Zeile 333:
         end
         end
     end -- for --i
     end -- for --i
    r = mw.ustring.gsub(r, '^%*', '%%2A')
     return r;
     return r;
end -- WLink.ansiPercent()
end -- WLink.ansiPercent()
Zeile 481: Zeile 339:




function WLink.formatURL( adjust, assure )
function WLink.formatURL( adjust )
     -- Create bracketed link, if not yet
     -- Create bracketed link, if not yet
     -- Precondition:
     -- Precondition:
     --    adjust  -- string, with URL or domain/path or bracketed link
     --    adjust  -- string, with URL or domain/path or bracketed link
    --    assure  -- boolean, true for secure HTTP
     -- Postcondition:
     -- Postcondition:
     --    Returns  string, with bracketed link
     --    Returns  string, with bracketed link
Zeile 499: Zeile 356:
             host = URLutil.getHost( adjust );
             host = URLutil.getHost( adjust );
             if not host then
             if not host then
                 url = "://" .. adjust;
                 url = "http://" .. adjust;
                if assure then
                    url = "s" .. url;
                end
                url  = "http" .. url;
                 host = URLutil.getHost( url );
                 host = URLutil.getHost( url );
             end
             end
Zeile 583: Zeile 436:
     return r;
     return r;
end -- WLink.getBaseTitle()
end -- WLink.getBaseTitle()


function WLink.getEscapedTitle( attempt )
function WLink.getEscapedTitle( attempt )
Zeile 598: Zeile 449:
             :gsub( "|",  "|" );
             :gsub( "|",  "|" );
end -- WLink.getEscapedTitle()
end -- WLink.getEscapedTitle()


function WLink.getExtension( attempt )
function WLink.getExtension( attempt )
Zeile 648: Zeile 497:
         r = find( "file" );
         r = find( "file" );
         if not r then
         if not r then
             local trsl = mw.site.namespaces[ 6 ];
             local trsl = mw.site.namespaces[6];
             r = find( trsl.name );
             r = find( trsl.name );
             if not r then
             if not r then
Zeile 723: Zeile 572:
     return r;
     return r;
end -- WLink.getLanguage()
end -- WLink.getLanguage()
function WLink.getLinktextProblem( attempt )
    -- Which problem has this presumable link text?
    -- Precondition:
    --    attempt  -- string, with presumable linktext
    -- Postcondition:
    --    Returns  string, with error message, or false
    local r;
    if attempt:find( "]", 1, true ) then
        r = "]";
    elseif mw.text.unstripNoWiki( attempt ) ~= attempt then
        r = "<nowiki>";
    elseif attempt:find( "\n", 1, true ) then
        r = "\n";
    elseif mw.text.unstrip( attempt ) ~= attempt then
        if not WLink.stripREF then
            WLink.stripREF = string.format( "%c%c%c%c%s%c%c%c%c",
                                            127, 39, 34, 96,
                                            "UNIQ%-+ref%-%x+%-QINU",
                                            96, 34, 39, 127 );
        end
        if mw.ustring.find( attempt, WLink.stripREF ) then
            r = "<ref>";
        end
    end
    if not r then
        local i = attempt:find( "<", 1, true );
        if i then
            local s = mw.ustring.lower( attempt:sub( i ) );
            local sign = true;
            local skip;
            while sign  and  not r do
                skip, sign = s:match( "^([^<]*< *)(%l[%l%d]*)[ /]*.*>" );
                if sign then
                    if htmlInline[ sign ] then
                        i = skip:len() + sign:len() + 1;
                        s = s:sub( i );
                    else
                        r = string.format( "&lt;%s&gt;", sign );
                    end
                end
            end    -- while sign and not r
        end
        if not r then
            local s = attempt .. " ";
            if s:find( "ISBN ", 1, true ) then
                r = s:match( "(ISBN %d[%-%d]+[%dxX])%W" );
            end
            if not r then
                if s:find( "PMID ", 1, true ) then
                    r = s:match( "(PMID [1-9]%d*)%W" );
                end
                if not r then
                    if s:find( "RFC ", 1, true ) then
                        r = s:match( "(RFC [1-9]%d?%d?%d?)%W" );
                    end
                end
            end
        end
    end
    return r or false;
end -- WLink.getLinktextProblem()




Zeile 807: Zeile 592:
     return r;
     return r;
end -- WLink.getNamespace()
end -- WLink.getNamespace()
function WLink.getNamespaced( area, attempt )
    -- Retrieve page in namespace
    -- Precondition:
    --    area    -- string or number, with some namespace spec
    --    attempt  -- string, with wikilink or page title or page name
    -- Postcondition:
    --    Returns  page prefixed by namespace,
    --              false if invalid
    local r = false;
    local s = type( area );
    local room;
    if s == "string" then
        room = mw.site.namespaces[ tonumber( area )  or  area ];
    elseif s == "number" then
        room = mw.site.namespaces[ area ];
    end
    if room then
        local m;
        s, m = WLink.getTarget( attempt );
        if not s then
            s = attempt;
        elseif m ~= 2 then
            s = false;
        end
        if s then
            local w = WLink.wikilink( s );
            if w  and  not w.lang  and  not w.project  and
              ( not w.ns  or  w.ns == room.id ) then
                r = string.format( "%s:%s",
                                  room.name, w.title );
            end
        end
    end
    return r;
end -- WLink.getNamespaced()




Zeile 856: Zeile 603:
     local r = attempt;
     local r = attempt;
     local i = 1;
     local i = 1;
     local j, k, n, lean, s, shift, span, space, suffix;
     local j, k, n, lean, s, shift, space, suffix;
     while ( true ) do
     while ( true ) do
         j = r:find( "[", i, true );
         j = r:find( "[", i, true );
Zeile 871: Zeile 618:
                 if k > 1 then
                 if k > 1 then
                     n      = n - k;
                     n      = n - k;
                     i      = j + k + 1;
                     i      = j + k;
                     j      = i - 1;
                     j      = i - 1;
                     suffix = r:sub( j );
                     suffix = r:sub( j );
Zeile 895: Zeile 642:
                     end
                     end
                 else
                 else
                     span, shift = extractExtlink( suffix );
                     s, shift = extractExtlink( suffix );
                     if span then
                     if not s then
                         if not shift then
                         s = "";
                            shift = "";
                    end
                        end
                     if not shift then
                     else
                         shift = "";
                         shift = string.format( "[%s]", s );
                     end
                     end
                     i = i - 1;
                     i = i - 1;
Zeile 919: Zeile 665:
             break; -- while true
             break; -- while true
         end
         end
     end   -- while true
     end -- while true
     return r;
     return r;
end -- WLink.getPlain()
end -- WLink.getPlain()
Zeile 942: Zeile 688:
     return r;
     return r;
end -- WLink.getProject()
end -- WLink.getProject()
function WLink.getTalkPage( attempt )
    -- Retrieve talk page name for attempt, or that page name itself
    -- Precondition:
    --    attempt  -- string, with presumable link somewhere
    -- Postcondition:
    --    Returns  string  or  false
    local r = false;
    local s, m = WLink.getTarget( attempt );
    if m ~= 2  and  attempt then
        s = mw.text.trim( attempt );
    end
    if s  and  s ~= "" then
        local w = mw.title.new( s );
        if w then
            w = w.talkPageTitle;
            if w then
                r = w.prefixedText;
            end
        end
    end
    return r;
end -- WLink.getTalkPage()




Zeile 1.079: Zeile 800:
     end
     end
     if URLutil.isResourceURL( attempt ) then
     if URLutil.isResourceURL( attempt ) then
         local site   = URLutil.getAuthority( attempt );
         local site = URLutil.getAuthority( attempt );
        local service = attempt;
         local show;
         local show;
         if #attempt == #site then
         if #attempt == #site then
Zeile 1.087: Zeile 807:
         show = URLutil.getTop3domain( "//" .. site );
         show = URLutil.getTop3domain( "//" .. site );
         if show then
         if show then
             local scan  = "[%./](%a[%a%%%-]*%a)(%.%l%l%.)(%a+)$";
             local scan  = "[%./](%a+)(%.%l%l%.)(%a+)$";
             local search = "." .. show;
             local search = "." .. show;
             local s1, s2, s3 = search:match( scan );
             local s1, s2, s3 = search:match( scan );
             if s2 then
             if s2 then
                 if not second:find( s2, 1, true ) then
                 if not second:find( s2, 1, true ) then
                     show = string.format( "%s%s", s2:sub( 2 ), s3 );
                     show = string.format( "%s.%s", s2, s3 );
                 end
                 end
             else
             else
Zeile 1.104: Zeile 824:
             end
             end
         end
         end
        if not service:match( "^[a-z:]*//.+/" ) then
         r = string.format( "[%s %s]", attempt, show );
            service = service .. "/";
        end
         r = string.format( "[%s %s]", service, show );
     else
     else
         r = attempt;
         r = attempt;
Zeile 1.113: Zeile 830:
     return r;
     return r;
end -- WLink.getWeblink()
end -- WLink.getWeblink()
function WLink.getWikilink( attempt, appear )
    -- Retrieve bracketed link from text
    -- Precondition:
    --    attempt  -- string, with current target, or plain
    --    appear  -- string, with link title, or nil
    -- Postcondition:
    --    Returns  string, with first detected link target
    --              false if nothing found
    local r = WLink.pageTarget( attempt );
    if r then
        if appear then
            local show = WLink.getEscapedTitle( appear );
            if show ~= r  and  show ~= "" then
                r = string.format( "%s|%s", r, show );
            end
        end
        r = string.format( "[[%s]]", r );
    end
    return r;
end -- WLink.getWikilink()




Zeile 1.269: Zeile 963:
     return r;
     return r;
end -- WLink.isMedia()
end -- WLink.isMedia()
function WLink.isTalkPage( attempt )
    -- Does attempt describe a talk page?
    -- Precondition:
    --    attempt  -- string, with presumable link somewhere
    -- Postcondition:
    --    Returns  boolean
    local r = false;
    local s, m = WLink.getTarget( attempt );
    if m ~= 2  and  attempt then
        s = mw.text.trim( attempt );
    end
    if s  and  s ~= "" then
        local w = mw.title.new( s );
        if w then
            r = w.isTalkPage;
        end
    end
    return r;
end -- WLink.isTalkPage()




Zeile 1.330: Zeile 1.002:
     -- Postcondition:
     -- Postcondition:
     --    Returns  boolean
     --    Returns  boolean
     local u, r = WLink.getTarget( attempt );
     local s, r = WLink.getTarget( attempt );
     if r then
     if r then
         if r < 2 then
         r = true;
            if u:find( "''", 1, true ) then
                r = false;
            else
                r = true;
            end
        else
            r = true;
        end
     end
     end
     return r;
     return r;
end -- WLink.isValidLink()
end -- WLink.isValidLink()
function WLink.isValidLinktext( attempt, allow )
    -- Is attempt a plain inline text?
    -- Precondition:
    --    attempt  -- string, with presumable linktext
    --    allow    -- boolean or nil, if multiline permitted
    -- Postcondition:
    --    Returns  boolean
    local s;
    if allow  and  s:find( "\n", 1, true ) then
        s = attempt:gsub( "\n", " " );
    else
        s = attempt;
    end
    return  not WLink.getLinktextProblem( s );
end -- WLink.isValidLinktext()




Zeile 1.374: Zeile 1.020:
     return ( m == 2 );
     return ( m == 2 );
end -- WLink.isWikilink()
end -- WLink.isWikilink()
function WLink.pageLink( attempt, appear, assure )
    -- Create safely standardized wikilink target of a page
    --    attempt  -- string, with presumable link
    --    appear  -- string or true or nil, with link title
    --    assure  -- string or nil, shield against wiki template syntax
    --                "URL" or "WIKI"
    -- Postcondition:
    --    Returns  string with link target
    local r = WLink.pageTarget( attempt, assure );
    if appear then
        local show;
        if type( appear ) == "string" then
            show = appear;
        else
            show = attempt;
        end
        r = string.format( "%s|%s", r, show );
    end
    return r;
end -- WLink.pageLink()
function WLink.pageTarget( attempt, assure )
    -- Create standardized wikilink target of a page
    -- Precondition:
    --    attempt  -- string, with presumable link
    --                        expected to be enclosed in "[[" "]]"
    --                        else wikilink
    --                table, of assignments with { type, value }
    --                        type is one of "lead",
    --                            "project", "lang",
    --                            "ns", "space", "title"
    --    assure  -- string or nil, shield against wiki template syntax
    --                "URL" or "WIKI"
    -- Postcondition:
    --    Returns  string with link target
    local p = type( attempt );
    local s = assure;
    local r;
    if p == "string" then
        p = WLink.wikilink( attempt );
    elseif p == "table" then
        p = attempt;
    else
        p = false;
    end
    if p then
        local site  = p.project;
        local slang = p.lang;
        local lead;
        if p.title:sub( 1, 1 ) == "#" then
            p.title = mw.title.getCurrentTitle().text + p.title;
        end
        if p.ns then
            if not slang then
                p = farming( p );
            end
            if p.lang  and
              p.lang ~= mw.language.getContentLanguage():getCode() then
                p.language = true;
            end
            if p.language then
                p.space = mw.site.namespaces[ p.ns ].canonicalName;
            end
            lead = ( p.ns == 6  or  p.ns == 14 );
        end
        if slang then
            lead = true;
        end
        if s == "WIKI" then
            if not site  and
              ( lead  or
                ( not p.space  and
                  p.title and p.title:match( "^[*;]" ) ) ) then
                p    = farming( p );
                site  = p.project;
                slang = p.lang;
            end
            s = false;
        end
        if site then
            r = site .. ":";
        elseif lead then
            r = ":";
        else
            r = "";
        end
        if slang then
            r = string.format( "%s%s:", r, slang );
        end
        if p.space then
            r = string.format( "%s%s:", r, p.space );
        end
        if p.title then
            r = r .. p.title;
        end
        if r == "" then
            r = false;
        end
    end
    if not r then
        p = { lang = mw.language.getContentLanguage():getCode() };
        if s == "WIKI" then
            r = WLink.pageTarget( p, s );
            s = false;
        else
            r = string.format( ":%s:", p.lang );
        end
    end
    if s == "URL"  and  r:match( "^[*#;:]" ) then
        r = mw.uri.encode( r:sub( 1, 1 ) )  ..  r:sub( 2 );
    end
    return r;
end -- WLink.pageTarget()




Zeile 1.503: Zeile 1.031:
     -- Postcondition:
     -- Postcondition:
     --    Returns  table or false
     --    Returns  table or false
     --              table of assignments with { type, value }
     --              table of assignments with { type, value}
     --                      type is one of "lead",
     --                      type is one of "lead",
     --                          "project", "lang",
     --                          "project", "lang",
     --                          "ns", "space", "title"
     --                          "ns", "space", "title"
     --              false if nothing found
     --              false if nothing found
     local s = contentWikilink( attempt or "" );
     local s = contentWikilink( attempt );
     local got, i, n, r;
     local got, n, r;
     if not s then
     if not s then
         s = attempt;
         s = attempt;
    end
    if s:find( "%", 1, true ) then
        s = mw.uri.decode( s, "PATH" );
     end
     end
     i = s:find( "|", 1, true );
     i = s:find( "|", 1, true );
Zeile 1.527: Zeile 1.052:
         local j, k, o, v;
         local j, k, o, v;
         r = { title = "" };
         r = { title = "" };
        while ( got[ 1 ] == "" ) do
            r.lead = true;
            table.remove( got, 1 );
            n = n - 1;
        end    -- while  got[ 1 ] == ""
         if n > 4 then
         if n > 4 then
             k = 4;
             k = 4;
         elseif n > 1 then
         else
             k = n - 1;
             k = n - 1;
        else
            k = 1;
         end
         end
         j = k;
         j = k;
Zeile 1.543: Zeile 1.061:
             s = mw.text.trim( got[ i ] );
             s = mw.text.trim( got[ i ] );
             if s ~= "" then
             if s ~= "" then
                 o = mw.site.namespaces[ s ];
                 o = mw.site.namespaces[ mw.text.trim( got[ i ] ) ];
                 if o then
                 if o then
                     r.ns    = o.id;
                     r.ns    = o.id;
Zeile 1.554: Zeile 1.072:
         end -- for i
         end -- for i
         for i = 1, j do
         for i = 1, j do
             o, v = prefix( got[ i ] );
             o, v = prefix( got[ i ],  ( i == 1 ) );
             if o then
             if o then
                 if r[ o ] then
                 if r[ o ] then
Zeile 1.560: Zeile 1.078:
                     break; -- for i
                     break; -- for i
                 else
                 else
                    if i >= k then
                        k = i + 1;
                    end
                     r[ o ] = v;
                     r[ o ] = v;
                 end
                 end
             else
             else
                if i == 1  and  r.ns then
                    r.ns    = false;
                    r.space = false;
                end
                 k = i;
                 k = i;
                 break; -- for i
                 break; -- for i
             end
             end
         end -- for i
         end -- for i
         if k > 0 then
         for i = k, n do
            for i = k, n do
            r.title = r.title .. got[ i ];
                r.title = r.title .. got[ i ];
            if i < n then
                if i < n then
                r.title = r.title .. ":";
                    r.title = r.title .. ":";
            end
                end
        end -- for i
            end -- for i
        end
     end
     end
    r.title = cleanWikilink( r.title );
     if r.lead and
     if r.lead and
       ( r.project  or
       ( r.project or  not r.title or
         ( not r.lang  and  r.ns ~= 6  and  r.ns ~= 14 ) ) then
         ( not r.lang  and  r.ns ~= 6  and  r.ns ~= 14 ) ) then
         r.lead = false;
         r.lead = false;
Zeile 1.594: Zeile 1.102:




Failsafe.failsafe = function ( atleast )
function WLink.failsafe( assert )
     -- Retrieve versioning and check for compliance
     -- Retrieve versioning and check for compliance
     -- Precondition:
     -- Precondition:
     --    atleast -- string, with required version or "wikidata" or "~"
     --    assert -- string, with required version, or false
    --                or false
     -- Postcondition:
     -- Postcondition:
     --    Returns  string -- with queried version, also if problem
     --    Returns  string with appropriate version, or false
    --              false   -- if appropriate
    local last  = ( atleast == "~" );
    local since = atleast;
     local r;
     local r;
     if last  or  since == "wikidata" then
     if assert and  assert > WLink.serial then
        local item = Failsafe.item;
        r = false;
        since = false;
    else
        if type( item ) == "number" and  item > 0 then
        r = WLink.serial;
            local ent = mw.wikibase.getEntity( string.format( "Q%d",
                                                              item ) );
            if type( ent ) == "table" then
                local vsn = ent:formatPropertyValues( "P348" );
                if type( vsn ) == "table"  and
                  type( vsn.value ) == "string"  and
                  vsn.value ~= "" then
                    if last  and  vsn.value == Failsafe.serial then
                        r = false;
                    else
                        r = vsn.value;
                    end
                end
            end
        end
     end
     end
    if type( r ) == "nil" then
     return r
        if not since  or  since <= Failsafe.serial then
end -- WLink.failsafe()
            r = Failsafe.serial;
        else
            r = false;
        end
    end
     return r;
end -- Failsafe.failsafe()




Zeile 1.649: Zeile 1.131:
     local s = false;
     local s = false;
     local r = false;
     local r = false;
     local safe, space;
     local space;
     for k, v in pairs( frame.args ) do
     for k, v in pairs( frame.args ) do
         if k == 1 then
         if k == 1 then
Zeile 1.657: Zeile 1.139:
                 s = mw.text.trim( v );
                 s = mw.text.trim( v );
             end
             end
         elseif ( k == 2  and
         elseif action == "ansiPercent"  and k == "space" then
                ( action == "getNamespaced"  or
                  action == "getWikilink" or
                  action == "pageLink" ) )    or
              ( k == "space" and  action == "ansiPercent" ) then
            v = mw.text.trim( v );
             if v ~= "" then
             if v ~= "" then
                 space = v;
                 space = v;
             end
             end
        elseif k == "safe"  and  action == "pageLink" then
            v = mw.text.trim( v );
            if v ~= "" then
                safe = v;
            end
        elseif k == "lines"  and  action == "isValidLinktext" then
            space = ( k == "1" );
         elseif k ~= "template" then
         elseif k ~= "template" then
             lucky = false;
             lucky = false;
Zeile 1.685: Zeile 1.155:
     if lucky then
     if lucky then
         if s or lone then
         if s or lone then
             lucky, r = pcall( WLink[ action ],  s,  space,  safe );
             lucky, r = pcall( WLink[ action ],  s,  space );
         else
         else
             r = "Parameter missing";
             r = "Parameter missing";
Zeile 1.700: Zeile 1.170:
         end
         end
     else
     else
         local e = mw.html.create( "span" );
         r = string.format( "<span class=\"error\">%s</span>", r );
        r = tostring( e:addClass( "error" )
                      :wikitext( r ) );
     end
     end
     return r;
     return r;
Zeile 1.741: Zeile 1.209:
p.getLanguage = function ( frame )
p.getLanguage = function ( frame )
     return Template( frame, "getLanguage" );
     return Template( frame, "getLanguage" );
end
p.getLinktextProblem = function ( frame )
    return Template( frame, "getLinktextProblem" );
end
end
p.getNamespace = function ( frame )
p.getNamespace = function ( frame )
     return tostring( Template( frame, "getNamespace" ) );
     return tostring( Template( frame, "getNamespace" ) );
end
p.getNamespaced = function ( frame )
    return tostring( Template( frame, "getNamespaced" ) );
end
end
p.getPlain = function ( frame )
p.getPlain = function ( frame )
Zeile 1.756: Zeile 1.218:
p.getProject = function ( frame )
p.getProject = function ( frame )
     return Template( frame, "getProject" );
     return Template( frame, "getProject" );
end
p.getTalkPage = function ( frame )
    return Template( frame, "getTalkPage" );
end
end
p.getTarget = function ( frame )
p.getTarget = function ( frame )
Zeile 1.771: Zeile 1.230:
p.getWeblink = function ( frame )
p.getWeblink = function ( frame )
     return Template( frame, "getWeblink" );
     return Template( frame, "getWeblink" );
end
p.getWikilink = function ( frame )
    return Template( frame, "getWikilink" );
end
end
p.isBracketedLink = function ( frame )
p.isBracketedLink = function ( frame )
Zeile 1.795: Zeile 1.251:
p.isMedia = function ( frame )
p.isMedia = function ( frame )
     return Template( frame, "isMedia" );
     return Template( frame, "isMedia" );
end
p.isTalkPage = function ( frame )
    return Template( frame, "isTalkPage" );
end
end
p.isTitledLink = function ( frame )
p.isTitledLink = function ( frame )
Zeile 1.804: Zeile 1.257:
p.isValidLink = function ( frame )
p.isValidLink = function ( frame )
     return Template( frame, "isValidLink" );
     return Template( frame, "isValidLink" );
end
p.isValidLinktext = function ( frame )
    return Template( frame, "isValidLinktext" );
end
end
p.isWeblink = function ( frame )
p.isWeblink = function ( frame )
Zeile 1.813: Zeile 1.263:
p.isWikilink = function ( frame )
p.isWikilink = function ( frame )
     return Template( frame, "isWikilink" );
     return Template( frame, "isWikilink" );
end
p.pageLink = function ( frame )
    return Template( frame, "pageLink" );
end
end
p.failsafe = function ( frame )
p.failsafe = function ( frame )
    local s = type( frame );
     local since = frame.args[ 1 ];
     local since;
    if s == "table" then
        since = frame.args[ 1 ];
    elseif s == "string" then
        since = frame;
    end
     if since then
     if since then
         since = mw.text.trim( since );
         since = mw.text.trim( since );
Zeile 1.831: Zeile 1.272:
         end
         end
     end
     end
     return Failsafe.failsafe( since ) or "";
     return WLink.failsafe( since ) or "";
end -- p.failsafe
end
p.WLink = function ()
p.WLink = function ()
     return WLink;
     return WLink;
Abgerufen von „https://skandinavien-wiki.net/wiki/Spezial:Mobiler_Unterschied/9902...22975“