Modul:Hiero/Saqqara

aus Wikipedia, der freien Enzyklopädie
Zur Navigation springen Zur Suche springen
Vorlagenprogrammierung Diskussionen Lua Unterseiten
Modul Deutsch English

Modul: Dokumentation

Diese Seite enthält Code in der Programmiersprache Lua. Einbindungszahl Cirrus


--[=[ Hiero/Saqqara 2022-01-09
Data Management Module for Access from Within Templates and Other Modules
Author: Vollbracht
* Saqqara.code(row, col)       by list
* Saqqara.Lemma(row, col)      by list and translations
* Saqqara.note(row, col)       by list and noteList
* Saqqara.annotated(row, col)  by list, noteList, translations and wikidata
* Saqqara.list
]=]

--Module globals
local p = {service = {}}

-- localized annotation strings
local noteList = {de={
	w='<br />%sPharao (Königin)<br />der%s. Dynastie',
	m='<br />%sPharao<br />der%s. Dynastie',
	illegible='Namenszug nur in Resten erhalten.',
	kingList='[[:de:Königsliste von Sakkara|Königsliste<br />von Sakkara]]' ..
	         '<br />Zeile %d<br />Spalte %d<br />(von rechts)',
	link='[[:de:%s|%s]]<br />Zeile %d<br />Spalte %d<br />(von rechts)',
	reversePart='Abschnitt mit umgekehrter Reihenfolge.',
	reverseIllegible='verderbte Kartusche im Abschnitt mit umgekehrter ' ..
	                 'Reihenfolge'
	}
}
--[[
Following data can get obtainedin in query.wikidata.org by

SELECT DISTINCT ?PharaoLabel ?Section ?Row ?Column ?Pharao WHERE {
  ?Pharao p:P1343 ?statement0.
  ?statement0 ps:P1343 wd:Q1054563;
    pq:P7421 ?Row;
    pq:P4775 ?Section;
    pq:P3903 ?Column.
  SERVICE wikibase:label { bd:serviceParam wikibase:language "en". }
}
ORDER BY ?PharaoLabel

as well.
(instead of "en" using any language of choice as far as available in wikidata)
]]
local byLemma = {de={
	['Ahmose I.']={2, 1, 2, 'Q7222'},
	['Amenemhet I.']={2, 1, 5, 'Q18771'},
	['Amenemhet II.']={2, 1, 7, 'Q18734'},
	['Amenemhet III.']={2, 1, 10, 'Q19244'},
	['Amenemhet IV.']={2, 1, 11, 'Q19246'},
	['Amenophis I.']={2, 1, 1, 'Q157966'},
	['Anedjib']={2,2,19,'Q111079'},
	['Chasechemui']={2,2,9,'Q294266'},
	['Cheops']={2, 2, 3, 'Q161904'},
	['Chephren']={2, 2, 1, 'Q199861'},
	['Djedkare']={2, 1, 18, 'Q269247'},
	['Djoser']={2,2,8,'Q174367'},
	['Djoserteti']={2,2,7,'Q220256'},
	['Hetepsechemui']={2,2,17,'Q151817'},
	['Hudjefa I.']={2,2,10,'Q887937'},
	['Huni']={2,2,5,'Q220240'},
	['Menkauhor']={2, 1, 19, 'Q269257'},
	['Mentuhotep II.']={2, 1, 3, 'Q296439'},
	['Mentuhotep III.']={2, 1, 4, 'Q310278'},
	['Merenre']={2, 1, 14, 'Q269209'},
	['Nebkare']={2,2,6,'Q450558'},
	['Nebre']={2,2,16,'Q152751'},
	['Neferirkare']={1, 2, 3, 'Q268576'},
	['Neferkare I.']={2,2,12,'Q349184'},
	['Neferkasokar']={2,2,11,'Q464248'},
	['Ninetjer']={2,2,15,'Q151824'},
	['Nofrusobek']={2, 1, 12, 'Q228951'},
	['Pepi I.']={2, 1, 15, 'Q269265'},
	['Pepi II.']={2, 1, 13, 'Q6198'},
	['Qaa']={2,2,18,'Q151819'},
	['Radjedef']={2, 2, 2, 'Q209397'},
	['Ramses I.']={1, 1, 3, 'Q1526'},
	['Ramses II.']={1, 1, 1, 'Q1523'},
	['Raneferef']={1, 2, 1, 'Q269271'},
	['Schepseskare']={1, 2, 2, 'Q268601'},
	['Sened']={2,2,13,'Q297704'},
	['Sesostris I.']={2, 1, 6, 'Q18763'},
	['Sesostris II.']={2, 1, 8, 'Q18722'},
	['Sesostris III.']={2, 1, 9, 'Q19248'},
	['Sethos I.']={1, 1, 2, 'Q157918'},
	['Snofru']={2, 2, 4, 'Q189371'},
	['Teti II.']={2, 1, 16, 'Q269285'},
	['Unas']={2, 1, 17, 'Q244985'},
	['Wadjenes']={2,2,14,'Q2538799'}
},
en={
	['Ahmose I']={2,1,2,'Q7222'},
	['Amenemhat I']={2,1,5,'Q18771'},
	['Amenemhat II']={2,1,7,'Q18734'},
	['Amenemhat III']={2,1,10,'Q19244'},
	['Amenemhat IV']={2,1,11,'Q19246'},
	['Amenhotep I']={2,1,1,'Q157966'},
	['Anedjib']={2,2,19,'Q111079'},
	['Djedefre']={2,2,2,'Q209397'},
	['Djedkare Isesi']={2,1,18,'Q269247'},
	['Djoser']={2,2,8,'Q174367'},
	['Hotepsekhemwy']={2,2,17,'Q151817'},
	['Hudjefa I']={2,2,10,'Q887937'},
	['Huni']={2,2,5,'Q220240'},
	['Khafra']={2,2,1,'Q199861'},
	['Khasekhemwy']={2,2,9,'Q294266'},
	['Khufu']={2,2,3,'Q161904'},
	['Menkauhor Kaiu']={2,1,19,'Q269257'},
	['Mentuhotep II']={2,1,3,'Q296439'},
	['Mentuhotep III']={2,1,4,'Q310278'},
	['Merenre Nemtyemsaf I']={2,1,14,'Q269209'},
	['Nebra']={2,2,16,'Q152751'},
	['Neferefre']={1,2,1,'Q269271'},
	['Neferirkare Kakai']={1,2,3,'Q268576'},
	['Neferkara I']={2,2,12,'Q349184'},
	['Neferkare']={2,2,6,'Q450558'},
	['Neferkasokar']={2,2,11,'Q464248'},
	['Nynetjer']={2,2,15,'Q151824'},
	['Pepi I Meryre']={2,1,15,'Q269265'},
	['Pepi II']={2,1,13,'Q6198'},
	["Qa'a"]={2,2,18,'Q151819'},
	['Ramesses I']={1,1,3,'Q1526'},
	['Ramesses II']={1,1,1,'Q1523'},
	['Sekhemkhet']={2,2,7,'Q220256'},
	['Senedj']={2,2,13,'Q297704'},
	['Senusret I']={2,1,6,'Q18763'},
	['Senusret II']={2,1,8,'Q18722'},
	['Senusret III']={2,1,9,'Q19248'},
	['Seti I']={1,1,2,'Q157918'},
	['Shepseskare Isi']={1,2,2,'Q268601'},
	['Sneferu']={2,2,4,'Q189371'},
	['Sobekneferu']={2,1,12,'Q228951'},
	['Teti']={2,1,16,'Q269285'},
	['Unas']={2,1,17,'Q244985'},
	['Wadjenes']={2,2,14,'Q2538799'}
}}
--[[
Disregarding translation, in query.wikidata.org following data can get obtained by

SELECT DISTINCT ?QNr ?PharaoLabel ?Local (GROUP_CONCAT(?SciTrans; SEPARATOR = " or ") AS ?Scientifical) WHERE {
  ?Pharao p:P1343 ?statement0.
  ?statement0 ps:P1343 wd:Q1054563.
  OPTIONAL { ?statement0 pq:P2440 ?SciTrans. }
  OPTIONAL {
    ?statement0 pq:P1705 ?Local.
    FILTER((LANG(?Local)) = "en")
  }
  SERVICE wikibase:label { bd:serviceParam wikibase:language "en". }
  BIND( SUBSTR(xsd:string(?Pharao), 33) AS ?QNr)
}
GROUP BY ?Pharao ?QNr ?PharaoLabel ?Local
ORDER BY xsd:integer(?QNr)

as well (instead of "en" using any language of choice).
]]
local translations = {de={
	Q1523={'Ramses II.', '', '', ''},
	Q1526={'Ramses I.', '', '', ''},
	Q6198={'Pepi II.', 'Nefer-ka-Re', 'Nfr-k3-Rˁ', 'Mit vollkommenem Ka des Re'},
	Q7222={'Ahmose I.', 'Neb-peheti-Re', 'Nb-pḥtj-Rˁ',
		   'Herr der Kraft, ein Re'}, -- Peheti-neb?
	Q18722={'Sesostris II.', 'Chai-cheper-Re', 'Ḫˁj-ḫpr-Rˁ',
			'Mit erschienener Gestalt, ein Re'},
	Q18734={'Amenemhet II.', 'Nebu-ka-Re', 'Nbw-k3-Rˁ',
			'Erscheinungsform der Ka-Kraft des Re'},
	Q18763={'Sesostris I.', 'Cheper-ka-Re', 'Ḫpr-k3-Rˁ',
			'Erscheinungsform der Ka-Kraft des Re'},
	Q18771={'Amenemhet I.', 'Sehotep-ib-Re', 'S.htp-jb-Rˁ',
		 'Zufrieden ist das Herz des Re /<br />Zufrieden ist das Herz ein Re'},
	Q19244={'Amenemhet III.', '', '', ''},
	Q19246={'Amenemhet IV.', 'Maa-cheru-Re', 'M3ˁ-ḫrw-Rˁ',
	        'Gerechtfertigter, ein Re'},
	Q19248={'Sesostris III.', 'Chai-cheper-Re', 'Ḫˁj-ḫpr-Rˁ',
			'Mit erschienener Gestalt, ein Re'},
	Q111079={'Anedjib', '', '', ''},
	Q151817={'Hetepsechemui', 'Bau-netjer', 'Nṯr-b3.w oder B3w-nṯr', ''},
	Q151819={'Qaa', 'Qebehu', 'Qbḥw oder qbḥ.w-ḫntj', ''},
	Q151824={'Ninetjer', 'Ba-netjeru', 'B3-nṯr.w', ''},
	Q152751={'Nebre', 'Kakau', 'K3-k3w oder K3-k3w', ''},
	Q157918={'Sethos I.', '', '', ''},
	Q157966={'Amenophis I.', 'Djeser-ka-Re', 'Ḏsr-k3-Rˁ',
		     'Mit heiligem Ka, ein Re'},
	Q161904={'Cheops', 'Chufu', 'Ḫ(w)j=f w(j)', 'Er beschützt mich'},
	Q174367={'Djoser', 'Djoser', 'Ḏsr', ''},
	Q189371={'Snofru', 'Seneferu', 'S.nfr.w(j)', 'Der mich vollkommen macht'},
	Q199861={'Chephren', '', '', ''},
	Q209397={'Radjedef', 'Djedef-Re', 'Ḏḏ.f Rˁ', ''},
	Q220240={'Huni', 'Huni', 'Hwj oder Hw ni oder Ḥw-nj', ''},
	Q220256={'Djoserteti', 'Djoser-teti', 'Ḏsr-ttj', ''},
	Q228951={'Nofrusobek', 'Sobek-ka-Re', 'Sbk-k3-Rˁ', 'Ka des Sobek, ein Re'},
	Q244985={'Unas', 'Unis / Wenis', 'Wnjs', ''},
	Q268576={'Neferirkare', 'Nefer-ir-ka-Re', 'Nfr-jr(.w)-k3-Rˁ', ''},
	Q268601={'Schepseskare', 'Schepses-ka-Re', 'Špss-k3-Rˁ',
		     'Mit edlem Ka, ein Re'},
	Q269209={'Merenre', 'Meri-en-Re', 'Mrj-n-Rˁ', 'Der von Re geliebt wird'},
	Q269247={'Djedkare', 'Maat-ka-Re', 'M3ˁ.t-k3-Rˁ',
	         'Die Maat und Ka-Kraft des Re / (mit) Maat und Ka-Kraft, ein Re'},
	Q269257={'Menkauhor', 'Men-ka-Hor', 'Mn-k3-Ḥr', 'Mit Ka-Kraft der Horus'},
	Q269265={'Pepi I.', 'Pepi', 'Pjpj', 'Pepi'},
	Q269271={'Raneferef', 'Chai-nefer-Re', 'Hˁj-nfr-Rˁ',
		     'Er erscheint vollkommenen, ein Re'},
	Q269285={'Teti II.', 'Teti', 'Ttj', ''},
	Q296439={'Mentuhotep II.', 'Neb-hapet-Re', 'Nb-ḥ3pt-Rˁ',
		     'Herr des Ruders des Re'}, -- Hapet-neb?
	Q297704={'Sened', 'Sened', 'Snd.j oder Snd', ''},
	Q310278={'Mentuhotep III.', 'Seanch-ka-Re', 'Sˁnḫ-k3-Rˁ',
		     'Der durch das Ka des Re lebt'},
	Q349184={'Neferkare I.', 'Nefer-ka-Re', 'Nfr k3 Rˁ', ''},
	Q450558={'Nebkare', 'Neb ka Re', 'Nb kꜣ Rˁ', ''},
	Q464248={'Neferkasokar', 'Nefer-ka-Sokar', 'Nfr k3 Skr', ''},
	Q887937={'Hudjefa I.', '', '', ''},
	Q2538799={'Wadjenes', 'Wadjlas', 'W3ḏ l3s', ''}
},
en={
	Q1523={'Ramesses II', '', '', ''},
	Q1526={'Ramesses I', '', '', ''},
	Q6198={'Pepi II', 'Nefer-ka-ra', 'Nfr-k3-Rˁ', ''},
	Q7222={'Ahmose I', '', 'Nb-pḥtj-Rˁ', ''},
	Q18722={'Senusret II', 'Kha-kheper-ra', 'Ḫˁj-ḫpr-Rˁ or Ḫˁ-ḫpr-Rˁ', ''},
	Q18734={'Amenemhat II', 'Nubkare', 'Nbw-k3-Rˁ or nbw k3 (w) rˁ', ''},
	Q18763={'Senusret I', 'Kheper-ka-ra', 'Ḫpr-k3-Rˁ', ''},
	Q18771={'Amenemhat I', 'Se-hetep-ib-ra', 'S htp ib rˁ', ''},
	Q19244={'Amenemhat III', '', '', ''},
	Q19246={'Amenemhat IV', 'Maat-kheru-ra', 'M3ˁ-ḫrw-Rˁ', ''},
	Q19248={'Senusret III', 'Kha-ka-ra', 'Ḫˁj-k3-Rˁ or ḫˁ k3 (w) rˁ', ''},
	Q111079={'Anedjib', '', '', ''},
	Q151817={'Hotepsekhemwy', 'Netjerbau', 'Nṯr-b3.w or B3w-nṯr', ''},
	Q151819={"Qa'a", 'Qebehu-khenti', 'Qbḥw or qbḥ.w-ḫntj', ''},
	Q151824={'Nynetjer', 'Banetjeru', 'B3-nṯr.w', ''},
	Q152751={'Nebra', 'Kakau', 'K3-k3w or K3-k3w', ''},
	Q157918={'Seti I', '', '', ''},
	Q157966={'Amenhotep I', 'Djeserkare', 'Ḏsr-k3-Rˁ', ''},
	Q161904={'Khufu', 'Khufu', 'Ḫ(w)j.f w(j) or h f w or Ḫ(w)j=f w(j)', ''},
	Q174367={'Djoser', 'Djoser', 'Ḏsr', ''},
	Q189371={'Sneferu', 'Snefru', 'snfr-wj or S.nfr.w(j)', ''},
	Q199861={'Khafra', '', '', ''},
	Q209397={'Djedefre', 'Djedefre', 'Ḏḏ.f Rˁ', 'He endures like Ra'},
	Q220240={'Huni', '', 'Hwj or Hw ni or Ḥw-nj', ''},
	Q220256={'Sekhemkhet', 'Djoserty', 'Ḏsr-ttj', ''},
	Q228951={'Sobekneferu', 'Ka-sobek-re', 'Sbk-k3-Rˁ or kꜣ-sbk-rꜥ', ''},
	Q244985={'Unas', 'Unas', 'Wnjs or wnis', ''},
	Q268576={'Neferirkare Kakai', 'Neferirkare', 'Nfr-jr(.w)-k3-Rˁ', ''},
	Q268601={'Shepseskare Isi', 'Shepses-ka-ra', 'Špss-k3-Rˁ', ''},
	Q269209={'Merenre Nemtyemsaf I', 'Mer-en-ra', 'Mrj-n-Rˁ', ''},
	Q269247={'Djedkare Isesi', 'Maat-ka-ra', 'M3ˁ.t-k3-Rˁ', ''},
	Q269257={'Menkauhor Kaiu', 'Menkahor', 'Mn-k3-Ḥr', ''},
	Q269265={'Pepi I Meryre', 'Pepi', 'Pjpj or ppy', ''},
	Q269271={'Neferefre', 'Kha-nefer-ra', 'Hˁj-nfr-Rˁ or ḫˁ nfr rˁ', ''},
	Q269285={'Teti', 'Teti', 'Ttj or tti', ''},
	Q294266={'Khasekhemwy', 'Beb(e)ty', 'Bbtj or Bby', ''},
	Q296439={'Mentuhotep II', 'Nebhepetre', 'Nb-ḥ3pt-Rˁ', ''},
	Q297704={'Senedj', 'Senedj', 'Snd.j or Snd', ''},
	Q310278={'Mentuhotep III', '', 'Sˁnḫ-k3-Rˁ', ''},
	Q349184={'Neferkara I', 'Neferkara', 'Nfr k3 Rˁ', ''},
	Q450558={'Neferkare', 'Nebkara', 'Nb kꜣ Rˁ', ''},
	Q464248={'Neferkasokar', 'Neferkasokar', 'Nfr k3 Skr', ''},
	Q887937={'Hudjefa I', '', '', ''},
	Q2538799={'Wadjenes', 'Wadjlas', 'W3ḏ l3s', ''}
}}

