skandinavien-wiki.net

Modul:Sort: Unterschied zwischen den Versionen

Modul Diskussion

Modul:Sort (Quelltext anzeigen)

Version vom 9. Februar 2023, 15:34 Uhr

10.028 Bytes hinzugefügt ,  vor 3 Jahren
K
14 Versionen von wikivoyage:Modul:Sort importiert
w>PerfektesChaos
(Setup)
 
K (14 Versionen von wikivoyage:Modul:Sort importiert)
 
(13 dazwischenliegende Versionen von 4 Benutzern werden nicht angezeigt)
Zeile 1: Zeile 1:
--[=[ 2013-10-13
local Sort = { suite  = "Sort",
              serial = "2019-10-29",
              item  = 24205172 }
--[=[
Sort
Sort
]=]
]=]
local Failsafe  = Sort
local GlobalMod = Sort






local Sort = { }
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()
 
 
 
Sort.lex = function ( adjust, apply, adapt )
    -- Build ASCII sortkey for text value
    -- Precondition:
    --    adjust  -- string to be aligned
    --    apply  -- string or table, with base
    --                "latin"
    --    adapt  -- string or table, with variation, or false
    --                "DIN5007m2"  -- DIN 5007 mode "2"
    local r = adjust
    if adapt  or  not r:match( "^[ -~]*$" ) then
        local collate, post, pre
        if apply then
            collate = apply
        else
            collate = "uni"
        end
        if type( collate ) == "string" then
            collate = foreignModule( Sort.suite,
                                    false,
                                    collate,
                                    Sort.item )
        end
        if adapt  and  type( collate ) == "table" then
            local variants = type( adapt )
            local n
            if variants == "string" then
                variants = mw.text.split( adapt, "%s+" )
            elseif variants == "table" then
                variants = adapt
            else
                variants = { }
            end
            n = #variants
            if n == 1  and  variants[ 1 ] == "" then
                n = 0
            end
            if n > 0 then
                local tmp = { }
                local var
                for k, v in pairs( collate ) do
                    tmp[ k ] = v
                end    -- for k, v
                collate = tmp
                for i = 1, n do
                    tmp = foreignModule( Sort.suite,
                                        false,
                                        variants[ i ],
                                        Sort.item )
                    if type( tmp ) == "table" then
                        var = tmp.single
                        if type( var ) ~= "table" then
                            -- legacy
                            var = tmp
                        end
                        if type( var ) == "table" then
                            for k, v in pairs( var ) do
                                collate[ k ] = v
                            end    -- for k, v
                        end
                        var = tmp.pre
                        if type( var ) == "table" then
                            if type( pre ) ~= "table" then
                                pre = { }
                            end
                            for k, v in pairs( var ) do
                                pre[ k ] = v
                            end    -- for k, v
                        end
                        var = tmp.post
                        if type( var ) == "table" then
                            if type( post ) ~= "table" then
                                post = { }
                            end
                            for k, v in pairs( var ) do
                                post[ k ] = v
                            end    -- for k, v
                        end
                    elseif type( tmp ) == "string" then
                        collate = tmp
                        break    -- for i
                    else
                        collate = "Invalid table " .. variants[ i ]
                        break    -- for i
                    end
                end    -- for i
            end
        end
        if type( collate ) == "table" then
            local k, n, s, start
            if type( pre ) == "table" then
                for k, v in pairs( pre ) do
                    r = mw.ustring.gsub( r, k, v )
                end    -- for k, v
            end
            n = mw.ustring.len( r )
            for i = n, 1, -1 do
                k = mw.ustring.codepoint( r, i, i )
                if k < 127 then    -- ASCII
                    s = ( k < 32 )    -- htab newline whitespace
                    if s then
                        s = " "
                    end
                elseif ( k >= 0x0300  and  k <= 0x0362 )  or
                      ( k >= 0x1AB0  and  k <= 0x1AFF )  or
                      ( k >= 0x1DC0  and  k <= 0x1DFF )  or
                      ( k >= 0xFE20  and  k <= 0xFE2F ) then
                    -- COMBINING ...
                    s = ""
                else
                    s = collate[ k ]
                end
                if s then
                    if i > 1 then
                        s = mw.ustring.sub( r, 1,  i - 1 )  ..  s
                    end
                    r = s .. mw.ustring.sub( r,  i + 1 )
                end
            end    -- for i--
            if type( post ) == "table" then
                for k, v in pairs( post ) do
                    r = mw.ustring.gsub( r, k, v )
                end    -- for k, v
            end
        else
            r = "**ERROR** Sort.lex ** Submodule unavailable " .. collate
        end
    end
    r = r:gsub( "  +", " " )
    return r
end -- Sort.lex()




Zeile 35: Zeile 222:
     local c
     local c
     if ad then
     if ad then
         mid = mw.ustring.codepoint( ad, 1 )
         mid = mw.ustring.codepoint( ad, 1, 1 )
     end
     end
     if at then
     if at then
Zeile 44: Zeile 231:
     end
     end
     for i = 1, n do
     for i = 1, n do
         c = mw.ustring.codepoint( source, i )
         c = mw.ustring.codepoint( source, i, i )
         if c > 32 then    -- not whitespace
         if c > 32 then    -- not whitespace
             if c >= 48 and c <= 57 then    -- digits
             if c >= 48 and c <= 57 then    -- digits
