Module:ko-attest/data

local data = {}

local function v_sparse(...)
    local map = {}
    for _, e in ipairs({ ... }) do
    	map = tostring(e)
    end
    return {  = map }
end

local function v_range(a, b)
	if not b then b = a; a = 1 end
    local map = {}
    for i=a,b do
    	map = tostring(i)
    end
    return {  = map }
end

local function v_twopart()
	return {
		 = {  = "1",  = "1",  = "1",  = "2",  = "2",  = "2" },
		 = {  = "上",  = "下" },
	}
end

local function v_threepart()
	return {
		 = {  = "1",  = "1",  = "1",  = "2",  = "2",  = "2",  = "3",  = "3",  = "3" },
		 = {  = "上",  = "中",  = "下" },
	}
end

local function u_wikisource(target)
	return {  = "https://en.wikisource.orghttps://dictious.com/en/" .. target }
end

local function u_chocassye(work)
	return {
		 = "https://find.됬.xyz/source?name=" .. work .. "{{padleft:$1|2|0}}}}",
		 = "https://f004.backblazeb2.com/file/chocassye/scans/" .. work .. "{{padleft:$1|2|0}}/$2.jpg",
	}
end

local function u_sejongdb(work)
	return {
		 = "http://db.sejongkorea.org/front/booklist.do?bmCode=" .. work,
		 = "http://db.sejongkorea.org/front/contentlist.do?bkCode=" .. work .. "_v{{padleft:$1|3}}",
		 = "http://db.sejongkorea.org/bookImages/" .. work .. "/" .. work .. "_e01_v{{padleft:$1|3}}_{{padleft:$2|4}}.jpg",
	}
end

