モジュール:仮リンク/linkのソースを表示

local p = {}

function p.otherLangLinkList(args)

    local label = ""
 if args['label'] ~= "" and args['label'] ~= nil then
  label = "|" .. args['label']
 end
 
 if args['view'] ~= "" and args['view'] ~= nil then
  local result = {}
  
  -- ツールチップ指定
  result[<span class="ltr">1</span>] = string.format(
   '<span title="%s">[[%s%s]]',
   args['title'],
   args[<span class="ltr">1</span>],
   label
   )
   
  if args[<span class="ltr">2</span>] ~= "" and args[<span class="ltr">3</span>] ~= "" then
   -- フォント指定
   if args['viewInterwikiPageName'] ~= '1' then
    result[<span class="ltr">2</span>] = '<span style="font-size: 0.77em; font-weight: normal;" class="noprint">'
   else
    result[<span class="ltr">2</span>] = ''
   end

   -- 改行指定対応
   if args['br'] == "" or args['br'] == nil then
    result[<span class="ltr">3</span>] = ""
   else
    result[<span class="ltr">3</span>] = '<br/>'
   end
   
   result[<span class="ltr">4</span>] = '（'
   if args['viewInterwikiPageName'] == '1' then
    result[<span class="ltr">5</span>] = p.otherLangLinkDispName(args[<span class="ltr">2</span>], args[<span class="ltr">3</span>], args['interwikilabel'], args['short'], args['links'])
   else
    local tmp = {}
    tmp[<span class="ltr">1</span>] = p.otherLangLink(args[<span class="ltr">2</span>], args[<span class="ltr">3</span>])
    tmp[<span class="ltr">2</span>] = p.otherLangLink(args[<span class="ltr">4</span>], args[<span class="ltr">5</span>])
    tmp[<span class="ltr">3</span>] = p.otherLangLink(args[<span class="ltr">6</span>], args[<span class="ltr">7</span>])
    tmp[<span class="ltr">4</span>] = p.otherLangLink(args[<span class="ltr">8</span>], args[<span class="ltr">9</span>])
    result[<span class="ltr">5</span>] = table.concat(p._tableShorten(tmp), '、')
   end
   result[<span class="ltr">6</span>] = '）'
   
   if args['viewInterwikiPageName'] ~= '1' then
    result[<span class="ltr">7</span>] = '</span>'
   else
    result[<span class="ltr">7</span>] = ''
   end
  end
  
  result[<span class="ltr">8</span>] = '</span>'
  
  return table.concat(p._tableShorten(result))
 else
  return string.format(
   '[[%s%s]]',
   args[<span class="ltr">1</span>],
   label
   )
 end
end

function p.otherLangLink(langCode, pageName)
 -- 引数が指定されていない場合は空文字を返す
 if langCode == "" or langCode == nil or pageName == "" or pageName == nil then
  return ""
 end
 
 local langDisp
 
 -- wikidataの場合は「wikidata」、それ以外の場合は言語名+「版」とする
 if langCode == 'wikidata' then
  langDisp = 'wikidata'
 else
  local mWikipediaLangName = require('モジュール:Wikipedia言語名')
 
  local newFrameArg = {}
  newFrameArg[<span class="ltr">1</span>] = langCode
  local newFrame = { args = newFrameArg }
  
  langDisp = mWikipediaLangName.GetWikipediaPageName(newFrame)
 end
 
 if langDisp == nil then
  error('言語コードの指定に誤りがあります')
 elseif langCode ~= 'wikidata' then
  langDisp = langDisp .. '版'
 end
 
 return string.format(
  '[[:%s:%s|%s]]',
  langCode,
  pageName,
  langDisp
  )
end

function p.otherLangLinkDispName(langCode, pageName, interwikilabel, short, links)
 -- 必須引数が指定されていない場合は空文字を返す
 if langCode == "" or langCode == nil or pageName == "" or pageName == nil then
  return ""
 end
 
 -- 他言語版リンクラベル名が指定されていない場合はページ名を指定
 if interwikilabel == "" or interwikilabel == nil then
  interwikilabel = pageName
 end
 
 -- ページリンク部分取得
 local pageLink = string.format(
  '<span lang="%s" xml:lang="%s">[[:%s:%s|%s]]</span>',
  langCode,
  langCode,
  langCode,
  pageName,
  interwikilabel
  )
 
 -- 言語ページ取得
 local mWikipediaLangName = require('モジュール:Wikipedia言語名')
 local newFrameArg = {}
 newFrameArg[<span class="ltr">1</span>] = langCode
 local newFrame = { args = newFrameArg }
 local langPage = mWikipediaLangName.GetWikipediaPageName(newFrame) 
 
 if langPage == nil then
  error('言語コードの指定に誤りがあります')
 end
 
 -- 言語表示名取得
 local langDisp
 local localShort = short
 if short == 'on' then
  newFrameArg = {}
  newFrameArg[<span class="ltr">1</span>] = langCode .. '-short'
  newFrame = { args = newFrameArg }
  langDisp = mWikipediaLangName.GetWikipediaPageName(newFrame) 
  if langPage == langDisp then
   localShort = 'off'
  end
 end
 
 -- 言語表示部分取得
 local langLink
 if links ~= 'no' and localShort ~= 'on' then
  -- デフォルト(リンクあり、言語名省略なし)
  langLink = string.format(
   '[[%s]]',
   langPage
   )
 elseif links ~= 'no' and localShort == 'on' then
  -- リンクあり、言語名省略
  langLink = string.format(
   '[[%s|%s]]',
   langPage,
   langDisp
   )
 elseif links == 'no' and localShort ~= 'on' then
  -- リンクなし、言語名省略なし
  langLink = langPage
 else
  -- リンクなし、言語名省略
  langLink = langDisp
 end
 
 return langLink .. ': ' .. pageLink

end

function p._tableShorten(<span class="ltr">t</span>)
 local newTable = {}
 local i = 0
 for j,m in ipairs(<span class="ltr">t</span>) do
  if m ~= "" and m ~= nil then
   i = i + 1
   newTable[<span class="ltr">i</span>] = m
  end
 end
 
 return newTable
end

return p