MartinusWiki - User contributions [en]

MartinusWiki:Source languages and translations

2026-08-26T04:56:00Z

Wikiboteng@Wikiboteng: Add English Martinus reference system (Stage 4)

{{DISPLAYTITLE:MartinusWiki:Source languages and translations}}

This page explains the ''(*)'' marker shown after some references to Martinus's works.

== References to English sources ==

An unmarked reference links directly to an English text in the official Martinus online library. The reference gives the work and section only; readers can follow the link to read the cited passage.

== References marked as Danish sources ==

The marker ''(*)'' means that the reference links to the Danish original. It is used when the cited work or passage is not available through the official English online library. The marker identifies the source language without repeating a long explanation in every reference list. For short books, the Danish book title is also shown directly in the reference.

The Danish original may be cited when it is the available primary source for a claim. The citation does not imply that an English translation exists, nor that any wording in the article is an official English translation. Where an English text is available, MartinusWiki links to that text instead.

== Scope ==

The marker concerns the language of the linked source, not the language of the article. It can occur for later volumes of ''Livets Bog'', later volumes of ''The Eternal World Picture'', short books, lectures, and other Danish-only material.

Help:References to Martinus works

2026-08-26T04:55:59Z

Wikiboteng@Wikiboteng: Add English Martinus reference system (Stage 4)

This page explains the English Martinus Wiki reference system. It uses the standard MediaWiki Cite extension: <code><nowiki>{{ref}}</nowiki></code> creates one numbered footnote, and <code><nowiki>{{reflist}}</nowiki></code> prints the notes. A reference marked [[MartinusWiki:Source languages and translations|(*)]] links to a Danish original; unmarked references link to an English source.

== Quick start ==

Put a reference immediately after the claim it supports:

<nowiki>Livets Bog section 100{{ref|100}}</nowiki>

At the end of the article add:

<nowiki>== References ==</nowiki>
<nowiki>{{reflist}}</nowiki>

The template is only a wrapper. The validation and URL routing are in [[Module:Reference]]. Invalid references show a concise error and add [[:Category:Pages with Martinus reference errors]]; they must be fixed before saving.

== Livets Bog (The Book of Life) ==

An unqualified number uses the official section ranges to select a volume:

* <code><nowiki>{{ref|100}}</nowiki></code> — Livets Bog 1, section 100.
* <code><nowiki>{{ref|2658|1}}</nowiki></code> — Livets Bog 7, section 2658, subsection 1, followed by the linked Danish-source marker.
* <code><nowiki>{{ref|e}}</nowiki></code> — the Livets Bog 7 epilogue, likewise marked as a Danish source.

Use an explicit volume when that is clearer. The aliases <code>LB1</code> through <code>LB7</code> are accepted:

<nowiki>{{ref|LB1|100}}</nowiki>
<nowiki>{{ref|work=LB2|section=607}}</nowiki>

Livets Bog 1–5 link to the English online-library text. LB6–7 are retained for compatibility and are marked as Danish sources; see [[MartinusWiki:Source languages and translations]].

== The Eternal World Picture (symbol books) ==

Use <code>TEWP</code> (English) or the Danish-compatible alias <code>DEV</code>, followed by the volume and section:

<nowiki>{{ref|TEWP 2|17.11}}</nowiki>
<nowiki>{{ref|DEV 2|17.11}}</nowiki>

The English online library currently provides volumes 1–4. Volumes 5–6 are accepted and are marked as Danish sources because the reference links to the Danish original.

== Short books ==

The English alias <code>short book</code> and Danish-compatible aliases <code>småbog</code>, <code>smabog</code>, and <code>pamphlet</code> are accepted:

<nowiki>{{ref|short book 22|1.3}}</nowiki>

The note links to the precise passage in the official Danish online library and is marked as a Danish source. Its Danish book title is shown directly in the reference. This is intentional: no English short-book URL is assumed.

== Symbols, articles, lectures, and Kosmos ==

Use a named source kind for these families:

<nowiki>{{ref|kind=symbol|1}}</nowiki>
<nowiki>{{ref|kind=article|0010}}</nowiki>
<nowiki>{{ref|kind=lecture|67}}</nowiki>
<nowiki>{{ref|kind=kosmos|2021-2 "Article title"}}</nowiki>

Symbols link to the official English symbol page. Articles link to the English online library with the four-digit ID. Lectures and Kosmos references are marked as Danish sources; Kosmos notes preserve the supplied bibliographic text.

The long-standing positional forms are also accepted: <code><nowiki>{{ref|symbol|1}}</nowiki></code>, <code><nowiki>{{ref|article|0010}}</nowiki></code>, <code><nowiki>{{ref|lecture|67}}</nowiki></code>, and <code><nowiki>{{ref|kosmos|2021-2 "Article title"}}</nowiki></code>.

== Invalid references ==

