モジュール:ConvertTestcase について

Words near each other

・メ＝ゾシ
・メ＝ゾシ県
・メ～テレ
・メ～テレNEWS
・メ～テレカフェ
・メ～テレニュース
・メ～テレワイドスーパーJチャンネル
・メ～テレ劇場
・メ～テレ日曜朝7時枠のアニメ
・メ～テレ時代劇
・モ
・モ'・ベター・ブルース
・モア
・モア (たばこ)
・モア (アルバム)
・モア (曖昧さ回避)
・モア (曲)
・モア☆ゴル
・モアイ
・モアイ (グラディウス)

Dictionary Lists

mini英和辞書

翻訳と辞書　辞書検索 [ 開発暫定版 ]

スポンサードリンク

モジュール:ConvertTestcase ：ミニ英和和英辞書

モジュール:ConvertTestcase[しー]
=====================================
〔語彙分解〕的な部分一致の検索結果は以下の通りです。

・ジュール： [じゅーる]
　【名詞】 1. joule　2. (n) joule
・ー： [ちょうおん]
　(n) long vowel mark (usually only used in katakana)

モジュール:ConvertTestcase ：ウィキペディア日本語版

モジュール:ConvertTestcase[しー]
-- Used to compare the current version of the convert template with the sandboxlua version
local function bag()
-- Return a table to hold lines of text.
return
end
local function clean(s)
-- 2013-04-08: Template:Convert now appends text like
-- "" to its output,
-- so remove that also.
s = s:gsub(" ", " ")
s = s:gsub(" ", " ")
s = s:gsub("_", " ")
s = s:gsub("—", "—")
s = s:gsub("–", "–")
s = s:gsub("²", "²")
s = s:gsub("³", "³")
s = s:lower()
s = s:gsub("%", "")
-- convert links with descriptions the same as the link to just a link
-- for example acre to acre
-- and acres to acres
s = s:gsub("%]", "%1")
s = s:gsub("%]", "%1s")
return s
end
local function nolinks(s)
-- Remove wikilink target to test if difference is due to a link disagreement.
-- Change, for example, "acre" to "acre", then "ha" to "ha".
s = s:gsub("%-)%]%]", "%1")
return s:gsub("%", "%1")
end
local function nospans(s)
-- Remove any html spans to test if difference is due to a span disagreement.
return s:gsub("", "")
end
local function showconvert(args)
return "{}" -- 123="", 124="|"
end
local function statusbox(label, color, align)
return "| style=\"text-align:" .. align .. ";color:white;background:" .. color .. ";\" | " .. label
end
local function statusboxlinkspan(label)
return "| style=\"text-align:center;color:white;background-image: -moz-linear-gradient(left, olive, teal); background-image: -ms-linear-gradient(left, olive, teal); background-image: -webkit-linear-gradient(left, olive, teal); background-image: linear-gradient(left, olive, teal);\" | " .. label
end
local function addresults(frame, voutput, template, args, vunit, title, args2)
local v1 = frame:expandTemplate
local v2 = frame:expandTemplate
if vunit then
voutput:add("| " .. vunit .. "")
end
voutput:add("| " .. template)
voutput:add("| " .. v1)
voutput:add("| " .. v2)
v1 = clean(v1)
v2 = clean(v2)
if v1 == v2 then
voutput:add(statusbox("Exact Match", "green", "center"))
elseif nolinks(v1) == nolinks(v2) then
voutput:add(statusbox("Link", "olive", "left"))
elseif nospans(v1) == nospans(v2) then
voutput:add(statusbox("Span", "teal", "right"))
elseif nospans(nolinks(v1)) == nospans(nolinks(v2)) then
voutput:add(statusboxlinkspan("Link & Span"))
else
if mw.ustring.find(v1, "template:convert", 1, true ) then
voutput:add(statusbox("", "white", "center"))
else
voutput:add(statusbox("Different", "red", "center"))
end
end
end
local function onerow(frame, voutput, vunit, vunit2, vbaseunit)
local insert = table.insert
local args =
insert(args, "1")
if vbaseunit then
insert(args, vbaseunit)
end
insert(args, vunit)
if vunit2 then
insert(args, "5")
insert(args, vunit2)
end
local template = showconvert(args)
args.lk = "on"
addresults(frame, voutput, template, args, vunit)
voutput:add("|-")
end
local i =
function i.ConvertTestcaseHeader(frame)
local want_unit = frame.args.unit
want_unit = (want_unit == nil or want_unit == 'yes')
local colspan = frame.args.colspan or ''
if colspan ~= '' then
colspan = " colspan=2"
end
local voutput = bag()
voutput:add("\n"
end
function i.ConvertTestcase(frame)
local vtype = frame.args
local vtoonly = frame.args
local vfromonly = frame.args
local vunit = frame.args
local vunit2 = frame.args
local voutput = bag()
local vunits =
if vtoonly ~= "yes" then
onerow(frame, voutput, vunit, vunit2)
end
if vfromonly ~= "yes" then
local vbaseunit = vunits
if vbaseunit ~= nil and vbaseunit ~= vunit then
onerow(frame, voutput, vunit, vunit2, vbaseunit)
end
end
return voutput:join()
end
local function make_given(argstr)
local insert = table.insert
local args, show = ,
argstr = argstr .. "!"
for item in argstr:gmatch( "(.-)!") do
local p = item:find('=', 1, true)
if p then
argsp-1) = item:sub(p+1)
else
insert(args, item)
end
insert(show, item)
end
return showconvert(show), args
end
function i.ConvertTestcaseGiven(frame)
-- Return a test case row from template arguments given in the form
-- "100!in!cm!abbr=on" which means "".
local given = frame.args
if given == nil or given == '' then
return ""
end
local voutput = bag()
local template, args = make_given(given)
addresults(frame, voutput, template, args)
voutput:add("|-")
return voutput:join()
end
function i.ConvertTestcaseExtra(frame)
-- Return a test case row from template arguments given like
-- "|x=spell |1=0.5!ha!acre |2=0.5!ha!acre!spell=in" which invokes:
--
--
-- or like
-- "|x=3 |1=1!x!2!x!3!ft!mm |2=1!
*!2!
*!3!ft!mm" which invokes:
--
--
local extra, lhs, rhs = frame.args.x, frame.args, frame.args
if extra == nil or extra == '' or lhs == nil or lhs == '' or rhs == nil or rhs == '' then
return ""
end
local voutput = bag()
local template1, args1 = make_given(lhs)
local template2, args2 = make_given(rhs)
addresults(frame, voutput, template2, args1, nil, "convert/" .. extra, args2)
voutput:add("|-")
return voutput:join()
end
return i

抄文引用元・出典: フリー百科事典『ウィキペディア（Wikipedia）』
■ウィキペディアで「モジュール:ConvertTestcase」の詳細全文を読む

スポンサードリンク

翻訳と辞書 : 翻訳のためのインターネットリソース