Zum Inhalt springen

Modul:Text: Unterschied zwischen den Versionen

Modul:Text (Quelltext anzeigen)

Version vom 21. Juli 2022, 17:43 Uhr

3.610 Bytes entfernt ,  vor 3 Jahren
update date
K (33 Versionen von w:Modul:Text importiert)
(update date)
Zeile 1: Zeile 1:
local Text = { serial = "2019-11-12",
local yesNo = require("Module:Yesno")
               suite  = "Text",
local Text = { serial = "2022-07-21",
              item  = 29387871 }
               suite  = "Text" }
--[=[
--[=[
Text utilities
Text utilities
]=]
]=]
local Failsafe  = Text
 
local GlobalMod = Text
 


-- local globals
-- local globals
Zeile 13: Zeile 13:
local PatternLatin      = false
local PatternLatin      = false
local PatternTerminated = false
local PatternTerminated = false
local QuoteLang        = false
local QuoteType        = false
local RangesLatin      = false
local RangesLatin      = false
local SeekQuote        = false
local SeekQuote        = false


 
local function initLatinData()
 
     if not RangesLatin then
local foreignModule = function ( access, advanced, append, alt, alert )
        RangesLatin = { {   7,  687 },
     -- Fetch global module
                        { 7531, 7578 },
    -- Precondition:
                        { 7680, 7935 },
    --    access   -- string, with name of base module
                        { 8194, 8250 } }
    --    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
     end
     GlobalMod.globalModules = GlobalMod.globalModules or { }
     if not PatternLatin then
    suited = GlobalMod.globalModules[ access ]
        local range
    if not suited then
        PatternLatin = "^["
        finer()
        for i = 1, #RangesLatin do
         lucky, r = pcall( fun,  "Module:" .. storage )
            range = RangesLatin[ i ]
            PatternLatin = PatternLatin ..
                          mw.ustring.char( range[ 1 ], 45, range[ 2 ] )
         end    -- for i
        PatternLatin = PatternLatin .. "]*$"
     end
     end
    if not lucky then
end
        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()


 
local function initQuoteData()
 
local function factoryQuote()
     -- Create quote definitions
     -- Create quote definitions
     if not Text.quoteLang then
     if not QuoteLang then
        local quoting = foreignModule( "Text",
    QuoteLang =
                                      false,
            { af        = "bd",
                                      "quoting",
                  ar        = "la",
                                      Text.item )
                  be        = "labd",
        if type( quoting ) == "table" then
                  bg        = "bd",
             Text.quoteLang = quoting.langs
                  ca        = "la",
            Text.quoteType = quoting.types
                  cs        = "bd",
        end
                  da        = "bd",
        if type( Text.quoteLang ) ~= "table" then
                  de        = "bd",
            Text.quoteLang = { }
                  dsb      = "bd",
        end
                  et        = "bd",
        if type( Text.quoteType ) ~= "table" then
                  el        = "lald",
            Text.quoteType = { }
                  en        = "ld",
        end
                  es        = "la",
        if type( Text.quoteLang.en ) ~= "string" then
                  eu        = "la",
            Text.quoteLang.en = "ld"
             --    fa        = "la",
        end
                  fi        = "rd",
        if type( Text.quoteType[ Text.quoteLang.en ] ) ~= "table" then
                  fr        = "laSPC",
            Text.quoteType[ Text.quoteLang.en ] = { { 8220, 8221 },
                  ga        = "ld",
                                                    { 8216, 8217 } }
                  he        = "ldla",
        end
                  hr        = "bd",
                  hsb      = "bd",
                  hu        = "bd",
                  hy        = "labd",
                  id        = "rd",
                  is        = "bd",
                  it        = "ld",
                  ja        = "x300C",
                  ka        = "bd",
                  ko        = "ld",
                  lt        = "bd",
                  lv        = "bd",
                  nl        = "ld",
                  nn        = "la",
                  no        = "la",
                  pl        = "bdla",
                  pt        = "lald",
                  ro        = "bdla",
                  ru        = "labd",
                  sk        = "bd",
                  sl        = "bd",
                  sq        = "la",
                  sr        = "bx",
                  sv        = "rd",
                  th        = "ld",
                  tr        = "ld",
                  uk        = "la",
                  zh        = "ld",
                  ["de-ch"] = "la",
                  ["en-gb"] = "lsld",
                  ["en-us"] = "ld",
                  ["fr-ch"] = "la",
                  ["it-ch"] = "la",
                  ["pt-br"] = "ldla",
                  ["zh-tw"] = "x300C",
                  ["zh-cn"] = "ld" }
    end
    if not QuoteType then
    QuoteType =
            { bd    = { { 8222, 8220 },  { 8218, 8217 } },
                  bdla  = { { 8222, 8220 },  {  171,  187 } },
                  bx    = { { 8222, 8221 },  { 8218, 8217 } },
                  la    = { { 171,  187 },  { 8249, 8250 } },
                  laSPC = { {  171,  187 },  { 8249, 8250 },  true },
                  labd  = { {  171,  187 },  { 8222, 8220 } },
                  lald  = { {  171,  187 },  { 8220, 8221 } },
                  ld    = { { 8220, 8221 },  { 8216, 8217 } },
                  ldla  = { { 8220, 8221 },  {  171,  187 } },
                  lsld  = { { 8216, 8217 },  { 8220, 8221 } },
                  rd    = { { 8221, 8221 },  { 8217, 8217 } },
                  x300C = { { 0x300C, 0x300D },
                            { 0x300E, 0x300F } } }
     end
     end