--[[
	trans
	formating above list row given by language and Wikidata qualifier
	params
		language	(default is 'de')
		id			a Wikidata qualifier as listed above
		elm			[1-4]	function will return corresponding list entry
					'all'	function will format all entries in rows
					default	function will format entries 2-4 in rows
]]
local function trans(language, id, elm)
	local lang = language or 'de'
	if type(elm) == number then
		if elm < 1 then return '' end
		if elm == 3 then return '<i>' .. translations[lang][id][3] .. '</i>' end
		if elm < 5 then return translations[lang][id][elm] end
		return ''
	end
	if elm == 'all' then
		return '<a href="https://' .. lang .. '.wikipedia.org/wiki/' ..
		       translations[lang][id][1] .. '">' .. translations[lang][id][1] ..
		       '</a><br />' .. translations[lang][id][2] .. '<br /><i>' ..
			   translations[lang][id][3] .. '</i><br />' ..
			   translations[lang][id][4]
	end
	if elm == 'lemma' then
		return '<a href="https://' .. lang .. '.wikipedia.org/wiki/' ..
		       translations[lang][id][1] .. '">' .. translations[lang][id][1] ..
		       '</a>'
	end
	return translations[lang][id][2] .. '<br /><i>' ..
		   translations[lang][id][3] .. '</i><br />' ..
		   translations[lang][id][4]
