Module:Str find word: Difference between revisions

Revision as of 21:40, 16 November 2021

Latest revision as of 00:35, 3 April 2023

(28 intermediate revisions by 4 users not shown)

Line 1:

require('strict')

--- STABLE: 16-11-2021 20:30

--

require('Module:No globals')

local p = {}

local getArgs = require('Module:Arguments').getArgs

local str = require('Module:String')

local yesno = require('Module:Yesno')

---- local sSepdefaultSep = ', '

local defaultSep = ', '

local iMaxWords = 16

local warningIMaxWordsReached = nil

Line 13 ⟶ 10:

local report -- to be initinated when explain needed

-- Initialise the /report subpage.

-- only invoked when needed when 'explain' asked

local function initReport()

report = require('Module:Str find word/report')

end

-- Turn "A" into "A" etc. asap

-- and reduce multi-spaces (including nbsp etc.) into single space

local function decodeUnicode(str)

Line 35 ⟶ 32:

-- step 1: when case-insensitive, turn string into lowercase

-- step 2: read & remove Literals ("..")

-- step 3: readsread comma-separated words

-- step 4: when booleans=T, change boolean words into true/false (module:yesno rules)

-- all words returned are trimmed, TODO and all ws into single-plainspace?

-- only T/F words are edited, other words rtemainremain, untouched

-- return the table (a straight array)

local function buildWordTable(tArgs, sWordlist)

Line 47 ⟶ 44:

-- Step 1: case-sensitive

if yesno(tArgs.case, falsetrue) == false then

sWordlist = string.lower(sWordlist)

end

Line 81 ⟶ 78:

-- Step 3: parse comma-delimited words

hitCount = 0

sWordlist = tArgs.sep .. sWordlist .. tArgs.sep

local eSep

eSep = escape_word(tArgs.sSep or '&'sep)

table.insert(wordTable, eSep) -- dev

local patstring = '%f[^' .. eSep .. '][^' .. eSep .. ']+%f[' .. eSep .. ']'

if yesno(tArgs.explain, truefalse) then

table.insert(wordTable, eSep) -- dev

table report.insertxpMessage(wordTable,'1.eSep: ' .. patstringeSep) -- dev

report.xpMessage('2.pattern: ' .. patstring) -- dev

end

while hitCount <= iMaxWords do

hitCount = hitCount + 1

hitWord = str._match(tArgs.sSep .. sWordlist .. tArgs.sSep, patstring, 1, hitCount, false, ','tArgs.sep)

hitWord = mw.text.trim(hitWord)

if hitWord == ','tArgs.sep then

-- no more words found in the string

break

Line 104 ⟶ 103:

end

-- Step 4: when read booleans, converse to words to true/false

-- todo: check parameter here not elsewhere

if tArgs.booleans then

if tArgs.booleans then -- TODO if Yesno(tArgs.booleans) ...

local sBool

for i, v in ipairs(wordTable) do

Line 163:

bAND = true

end

return bAND, tHits

end

Line 226:

-- explain=testcases => WHEN in ns: template: or user: AND subpage = '/testcases' THEN show permanently

local function checkExplain(tArgs)

return false -- never. 22Mar2023 checkExplain(newArgs)

if yesno(tArgs.explain, true) then

if yesno(tArgs.explain, false) == true then -- explicit True so preview show

if isPreview() == true then

return true

end

elseif tArgs.explain == 'testcases' then

local titleObj = mw.title.getCurrentTitle()

if titleObj:inNamespaces('template', 'user')

and titleObj.subpageText == 'testcases'

and titleObj.isSubpage then

return 'testcases'

end

end

end

return false

end

Line 274 ⟶ 260:

-- No words to check

resultALL = false

if yesno(tArgs.explain, truefalse) then

report.xpNoWords(tArgs, sourceWordTable, andWordTable, orWordTable)

end

Line 287 ⟶ 273:

-- concat the sYeslist (= all hit words; from 2 tables)

if bANDresult then

sYeslist = sYeslist .. table.concat(tANDhits, tArgs.sSepsep)

end

if #tORhits > 0 then

if #tANDhits > 0 then

sYeslist = sYeslist .. tArgs.sSepsep

end

sYeslist = sYeslist .. table.concat(tORhits, tArgs.sSepsep)

end

end

if yesno(tArgs.explain, truefalse) then

if tArgs.yes ~= nil then

if (tArgs.yes == '') and (tArgs.no == '') then

Line 317 ⟶ 303:

-- set wordt separator

local function setSep(sSep)

if sSep == nil or sSep == '' then return defaultSep end

local msg = ''

-- todo what with {{!}}

-- comma-space? / does not matter

local newSep = defaultSep

if sSep == nil or sSep == '' then return defaultSep end

sSepnewSep = decodeUnicode(sSep or '')

sSep = decodeUnicode(sSep)
if string.match(sSep, '[%s%w%d]') ~= nil then -- not ok ok

msg = 'Irregular characters in sep: ' .. sSep

returnnewSep = defaultSep

end

newSep = string.sub(sSep, 1, 1)

if newSep == '' then --- ???

newSep = defaultSep

end

if sSep == nil or sSep == '' then return defaultSep end

return sSep .. 'x'

return truenewSep

end

Line 341 ⟶ 331:

local function parseArgs(origArgs)

local newArgs = {}

newArgs['sep'] = setSep(origArgs['sep'] or '') -- fistdo first, needed below

newArgs['source'] = decodeUnicode(origArgs['s'] or origArgs['source'] or '')

newArgs['andString'] = decodeUnicode(concatAndLists(

origArgs['w'] or origArgs['word'] or nil,

origArgs['andw'] or origArgs['andwords'] or nil,
newArgs.sSep)

)

newArgs['orString'] = decodeUnicode(origArgs['orw'] or origArgs['orwords'] or '')

-- boolean options: catch both parameters, also handle nil & nonsense input values:

newArgs['case'] = yesno(origArgs['case'] or origArgs['casesensitive'] or falsetrue, falsetrue) -- defaults to FalseTrue

newArgs['booleans'] = yesno(origArgs['bool'] or origArgs['booleans'] or false, false) -- defaults to False

newArgs['literals'] = yesno(origArgs['literals'] or origArgs['lit'] or true, true) -- defaults to True

newArgs['yes'] = origArgs['yes'] or nil -- nil; default so return sYeslist; keep '' as legal input & return value

newArgs['no'] = origArgs['no'] or ''

newArgs['explain'] = origArgs['explain']false or-- falsenever. 22Mar2023 checkExplain(newArgs)

newArgs.explain = false -- never. 22Mar2023 checkExplain(newArgs)

return newArgs

Line 367 ⟶ 358:

tArgs = parseArgs(origArgs)

if yesno(tArgs.explain, truefalse) then

initReport()

report.xpListArguments(origArgs)

Line 379 ⟶ 370:

end

if yesno(tArgs.explain, truefalse) then

return sReturn .. report.xpPresent(tArgs.explain)

else