end -- factoryQuote()
end -- initQuoteData()




Zeile 106: Zeile 123:
     --    alien    -- string, with language code
     --    alien    -- string, with language code
     --    advance  -- number, with level 1 or 2
     --    advance  -- number, with level 1 or 2
     local r = apply
     local r = apply and tostring(apply) or ""
    alien = alien or "en"
    advance = tonumber(advance) or 0
     local suite
     local suite
     factoryQuote()
     initQuoteData()
     suite = Text.quoteLang[ alien ]
     local slang = alien:match( "^(%l+)-" )
    if not suite then
    suite = QuoteLang[alien] or slang and QuoteLang[slang] or QuoteLang["en"]
        local slang = alien:match( "^(%l+)-" )
        if slang then
            suite = Text.quoteLang[ slang ]
        end
        if not suite then
            suite = Text.quoteLang.en
        end
    end
     if suite then
     if suite then
         local quotes = Text.quoteType[ suite ]
         local quotes = QuoteType[ suite ]
         if quotes then
         if quotes then
             local space
             local space
Zeile 153: Zeile 164:
     --    accept  -- true, if no error messages to be appended
     --    accept  -- true, if no error messages to be appended
     -- Returns: string
     -- Returns: string
     local r
     local r = ""
     if type( apply ) == "table" then
     apply = type(apply) == "table" and apply or {}
        local bad  = { }
    again = math.floor(tonumber(again) or 1)
        local codes = { }
    if again < 1 then
        local s
    return ""
        for k, v in pairs( apply ) do
    end
            s = type( v )
    local bad  = { }
            if s == "number" then
    local codes = { }
                if v < 32 and v ~= 9 and v ~= 10 then
    for _, v in ipairs( apply ) do
                    v = tostring( v )
    local n = tonumber(v)
                else
    if not n or (n < 32 and n ~= 9 and n ~= 10) then
                    v = math.floor( v )
    table.insert(bad, tostring(v))
                    s = false
    else
                end
    table.insert(codes, math.floor(n))
            elseif s ~= "string" then
end
                v = tostring( v )
    end  
            end
    if #bad > 0 then
            if s then
    if not accept then
                table.insert( bad, v )
    r = tostring(  mw.html.create( "span" )
            else
                    :addClass( "error" )
                table.insert( codes, v )
                    :wikitext( "bad codepoints: " .. table.concat( bad, " " )) )
            end
    end
        end -- for k, v
    return r
        if #bad == 0 then
            if #codes > 0 then
                r = mw.ustring.char( unpack( codes ) )
                if again then
                    if type( again ) == "number" then
                        local n = math.floor( again )
                        if n > 1 then
                            r = r:rep( n )
                        elseif n < 1 then
                            r = ""
                        end
                    else
                        s = "bad repetitions: " .. tostring( again )
                    end
                end
            end
        else
            s = "bad codepoints: " .. table.concat( bad, " " )
        end
        if s  and  not accept then
            r = tostring(  mw.html.create( "span" )
                                  :addClass( "error" )
                                  :wikitext( s ) )
        end
     end
     end
     return r or ""
    if #codes > 0 then
    r = mw.ustring.char( unpack( codes ) )
    if again > 1 then
    r = r:rep(again)
    end