end

--[[
structure: crown, wikidata, code, No. in dynasty, gender, dynasty, note
list[1]: most right stone
list[2]: rest starting with middle stone; assumed offset of first legible is 10
about code: coding in ltd direction; reading in rtd direction
            Not the name but single glyphes are reverted to match direction.
Disregarding crown and note, in query.wikidata.org following data can get
obtained by

SELECT DISTINCT ?Pharao ?Name ?inDyn ?Gender ?Dynastie WHERE {
  ?Pharao p:P1343 ?statement0.
  ?statement0 ps:P1343 wd:Q1054563;
    pq:P7421 ?Row;
    pq:P4775 ?Section;
    pq:P3903 ?Column;
    pq:P7383 ?Name.
  ?Pharao p:P21 ?statement1.
  ?statement1 ps:P21 ?Gnd.
  ?Pharao p:P31 ?statement2.
  ?statement2 ps:P31 ?Dyn.
  VALUES ?Dyn { wd:Q110670190 wd:Q110644602 wd:Q110643371 wd:Q110559092 wd:Q110556685 wd:Q110552024
                wd:Q110884310 wd:Q110550681
                wd:Q110551377 wd:Q110576405 }
  OPTIONAL{?statement2 pq:P1545 ?inDyn.}
  SERVICE wikibase:label { bd:serviceParam wikibase:language "[AUTO_LANGUAGE]".
                          ?Dyn rdfs:label ?Dynastie.
                          ?Gnd rdfs:label ?Gender.
                         }
}
ORDER BY (?Section) (?Row) (xsd:integer(?Column))

as well.
crown as part of name prefix is coded in a single cypher:
3 prefix contains hieroglyphe A43 (a pharao with white crown of the south)
4 prefix contains hieroglyphe A44 (... with white crown and courge)
5 prefix contains hieroglyphe A45 (... with red crown of the north)
6 prefix contains hieroglyphe A46 (... with red crown and courge)
]]--
p.service.list = {
	{ -- right stone = part 1
		{ -- top row
			{'3', 'Q1523', 'HASH!HASH*HASH!HASH*HASH!N35', '3', 'm', '19',
			 'illegible'},
			{'5', 'Q157918', '', '2', 'm', '19', 'illegible'},
			{'3', 'Q1526', 'HASH!HASH!Y5', '1', 'm', '19', 'illegible'}
		},
		{ -- bottom row
			{'5', 'Q269271', 'N5!N28!P8', '', 'm', '5', ''},
			{'3', 'Q268601', 'N5!S29\\-S29\\-A51\\!D28', '4', 'm', '5', ''},
			{'5', 'Q268576', 'N5!F35!D4!D28', '3', 'm', '5', ''}
		}
	},
	{ -- main part = part 2
		{ -- top row
			{'3', 'Q157966', 'N5!D45\\!D28', '2', 'm', '18', ''},
			{'5', 'Q7222', 'N5!F9\\!V30', '1', 'm', '18', ''},
			{'3', 'Q296439', 'N5!P8!V30', '5', 'm', '11', 'reversePart'},
			{'5', 'Q310278', 'N5!S34-S29\\!D28', '6', 'm', '11',
			 'reversePart'},
			{'3', 'Q18771', 'N5!R4:Q3*X1-S29\\!X1-F34', '1', 'm', '12',
			 'reversePart'},
			{'5', 'Q18763', 'N5!L1!D28', '2', 'm', '12', 'reversePart'},
			{'3', 'Q18734', 'N5!S12!D28', '3', 'm', '12', 'reversePart'},
			{'5', 'Q18722', 'N5!N28!L1', '4', 'm', '12', 'reversePart'},
			{'3', 'Q19248', 'N5!N28!D28', '5', 'm', '12', 'reversePart'},
			{'5', 'Q19244', 'N5!HASH!HASH', '6', 'm', '12', 'reverseIllegible'},
			{'3', 'Q19246', 'N5!U5\\!D36\\!G43\\-P8', '7', 'm', '12',
			 'reversePart'},
			{'5', 'Q228951', 'N5!I4\\ !D28', '8', 'm', '12', 'reversePart'},
			{'3', 'Q6198', 'N5!F35!D28', '5', 'm', '6', ''},
			{'5', 'Q269209', 'N5!U6\\!N35', '4', 'm', '6', ''},
			{'3', 'Q269265', 'Q3-Q3!M17\\-M17\\', '3', 'm', '6', ''},
			{'5', 'Q269285', 'X1:X1!M17\\', '1', 'm', '6', ''},
			{'4', 'Q244985', 'E34!N35!S29\\-M17\\', '9', 'm', '5', ''},
			{'6', 'Q269247', 'N5!H6\\!D28', '8', 'm', '5'},
			{'4 ', 'Q269257', 'G5\\!Y5!D28', '7', 'm', '5'}
		},
		{ -- bottom row
			{'5', 'Q199861', 'HASH!HASH!HASH!I9\\', '4', 'm', '4',
			 'illegible'},
			{'3', 'Q209397', 'N5!R11-R11!I9\\', '3', 'm', '4', ''},
			{'5', 'Q161904', 'N5!I9\\!G43\\!I9\\ ', '2', 'm', '4', ''},
			{'3', 'Q189371', 'F35-S29\\!I9\\:D21!G43\\', '1', 'm', '4', ''},
			{'5', 'Q220240', 'A25\\-V28!N35:Z4\\!D40\\', '', 'm', '3', ''},
			{'3', 'Q450558', 'N5!V30!D28', '', 'm', '3', ''},
			{'5', 'Q220256', 'D45\\!X1:X1-M17\\', '3', 'm', '3', ''},
			{'3', 'Q174367', 'D45\\!D21', '2', 'm', '3', ''},
			{'5', 'Q294266', 'D58\\-D58\\!N21\\!M17\\-M17\\', '', 'm', '2', ''},
			{'3', 'Q887937', '', '', '', '2', 'illegible'},
			{'5', 'Q464248', 'O34:V31\\:D21!F35!D28', '', 'm', '2', ''},
			{'3', 'Q349184', 'N5!F35!D28', '', 'm', '2', ''},
			{'5', 'Q297704', 'G54\\', '', 'm', '2', ''},
			{'3', 'Q2538799', 'M13!F20\\:Z1!F51\\', '', 'm', '2', ''},
			{'5', 'Q151824', 'W10A\\-G29\\!R8\\-X1:D21:G43\\', '3', 'm', '2', ''},
			{'3', 'Q152751', 'D28!D52\\:D52\\:D52\\', '2', 'm', '2', ''},
			{'6', 'Q151817', 'R8\\!G30\\', '1', 'm', '2', ''},
			{'4', 'Q151819', 'X7\\-D58\\-V28!G43\\!W15\\', '8', 'm', '1', ''},
			{'5', 'Q111079', 'U7\\!D21!Z1-R7\\!Q3!N35', '6', 'm', '1', ''}
}}}
-- We assume the first legible column in main part of the list being the 11th
-- column of what orriginally has been written.
local mainPartColOffset = 7
local maxCol = 22 -- virtually 29
local maxFirst = 3