Malformed or incomplete input is never silently discarded. For example:

<nowiki>{{ref|TEWP 2}}</nowiki>
<nowiki>{{ref|article|10}}</nowiki>
<nowiki>{{ref|100|unexpected|third|fourth}}</nowiki>

These display a deterministic “Reference error: …” message in preview and add the maintenance category. Correct the citation rather than replacing it with an invented URL.

== Other sources ==

For a source that is not a Martinus work, use Cite directly rather than `{{ref}}`:

<nowiki><ref>E. Miller, ''The Sun'', Academic Press, 2005, pp. 23–25.</ref></nowiki>

This keeps generic references independent of the Martinus routing table. The system requires the Cite extension before it can be published; Stage 2 will validate every example with MediaWiki `action=parse`.

Module:Reference

2026-08-26T04:54:23Z

Wikiboteng@Wikiboteng: Add English Martinus reference system (Stage 4)

-- English Martinus Wiki reference renderer.
--
-- Stage 1 source artifact. This module deliberately contains the routing and
-- validation policy in one small, data-driven module so it can be copied to
-- Module:Reference after Scribunto is enabled. It does not call ParserFunctions.
-- The public entry points are p.ref (the template wrapper) and p.render (a
-- direct module entry point); all state is local to an invocation.

local p = {}

local EN_TTT = "https://www.martinus.dk/en/online-library/ttt/index.php"
local DA_TTT = "https://www.martinus.dk/da/onlinebibliotek/dtt/index.php"
local EN_SYMBOLS = "https://www.martinus.dk/en/online-library/symbols/index.php"
local DA_LECTURES = "https://www.martinus.dk/da/onlinebibliotek/foredrag/index.php"
local ERROR_CATEGORY = "[[Category:Pages with Martinus reference errors]]"
local LANGUAGE_NOTICE = "[[MartinusWiki:Source languages and translations|(*)]]"

-- The section ranges are the ranges shown by the official online library. LB6
-- and LB7 are retained for compatibility, but their English flag is false until
-- an English text is confirmed by the Institute.
local BOOKS = {
LB1 = { id = 51, title = "Livets Bog 1", first = 1, last = 288, english = true },
LB2 = { id = 52, title = "Livets Bog 2", first = 289, last = 638, english = true },
LB3 = { id = 53, title = "Livets Bog 3", first = 639, last = 1052, english = true },
LB4 = { id = 54, title = "Livets Bog 4", first = 1053, last = 1590, english = true },
LB5 = { id = 55, title = "Livets Bog 5", first = 1591, last = 1938, english = true },
LB6 = { id = 56, title = "Livets Bog 6", first = 1939, last = 2395, english = false },
LB7 = { id = 57, title = "Livets Bog 7", first = 2396, last = 2664, english = false },
}

local TEWP = {
[1] = { id = 61, title = "The Eternal World Picture 1", english = true },
[2] = { id = 62, title = "The Eternal World Picture 2", english = true },
[3] = { id = 63, title = "The Eternal World Picture 3", english = true },
[4] = { id = 64, title = "The Eternal World Picture 4", english = true },
[5] = { id = 65, title = "The Eternal World Picture 5", english = false },
[6] = { id = 66, title = "The Eternal World Picture 6", english = false },
}

-- Danish titles of the numbered short books, verified against the Danish
-- wiki's Småbøger catalogue. Showing the original title makes the source
-- language clear without adding an explanatory phrase to every reference.
local SHORT_BOOK_TITLES = {
[1] = "Menneskehedens skæbne", [2] = "Påske", [3] = "Hvad er sandhed?",
[4] = "Omkring min missions fødsel", [5] = "Den ideelle føde",
[6] = "Blade af Guds billedbog", [7] = "Den længst levende afgud",
[8] = "Menneskeheden og verdensbilledet", [9] = "Mellem to verdensepoker",
[10] = "Kosmisk bevidsthed", [11] = "Bønnens mysterium",
[12] = "Vejen til indvielse", [13] = "Juleevangeliet",
[14] = "Bevidsthedens skabelse", [15] = "Ud af mørket",
[16] = "Reinkarnationsprincippet", [17] = "Verdensreligion og verdenspolitik",
[18] = "Livets skæbnespil", [19] = "Kosmiske glimt", [20] = "Meditation",
[21] = "Hinsides dødsfrygten", [22] = "Livets vej",
[23] = "De levende væsners udødelighed", [24] = "Kulturens skabelse",
[25] = "Vejen til paradis", [26] = "Djævlebevidsthed og Kristusbevidsthed",
[27] = "Verdensfredens skabelse", [28] = "To slags kærlighed",
}

local ALLOWED = {
["1"] = true, ["2"] = true, ["3"] = true, ["4"] = true,
["5"] = true, ["6"] = true, ["7"] = true, ["8"] = true,
["9"] = true, ["10"] = true,
work = true, source = true, section = true, subsection = true,
kind = true,
}

