Modul:Text: Unterschied zwischen den Versionen

Aus FreeWiki
Zur Navigation springen Zur Suche springen
te>NordNordWest
K (Änderte den Schutz von „Modul:Text“: per Anfrage: https://de.wikipedia.org/w/index.php?title=Wikipedia%3AAdministratoren%2FAnfragen&type=revision&diff=156076713&oldid=156073630 ([Bearbeiten=Nur Sichter] (unbeschränkt) [Verschieben=Nur Adminis…)
te>PerfektesChaos
(2017-03-25)
Zeile 1: Zeile 1:
 
local Text = { suite  = "Text",
 
local Text = { suite  = "Text",
−
               serial = "2015-06-21" };
+
               serial = "2017-03-25" }
 
--[=[
 
--[=[
 
Text utilities
 
Text utilities
Zeile 128: Zeile 128:
 
     return r
 
     return r
 
end -- fiatQuote()
 
end -- fiatQuote()
 +
 +
 +
 +
Text.char = function ( apply, again, accept )
 +
    -- Create string from codepoints
 +
    -- Parameter:
 +
    --    apply  -- table (sequence) with numerical codepoints, or nil
 +
    --    again  -- number of repetitions, or nil
 +
    --    accept  -- true, if no error messages to be appended
 +
    -- Returns: string
 +
    local r
 +
    if type( apply ) == "table" then
 +
        local bad  = { }
 +
        local codes = { }
 +
        local s
 +
        for k, v in pairs( apply ) do
 +
            s = type( v )
 +
            if s == "number" then
 +
                if v < 32  and  v ~= 9  and  v ~= 10 then
 +
                    v = tostring( v )
 +
                else
 +
                    v = math.floor( v )
 +
                    s = false
 +
                end
 +
            elseif s ~= "string" then
 +
                v = tostring( v )
 +
            end
 +
            if s then
 +
                table.insert( bad, v )
 +
            else
 +
                table.insert( codes, v )
 +
            end
 +
        end -- for k, v
 +
        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
 +
    return r or ""
 +
end -- Text.char()
  
  
Zeile 149: Zeile 209:
 
             end
 
             end
 
         end
 
         end
−
     end
+
     end -- for k, v
 
     return table.concat( collect,  apply or "|" )
 
     return table.concat( collect,  apply or "|" )
 
end -- Text.concatParams()
 
end -- Text.concatParams()
Zeile 290: Zeile 350:
 
             end
 
             end
 
         end
 
         end
−
     end
+
     end -- for k, v
 
     return mw.text.listToText( collect )
 
     return mw.text.listToText( collect )
 
end -- Text.listToText()
 
end -- Text.listToText()
Zeile 310: Zeile 370:
 
           local mode, slang
 
           local mode, slang
 
           if type( alien ) == "string" then
 
           if type( alien ) == "string" then
−
               slang = alien:lower()
+
               slang = mw.text.trim( alien ):lower()
 
           else
 
           else
 
               slang = mw.language.getContentLanguage():getCode()
 
               slang = mw.language.getContentLanguage():getCode()
Zeile 452: Zeile 512:
 
                   end    -- for i
 
                   end    -- for i
 
               end -- flat()
 
               end -- flat()
 +
        local focus = function ( a )
 +
                  -- char is not ambivalent
 +
                  local r = ( a > 64 )
 +
                  if r then
 +
                      r = ( a < 8192  or  a > 8212 )
 +
                  else
 +
                      r = ( a == 38  or  a == 60 )    -- '&' '<'
 +
                  end
 +
                  return r
 +
              end -- focus()
 
         local form = function ( a )
 
         local form = function ( a )
 
                 return string.format( span,
 
                 return string.format( span,
Zeile 461: Zeile 531:
 
         for i = 1, n do
 
         for i = 1, n do
 
             c = mw.ustring.codepoint( adjust, i, i )
 
             c = mw.ustring.codepoint( adjust, i, i )
−
             if c > 64  or  c == 38  or  c == 60 then   -- '&' '<'
+
             if focus( c ) then
 
                 if flat( c ) then
 
                 if flat( c ) then
 
                     if j then
 
                     if j then
Zeile 527: Zeile 597:
 
-- Export
 
-- Export
 
local p = { }
 
local p = { }
 +
 +
function p.char( frame )
 +
    local params = frame:getParent().args
 +
    local story = params[ 1 ]
 +
    local codes, lenient, multiple
 +
    if story then
 +
        local items = mw.text.split( story, "%s+" )
 +
        if #items > 0 then
 +
            local j
 +
            lenient  = ( params.errors == "0" )
 +
            codes    = { }
 +
            multiple = tonumber( params[ "*" ] )
 +
            for k, v in pairs( items ) do
 +
                if v:sub( 1, 1 ) == "x" then
 +
                    j = tonumber( "0" .. v )
 +
                elseif v == "" then
 +
                    v = false
 +
                else
 +
                    j = tonumber( v )
 +
                end
 +
                if v then
 +
                    table.insert( codes,  j or v )
 +
                end
 +
            end -- for k, v
 +
        end
 +
    end
 +
    return Text.char( codes, multiple, lenient )
 +
end
  
 
function p.concatParams( frame )
 
function p.concatParams( frame )
Zeile 560: Zeile 658:
 
     return Text.isQuote( frame.args[ 1 ] or "" ) and "1" or ""
 
     return Text.isQuote( frame.args[ 1 ] or "" ) and "1" or ""
 
end
 
end
 +
 +
 +
 +
function p.listToFormat(frame)
 +
    local lists = {}
 +
    local pformat = frame.args["format"]
 +
    local sep = frame.args["sep"] or ";"
 +
 +
    -- Parameter parsen: Listen
 +
    for k, v in pairs(frame.args) do
 +
        local knum = tonumber(k)
 +
        if knum then lists[knum] = v end
 +
    end
 +
 +
    -- Listen splitten
 +
    local maxListLen = 0
 +
    for i = 1, #lists do
 +
        lists[i] = mw.text.split(lists[i], sep)
 +
        if #lists[i] > maxListLen then maxListLen = #lists[i] end
 +
    end
 +
 +
    -- Ergebnisstring generieren
 +
    local result = ""
 +
    local result_line = ""
 +
    for i = 1, maxListLen do
 +
        result_line = pformat
 +
        for j = 1, #lists do
 +
            result_line = mw.ustring.gsub(result_line, "%%s", lists[j][i], 1)
 +
        end
 +
        result = result .. result_line
 +
    end
 +
 +
    return result
 +
end
 +
 +
  
 
function p.listToText( frame )
 
function p.listToText( frame )
Zeile 575: Zeile 709:
 
     return Text.listToText( args, frame.args.format )
 
     return Text.listToText( args, frame.args.format )
 
end
 
end
 +
 +
  
 
function p.quoteUnquoted( frame )
 
function p.quoteUnquoted( frame )
Zeile 601: Zeile 737:
 
     return Text.uprightNonlatin( frame.args[ 1 ] or "" )
 
     return Text.uprightNonlatin( frame.args[ 1 ] or "" )
 
end
 
end
 +
 +
  
 
function p.zip(frame)
 
function p.zip(frame)
−
local lists = {}
+
    local lists = {}
−
local seps = {}
+
    local seps = {}
−
local defaultsep = frame.args["sep"] or ""
+
    local defaultsep = frame.args["sep"] or ""
−
local innersep = frame.args["isep"] or ""
+
    local innersep = frame.args["isep"] or ""
−
local outersep = frame.args["osep"] or ""
+
    local outersep = frame.args["osep"] or ""
  
−
-- Parameter parsen
+
    -- Parameter parsen
−
for k, v in pairs(frame.args) do
+
    for k, v in pairs(frame.args) do
−
local knum = tonumber(k)
+
        local knum = tonumber(k)
−
if knum then lists[knum] = v else
+
        if knum then lists[knum] = v else
−
if string.sub(k, 1, 3) == "sep" then
+
            if string.sub(k, 1, 3) == "sep" then
−
local sepnum = tonumber(string.sub(k, 4))
+
                local sepnum = tonumber(string.sub(k, 4))
−
if sepnum then seps[sepnum] = v end
+
                if sepnum then seps[sepnum] = v end
−
end
+
            end
−
end
+
        end
−
end
+
    end
−
-- sofern keine expliziten Separatoren angegeben sind, den Standardseparator verwenden
+
    -- sofern keine expliziten Separatoren angegeben sind, den Standardseparator verwenden
−
for i = 1, math.max(#seps, #lists) do
+
    for i = 1, math.max(#seps, #lists) do
−
if not seps[i] then seps[i] = defaultsep end
+
        if not seps[i] then seps[i] = defaultsep end
−
end
+
    end
  
−
-- Listen splitten
+
    -- Listen splitten
−
local maxListLen = 0
+
    local maxListLen = 0
−
for i = 1, #lists do
+
    for i = 1, #lists do
−
lists[i] = mw.text.split(lists[i], seps[i])
+
        lists[i] = mw.text.split(lists[i], seps[i])
−
if #lists[i] > maxListLen then maxListLen = #lists[i] end
+
        if #lists[i] > maxListLen then maxListLen = #lists[i] end
−
end
+
    end
  
−
local result = ""
+
    local result = ""
−
for i = 1, maxListLen do
+
    for i = 1, maxListLen do
−
if i ~= 1 then result = result .. outersep end
+
        if i ~= 1 then result = result .. outersep end
−
for j = 1, #lists do
+
        for j = 1, #lists do
−
if j ~= 1 then result = result .. innersep end
+
            if j ~= 1 then result = result .. innersep end
−
result = result .. (lists[j][i] or "")
+
            result = result .. (lists[j][i] or "")
−
end
+
        end
−
end
+
    end
−
return result
+
    return result
 
end
 
end
  
−
function p.listToFormat(frame)
+
 
−
local lists = {}
+
 
−
local pformat = frame.args["format"]
+
function p.failsafe()
−
local sep = frame.args["sep"] or ";"
+
    return Text.serial
−
 
−
-- Parameter parsen: Listen
 
−
for k, v in pairs(frame.args) do
 
−
local knum = tonumber(k)
 
−
if knum then lists[knum] = v end
 
−
end
 
−
 
−
-- Listen splitten
 
−
local maxListLen = 0
 
−
for i = 1, #lists do
 
−
lists[i] = mw.text.split(lists[i], sep)
 
−
if #lists[i] > maxListLen then maxListLen = #lists[i] end
 
−
end
 
−
 
−
-- Ergebnisstring generieren
 
−
local result = ""
 
−
local result_line = ""
 
−
for i = 1, maxListLen do
 
−
result_line = pformat
 
−
for j = 1, #lists do
 
−
result_line = mw.ustring.gsub(result_line, "%%s", lists[j][i], 1)
 
−
end
 
−
result = result .. result_line
 
−
end
 
−
 
−
return result
 
 
end
 
end
 +
 +
  
 
p.Text = function ()
 
p.Text = function ()

Version vom 27. März 2017, 13:06 Uhr

local Text = { suite = "Text", 

              serial = "2017-03-25" }

--[=[ Text utilities ]=]


-- local globals local PatternCJK = false local PatternCombined = false local PatternLatin = false local PatternTerminated = false local QuoteLang = false local QuoteType = false local RangesLatin = false local SeekQuote = false


local function factoryQuote() 

   -- Create quote definitions
   QuoteLang = { af        = "bd",
                 ar        = "la",
                 be        = "labd",
                 bg        = "bd",
                 ca        = "la",
                 cs        = "bd",
                 da        = "bd",
                 de        = "bd",
                 dsb       = "bd",
                 et        = "bd",
                 el        = "lald",
                 en        = "ld",
                 es        = "la",
                 eu        = "la",
                 fi        = "rd",
                 fr        = "la",
                 ga        = "ld",
                 he        = "ldla",
                 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        = "bd",
                 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-zh"] = "ld" }
   QuoteType = { bd    = { { 8222, 8220 },  { 8218, 8217 } },
                 bdla  = { { 8222, 8220 },  {  171,  187 } },
                 la    = { {  171,  187 },  { 8249, 8250 } },
                 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 } } }
   return r

end -- factoryQuote()


local function fiatQuote( apply, alien, advance ) 

   -- Quote text
   -- Parameter:
   --     apply    -- string, with text
   --     alien    -- string, with language code
   --     advance  -- number, with level 1 or 2
   local r = apply
   local suite
   if not QuoteLang then
       factoryQuote()
   end
   suite = QuoteLang[ alien ]
   if not suite then
       local slang = alien:match( "^(%l+)-" )
       if slang then
           suite = QuoteLang[ slang ]
       end
       if not suite then
           suite = QuoteLang[ "en" ]
       end
   end
   if suite then
       local quotes = QuoteType[ suite ]
       if quotes then
           quotes = quotes[ advance ]
           if quotes then
               r = mw.ustring.format( "%s%s%s",
                                      mw.ustring.char( quotes[ 1 ] ),
                                      apply,
                                      mw.ustring.char( quotes[ 2 ] ) )
           end
       else
           mw.log( "fiatQuote() " .. suite )
       end
   end
   return r

end -- fiatQuote()


Text.char = function ( apply, again, accept ) 

   -- Create string from codepoints
   -- Parameter:
   --     apply   -- table (sequence) with numerical codepoints, or nil
   --     again   -- number of repetitions, or nil
   --     accept  -- true, if no error messages to be appended
   -- Returns: string
   local r
   if type( apply ) == "table" then
       local bad   = { }
       local codes = { }
       local s
       for k, v in pairs( apply ) do
           s = type( v )
           if s == "number" then
               if v < 32  and  v ~= 9  and  v ~= 10 then
                   v = tostring( v )
               else
                   v = math.floor( v )
                   s = false
               end
           elseif s ~= "string" then
               v = tostring( v )
           end
           if s then
               table.insert( bad, v )
           else
               table.insert( codes, v )
           end
       end -- for k, v
       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
   return r or ""

end -- Text.char()


Text.concatParams = function ( args, apply, adapt ) 

   -- Concat list items into one string
   -- Parameter:
   --     args   -- table (sequence) with numKey=string
   --     apply  -- string (optional); separator (default: "|")
   --     adapt  -- string (optional); format including "%s"
   -- Returns: string
   local collect = { }
   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 table.concat( collect,  apply or "|" )

end -- Text.concatParams()


Text.containsCJK = function ( analyse ) 

   -- Is any CJK code within?
   -- Parameter:
   --     analyse  -- string
   -- Returns: true, if CJK detected
   local r
   if not patternCJK then
       patternCJK = mw.ustring.char( 91,
                                      13312, 45,  40959,
                                     131072, 45, 178207,
                                     93 )
   end
   if mw.ustring.find( analyse, patternCJK ) then
       r = true
   else
       r = false
   end
   return r

end -- Text.containsCJK()


Text.getPlain = function ( adjust ) 

   -- Remove wikisyntax from string, except templates
   -- Parameter:
   --     adjust  -- string
   -- Returns: string
   local i = adjust: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( "
Abgerufen von „https://mediawiki-wichmann.topskunden.de/de/index.php?title=Modul:Text&oldid=4611“