Module:Accession numbering - Revision history

Tucker R. Twomey at 09:18, 17 December 2025

2025-12-17T09:18:59Z

← Older revision		Revision as of 09:18, 17 December 2025
Line 1:		Line 1:
	require("Module:Verhoeff")		require("Module:Verhoeff")

			-- (R)ailway, (L)arge equipment, (S)mall artifact, (A)rchve, (E)lectronic,
			-- E(X)perimental
	id_to_n = { R=1, L=2, S=3, A=3, E=4, X=5 }		id_to_n = { R=1, L=2, S=3, A=3, E=4, X=5 }

	function wrm_idproc(str_r, func, pp, gc)		function wrm_idproc(str_r, func, pp, gc)
	str_stripped = str_r:upper():gsub("^WRM%-?", "")		str_stripped = str_r:upper():gsub("^WRM%-?", "")
	prefix = str_stripped:match("^[~~RLSAE~~]")		prefix = str_stripped:match("^[RLSAEX]")
	res = func(str_stripped:gsub("([~~RLSAE~~]?)(%d+)",		res = func(str_stripped:gsub("([RLSAEX]?)(%d+)",
	function(p, ds, x)		function(p, ds, x)
	return (gc and "%u%05u" or "%u%06u"):format(id_to_n[p] or 0, ds)		return (gc and "%u%05u" or "%u%06u"):format(id_to_n[p] or 0, ds)

Tucker R. Twomey at 09:16, 17 December 2025

2025-12-17T09:16:40Z

← Older revision		Revision as of 09:16, 17 December 2025
Line 1:		Line 1:
	require("Module:Verhoeff")		require("Module:Verhoeff")

	id_to_n = { R=1, L=2, S=3, A=3, E=4 }		id_to_n = { R=1, L=2, S=3, A=3, E=4, X=5 }

	function wrm_idproc(str_r, func, pp, gc)		function wrm_idproc(str_r, func, pp, gc)

Tucker R. Twomey at 03:10, 5 November 2025

2025-11-05T03:10:01Z

← Older revision		Revision as of 03:10, 5 November 2025
Line 18:		Line 18:
	end		end

	function wrm_gencheck(str_r)		function wrm_gencheck(frame)
			str_r = type(frame) == "table" and frame.args[1] or frame
	return wrm_idproc(str_r, verhoeff_gen, true, true)		return wrm_idproc(str_r, verhoeff_gen, true, true)
	end		end
Line 26:		Line 27:
	end		end

	function wrm_fmtcheck(idcheck)		function wrm_fmtcheck(frame)
			idcheck = type(frame) == "table" and wrm_getcheck_f(frame) or frame

	idnocheck = idcheck:sub(1,-2)		idnocheck = idcheck:sub(1,-2)
	check = idcheck:sub(-1,-1)		check = idcheck:sub(-1,-1)
Line 33:		Line 36:
	return "<code>"..idnocheck.."<span class=\"check_digit\">"..		return "<code>"..idnocheck.."<span class=\"check_digit\">"..
	check.."</span></code>"..invalid_check		check.."</span></code>"..invalid_check
	~~end~~

	~~function wrm_fmtcheck_f(frame)~~
	~~return wrm_fmtcheck(wrm_getcheck_f(frame))~~
	end		end

Line 44:		Line 43:
	end		end

	function ~~wrm_getcheckforsmw_f~~(frame)		function wrm_getcheckforsmw(frame)
	c = wrm_getcheck_f(frame)		c = type(frame) == "table" and wrm_getcheck_f(frame) or frame
	return c .. (wrm_verifycheck(c) and "" or "-invalid")		return c .. (wrm_verifycheck(c) and "" or "-invalid")
	end		end
Line 56:		Line 55:

	function wrm_next_an(frame)		function wrm_next_an(frame)
	prepend = type(frame) == "~~string~~" and ~~frame or~~ frame.args[1]		prepend = type(frame) == "table" and frame.args[1] or frame
	return wrm_gencheck(prepend..wrm_next_id())		return wrm_gencheck(prepend..wrm_next_id())
	end		end
Line 63:		Line 62:
	{		{
	wrm_fmtcheck = wrm_fmtcheck,		wrm_fmtcheck = wrm_fmtcheck,
	~~wrm_gencheck = wrm_gencheck,~~
	next_id = wrm_next_id,		next_id = wrm_next_id,
	next_an = wrm_next_an,		next_an = wrm_next_an,
	fmt = ~~wrm_fmtcheck_f~~,		fmt = wrm_fmtcheck,
	get = ~~wrm_getcheckforsmw_f~~,		get = wrm_getcheckforsmw,
	gen = ~~function (frame) return~~ wrm_gencheck~~(frame.args[1]) end~~,		gen = wrm_gencheck,
	}		}

Tucker R. Twomey: Created page with "require("Module:Verhoeff") id_to_n = { R=1, L=2, S=3, A=3, E=4 } function wrm_idproc(str_r, func, pp, gc) str_stripped = str_r:upper():gsub("^WRM%-?", "") prefix = str_stripped:match("^[RLSAE]") res = func(str_stripped:gsub("([RLSAE]?)(%d+)", function(p, ds, x) return (gc and "%u%05u" or "%u%06u"):format(id_to_n[p] or 0, ds) end)) if pp then return ("WRM-%s%04u"):format(prefix or "", res:sub(2)) else return res end end function wrm_..."

2025-11-05T02:55:40Z

Created page with "require("Module:Verhoeff") id_to_n = { R=1, L=2, S=3, A=3, E=4 } function wrm_idproc(str_r, func, pp, gc) str_stripped = str_r:upper():gsub("^WRM%-?", "") prefix = str_stripped:match("^[RLSAE]") res = func(str_stripped:gsub("([RLSAE]?)(%d+)", function(p, ds, x) return (gc and "%u%05u" or "%u%06u"):format(id_to_n[p] or 0, ds) end)) if pp then return ("WRM-%s%04u"):format(prefix or "", res:sub(2)) else return res end end function wrm_..."

New page

require("Module:Verhoeff")

id_to_n = { R=1, L=2, S=3, A=3, E=4 }

function wrm_idproc(str_r, func, pp, gc)
str_stripped = str_r:upper():gsub("^WRM%-?", "")
prefix = str_stripped:match("^[RLSAE]")
res = func(str_stripped:gsub("([RLSAE]?)(%d+)",
function(p, ds, x)
return (gc and "%u%05u" or "%u%06u"):format(id_to_n[p] or 0, ds)
end))
if pp
then
return ("WRM-%s%04u"):format(prefix or "", res:sub(2))
else
return res
end
end

function wrm_gencheck(str_r)
return wrm_idproc(str_r, verhoeff_gen, true, true)
end

function wrm_verifycheck(str_r)
return wrm_idproc(str_r, verhoeff_verify, false, false)
end

function wrm_fmtcheck(idcheck)
idnocheck = idcheck:sub(1,-2)
check = idcheck:sub(-1,-1)
invalid_check = wrm_verifycheck(idcheck) and "" or " is invalid!"

return "<code>"..idnocheck.."<span class=\"check_digit\">"..
check.."</span></code>"..invalid_check
end

function wrm_fmtcheck_f(frame)
return wrm_fmtcheck(wrm_getcheck_f(frame))
end

function wrm_getcheck_f(frame)
pargs = frame:getParent().args
return pargs[1] or wrm_gencheck(pargs[2] or "WRM-R999")
end

function wrm_getcheckforsmw_f(frame)
c = wrm_getcheck_f(frame)
return c .. (wrm_verifycheck(c) and "" or "-invalid")
end

function wrm_next_id()
return mw.smw.getQueryResult(
"[[Has AM-ID::+]] [[:+]]|?Has AM-ID=id|sort=Has AM-ID|order=desc|limit=1"
).results[1].printouts.id[1]:sub(6,-2)+1
end

function wrm_next_an(frame)
prepend = type(frame) == "string" and frame or frame.args[1]
return wrm_gencheck(prepend..wrm_next_id())
end

return
{
wrm_fmtcheck = wrm_fmtcheck,
wrm_gencheck = wrm_gencheck,
next_id = wrm_next_id,
next_an = wrm_next_an,
fmt = wrm_fmtcheck_f,
get = wrm_getcheckforsmw_f,
gen = function (frame) return wrm_gencheck(frame.args[1]) end,
}