local function trim(value)
if value == nil then
return nil
end
value = tostring(value):gsub("^%s+", ""):gsub("%s+$", "")
if value == "" then
return nil
end
return value
end

local function text(value)
-- All values that reach this helper have already passed a strict grammar,
-- except Kosmos text. mw.text.encode prevents that free text becoming HTML.
return mw.text.encode(tostring(value))
end

local function error_message(code, detail)
local suffix = detail and (" (" .. text(detail) .. ")") or ""
return '<span class="error reference-error">Reference error: ' .. code .. suffix .. "</span>" .. ERROR_CATEGORY
end

local function link(url, label)
return "[" .. url .. " " .. text(label) .. "]"
end

local function is_integer(value)
return value ~= nil and value:match("^[1-9]%d*$") ~= nil
end

local function is_decimal_section(value)
return value ~= nil and value:match("^[1-9]%d*%.[1-9]%d*$") ~= nil
end

local function language_marker(source_is_english)
if source_is_english then
return ""
end
return " " .. LANGUAGE_NOTICE
end

local function book_url(book, section, subsection)
local base = book.english and EN_TTT or DA_TTT
local url = base .. "?bog=" .. book.id
-- The Danish online library treats mode=forside as an article request and
-- invents art=1, producing an empty page for Livets Bog citations. Its
-- own reference module omits mode entirely; retain mode=opslag only for
-- the English library, where it selects the cited passage.
if book.english and section then
url = url .. "&mode=opslag"
end
if section then
url = url .. "&stk=" .. section
end
if subsection then
url = url .. "&pkt=" .. subsection
end
return url
end

local function book_reference(book, section, subsection)
if not book then
return nil
end
if section and not is_integer(section) then
return nil, "INVALID_SECTION"
end
if subsection and not is_integer(subsection) then
return nil, "INVALID_SUBSECTION"
end
if subsection and not section then
return nil, "MISSING_SECTION"
end
if section then
local number = tonumber(section)
if number < book.first or number > book.last then
return nil, "SECTION_OUT_OF_RANGE"
end
end
local label = book.title
if section then
label = label .. ", section " .. section
if subsection then
label = label .. ", subsection " .. subsection
end
else
label = label .. " (book)"
end
local url = book_url(book, section, subsection)
return link(url, label) .. language_marker(book.english)
end

local function find_book_for_section(section)
local number = tonumber(section)
for _, key in ipairs({ "LB1", "LB2", "LB3", "LB4", "LB5", "LB6", "LB7" }) do
local book = BOOKS[key]
if number >= book.first and number <= book.last then
return book
end
end
return nil
end

local function normalise_work(value)
local upper = value:upper():gsub("%s+", " ")
local lb = upper:match("^(LB[1-7])$")
if lb then
return "LB", tonumber(lb:sub(3))
end
local tewp = upper:match("^TEWP%s+([1-6])$")
or upper:match("^DEV%s+([1-6])$")
or upper:match("^THE ETERNAL WORLD PICTURE%s+([1-6])$")
if tewp then
return "TEWP", tonumber(tewp)
end
local short = upper:match("^SHORT BOOK%s+([1-9]%d*)$")
or upper:match("^SMÅBOG%s+([1-9]%d*)$")
or upper:match("^SMABOG%s+([1-9]%d*)$")
or upper:match("^PAMPHLET%s+([1-9]%d*)$")
if short then
return "SHORT", tonumber(short)
end
return upper
end

local function collect_args(argument_frame)
local values = {}
-- p.ref passes the Template:Ref frame explicitly. This is important:
-- putting #invoke inside literal <ref> markup creates another parser frame
-- and loses the template arguments. Reading this exact frame also keeps
-- every argument visible to validation, including unknown names.
if not argument_frame then
return nil, "MISSING_PRIMARY_ARGUMENT"
end
for key, raw in pairs(argument_frame.args or {}) do
local name = tostring(key)
local value = trim(raw)
if value ~= nil then
if not ALLOWED[name] then
return nil, "UNSUPPORTED_ARGUMENT", name
end
values[name] = value
end
end
return values
end

local function positional(values)
local result = {}
for index = 1, 10 do
if values[tostring(index)] ~= nil then
result[index] = values[tostring(index)]
end
end
for index = 2, 10 do
if result[index] ~= nil and result[index - 1] == nil then
return nil, "MISSING_PRIMARY_ARGUMENT"
end
end
for index = 4, 10 do
if result[index] ~= nil then
return nil, "TOO_MANY_POSITIONAL_ARGUMENTS"
end
end
return result
end