end
     return r
end -- Text.char()
end -- Text.char()


 
local function trimAndFormat(args, fmt)
local result = {}
if type(args) ~= 'table' then
args = {args}
end
for _, v in ipairs(args) do
v = mw.text.trim(tostring(v))
if v ~= "" then
table.insert(result,fmt and mw.ustring.format(fmt, v) or v)
end
end
return result
end


Text.concatParams = function ( args, apply, adapt )
Text.concatParams = function ( args, apply, adapt )
Zeile 214: Zeile 219:
     -- Returns: string
     -- Returns: string
     local collect = { }
     local collect = { }
     for k, v in pairs( args ) do
     return table.concat(trimAndFormat(args,adapt), apply or "|")
        if type( k ) == "number" then
            v = mw.text.trim( v )
            if v ~= "" then
                if adapt then
                    v = mw.ustring.format( adapt, v )
                end
                table.insert( collect, v )
            end
        end
    end -- for k, v
    return table.concat( collect, apply or "|" )
end -- Text.concatParams()
end -- Text.concatParams()






Text.containsCJK = function ( analyse )
Text.containsCJK = function ( s )
     -- Is any CJK code within?
     -- Is any CJK code within?
     -- Parameter:
     -- Parameter:
     --    analyse -- string
     --    s -- string
     -- Returns: true, if CJK detected
     -- Returns: true, if CJK detected
     local r
     s = s and tostring(s) or ""
     if not PatternCJK then
     if not patternCJK then
         PatternCJK = mw.ustring.char( 91,
         patternCJK = mw.ustring.char( 91,
                                      13312, 45,  40959,
                                    4352, 45,  4607,
                                       131072, 45, 178207,
                                  11904, 45,  42191,
                                  43072, 45,  43135,
                                  44032, 45,  55215,
                                  63744, 45,  64255,
                                  65072, 45,  65103,
                                  65381, 45,  65500,
                                       131072, 45, 196607,
                                       93 )
                                       93 )
     end
     end
     if mw.ustring.find( analyse, PatternCJK ) then
     return mw.ustring.find( s, patternCJK ) ~= nil
        r = true
    else
        r = false
    end
    return r
end -- Text.containsCJK()
end -- Text.containsCJK()


 
Text.removeDelimited = function (s, prefix, suffix)
-- Remove all text in s delimited by prefix and suffix (inclusive)
-- Arguments:
--    s = string to process
--    prefix = initial delimiter
--    suffix = ending delimiter
-- Returns: stripped string
s = s and tostring(s) or ""
prefix = prefix and tostring(prefix) or ""
suffix = suffix and tostring(suffix) or ""
local prefixLen = mw.ustring.len(prefix)
local suffixLen = mw.ustring.len(suffix)
if prefixLen == 0 or suffixLen == 0 then
return s
end
local i = s:find(prefix, 1, true)
local r = s
local j
while i do
j = r:find(suffix, i + prefixLen)
if j then
r = r:sub(1, i - 1)..r:sub(j+suffixLen)
else
r = r:sub(1, i - 1)
end
i = r:find(prefix, 1, true)
end
return r
end


