Modul:Text: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
te>PerfektesChaos (2017-03-25) |
te>PerfektesChaos (2017-04-05) |
||
| Zeile 1: | Zeile 1: | ||
| − | local Text = { | + | local Text = { serial = "2017-04-05", |
| − | + | suite = "Text" } | |
--[=[ | --[=[ | ||
Text utilities | Text utilities | ||
| Zeile 74: | Zeile 74: | ||
["pt-br"] = "ldla", | ["pt-br"] = "ldla", | ||
["zh-tw"] = "x300C", | ["zh-tw"] = "x300C", | ||
| − | ["zh- | + | ["zh-cn"] = "ld" } |
QuoteType = { bd = { { 8222, 8220 }, { 8218, 8217 } }, | QuoteType = { bd = { { 8222, 8220 }, { 8218, 8217 } }, | ||
bdla = { { 8222, 8220 }, { 171, 187 } }, | bdla = { { 8222, 8220 }, { 171, 187 } }, | ||
| Zeile 353: | Zeile 353: | ||
return mw.text.listToText( collect ) | return mw.text.listToText( collect ) | ||
end -- Text.listToText() | end -- Text.listToText() | ||
| + | |||
| + | |||
| + | |||
| + | Text.quote = function ( apply, alien, advance ) | ||
| + | -- Quote text | ||
| + | -- Parameter: | ||
| + | -- apply -- string, with text | ||
| + | -- alien -- string, with language code, or nil | ||
| + | -- advance -- number, with level 1 or 2, or nil | ||
| + | -- Returns: quoted string | ||
| + | local mode, slang | ||
| + | if type( alien ) == "string" then | ||
| + | slang = mw.text.trim( alien ):lower() | ||
| + | else | ||
| + | slang = mw.title.getCurrentTitle().pageLanguage | ||
| + | if not slang then | ||
| + | -- TODO FIXME: Introduction expected 2017-04 | ||
| + | slang = mw.language.getContentLanguage():getCode() | ||
| + | end | ||
| + | end | ||
| + | if advance == 2 then | ||
| + | mode = 2 | ||
| + | else | ||
| + | mode = 1 | ||
| + | end | ||
| + | return fiatQuote( mw.text.trim( apply ), slang, mode ) | ||
| + | end -- Text.quote() | ||
Text.quoteUnquoted = function ( apply, alien, advance ) | Text.quoteUnquoted = function ( apply, alien, advance ) | ||
| − | -- Quote text, if not yet quoted | + | -- Quote text, if not yet quoted and not empty |
-- Parameter: | -- Parameter: | ||
-- apply -- string, with text | -- apply -- string, with text | ||
| Zeile 365: | Zeile 392: | ||
local r = mw.text.trim( apply ) | local r = mw.text.trim( apply ) | ||
local s = mw.ustring.sub( r, 1, 1 ) | local s = mw.ustring.sub( r, 1, 1 ) | ||
| − | if s ~= "" and not Text.isQuote( s ) then | + | if s ~= "" and not Text.isQuote( s, advance ) then |
s = mw.ustring.sub( r, -1, 1 ) | s = mw.ustring.sub( r, -1, 1 ) | ||
if not Text.isQuote( s ) then | if not Text.isQuote( s ) then | ||
| − | + | r = Text.quote( r, alien, advance ) | |
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
end | end | ||
end | end | ||
| Zeile 708: | Zeile 724: | ||
end | end | ||
return Text.listToText( args, frame.args.format ) | return Text.listToText( args, frame.args.format ) | ||
| + | end | ||
| + | |||
| + | |||
| + | |||
| + | function p.quote( frame ) | ||
| + | local slang = frame.args[2] | ||
| + | if type( slang ) == "string" then | ||
| + | slang = mw.text.trim( slang ) | ||
| + | if slang == "" then | ||
| + | slang = false | ||
| + | end | ||
| + | end | ||
| + | return Text.quote( frame.args[ 1 ] or "", | ||
| + | slang, | ||
| + | tonumber( frame.args[3] ) ) | ||
end | end | ||
| Zeile 716: | Zeile 747: | ||
if type( slang ) == "string" then | if type( slang ) == "string" then | ||
slang = mw.text.trim( slang ) | slang = mw.text.trim( slang ) | ||
| + | if slang == "" then | ||
| + | slang = false | ||
| + | end | ||
end | end | ||
return Text.quoteUnquoted( frame.args[ 1 ] or "", | return Text.quoteUnquoted( frame.args[ 1 ] or "", | ||
| Zeile 721: | Zeile 755: | ||
tonumber( frame.args[3] ) ) | tonumber( frame.args[3] ) ) | ||
end | end | ||
| + | |||
| + | |||
function p.removeDiacritics( frame ) | function p.removeDiacritics( frame ) | ||
Version vom 5. April 2017, 11:48 Uhr
local Text = { serial = "2017-04-05",
suite = "Text" }
--[=[ 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-cn"] = "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( "