local function render_book(work, section, subsection)
local family, volume = normalise_work(work)
if family == "LB" then
local book = BOOKS["LB" .. volume]
if not book then
return nil, "UNKNOWN_VOLUME"
end
return book_reference(book, section, subsection)
end
if family == "TEWP" then
local book = TEWP[volume]
if not book then
return nil, "UNKNOWN_VOLUME"
end
if subsection then
return nil, "TOO_MANY_SOURCE_ARGUMENTS"
end
if not section or not is_decimal_section(section) then
return nil, "INVALID_SYMBOL_SECTION"
end
local base = book.english and EN_TTT or DA_TTT
local url = base .. "?bog=" .. book.id
if book.english then
url = url .. "&mode=opslag"
end
url = url .. "&pkt=" .. section:match("%d+$") .. "&stk=" .. section:match("^%d+")
return link(url, book.title .. ", section " .. section) .. language_marker(book.english)
end
if family == "SHORT" then
if subsection then
return nil, "TOO_MANY_SOURCE_ARGUMENTS"
end
if not section or not is_decimal_section(section) then
return nil, "INVALID_SHORT_BOOK_SECTION"
end
local _, passage = section:match("^(%d+)%.(%d+)$")
-- Short books do not have an online-library article index. Adding
-- art=<chapter> makes the library look for a nonexistent article and
-- return an empty page; the passage number is sufficient.
local url = DA_TTT .. "?bog=" .. volume .. "&stk=" .. passage
local title = SHORT_BOOK_TITLES[volume] or ("Short book " .. volume)
return link(url, title .. ", section " .. section) .. language_marker(false)
end
return nil, "UNKNOWN_WORK"
end

local function render_special(kind, value)
local lowered = kind:lower()
if lowered == "symbol" or lowered == "symbols" then
if not is_integer(value) or tonumber(value) > 100 then
return nil, "INVALID_SYMBOL_ID"
end
return link(EN_SYMBOLS .. "?symbol=" .. value, "Symbol " .. value)
end
if lowered == "article" or lowered == "articles" then
if not value or value:match("^%d%d%d%d$") == nil then
return nil, "INVALID_ARTICLE_ID"
end
return link(EN_TTT .. "?art=" .. value .. "&mode=artikelopslag", "Article " .. value)
end
if lowered == "lecture" or lowered == "lectures" or lowered == "foredrag" then
if not is_integer(value) then
return nil, "INVALID_LECTURE_ID"
end
return link(DA_LECTURES .. "?nr=" .. value, "Lecture " .. value) .. language_marker(false)
end
if lowered == "kosmos" then
if not value then
return nil, "MISSING_KOSMOS_DESCRIPTION"
end
return text("Kosmos: " .. value) .. language_marker(false)
end
return nil, "UNKNOWN_SOURCE_KIND"
end

local function render_reference(argument_frame)
local values, collect_error, collect_detail = collect_args(argument_frame)
if not values then
return error_message(collect_error, collect_detail)
end
local pos, positional_error = positional(values)
if not pos then
return error_message(positional_error)
end

local work = values.work or values.source
local section = values.section
local subsection = values.subsection
local kind = values.kind

if values.work and values.source then
return error_message("DUPLICATE_WORK_ARGUMENTS")
end
if values.section and pos[2] then
return error_message("DUPLICATE_SECTION_ARGUMENT")
end
if values.subsection and pos[3] then
return error_message("DUPLICATE_SUBSECTION_ARGUMENT")
end

if kind then
if pos[2] or pos[3] or work or section or subsection then
return error_message("MIXED_REFERENCE_FORMS")
end
local special_result, special_error = render_special(kind, pos[1] or values["1"])
if not special_result then
return error_message(special_error)
end
return special_result
end

if work and pos[1] then
return error_message("MIXED_REFERENCE_FORMS")
end

if work then
section = section or pos[2]
subsection = subsection or pos[3]
else
work = pos[1]
section = section or pos[2]
subsection = subsection or pos[3]
end

if not work then
return error_message("MISSING_PRIMARY_ARGUMENT")
end

if is_integer(work) then
if section and subsection then
return error_message("DUPLICATE_SUBSECTION_ARGUMENT")
end
if section and not is_integer(section) then
return error_message("INVALID_SUBSECTION")
end
local book = find_book_for_section(work)
if not book then
return error_message("SECTION_OUT_OF_RANGE")
end
-- For numeric shorthand the second value is the subsection. Accept
-- either positional 2 or the named subsection form, but never discard
-- a third positional value.
local numeric_subsection = subsection or section
local result, render_error = book_reference(book, work, numeric_subsection)
if not result then
return error_message(render_error)
end
return result
end

if work:lower() == "e" or work:lower() == "epilogue" then
if section or subsection then
return error_message("UNEXPECTED_EPILOGUE_ARGUMENT")
end
local book = BOOKS.LB7
return link(book_url(book, "2665"), "Livets Bog 7, epilogue (section 2665)") .. language_marker(false)
end