Text.getPlain = function ( adjust )
Text.getPlain = function ( adjust )
Zeile 257: Zeile 280:
     --    adjust  -- string
     --    adjust  -- string
     -- Returns: string
     -- Returns: string
     local i = adjust:find( "<!--", 1, true )
     local r = Text.removeDelimited(adjust,"<!--","-->")
    local r = adjust
    local j
    while i do
        j = r:find( "-->",  i + 3,  true )
        if j then
            r = r:sub( 1, i ) .. r:sub( j + 3 )
        else
            r = r:sub( 1, i )
        end
        i = r:find( "<!--", i, true )
    end    -- "<!--"
     r = r:gsub( "(</?%l[^>]*>)", "" )
     r = r:gsub( "(</?%l[^>]*>)", "" )
         :gsub( "'''(.+)'''", "%1" )
         :gsub( "'''", "" )
         :gsub( "''(.+)''", "%1" )
         :gsub( "''", "" )
         :gsub( "&nbsp;", " " )
         :gsub( "&nbsp;", " " )
     return mw.text.unstrip( r )
     return r
end -- Text.getPlain()
end -- Text.getPlain()


 
Text.isLatinRange = function (s)
 
Text.isLatinRange = function ( adjust )
     -- Are characters expected to be latin or symbols within latin texts?
     -- Are characters expected to be latin or symbols within latin texts?
     -- Precondition:
     -- Arguments:
     --     adjust -- string, or nil for initialization
     --  s = string to analyze
     -- Returns: true, if valid for latin only
     -- Returns: true, if valid for latin only
     local r
     s = s and tostring(s) or "" --- ensure input is always string
    if not RangesLatin then
     initLatinData()
        RangesLatin = { {    7,  687 },
     return mw.ustring.match(s, PatternLatin) ~= nil
                        { 7531, 7578 },
                        { 7680, 7935 },
                        { 8194, 8250 } }
    end
    if not PatternLatin then
        local range
        PatternLatin = "^["
        for i = 1, #RangesLatin do
            range = RangesLatin[ i ]
            PatternLatin = PatternLatin ..
                          mw.ustring.char( range[ 1 ], 45, range[ 2 ] )
        end    -- for i
        PatternLatin = PatternLatin .. "]*$"
     end
     if adjust then
        if mw.ustring.match( adjust, PatternLatin ) then
            r = true
        else
            r = false
        end
    end
    return r
end -- Text.isLatinRange()
end -- Text.isLatinRange()






Text.isQuote = function ( ask )
Text.isQuote = function ( s )
     -- Is this character any quotation mark?
     -- Is this character any quotation mark?
     -- Parameter:
     -- Parameter:
     --    ask  -- string, with single character
     --    s = single character to analyze
     -- Returns: true, if ask is quotation mark
     -- Returns: true, if s is quotation mark
     local r
     s = s and tostring(s) or ""
    if s == "" then
    return false
    end
     if not SeekQuote then
     if not SeekQuote then
         SeekQuote = mw.ustring.char(  34,      -- "
         SeekQuote = mw.ustring.char(  34,      -- "
Zeile 336: Zeile 327:
                                     0x300F )    -- CJK
                                     0x300F )    -- CJK
     end
     end
     if ask == "" then
     return mw.ustring.find( SeekQuote, s, 1, true ) ~= nil
        r = false
    elseif mw.ustring.find( SeekQuote, ask, 1, true ) then
        r = true
    else
        r = false
    end
    return r
end -- Text.isQuote()
end -- Text.isQuote()


Zeile 354: Zeile 338:
     --    adapt  -- string (optional); format including "%s"
     --    adapt  -- string (optional); format including "%s"
     -- Returns: string
     -- Returns: string
     local collect = { }
     return mw.text.listToText(trimAndFormat(args, adapt))
    for k, v in pairs( args ) do
        if type( k ) == "number" then
            v = mw.text.trim( v )
            if v ~= "" then
                if adapt then
                    v = mw.ustring.format( adapt, v )
                end
                table.insert( collect, v )
            end
        end
    end -- for k, v
    return mw.text.listToText( collect )
end -- Text.listToText()
end -- Text.listToText()


Zeile 378: Zeile 350:
     --    advance  -- number, with level 1 or 2, or nil
     --    advance  -- number, with level 1 or 2, or nil
     -- Returns: quoted string
     -- Returns: quoted string
    apply = apply and tostring(apply) or ""
     local mode, slang
     local mode, slang
     if type( alien ) == "string" then
     if type( alien ) == "string" then