--		iterators for this table		--

--[[
	RowColTriples iterator
	iterates through all elements of p.service.list
	returns
		row
		virtual column
		the element itself
	usage: for row, col, v in p.service.list.RowColTriples() do
]]
p.service.list.RowColTriples = function()
	local row = function(i)
		if i > maxCol then return 2 end
		return 1
	end
	local col = function(i)
		local result = i
		if i > maxCol then
			result = i - maxCol
		end
		if result > maxFirst then
			return result - maxFirst
		else
			return result
		end
	end
	local part = function(i) -- 1 or 2
		if i > maxCol then
			if i - maxCol > maxFirst then
				return 2
			end
			return 1
		end
		if i > maxFirst then
			return 2
		end
		return 1
	end
	local virtualCol = function(col)
		if col > maxFirst then return col + mainPartColOffset end
		return col
	end
	local i = 0
	local RowColTriples_iterator = function()
		i = i + 1
		return row(i), virtualCol(col(i)),
		       p.service.list[part(i)][row(i)][col(i)]
	end
end
--[[
	ColTriples iterator
	iterates through all columns in all parts of p.service.list
	returns
		virtual column
		the element in first row
		the element in second row
	usage: for col, v1, v2 in p.service.list.ColTriples() do
]]
p.service.list.ColTriples = function()
	local col = 0
	local RowColTriples_iterator = function()
		col = col + 1
		if col > maxFirst then
			return col + mainPartColOffset,
			       p.service.list[2][1][col - maxFirst],
			       p.service.list[2][2][col - maxFirst]
		else
			return col,
			       p.service.list[2][1][col],
			       p.service.list[2][2][col]
		end
	end
