Module:Str find word: Difference between revisions

Revision as of 22:00, 16 November 2021

Latest revision as of 00:35, 3 April 2023

(18 intermediate revisions by 4 users not shown)

Line 1:

require('strict')

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

-- todo: sep = len 1 max

-- not %escapse then?

require('Module:No globals')

local p = {}

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

local str = require('Module:String')

local yesno = require('Module:Yesno')

---- local sSep = ', '

local defaultSep = ','

local iMaxWords = 16

Line 15 ⟶ 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 37 ⟶ 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 49 ⟶ 44:

-- Step 1: case-sensitive

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

sWordlist = string.lower(sWordlist)

end

Line 87 ⟶ 82:

eSep = escape_word(tArgs.sep)

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

if yesno(tArgs.explain, truefalse) then

report.xpMessage('1.eSep: ' .. eSep) -- dev

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

Line 108 ⟶ 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 167 ⟶ 163:

bAND = true

end

return bAND, tHits

end

Line 230 ⟶ 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 278 ⟶ 260:

-- No words to check

resultALL = false

if yesno(tArgs.explain, truefalse) then

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

end

Line 302 ⟶ 284:

end

if yesno(tArgs.explain, truefalse) then

if tArgs.yes ~= nil then

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

Line 321 ⟶ 303:

-- set wordt separator

local function setSep(sSep)

if sSep == nil orthen sSepreturn == '' thendefaultSep end

local msg = ''

-- todo what with {{!}}

-- comma-space? / does not matter

local newSep = defaultSep

if sSep == nil or sSep == '' then

newSep = defaultSep

end

newSep = sSep

sSep = decodeUnicode(sSep or '')

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

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

newSep = defaultSep

end

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

if sSep == nil or sSepnewSep == '' then --- ???

newSep = defaultSep

end

return newSep

end

Line 353 ⟶ 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 379 ⟶ 358:

tArgs = parseArgs(origArgs)

if yesno(tArgs.explain, truefalse) then

initReport()

report.xpListArguments(origArgs)

Line 391 ⟶ 370:

end

if yesno(tArgs.explain, truefalse) then

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

else