Module:Sandbox/Sarai Blanco

Documentation for this module may be created at Module:Sandbox/Sarai Blanco/doc

-- Sarai Blanco Google Code-in, Introduction to Lua in Wikipedia
-- Sarai Blanco Google Code-in, Working with modules

local p = {} 

function p.hello( frame )
    return "hello"
end

p.Hi = function(frame)
	strName = frame.args.name or "Jimbo"
	return "Hello from Lua to my friend " .. strName .. ".<br>"
end

p.temperature = function(frame)
	cel = tonumber(frame.args.celsius) or 0
	fah = ((cel*9)/5)+32
	msg = cel .. " degrees Celsius is " .. fah .. " degrees Fahrenheit."
	if cel>9 then msg=msg.. " It is warm.<br>" else msg=msg.. " It is cold.<br>" end
	return msg
end

--Task 4

p.times = function(frame)
	local num = tonumber( frame.args.num ) or 2
	local out = num .. " times table<br>"
	for i = 1, 12 do
		out = out .. num.." times ".. i .. " equals " ..(i * num) .. "<br>"
	end
	return out
end

p.mum = function(frame)
	local family = {"Dad", "Mum", "Uncle Stan", "Aunty Elsie", "Brian", "Sandra", "Jhon", "Sonia"}
	local msg = ""
	for i = 1, #family do
		msg = msg .. "Hello " .. family[i] .. "<br>"
	end
	return msg
end

p.sentence = function(frame)
	local str = frame.args.words or ""
	local out = string.upper(string.sub(str, 1, 1))
	local out = out.. string.sub (str, 2)
	return out
end

p.unpackdate = function(frame)
	local dmydate = frame.args.dmydate or ""
	local day, month, year = string.match(dmydate, "(%d+) (%w+) (%d+)")
	return "Year = " .. year .. "<br>Day = " .. day .. "<br>Month = " .. month
end

p.langnames = function(frame)
	local langlist = mw.language.fetchLanguageNames()
	local langs = ""
	local count = 0
	for k, v in pairs(langlist) do
		langs = langs .. k .. " - " .. v .. "<br>"
		count = count + 1
	end
	return langs .. "<br>= " .. count .. " languages"
end

p.fallbacks = function(frame)
	local langcode = frame.args.langcode or ""
	local langlist = mw.language.getFallbacksFor( langcode )
	local langs = ""
	for k, v in pairs(langlist) do
		langs = langs .. k .. " - " .. v .. "<br>"
	end
	return langs 
end

p.pagename = function(frame)
	local ttl = frame.args.title
	local ttlobj = mw.title.new( ttl )
	local txt = ttlobj.text
	return txt
end

p.pageinfo = function(frame)
	local ttl = frame.args.title or ""
	local ttlobj = mw.title.new( ttl ) or ""
	if ttlobj=="" then msg= "Invalid title" return msg end
	local txt = ttlobj.text
	if ttlobj.exists then txt=txt.. " exists and " else txt=txt.. " does not exist and "end
	if ttlobj.redirectTarget then txt=txt.. "is a redirect<br>" else txt=txt.. "is not a redirect<br>" end
	return txt
end