end
--[[
	PartRowColQuadruples iterator
	iterates through all elements of p.service.list
	returns
		part
		row
		column
		the element itself
	usage: for part, row, col, v in p.service.list.RowColTriples() do
]]
p.service.list.RowColQuadruples = function()
	local i = 0
	local RowColQuadruples_iterator = function()
		i = i + 1
		if i < maxCol then
			if i > maxFirst then
				local col = i - maxFirst
				return 2, 1, col, p.service.list[2][1][col]
			else
				return 1, 1, i,  p.service.list[1][1][i]
			end
		else
			local col = i - maxCol
			if col > maxFirst then
				col = col - maxFirst
				return 2, 2, col, p.service.list[2][2][col]
			else
				return 1, 2, col, p.service.list[1][2][i]
			end
		end
	end
end
--[[
	PartColTriples iterator
	iterates through all columns in given part of p.service.list
	returns
		column
		the element in first row
		the element in second row
	usage: for col, v1, v2 in p.service.list[part].ColTriples(part) do
]]
p.service.list.PartColTriples = function(part)
	local col = 0
	local PartColTriples_iterator = function()
		col = col + 1
		return col,
		       p.service.list[part][1][col],
		       p.service.list[part][2][col]
	end
end

--		access data by row and virtual column		--

--[[
	code
	(other modules only)
	correspondig to p.service.list[part][row][col][3]
]]
p.service.code = function(row, col)
	if row < 0 or col < 0 or row > 2 or col - mainPartColOffset > maxCol then
		return ''
	end
	if col <= maxFirst then
		return this.list[1][row][col][3]
	end
	local realCol = col - maxFirst - mainPartColOffset
	if realCol < 1  then return '' end
	return p.service.list[2][row][realCol][3]
