|
|
| Line 891: |
Line 891: |
| if not head.sc then -- Overall script code given. | | if not head.sc then -- Overall script code given. |
| head.sc = data.sc | | head.sc = data.sc |
| end
| |
| -- Track uses of sc parameter.
| |
| if head.sc:getCode() == auto_sc:getCode() then
| |
| insert(data.categories, full_langname .. " terms with redundant script codes")
| |
| else
| |
| insert(data.categories, full_langname .. " terms with non-redundant manual script codes")
| |
| end | | end |
| end | | end |
| Line 935: |
Line 929: |
| if automated_tr or head.tr_fail then | | if automated_tr or head.tr_fail then |
| local manual_tr = head.tr | | local manual_tr = head.tr |
|
| |
| if manual_tr then
| |
| if (remove_links(manual_tr) == remove_links(automated_tr)) and (not head.tr_fail) then
| |
| insert(data.categories, full_langname .. " terms with redundant transliterations")
| |
| elseif not head.tr_fail then
| |
| insert(data.categories, full_langname .. " terms with non-redundant manual transliterations")
| |
| end
| |
| end
| |
|
| |
|
| if not manual_tr then | | if not manual_tr then |
| Line 1,233: |
Line 1,219: |
| insert(data.categories, full_langname .. " terms spelled with " .. character) | | insert(data.categories, full_langname .. " terms spelled with " .. character) |
| end | | end |
| end
| |
| end
| |
|
| |
| if data.heads[1].sc:isSystem("alphabet") then
| |
| local pagename, i = page.pagename:ulower(), 2
| |
| while umatch(pagename, "(%a)" .. ("%1"):rep(i)) do
| |
| i = i + 1
| |
| insert(data.categories, full_langname .. " terms with " .. i .. " consecutive instances of the same letter")
| |
| end | | end |
| end | | end |