Module:SandboxUString

Documentation for this module may be created at Module:SandboxUString/doc

local p = {}
	rTable = {
             ['<']='&-left', ['>']='&-right',  
             ['\\']='/',['\"']='*',['\'']='^'
             }
             
function p.countChar(a)
	textLength = mw.ustring.len(mw.getCurrentFrame().args[1])
	local div = mw.html.create( 'h1' )
	div
     :wikitext( "The number of characters is:" .. tostring(textLength) )
	return a:preprocess(tostring( div ))
end

function p.showCode(a)

             
	str = "\\\"\'ABCDabc<>\\\"\'D";
	return a:preprocess(str:gsub("%p", rTable))
end

function p.htmlSourceCodeText(a)
	lTable = {}
	pageContent = mw.getCurrentFrame().args[1]
	local div = mw.html.create( 'syntaxhighlight' )
	div
     :attr( 'lang', 'HTML' )
     :wikitext( pageContent:gsub("%p", lTable))
	return a:preprocess(tostring( div ))
end

function p.luaSourceCodeText(a)
	lTable = {}
	pageContent = mw.getCurrentFrame().args[1]
	local div = mw.html.create( 'syntaxhighlight' )
	div
     :attr( 'lang', 'lua' )
     :wikitext( pageContent:gsub("%p", lTable))
	return a:preprocess(tostring( div ))
end

function p.byte()
    return ';byte\n:mw.ustring.byte(\'\\\') is ' .. mw.ustring.byte("\\") .. '\n'
end

function p.char()
    return ';char\n:mw.ustring.char(92) is ' .. mw.ustring.char(92) .. '\n'
end
 
function p.codepoint()
    return ';byte\n:mw.ustring.codepoint(\'张\') is ' .. mw.ustring.codepoint("张") .. '\n'
end

function p.ustringchar()
    return ';byte\n:mw.ustring.char(24352) is ' .. mw.ustring.char(24352) .. '\n'
end

function p.gsub()
    return ';gsub\n:string.gsub(\'This is a test\', \'%s\', \'-\') is ' .. string.gsub('This is a test', '%s', '-') .. '\n'
end
return p