end

--		access data by lemma		--

--[[
	row2c
	row with 2 columns describing a pharao selected by lemma
	params
		language	(default: 'de') shortening for Wikipedia ('de' for deWiki)
		lemma		name of a pharao as in given Wikipedia
		frame		providing preprocess method (ignore in template)
	returns			html table row
]]
p.service.row2c = function(frame, language, lemma)
	local lang = language or 'de'
	local data = byLemma[lang][lemma]
	if type(data) ~= 'table' then return '' end
	local vcol = (data[1] - 1) * (mainPartColOffset + maxFirst) + data[3]
	local sl = p.service.list[data[1]][data[2]][data[3]]
	local top = frame:preprocess('<hiero>X1:N35-M23\\!A4' .. sl[1] ..
		                         '\\</hiero>')
	local dynOrder = sl[4] -- e.g. '3' for '3. Pharao'
	if dynOrder ~= '' then dynOrder = dynOrder .. '. ' end
	-- '3', 'm', '5' => '3. Pharao of 5. dynasty'
	local infos = string.format(noteList[lang][sl[5]], dynOrder, sl[6])
	return '<td class="hiero"><table class="Cartouche"><tr><td>' ..
		   top .. '</td></tr><tr><td class="td">' ..
		   frame:preprocess('<hiero>' .. sl[3] .. '</hiero>') ..
		   '</td></tr><tr><td>' ..
		   frame:preprocess('<hiero>Aa11\\:P8H\</hiero>') ..
		   '</td></tr></table></td><td>' .. 
		   string.format(noteList[lang].link, lemma, lemma, data[2], vcol) ..
		   infos ..
		   '<br />' .. trans(lang, data[4], '') .. '</td></tr><tr>'