p.otra=function(frame)
	local fecha=frame.args.ff or ""
	local tipo=frame.args.format or ""
	if fecha=="" then local msg="Invalid entry" return msg.. "<br>" end
	local cir=0,ll ad=0 bc=0 bce=0 ce=0,lala
	lala=string.match(fecha,"BCE")
	if lala then bce=1 
	else
		lala=string.match(fecha,"BC")
	if lala then bc=1 end
	lala=string.match(fecha,"CE")
	if lala then ce=1 end
	end
	
	lala=string.match(fecha,"AD")
	if lala then ad=1 end

	ll=string.match(fecha,"uncertain")
	if ll then cir=1 end
	ll=string.match(fecha,"around")
	if ll then cir=1 end
	local mesesp = { "January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December" }
	local months = { "jan", "Jan", "feb","Feb", "mar","Mar", "apr","Apr", "may","May", "jun","Jun","jul","Jul" , "aug","Aug", "sep","Sep", "oct","Oct", "nov","Nov", "dec","Dec" }
	local fechademes = {31,0,31,30,31,30,31,31,30,31,30,31}
	local k=0,g modo="",kk
	for i=1, #months do
		g=string.find(fecha,months[i]) or 0
		if g~=0 then k=i kk=g end
	end
	local mes=0,mesl,anio,dia
	if k~=0 then
		
		if k%2==1 then mes=(k/2)+0.5 else mes=k/2 end
		if mes~=0 then mesl=mesesp[mes] else buscm=1 end
	end
	local reco=fecha num1=0 numeros={} hay="",pos pospala=kk,posnum1
	for i=1,4 do
	num1 = string.match(reco, "(%d+)") or ""
	if i==1 then hay = string.match(reco, "(%w+)") or ""
		posnum1=string.find(reco,num1) end
		if num1~="" then
			pos=string.find(reco,num1)
			if string.len(num1)==1 then pos=pos+1 end
			if string.len(num1)==2 then pos=pos+2 end
			if string.len(num1)==3 then pos=pos+3 end
			if string.len(num1)==4 then pos=pos+4 end
			if string.len(num1)==5 then pos=pos+5 end
			reco=string.sub(reco,pos)
			table.insert(numeros,num1)
		end
	end
	
	if mes==0  then
		if #numeros>1  then
			if #numeros==3 then 
				for i=1,#numeros do
				numeros[i]=tonumber(numeros[i])
				end
		
				mes=numeros[2]
				modo="iso"
				if numeros[1]<numeros[3] then
				dia=numeros[1]
				anio=numeros[3]
				else
				anio=numeros[1]
				dia=numeros[3]
				end
			
			else
				for i=1,#numeros do
				numeros[i]=tonumber(numeros[i])
				end
				if numeros[2]<100 then local msg="Invalid entry" return msg.."<br>" end
				anio=numeros[2]
				modo="year"
			end
		else
			if #numeros==1 then	anio=numeros[1]
			modo="year"
			else local msg="Invalid entry" return msg.."<br>"
			end
		end
	else 
		if #numeros==1 then
			if pospala<posnum1 then 
			anio=numeros[1] 
			dia=0
			modo="month and year"
			else
			dia=numeros[1] 
			anio=0
			modo="month and year"
			end
		else
			if #numeros==2
			then dia=numeros[1]
				anio=numeros[2] 
				if pospala<posnum1 then 
				modo="mdy"
				else modo="dmy"
				end
			else local msg="Invalid entry" return msg.."<br>" 
			end
		end
	end

	anio=tonumber(anio) or 0
	dia=tonumber(dia) or 0
	mes=tonumber(mes) or 0
	local anio2=anio
	if anio2<100 then anio2=anio2+2000 end
	if anio2 % 1000 == 0 then fechademes[2]=29
	else
		if anio2 % 100 == 0 then fechademes[2]=28 
		else
			if anio2% 4 == 0 then fechademes[2]=29 
			else fechademes[2]=28
			end
		end
	end
	if mes~=0 and mes<13 and dia ~=0 and dia>fechademes[mes] then local msg="Invalid entry" return msg.."<br>" end
	if mes>12 then local msg="Invalid entry" return msg.."<br>" end
	local ss=""
	if modo=="" then local msg="Invalid entry" return msg.."<br>" end
	if tipo=="" then tipo=modo end
	if tipo=="dmy" then 
	ss=dia.." "..mesesp[mes].." "..anio
	end
	if tipo=="mdy" then 
	ss=mesesp[mes].." "..dia ..", "..anio
	end
	if tipo=="iso" then 
	if dia<10 then dia="0"..dia end
	if mes<10 then mes="0"..mes end
	ss=anio.."-"..mes.."-"..dia
	end
	if tipo=="year" then 
	ss=anio
	end
	if tipo=="month and year" then 
		if dia~=0 then ss=dia.." "..mesesp[mes]
		else ss=mesesp[mes].." "..anio
		end
	end
	if cir==1 then ss="circa "..ss end
	if ad==1 then ss=ss.." AD" end
	if bc==1 then ss=ss.." BC" end
	if bce==1 then ss=ss.." BCE" end
	if ce==1 then ss=ss.." CE" end
	ss=ss.."<br>"
	return ss
end

return p