Module:DecodeEncode

 require('strict')
 localp={}

 localfunction_getBoolean(boolean_str)
 -- from: module:String; adapted
 -- requires an explicit true
 localboolean_value

 iftype(boolean_str)=='string'then
 boolean_str=boolean_str:lower()
 ifboolean_str=='true'orboolean_str=='yes'orboolean_str=='1'then
 boolean_value=true
 else
 boolean_value=false
 end
 elseiftype(boolean_str)=='boolean'then
 boolean_value=boolean_str
 else
 boolean_value=false
 end
 returnboolean_value
 end

 functionp.decode(frame)
 locals=frame.args['s']or''
 localsubset_only=_getBoolean(frame.args['subset_only']orfalse)

 returnp._decode(s,subset_only)
 end

 functionp._decode(s,subset_only)
 -- U+2009 THIN SPACE: workaround for bug: HTML entity   is decoded incorrect. Entity   gets decoded properly
 s=mw.ustring.gsub(s,' ',' ')
 -- U+03B5 ε GREEK SMALL LETTER EPSILON: workaround for bug (phab:T328840): HTML entity ε is decoded incorrect for gsub(). Entity ε gets decoded properly
 s=mw.ustring.gsub(s,'ε','ε')

 localret=mw.text.decode(s,notsubset_only)

 returnret
 end

 functionp.encode(frame)
 locals=frame.args['s']or''
 localcharset=frame.args['charset']

 returnp._encode(s,charset)
 end

 functionp._encode(s,charset)
 -- example: charset = '_&©−°\\\"\'\=' -- do escape with backslash not %;
 localret

 ifcharsetandcharset~=''then
 ret=mw.text.encode(s,charset)
 else
 -- use default: chartset = '<>&"\' ' (outer quotes = lua required; space = NBSP)
 ret=mw.text.encode(s)
 end

 returnret
 end

 returnp