end
p.row2c = function(frame)
	return p.service.row2c(frame, frame.args.language, frame.args.lemma)
end

-- return row selected by lemma
p.service.row3c = function(frame, language, lemma)
	local lang = language or 'de'
	local data = byLemma[lang][lemma]
	if type(data) ~= 'table' then return '' end
	local vcol = (data[1] - 1)*mainPartColOffset+data[3]
	local top
	if (data[2]+vcol) % 2 == 0 then -- use white crown in A43
		top = frame:preprocess('<hiero>X1:N35-M23\\!A43\\</hiero>')
	else -- use red crown in A45
		top = frame:preprocess('<hiero>X1:N35-M23\\!A45\\</hiero>')
	end
	local code = p.service.list[data[1]][data[2]][data[3]][3]
	return '<td>' .. string.format(noteList.de.kingList, data[2], vcol) ..
		   '</td><td class="hiero"><table class="Cartouche"><tr><td>' ..
		   top .. '</td></tr><tr><td class="td">' ..
		   frame:preprocess('<hiero>' .. code .. '</hiero>') ..
		   '</td></tr><tr><td>' ..
		   frame:preprocess('<hiero>Aa11\\:P8H\</hiero>') ..
		   '</td></tr></table></td><td>' ..
		   trans(lang, data[4], '') .. '</td></tr><tr>'
