localexport={}-- Make a link out of a form, or show a dash if empty.functionexport.link_form(form,tag)ifnotPAGENAMEthenPAGENAME=mw.title.getCurrentTitle().textendiftype(form)=="table"thenforn,subforminpairs(form)doform[n]=export.link_form(subform,tag)endreturntable.concat(form,", ")elseifform~=""thenreturn"<"..(tagor"span").." lang=\"nl\">[["..form..(form~=PAGENAMEand"#Dutch|"..formor"").."]]</"..(tagor"span")..">"elsereturn"—"endendendfunctionexport.add_e(stem,weak_final,lengthen)-- Vowel lengtheningiflengthenthenreturnstem:gsub("i(.)$","e%1").."e"-- Final weak syllable, no consonant doublingelseifweak_finalthenifstem:find("ie$")thenreturnstem:gsub("ie$","ië")elsereturnstem.."e"endelse-- Ends in ee, ie, oeifstem:find("[eio]e$")thenreturnstem.."ë"-- Ends in eelseifstem:find("e$")thenreturnstem-- Ends in double vowel + single consonant, remove one of the vowelselseifstem:find("([aeou])%1[bcdfgklmnpqrstvxz]$")then-- Add a diaeresis if the removal would create a digraphifstem:find("[io]ee.$")thenreturnstem:gsub("..(.)$","ë%1e")elsereturnstem:gsub(".(.)$","%1e")end-- Ends in single vowel + single consonant, double the consonantelseifstem:find("[AaEeIiOoUu][bcdfgklmnpqrstvz]$")andnotstem:find("[IiïOoö]e.$")and(notstem:find("[AaäEeëOoöUuü]i.$")orstem:find("qui.$"))andnotstem:find("[AaäEeëOoö]u.$")thenreturnstem:gsub("(.)$","%1%1e")elsereturnstem.."e"endendendreturnexport