Zeile 405: Zeile 378:
     --    advance  -- number, with level 1 or 2, or nil
     --    advance  -- number, with level 1 or 2, or nil
     -- Returns: string; possibly quoted
     -- Returns: string; possibly quoted
     local r = mw.text.trim( apply )
     local r = mw.text.trim( apply and tostring(apply) or "" )
     local s = mw.ustring.sub( r, 1, 1 )
     local s = mw.ustring.sub( r, 1, 1 )
     if s ~= ""  and  not Text.isQuote( s, advance ) then
     if s ~= ""  and  not Text.isQuote( s, advance ) then
Zeile 433: Zeile 406:
                                           93 )
                                           93 )
     end
     end
     decomposed = mw.ustring.toNFD( adjust )
     decomposed = mw.ustring.toNFD( adjust and tostring(adjust) or "" )
     cleanup    = mw.ustring.gsub( decomposed, PatternCombined, "" )
     cleanup    = mw.ustring.gsub( decomposed, PatternCombined, "" )
     return mw.ustring.toNFC( cleanup )
     return mw.ustring.toNFC( cleanup )
Zeile 446: Zeile 419:
     --    analyse  -- string
     --    analyse  -- string
     -- Returns: true, if sentence terminated
     -- Returns: true, if sentence terminated
     local r = mw.text.trim( analyse )
     local r
     if not PatternTerminated then
     if not PatternTerminated then
         PatternTerminated = mw.ustring.char( 91,
         PatternTerminated = mw.ustring.char( 91,
Zeile 455: Zeile 428:
                             .. "!%.%?…][\"'%]‹›«»‘’“”]*$"
                             .. "!%.%?…][\"'%]‹›«»‘’“”]*$"
     end
     end
     if mw.ustring.find( r, PatternTerminated ) then
     if mw.ustring.find( analyse, PatternTerminated ) then
         r = true
         r = true
     else
     else
Zeile 465: Zeile 438:




Text.ucfirstAll = function ( adjust )
Text.ucfirstAll = function ( adjust)
     -- Capitalize all words
     -- Capitalize all words
     -- Precondition:
     -- Arguments:
     --    adjust -- string
     --    adjust = string to adjust
     -- Returns: string with all first letters in upper case
     -- Returns: string with all first letters in upper case
     local r = " " .. adjust
    adjust = adjust and tostring(adjust) or ""
     local r = mw.text.decode(adjust,true)
     local i = 1
     local i = 1
     local c, j, m
     local c, j, m
     if adjust:find( "&" ) then
     m = (r ~= adjust)
        r = r:gsub( "&amp;",      "&#38;" )
    r = " "..r
            :gsub( "&lt;",      "&#60;" )
            :gsub( "&gt;",      "&#62;" )
            :gsub( "&nbsp;",    "&#160;" )
            :gsub( "&thinsp;", "&#8201;" )
            :gsub( "&zwnj;",  "&#8204;" )
            :gsub( "&zwj;",    "&#8205;" )
            :gsub( "&lrm;",    "&#8206;" )
            :gsub( "&rlm;",    "&#8207;" )
        m = true
    end
     while i do
     while i do
         i = mw.ustring.find( r, "%W%l", i )
         i = mw.ustring.find( r, "%W%l", i )
Zeile 499: Zeile 463:
     r = r:sub( 2 )
     r = r:sub( 2 )
     if m then
     if m then
        r = r:gsub(    "&#38;", "&amp;" )
    r = mw.text.encode(r)
            :gsub(    "&#60;", "&lt;" )
            :gsub(    "&#62;", "&gt;" )
            :gsub(    "&#160;", "&nbsp;" )
            :gsub(  "&#8201;", "&thinsp;" )
            :gsub(  "&#8204;", "&zwnj;" )
            :gsub(  "&#8205;", "&zwj;" )
            :gsub(  "&#8206;", "&lrm;" )
            :gsub(  "&#8207;", "&rlm;" )
            :gsub( "&#X(%x+);", "&#x%1;" )
     end
     end
     return r
     return r
end -- Text.ucfirstAll()
end -- Text.ucfirstAll()




Zeile 522: Zeile 476:
     -- Returns: string with non-latin parts enclosed in <span>
     -- Returns: string with non-latin parts enclosed in <span>
     local r
     local r
     Text.isLatinRange()
     initLatinData()
     if mw.ustring.match( adjust, PatternLatin ) then
     if mw.ustring.match( adjust, PatternLatin ) then
         -- latin only, horizontal dashes, quotes
         -- latin only, horizontal dashes, quotes
Zeile 610: Zeile 564:
     return r
     return r
end -- Text.uprightNonlatin()
end -- Text.uprightNonlatin()
Failsafe.failsafe = function ( atleast )
    -- 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()




Zeile 661: Zeile 569:
     local r
     local r
     if about == "quote" then
     if about == "quote" then
         factoryQuote()
         initQuoteData()
         r = { QuoteLang = Text.quoteLang,
         r = { }
              QuoteType = Text.quoteType }
        r.QuoteLang = QuoteLang
        r.QuoteType = QuoteType
     end
     end
     return r
     return r
Zeile 672: Zeile 581:
-- Export
-- Export
local p = { }
local p = { }
for _, func in ipairs({'containsCJK','isLatinRange','isQuote','sentenceTerminated'}) do
p[func] = function (frame)
return Text[func]( frame.args[ 1 ] or "" ) and "1" or ""
end
end
for _, func in ipairs({'getPlain','removeDiacritics','ucfirstAll','uprightNonlatin'}) do
p[func] = function (frame)
return Text[func]( frame.args[ 1 ] or "" )
end
end


function p.char( frame )
function p.char( frame )
Zeile 682: Zeile 603:
     end
     end
     if story then
     if story then
         local items = mw.text.split( story, "%s+" )
         local items = mw.text.split( mw.text.trim(story), "%s+" )
         if #items > 0 then
         if #items > 0 then
             local j
             local j
             lenient  = ( params.errors == "0" )
             lenient  = (yesNo(params.errors) == false)
             codes    = { }
             codes    = { }
             multiple = tonumber( params[ "*" ] )
             multiple = tonumber( params[ "*" ] )
             for k, v in pairs( items ) do
             for _, v in ipairs( items ) do
                if v:sub( 1, 1 ) == "x" then
            j = tonumber((v:sub( 1, 1 ) == "x" and "0" or "") .. v)
                    j = tonumber( "0" .. v )
                 table.insert( codes,  j or v )
                 elseif v == "" then
             end  
                    v = false
                else
                    j = tonumber( v )
                end
                if v then
                    table.insert( codes,  j or v )
                end
             end -- for k, v
         end
         end
     end
     end
Zeile 720: Zeile 633:
                               frame.args.separator,
                               frame.args.separator,
                               frame.args.format )
                               frame.args.format )
