Module:Unicode convert

 localp={}

 -- NOTE: all these functions use frame solely for its args member.
 -- Modules using them may therefore call them with a fake frame table
 -- containing only args.

 p.getUTF8=function(frame)
 localch=mw.ustring.char(tonumber(frame.args[1]or'0',16)or0)
 localbytes={mw.ustring.byte(ch,1,-1)}
 localformat=({
 ['10']='%d',
 dec='%d'
 })[frame.args['base']]or'%02X'
 fori=1,#bytesdo
 bytes[i]=format:format(bytes[i])
 end
 returntable.concat(bytes,' ')
 end

 p.getUTF16=function(frame)
 localcodepoint=tonumber(frame.args[1]or'0',16)or0
 localformat=({-- TODO reduce the number of options.
 ['10']='%d',
 dec='%d'
 })[frame.args['base']]or'%04X'
 ifcodepoint<=0xFFFFthen-- NB this also returns lone surrogate characters
 returnformat:format(codepoint)
 elseifcodepoint>0x10FFFFthen-- There are no codepoints above this
 return''
 end
 codepoint=codepoint-0x10000
 bit32=require('bit32')
 return(format..' '..format):format(
 bit32.rshift(codepoint,10)+0xD800,
 bit32.band(codepoint,0x3FF)+0xDC00)
 end

 p.fromUTF8=function(frame)
 localbasein=frame.args['basein']=='dec'and10or16
 localformat=frame.args['base']=='dec'and'%d 'or'%02X '
 localbytes={}
 forbyteinmw.text.gsplit(frame.args[1],'%s')do
 table.insert(bytes,tonumber(byte,basein))
 end
 localchars={mw.ustring.codepoint(string.char(unpack(bytes)),1,-1)}
 returnformat:rep(#chars):sub(1,-2):format(unpack(chars))
 end

 returnp