Module:Text: Difference between revisions
From the Croc Wiki, the Croc encyclopedia
Jump to navigationJump to search
Content added Content deleted
de>Umherirrender m (fix listToText - local var args was never used) |
de>Umherirrender m (export concatParams and allow format string) |
||
Line 12: | Line 12: | ||
Text.concatParams = function ( args, apply ) |
Text.concatParams = function ( args, apply, adapt ) |
||
-- Concat list items into one string |
-- Concat list items into one string |
||
-- Parameter: |
-- Parameter: |
||
-- args -- table (sequence) with numKey=string |
-- args -- table (sequence) with numKey=string |
||
-- apply -- string (optional); separator (default: "|") |
-- apply -- string (optional); separator (default: "|") |
||
-- adapt -- string (optional); format including "%s" |
|||
-- Returns: string |
-- Returns: string |
||
local collect = { } |
local collect = { } |
||
Line 23: | Line 24: | ||
v = mw.text.trim( v ) |
v = mw.text.trim( v ) |
||
if v ~= "" then |
if v ~= "" then |
||
if adapt then |
|||
v = mw.ustring.format( adapt, v ) |
|||
end |
|||
table.insert( collect, v ) |
table.insert( collect, v ) |
||
end |
end |
||
Line 180: | Line 184: | ||
-- Export |
-- Export |
||
local p = { } |
local p = { } |
||
function p.concatParams( frame ) |
|||
local args |
|||
local template = frame.args.template |
|||
if type( template ) == "string" then |
|||
template = mw.text.trim( template ) |
|||
template = ( template == "1" ) |
|||
end |
|||
if template then |
|||
args = frame:getParent().args |
|||
else |
|||
args = frame.args |
|||
end |
|||
return Text.concatParams( args, frame.args.separator, frame.args.format ) |
|||
end |
|||
function p.containsCJK( frame ) |
function p.containsCJK( frame ) |
Revision as of 07:49, May 10, 2014
Documentation for this module may be created at Module:Text/doc
--[=[ 2014-02-16
Text utilities
]=]
local Text = { }
local patternCJK = false
local patternLatin = false
local patternTerminated = false
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
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.listToText = function ( args, adapt )
-- Format list items similar to mw.text.listToText()
-- Parameter:
-- args -- table (sequence) with numKey=string
-- 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
return mw.text.listToText( collect )
end -- Text.listToText()
Text.sentenceTerminated = function ( analyse )
-- Is string terminated by dot, question or exclamation mark?
-- Quotation, link termination and so on granted
-- Parameter:
-- analyse -- string
-- Returns: true, if sentence terminated
local r
if not patternTerminated then
patternTerminated = mw.ustring.char( 91,
12290,
65281,
65294,
65311 )
.. "!%.%?…][\"'%]‹›«»‘’“”]*$"
end
if mw.ustring.find( analyse, patternTerminated ) then
r = true
else
r = false
end
return r
end -- Text.sentenceTerminated()
Text.uprightNonlatin = function ( adjust )
-- Ensure non-italics for non-latin text parts
-- One single greek letter might be granted
-- Precondition:
-- adjust -- string
-- Returns: string with non-latin parts enclosed in <span>
local r
if not patternLatin then
patternLatin = mw.ustring.char( 94, 91,
7, 45, 591,
8194, 45, 8250,
93, 42, 36 )
end
if mw.ustring.match( adjust, patternLatin ) then
-- latin only, horizontal dashes, quotes
r = adjust
else
local c
local j = false
local k = 1
local m = false
local n = mw.ustring.len( adjust )
local span = "%s%s<span style='font-style:normal'>%s</span>"
local flat = function ( a )
-- isLatin
return a <= 591 or ( a >= 8194 and a <= 8250 )
end -- flat()
local form = function ( a )
return string.format( span,
r,
mw.ustring.sub( adjust, k, j - 1 ),
mw.ustring.sub( adjust, j, a ) )
end -- form()
r = ""
for i = 1, n do
c = mw.ustring.codepoint( adjust, i, i )
if c > 64 then
if flat( c ) then
if j then
if m then
if i == m then
-- single greek letter.
j = false
end
m = false
end
if j then
r = form( i - 1 )
j = false
k = i
end
end
elseif not j then
j = i
if c >= 880 and c <= 1023 then
-- single greek letter?
m = i + 1
else
m = false
end
end
elseif m then
m = m + 1
end
end -- for i
if j and ( not m or m < n ) then
r = form( n )
else
r = r .. mw.ustring.sub( adjust, k )
end
end
return r
end -- Text.uprightNonlatin()
-- Export
local p = { }
function p.concatParams( frame )
local args
local template = frame.args.template
if type( template ) == "string" then
template = mw.text.trim( template )
template = ( template == "1" )
end
if template then
args = frame:getParent().args
else
args = frame.args
end
return Text.concatParams( args, frame.args.separator, frame.args.format )
end
function p.containsCJK( frame )
return Text.containsCJK( frame.args[ 1 ] or "" ) and "1" or ""
end
function p.listToText( frame )
local args
local template = frame.args.template
if type( template ) == "string" then
template = mw.text.trim( template )
template = ( template == "1" )
end
if template then
args = frame:getParent().args
else
args = frame.args
end
return Text.listToText( args, frame.args.format )
end
function p.sentenceTerminated( frame )
return Text.sentenceTerminated( frame.args[ 1 ] or "" ) and "1" or ""
end
function p.uprightNonlatin( frame )
return Text.uprightNonlatin( frame.args[ 1 ] or "" )
end
p.Text = function ()
return Text
end -- p.Text
return p