end
function p.containsCJK( frame )
    return Text.containsCJK( frame.args[ 1 ] or "" ) and "1" or ""
end
function p.getPlain( frame )
    return Text.getPlain( frame.args[ 1 ] or "" )
end
function p.isLatinRange( frame )
    return Text.isLatinRange( frame.args[ 1 ] or "" ) and "1" or ""
end
function p.isQuote( frame )
    return Text.isQuote( frame.args[ 1 ] or "" ) and "1" or ""
end
end




Zeile 818: Zeile 714:
                               tonumber( frame.args[3] ) )
                               tonumber( frame.args[3] ) )
end
end
function p.removeDiacritics( frame )
    return Text.removeDiacritics( frame.args[ 1 ] or "" )
end
function p.sentenceTerminated( frame )
    return Text.sentenceTerminated( frame.args[ 1 ] or "" ) and "1" or ""
end
function p.ucfirstAll( frame )
    return Text.ucfirstAll( frame.args[ 1 ] or "" )
end
function p.unstrip( frame )
    return mw.text.trim( mw.text.unstrip( frame.args[ 1 ] or "" ) )
end
function p.uprightNonlatin( frame )
    return Text.uprightNonlatin( frame.args[ 1 ] or "" )
end




Zeile 885: Zeile 758:




p.failsafe = function ( frame )
function p.failsafe()
    -- Versioning interface
     return Text.serial
    local s = type( frame )
end
    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()




Anonymer Benutzer
Abgerufen von „https://skandinavien-wiki.net/wiki/Spezial:Mobiler_Unterschied/8848“