end
p.row3c = function(frame)
	return p.service.row3c(frame, frame.args.language, frame.args.lemma)
end

-- return single lemma selected by row, col and lang (wiki)
p.service.Lemma = function(row, col, language)
	if row < 0 or col < 0 or row > 2 or col > 29 then return '' end
	local id
	if col < 4 then id = this.list[1][row][col][2]
	elseif col <= mainPartColOffset then return ''
    else id = p.service.list[2][row][col-mainPartColOffset][2]
	end
	return trans(language, id, 'lemma')
end
p.Lemma = function(frame)
	if frame.args.row == nil or frame.args.col == nil then
		return ''
	end
	local r = string.gsub(frame.args.row, '^%s*(.-)%s*$', '%1')
	local c = string.gsub(frame.args.col, '^%s*(.-)%s*$', '%1')
	local row = tonumber(r)
	local col = tonumber(c)
	return p.service.Lemma(row, col, frame.args.lang)
end	

-- return single name in hieroglyphs selected by row and column
p.service.name = function(frame, row, col)
	if row < 0 or col < 0 or row > 2 or col > 29 then return '' end
	local code = p.service.code(row, col)
	if type(code) ~= 'string' then return '' end
	local top
	if (row+col) % 2 == 0 then -- use white crown in A43
		top = frame:preprocess('<hiero>X1:N35-M23\\!A43\\</hiero>')
	else -- use red crown in A45
		top = frame:preprocess('<hiero>X1:N35-M23\\!A45\\</hiero>')
	end
	local core = frame:preprocess('<hiero>' .. code .. '</hiero>')
	local bottom = frame:preprocess('<hiero>Aa11\\:P8H\\</hiero>')
	return '<table class="Cartouche"><tr><td>' .. top ..
	       '</td></tr><tr><td class="td">' .. core ..
	       '</td></tr><tr><td>' .. bottom .. '</td></tr></table>'
end
p.name = function(frame)
	if frame.args.row == nil or frame.args.col == nil then
		return ''
	end
	local r = string.gsub(frame.args.row, '^%s*(.-)%s*$', '%1')
	local c = string.gsub(frame.args.col, '^%s*(.-)%s*$', '%1')
	local row = tonumber(r)
	local col = tonumber(c)
	return p.service.name(frame, row, col)
end

return p