data = {
	 = {
		 = "鷄林類事",
		 = "Jīlín lèishì",
		 = "1103",
		 = { "JLLS" },
		 = u_wikisource("zh:雞林類事"),
	},
	 = {
		 = "훈민정음_해례",
		 = "訓民正音解例",
		 = "1446",
		 = { "훈해", "HH" },
		 = u_wikisource("ko:훈민정음#訓民正音解例"),
	},
	 = {
		 = "용비_어천가",
		 = "龍飛御天歌",
		 = "1447",
		 = v_range(10),
		 = { "용가", "YB" },
		 = u_wikisource("ko:용비어천가"),
	},
	 = {
		 = "석보_상절",
		 = "釋譜詳節",
		 = "1447",
		 = v_sparse(3, 6, 9, 11, 13, 19, 20, 21, 23, 24),
		 = { "석상", "SS" },
		 = u_chocassye("석보상절"),
	},
	 = {
		 = "월인_천강지곡",
		 = "月印千江之曲",
		 = "1449",
		 = v_threepart(),
		 = { "월곡", "WC" },
		 = u_wikisource("ko:월인천강지곡"),
	},
	 = {
		 = "월인_석보",
		 = "月印釋譜",
		 = "1459",
		 = v_sparse(1, 2, 4, 7, 8, 9, 10, 11, 12, 13, 14, 15, 17, 18, 19, 20, 21, 21, 22, 23, 25),
		 = { "월석", "WS" },
		 = u_sejongdb("P14_WS"),
	},
	 = {
		 = "훈민정음_언해",
		 = "訓民正音諺解",
		 = "1459",
		 = { "훈언", "HE" },
		 = u_wikisource("ko:훈민정음언해"),
	},
	 = {
		 = "몽산화상_법어_약록_언해",
		 = "蒙山和尙法語略綠諺解",
		 = "1460",
		 = { "몽산화상법어약록", "몽산법어언해", "몽산법어", "몽법", "MS" },
		 = u_sejongdb("P19_MS"),
	},
	 = {
		 = "능엄경_언해",
		 = "楞嚴經諺解",
		 = "1461",
		 = v_range(10),
		 = { "능엄", "NE" },
		 = u_sejongdb("P15_NE"),
	},
	 = {
		 = "법화경_언해",
		 = "法華經諺解",
		 = "1463",
		 = v_range(7),
		 = { "묘법연화경언해", "법화", "MB" },
		 = u_sejongdb("P14_WS"),
	},
	 = {
		 = "불정심경_언해",
		 = "佛頂心經諺解",
		 = "1464",
		 = { "불정심다라니경언해", "관음경언해" },
		 = u_sejongdb("P27_BD"),
	},
	 = {
		 = "선종_영가집_언해",
		 = "禪宗永嘉集諺解",
		 = "1464",
		 = v_twopart(),
		 = { "영가", "SY" },
		 = u_sejongdb("P32_SY"),
	},
	 = {
		 = "원각경_언해",
		 = "圓覺經諺解",
		 = "1465",
		 = v_range(10),
		 = { "원각", "WG" },
		 = u_sejongdb("P17_WG"),
	},
	 = {
		 = "구급방_언해",
		 = "救急方諺解",
		 = "1466",
		 = v_twopart(),
		 = { "구방", "GG" },
		 = u_sejongdb("P22_GG"),
	},
	 = {
		 = "분류_두공부_시_언해",
		 = "分類杜工部詩諺解",
		 = "1481",
		 = v_sparse(3, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25),
		 = { "두시언해", "두시", "BDB" },
		 = u_sejongdb("P51_BD"),
	},
	 = {
		 = "남명집_언해",
		 = "南明集諺解",
		 = "1482",
		 = v_twopart(),
		 = { "남명", "NM" },
		 = u_sejongdb("P18_NM"),
	},
	 = {
		 = "구급_간이방_언해",
		 = "救急簡易方諺解",
		 = "1489",
		 = v_sparse(1, 2, 3, 6, 7),
		 = { "구급간이방", "구간", "GGB" },
		 = u_sejongdb("P23_GG"),
	},
	 = {
		 = "삼단_시식문_언해",
		 = "三檀施食文諺解",
		 = "1496",
		 = { "삼단시식문" },
		 = u_sejongdb("P36_SS"),
	},
	 = {
		 = "법집별행록_절요병입사기_언해",
		 = "法集別行錄節要幷入私記諺解",
		 = "1522",
		 = { "별행록절요언해", "법집별행록" },
		 = u_sejongdb("P50_BJ"),
	},
	 = {
		 = "훈몽_자회",
		 = "訓蒙字會",
		 = "예산문고본", -- this is currently not used
		 = "1527",
		 = v_threepart(),
		 = { "훈몽", "HL" },
		 = {
			 = "https://find.됬.xyz/source?name=훈몽자회+예산문고본",
			 = "https://f004.backblazeb2.com/file/chocassye/scans/훈몽자회+예산문고본/{{#switch:$1|1=상|2=중|3=하}}{{padleft:$2|3}}.jpg",
		},
	},
	 = {
		 = "몽산화상_육도_보설_언해",
		 = "蒙山和尙六道普說諺解",
		 = "1567",
		 = { "몽산화상육도보설" },
		 = u_sejongdb("P47_MS"),
	},
	 = {
		 = "십현담_요해_언해",
		 = "十玄談要解諺解",
		 = "15XX",
		 = u_sejongdb("P44_SH"),
	},
	 = {
		 = "권념_요록",
		 = "勸念要錄",
		 = "1637",
		 = u_sejongdb("P49_GN"),
	},
	 = {
		 = "지장보살_본원경_언해",
		 = "地藏菩薩本願經諺解",
		 = "1762",
		 = v_threepart(),
		 = { "지장경언해", "지장" },
		 = u_sejongdb("P52_JJ"),
	},
}

local aliases = {}

for k, v in pairs(data) do
	-- expand work aliases for fast access
	if v then
		for _, alias in ipairs(v) do
			aliases = k
		end
	end
end

for k, v in pairs(aliases) do
	data = v
end

return data