Zeile 52: Zeile 239:
             elseif c == mid then    -- decimal separator
             elseif c == mid then    -- decimal separator
                 for j = i + 1, n do
                 for j = i + 1, n do
                     c = mw.ustring.codepoint( source, j )
                     c = mw.ustring.codepoint( source, j, j )
                     if c >= 48 and c <= 57 then    -- digits
                     if c >= 48 and c <= 57 then    -- digits
                         sub = string.format( "%s%c", sub, c )
                         sub = string.format( "%s%c", sub, c )
                     elseif c == min1 or c == min2 then    -- grouping
                     elseif c == min1 or c == min2 then    -- grouping
                     else
                     else
                         suffix = mw.ustring.sub( source, j )
                         i = j
                         break    -- for j
                         break    -- for j
                     end
                     end
                    i = n
                 end    -- for j
                 end    -- for j
                n    = 0
                 last = true
                 last = true
             elseif lead then
             elseif lead then
Zeile 79: Zeile 266:
             if i < n then
             if i < n then
                 suffix = mw.ustring.sub( source, i )
                 suffix = mw.ustring.sub( source, i )
                if c == 69  or  c == 101 then    -- E e
                    local s = suffix:match( "^[Ee](-?%d+)" )
                    if s then
                        j      = tonumber( s )
                        sub    = sub:sub( 2 )
                        suffix = suffix:sub( #s + 2 )
                        if j > 0 then
                            if j > #sub then
                                sub = sub .. string.rep( "0",  j - #sub )
                            end
                            r  = r .. sub:sub( 1, j )
                            sub = sub:sub( j + 1 )
                            max = max - j
                        elseif j < 0 then
                            j = - j
                            if j > #r then
                                r = string.rep( "0",  j - #r ) .. r
                            end
                            sub = r:sub( - j ) .. sub
                            r  = r:sub( 1,  #r - j )
                            max = max + j
                        end
                        sub = "." .. sub
                    end
                end
             end
             end
             break    -- for i
             break    -- for i
Zeile 120: Zeile 332:




-- Export
Failsafe.failsafe = function ( atleast )
local p = { }
    -- Retrieve versioning and check for compliance
    -- Precondition:
    --    atleast  -- string, with required version or "wikidata" or "~"
    --                or false
    -- Postcondition:
    --    Returns  string  -- with queried version, also if problem
    --              false  -- if appropriate
    -- 2019-10-15
    local last  = ( atleast == "~" )
    local since = atleast
    local r
    if last  or  since == "wikidata" then
        local item = Failsafe.item
        since = false
        if type( item ) == "number"  and  item > 0 then
            local entity = mw.wikibase.getEntity( string.format( "Q%d",
                                                                item ) )
            if type( entity ) == "table" then
                local seek = Failsafe.serialProperty or "P348"
                local vsn  = entity:formatPropertyValues( seek )
                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
    if type( r ) == "nil" then
        if not since  or  since <= Failsafe.serial then
            r = Failsafe.serial
        else
            r = false
        end
    end
    return r
end -- Failsafe.failsafe()


p.Ta = function ( frame )
    -- Template::alphanumerical
    --    {{{1}}}
    return "not yet ready"
end -- p.Ta




-- Export
local p = { }


p.Td = function ( frame )
p.Tlatin = function ( frame )
     -- Template::date
     -- Template::latin
     --    {{{1}}}
     --    {{{1}}}
     return "not yet ready"
     -- #invoke
end -- p.Td
    --    v  -- variant, omitted or "DIN5007m2"
    local lucky, r = pcall( Sort.lex,
                            frame.args[ 1 ]  or
                            frame:getParent().args[ 1 ]  or
                            "",
                            "latin",
                            frame.args.v )
    return r;
end -- p.Tlatin




Zeile 147: Zeile 404:
     --    z  -- number of leading zeros / maximum length; defaults to 15
     --    z  -- number of leading zeros / maximum length; defaults to 15
     --    m  -- negative figures by digits; default: by value
     --    m  -- negative figures by digits; default: by value
    local m = frame.args.m
    if m then
        m  =  mw.text.trim( m )
    end
     local lucky, r = pcall( Sort.num,
     local lucky, r = pcall( Sort.num,
                             frame:getParent().args[ 1 ] or "",
                            frame.args[ 1 ]  or
                             frame:getParent().args[ 1 ] or
                            "",
                             frame.args.d,
                             frame.args.d,
                             frame.args.t,
                             frame.args.t,
                             tonumber( frame.args.z ),
                             tonumber( frame.args.z ),
                             m == "1" )
                             frame.args.m == "1" )
    -- DEBUG:
    if not lucky then
        r = "<span class='error'>" .. r .. "</span>"
    end
     return r;
     return r;
end -- p.Tn
end -- p.Tn
p.failsafe = function ( frame )
    -- Versioning interface
    local s = type( frame )
    local since
    if s == "table" then
        since = frame.args[ 1 ]
    elseif s == "string" then
        since = frame
    end
    if since then
        since = mw.text.trim( since )
        if since == "" then
            since = false
        end
    end
    return Failsafe.failsafe( since )  or  ""
end -- p.failsafe()




Abgerufen von „https://skandinavien-wiki.net/wiki/Spezial:Mobiler_Unterschied/21442...21456“