local special_kind = work:lower()
if special_kind == "symbol" or special_kind == "symbols"
or special_kind == "article" or special_kind == "articles"
or special_kind == "lecture" or special_kind == "lectures"
or special_kind == "foredrag" or special_kind == "kosmos" then
if subsection then
return error_message("TOO_MANY_SOURCE_ARGUMENTS")
end
local special_result, special_error = render_special(work, section)
if not special_result then
return error_message(special_error)
end
return special_result
end

local result, render_error = render_book(work, section, subsection)
if not result then
return error_message(render_error)
end
return result
end

function p.render(frame)
return render_reference(frame)
end

function p.ref(frame)
local parent = frame and frame:getParent()
local content = render_reference(parent)
local has_error_category = content:sub(-#ERROR_CATEGORY) == ERROR_CATEGORY
if has_error_category then
-- Category links inside a Cite extension tag are not reliably attached
-- to the page. Keep the error text in the note, but emit the marker
-- outside the tag so the maintenance category is authoritative.
content = content:sub(1, -#ERROR_CATEGORY - 1)
end
local reference = frame:extensionTag("ref", content)
if has_error_category then
reference = reference .. ERROR_CATEGORY
end
return reference
end

return p

User:Lasse

2026-08-11T09:26:14Z

Wikiboteng@Wikiboteng: Add test reference on User:Lasse

Hi, I am Lasse :-)

Check out my Youtube channel https://www.youtube.com/@theeternalworldpicture

Test

== Reference system test ==

This is a test reference to Livets Bog, section 100.{{ref|100}}

{{reflist}}

Help:References to Martinus works

2026-08-11T06:12:52Z

Wikiboteng@Wikiboteng: Add English Martinus reference system (Stage 4)

This page explains the English Martinus Wiki reference system. It uses the standard MediaWiki Cite extension: <code><nowiki>{{ref}}</nowiki></code> creates one numbered footnote, and <code><nowiki>{{reflist}}</nowiki></code> prints the notes.

== Quick start ==

Put a reference immediately after the claim it supports:

<nowiki>Livets Bog section 100{{ref|100}}</nowiki>

At the end of the article add:

<nowiki>== References ==</nowiki>
<nowiki>{{reflist}}</nowiki>

The template is only a wrapper. The validation and URL routing are in [[Module:Reference]]. Invalid references show a concise error and add [[:Category:Pages with Martinus reference errors]]; they must be fixed before saving.

== Livets Bog (The Book of Life) ==

An unqualified number uses the official section ranges to select a volume:

* <code><nowiki>{{ref|100}}</nowiki></code> — Livets Bog 1, section 100.
* <code><nowiki>{{ref|2658|1}}</nowiki></code> — Livets Bog 7, section 2658, subsection 1. Livets Bog 7 is currently linked to the Danish original because an English text is not confirmed.
* <code><nowiki>{{ref|e}}</nowiki></code> — the Livets Bog 7 epilogue, with the same explicit Danish fallback.

Use an explicit volume when that is clearer. The aliases <code>LB1</code> through <code>LB7</code> are accepted:

<nowiki>{{ref|LB1|100}}</nowiki>
<nowiki>{{ref|work=LB2|section=607}}</nowiki>

Livets Bog 1–5 link to the English online-library text. LB6–7 are retained for compatibility and say “Danish original; no English translation confirmed” in the note.

== The Eternal World Picture (symbol books) ==

Use <code>TEWP</code> (English) or the Danish-compatible alias <code>DEV</code>, followed by the volume and section:

<nowiki>{{ref|TEWP 2|17.11}}</nowiki>
<nowiki>{{ref|DEV 2|17.11}}</nowiki>

The English online library currently provides volumes 1–4. Volumes 5–6 are accepted but use an explicit Danish fallback.

== Short books ==

The English alias <code>short book</code> and Danish-compatible aliases <code>småbog</code>, <code>smabog</code>, and <code>pamphlet</code> are accepted:

<nowiki>{{ref|short book 22|1.3}}</nowiki>

The note links to the precise passage in the official Danish online library and says that an English translation is not confirmed. This is intentional: no English short-book URL is assumed.

== Symbols, articles, lectures, and Kosmos ==

Use a named source kind for these families:

<nowiki>{{ref|kind=symbol|1}}</nowiki>
<nowiki>{{ref|kind=article|0010}}</nowiki>
<nowiki>{{ref|kind=lecture|67}}</nowiki>
<nowiki>{{ref|kind=kosmos|2021-2 "Article title"}}</nowiki>

Symbols link to the official English symbol page. Articles link to the English online library with the four-digit ID; the note says “English online text if available” because availability varies. Lectures have an explicit Danish fallback. Kosmos notes preserve the supplied bibliographic text and explicitly state that no direct online-library link is confirmed.

The long-standing positional forms are also accepted: <code><nowiki>{{ref|symbol|1}}</nowiki></code>, <code><nowiki>{{ref|article|0010}}</nowiki></code>, <code><nowiki>{{ref|lecture|67}}</nowiki></code>, and <code><nowiki>{{ref|kosmos|2021-2 "Article title"}}</nowiki></code>.

== Invalid references ==

Malformed or incomplete input is never silently discarded. For example:

<nowiki>{{ref|TEWP 2}}</nowiki>
<nowiki>{{ref|article|10}}</nowiki>
<nowiki>{{ref|100|unexpected|third|fourth}}</nowiki>

These display a deterministic “Reference error: …” message in preview and add the maintenance category. Correct the citation rather than replacing it with an invented URL.

== Other sources ==

For a source that is not a Martinus work, use Cite directly rather than `{{ref}}`:

<nowiki><ref>E. Miller, ''The Sun'', Academic Press, 2005, pp. 23–25.</ref></nowiki>

This keeps generic references independent of the Martinus routing table. The system requires the Cite extension before it can be published; Stage 2 will validate every example with MediaWiki `action=parse`.

Template:Reflist

2026-08-11T06:12:49Z

Wikiboteng@Wikiboteng: Add English Martinus reference system (Stage 4)

Template:Ref

2026-08-11T06:12:47Z

Wikiboteng@Wikiboteng: Add English Martinus reference system (Stage 4)

{{#invoke:Reference|ref}}

Module:Reference

2026-08-11T06:12:44Z

Wikiboteng@Wikiboteng: Add English Martinus reference system (Stage 4)

-- English Martinus Wiki reference renderer.
--
-- Stage 1 source artifact. This module deliberately contains the routing and
-- validation policy in one small, data-driven module so it can be copied to
-- Module:Reference after Scribunto is enabled. It does not call ParserFunctions.
-- The public entry points are p.ref (the template wrapper) and p.render (a
-- direct module entry point); all state is local to an invocation.

local p = {}

local EN_TTT = "https://www.martinus.dk/en/online-library/ttt/index.php"
local DA_TTT = "https://www.martinus.dk/da/onlinebibliotek/dtt/index.php"
local EN_SYMBOLS = "https://www.martinus.dk/en/online-library/symbols/index.php"
local DA_LECTURES = "https://www.martinus.dk/da/onlinebibliotek/foredrag/index.php"
local ERROR_CATEGORY = "[[Category:Pages with Martinus reference errors]]"

-- The section ranges are the ranges shown by the official online library. LB6
-- and LB7 are retained for compatibility, but their English flag is false until
-- an English text is confirmed by the Institute.
local BOOKS = {
LB1 = { id = 51, title = "Livets Bog 1", first = 1, last = 288, english = true },
LB2 = { id = 52, title = "Livets Bog 2", first = 289, last = 638, english = true },
LB3 = { id = 53, title = "Livets Bog 3", first = 639, last = 1052, english = true },
LB4 = { id = 54, title = "Livets Bog 4", first = 1053, last = 1590, english = true },
LB5 = { id = 55, title = "Livets Bog 5", first = 1591, last = 1938, english = true },
LB6 = { id = 56, title = "Livets Bog 6", first = 1939, last = 2395, english = false },
LB7 = { id = 57, title = "Livets Bog 7", first = 2396, last = 2664, english = false },
}

local TEWP = {
[1] = { id = 61, title = "The Eternal World Picture 1", english = true },
[2] = { id = 62, title = "The Eternal World Picture 2", english = true },
[3] = { id = 63, title = "The Eternal World Picture 3", english = true },
[4] = { id = 64, title = "The Eternal World Picture 4", english = true },
[5] = { id = 65, title = "The Eternal World Picture 5", english = false },
[6] = { id = 66, title = "The Eternal World Picture 6", english = false },
}

local ALLOWED = {
["1"] = true, ["2"] = true, ["3"] = true, ["4"] = true,
["5"] = true, ["6"] = true, ["7"] = true, ["8"] = true,
["9"] = true, ["10"] = true,
work = true, source = true, section = true, subsection = true,
kind = true,
}

local function trim(value)
if value == nil then
return nil
end
value = tostring(value):gsub("^%s+", ""):gsub("%s+$", "")
if value == "" then
return nil
end
return value
end

local function text(value)
-- All values that reach this helper have already passed a strict grammar,
-- except Kosmos text. mw.text.encode prevents that free text becoming HTML.
return mw.text.encode(tostring(value))
end

local function error_message(code, detail)
local suffix = detail and (" (" .. text(detail) .. ")") or ""
return '<span class="error reference-error">Reference error: ' .. code .. suffix .. "</span>" .. ERROR_CATEGORY
end

local function link(url, label)
return "[" .. url .. " " .. text(label) .. "]"
end

local function is_integer(value)
return value ~= nil and value:match("^[1-9]%d*$") ~= nil
end

local function is_decimal_section(value)
return value ~= nil and value:match("^[1-9]%d*%.[1-9]%d*$") ~= nil
end

local function source_suffix(book)
if book.english then
return "English online text"
end
return "Danish original; no English translation confirmed"
end

local function book_url(book, section, subsection)
local base = book.english and EN_TTT or DA_TTT
local mode = section and (book.english and "opslag" or "forside") or "forside"
local url = base .. "?bog=" .. book.id .. "&mode=" .. mode
if section then
url = url .. "&stk=" .. section
end
if subsection then
url = url .. "&pkt=" .. subsection
end
return url
end

local function book_reference(book, section, subsection)
if not book then
return nil
end
if section and not is_integer(section) then
return nil, "INVALID_SECTION"
end
if subsection and not is_integer(subsection) then
return nil, "INVALID_SUBSECTION"
end
if subsection and not section then
return nil, "MISSING_SECTION"
end
if section then
local number = tonumber(section)
if number < book.first or number > book.last then
return nil, "SECTION_OUT_OF_RANGE"
end
end
local label = book.title
if section then
label = label .. ", section " .. section
if subsection then
label = label .. ", subsection " .. subsection
end
else
label = label .. " (book)"
end
local url = book_url(book, section, subsection)
return link(url, label .. " — " .. source_suffix(book))
end

local function find_book_for_section(section)
local number = tonumber(section)
for _, key in ipairs({ "LB1", "LB2", "LB3", "LB4", "LB5", "LB6", "LB7" }) do
local book = BOOKS[key]
if number >= book.first and number <= book.last then
return book
end
end
return nil
end

local function normalise_work(value)
local upper = value:upper():gsub("%s+", " ")
local lb = upper:match("^(LB[1-7])$")
if lb then
return "LB", tonumber(lb:sub(3))
end
local tewp = upper:match("^TEWP%s+([1-6])$")
or upper:match("^DEV%s+([1-6])$")
or upper:match("^THE ETERNAL WORLD PICTURE%s+([1-6])$")
if tewp then
return "TEWP", tonumber(tewp)
end
local short = upper:match("^SHORT BOOK%s+([1-9]%d*)$")
or upper:match("^SMÅBOG%s+([1-9]%d*)$")
or upper:match("^SMABOG%s+([1-9]%d*)$")
or upper:match("^PAMPHLET%s+([1-9]%d*)$")
if short then
return "SHORT", tonumber(short)
end
return upper
end

local function collect_args(argument_frame)
local values = {}
-- p.ref passes the Template:Ref frame explicitly. This is important:
-- putting #invoke inside literal <ref> markup creates another parser frame
-- and loses the template arguments. Reading this exact frame also keeps
-- every argument visible to validation, including unknown names.
if not argument_frame then
return nil, "MISSING_PRIMARY_ARGUMENT"
end
for key, raw in pairs(argument_frame.args or {}) do
local name = tostring(key)
local value = trim(raw)
if value ~= nil then
if not ALLOWED[name] then
return nil, "UNSUPPORTED_ARGUMENT", name
end
values[name] = value
end
end
return values
end

local function positional(values)
local result = {}
for index = 1, 10 do
if values[tostring(index)] ~= nil then
result[index] = values[tostring(index)]
end
end
for index = 2, 10 do
if result[index] ~= nil and result[index - 1] == nil then
return nil, "MISSING_PRIMARY_ARGUMENT"
end
end
for index = 4, 10 do
if result[index] ~= nil then
return nil, "TOO_MANY_POSITIONAL_ARGUMENTS"
end
end
return result
end

local function render_book(work, section, subsection)
local family, volume = normalise_work(work)
if family == "LB" then
local book = BOOKS["LB" .. volume]
if not book then
return nil, "UNKNOWN_VOLUME"
end
return book_reference(book, section, subsection)
end
if family == "TEWP" then
local book = TEWP[volume]
if not book then
return nil, "UNKNOWN_VOLUME"
end
if subsection then
return nil, "TOO_MANY_SOURCE_ARGUMENTS"
end
if not section or not is_decimal_section(section) then
return nil, "INVALID_SYMBOL_SECTION"
end
local base = book.english and EN_TTT or DA_TTT
local url = base .. "?bog=" .. book.id .. "&mode=opslag&pkt=" .. section:match("%d+$") .. "&stk=" .. section:match("^%d+")
return link(url, book.title .. ", section " .. section .. " — " .. source_suffix(book))
end
if family == "SHORT" then
if subsection then
return nil, "TOO_MANY_SOURCE_ARGUMENTS"
end
if not section or not is_decimal_section(section) then
return nil, "INVALID_SHORT_BOOK_SECTION"
end
local chapter, passage = section:match("^(%d+)%.(%d+)$")
local url = DA_TTT .. "?bog=" .. volume .. "&art=" .. chapter .. "&stk=" .. passage
return link(url, "Short book " .. volume .. ", section " .. section .. " — Danish original; English translation not confirmed")
end
return nil, "UNKNOWN_WORK"
end

local function render_special(kind, value)
local lowered = kind:lower()
if lowered == "symbol" or lowered == "symbols" then
if not is_integer(value) or tonumber(value) > 100 then
return nil, "INVALID_SYMBOL_ID"
end
return link(EN_SYMBOLS .. "?symbol=" .. value, "Symbol " .. value .. " — English symbol page")
end
if lowered == "article" or lowered == "articles" then
if not value or value:match("^%d%d%d%d$") == nil then
return nil, "INVALID_ARTICLE_ID"
end
return link(EN_TTT .. "?art=" .. value .. "&mode=artikelopslag", "Article " .. value .. " — English online text if available")
end
if lowered == "lecture" or lowered == "lectures" or lowered == "foredrag" then
if not is_integer(value) then
return nil, "INVALID_LECTURE_ID"
end
return link(DA_LECTURES .. "?nr=" .. value, "Lecture " .. value .. " — Danish original; English translation not confirmed")
end
if lowered == "kosmos" then
if not value then
return nil, "MISSING_KOSMOS_DESCRIPTION"
end
return text("Kosmos: " .. value .. " — Danish original; no direct online-library link confirmed")
end
return nil, "UNKNOWN_SOURCE_KIND"
end

local function render_reference(argument_frame)
local values, collect_error, collect_detail = collect_args(argument_frame)
if not values then
return error_message(collect_error, collect_detail)
end
local pos, positional_error = positional(values)
if not pos then
return error_message(positional_error)
end

local work = values.work or values.source
local section = values.section
local subsection = values.subsection
local kind = values.kind

if values.work and values.source then
return error_message("DUPLICATE_WORK_ARGUMENTS")
end
if values.section and pos[2] then
return error_message("DUPLICATE_SECTION_ARGUMENT")
end
if values.subsection and pos[3] then
return error_message("DUPLICATE_SUBSECTION_ARGUMENT")
end

if kind then
if pos[2] or pos[3] or work or section or subsection then
return error_message("MIXED_REFERENCE_FORMS")
end
local special_result, special_error = render_special(kind, pos[1] or values["1"])
if not special_result then
return error_message(special_error)
end
return special_result
end

if work and pos[1] then
return error_message("MIXED_REFERENCE_FORMS")
end

if work then
section = section or pos[2]
subsection = subsection or pos[3]
else
work = pos[1]
section = section or pos[2]
subsection = subsection or pos[3]
end

if not work then
return error_message("MISSING_PRIMARY_ARGUMENT")
end

if is_integer(work) then
if section and subsection then
return error_message("DUPLICATE_SUBSECTION_ARGUMENT")
end
if section and not is_integer(section) then
return error_message("INVALID_SUBSECTION")
end
local book = find_book_for_section(work)
if not book then
return error_message("SECTION_OUT_OF_RANGE")
end
-- For numeric shorthand the second value is the subsection. Accept
-- either positional 2 or the named subsection form, but never discard
-- a third positional value.
local numeric_subsection = subsection or section
local result, render_error = book_reference(book, work, numeric_subsection)
if not result then
return error_message(render_error)
end
return result
end

if work:lower() == "e" or work:lower() == "epilogue" then
if section or subsection then
return error_message("UNEXPECTED_EPILOGUE_ARGUMENT")
end
local book = BOOKS.LB7
return link(book_url(book, "2665"), "Livets Bog 7, epilogue (section 2665) — Danish original; no English translation confirmed")
end

local special_kind = work:lower()
if special_kind == "symbol" or special_kind == "symbols"
or special_kind == "article" or special_kind == "articles"
or special_kind == "lecture" or special_kind == "lectures"
or special_kind == "foredrag" or special_kind == "kosmos" then
if subsection then
return error_message("TOO_MANY_SOURCE_ARGUMENTS")
end
local special_result, special_error = render_special(work, section)
if not special_result then
return error_message(special_error)
end
return special_result
end

local result, render_error = render_book(work, section, subsection)
if not result then
return error_message(render_error)
end
return result
end

function p.render(frame)
return render_reference(frame)
end

function p.ref(frame)
local parent = frame and frame:getParent()
local content = render_reference(parent)
local has_error_category = content:sub(-#ERROR_CATEGORY) == ERROR_CATEGORY
if has_error_category then
-- Category links inside a Cite extension tag are not reliably attached
-- to the page. Keep the error text in the note, but emit the marker
-- outside the tag so the maintenance category is authoritative.
content = content:sub(1, -#ERROR_CATEGORY - 1)
end
local reference = frame:extensionTag("ref", content)
if has_error_category then
reference = reference .. ERROR_CATEGORY
end
return reference
end

return p