Module:Verhoeff - Revision history

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

2025-11-05T03:01:54Z

← Older revision		Revision as of 03:01, 5 November 2025
Line 41:		Line 41:

	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 }

	~~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,~~
	}

Tucker R. Twomey at 02:54, 5 November 2025

2025-11-05T02:54:12Z

← Older revision		Revision as of 02:54, 5 November 2025
Line 86:		Line 86:
	c = wrm_getcheck_f(frame)		c = wrm_getcheck_f(frame)
	return c .. (wrm_verifycheck(c) and "" or "-invalid")		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		end

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

Tucker R. Twomey at 06:21, 2 November 2025

2025-11-02T06:21:30Z

← Older revision		Revision as of 06:21, 2 November 2025
Line 88:		Line 88:
	end		end

	~~local p =~~		return
	{		{
	wrm_fmtcheck = wrm_fmtcheck,		wrm_fmtcheck = wrm_fmtcheck,
Line 96:		Line 96:
	gen = function (frame) return wrm_gencheck(frame.args[1]) end		gen = function (frame) return wrm_gencheck(frame.args[1]) end
	}		}
	~~return p~~

Tucker R. Twomey at 08:08, 1 November 2025

2025-11-01T08:08:06Z

← Older revision		Revision as of 08:08, 1 November 2025
Line 81:		Line 81:
	pargs = frame:getParent().args		pargs = frame:getParent().args
	return pargs[1] or wrm_gencheck(pargs[2] or "WRM-R999")		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		end

Line 88:		Line 93:
	wrm_gencheck = wrm_gencheck,		wrm_gencheck = wrm_gencheck,
	fmt = wrm_fmtcheck_f,		fmt = wrm_fmtcheck_f,
	get = ~~wrm_getcheck_f~~,		get = wrm_getcheckforsmw_f,
	gen = function (frame) return wrm_gencheck(frame.args[1]) end		gen = function (frame) return wrm_gencheck(frame.args[1]) end
	}		}
	return p		return p

Tucker R. Twomey at 07:36, 1 November 2025

2025-11-01T07:36:22Z

← Older revision		Revision as of 07:36, 1 November 2025
Line 83:		Line 83:
	end		end

	local p = {wrm_fmtcheck = wrm_fmtcheck, fmt = wrm_fmtcheck_f, get=wrm_getcheck_f}		local p =
			{
			wrm_fmtcheck = wrm_fmtcheck,
			wrm_gencheck = wrm_gencheck,
			fmt = wrm_fmtcheck_f,
			get = wrm_getcheck_f,
			gen = function (frame) return wrm_gencheck(frame.args[1]) end
			}
	return p		return p

Tucker R. Twomey at 07:24, 1 November 2025

2025-11-01T07:24:17Z

← Older revision		Revision as of 07:24, 1 November 2025
Line 80:		Line 80:
	function wrm_getcheck_f(frame)		function wrm_getcheck_f(frame)
	pargs = frame:getParent().args		pargs = frame:getParent().args
	return pargs[1] or wrm_gencheck(pargs[2] or "WRM-~~999~~")		return pargs[1] or wrm_gencheck(pargs[2] or "WRM-R999")
	end		end

	local p = {wrm_fmtcheck = wrm_fmtcheck, fmt = wrm_fmtcheck_f, get=wrm_getcheck_f}		local p = {wrm_fmtcheck = wrm_fmtcheck, fmt = wrm_fmtcheck_f, get=wrm_getcheck_f}
	return p		return p

Tucker R. Twomey at 07:18, 1 November 2025

2025-11-01T07:18:16Z

← Older revision		Revision as of 07:18, 1 November 2025
Line 65:		Line 65:
	end		end

	function wrm_fmtcheck(idcheck~~, idnocheck~~)		function wrm_fmtcheck(idcheck)
	~~if not idcheck~~
	~~then~~
	~~idcheck = wrm_gencheck(idnocheck)~~
	~~end~~

	idnocheck = idcheck:sub(1,-2)		idnocheck = idcheck:sub(1,-2)
	check = idcheck:sub(-1,-1)		check = idcheck:sub(-1,-1)
Line 80:		Line 75:

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

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

	local p = {wrm_fmtcheck = wrm_fmtcheck, fmt = wrm_fmtcheck_f}		local p = {wrm_fmtcheck = wrm_fmtcheck, fmt = wrm_fmtcheck_f, get=wrm_getcheck_f}
	return p		return p

Tucker R. Twomey at 07:06, 1 November 2025

2025-11-01T07:06:36Z

← Older revision		Revision as of 07:06, 1 November 2025
Line 81:		Line 81:
	function wrm_fmtcheck_f(frame)		function wrm_fmtcheck_f(frame)
	pargs = frame:getParent().args		pargs = frame:getParent().args
	wrm_fmtcheck(pargs[1], pargs[2])		return wrm_fmtcheck(pargs[1], pargs[2] or "WRM-999")
	end		end

	local p = {wrm_fmtcheck = wrm_fmtcheck, fmt = wrm_fmtcheck_f}		local p = {wrm_fmtcheck = wrm_fmtcheck, fmt = wrm_fmtcheck_f}
	return p		return p

Tucker R. Twomey at 07:02, 1 November 2025

2025-11-01T07:02:56Z

← Older revision		Revision as of 07:02, 1 November 2025
Line 84:		Line 84:
	end		end

	local p = {fmt=~~wrm_fmtcheck~~}		local p = {wrm_fmtcheck = wrm_fmtcheck, fmt = wrm_fmtcheck_f}
	return p		return p

Tucker R. Twomey at 07:02, 1 November 2025

2025-11-01T07:02:32Z

← Older revision		Revision as of 07:02, 1 November 2025
Line 66:		Line 66:

	function wrm_fmtcheck(idcheck, idnocheck)		function wrm_fmtcheck(idcheck, idnocheck)
	if not idcheck		if not idcheck
	then		then
	idcheck = wrm_gencheck(idnocheck)		idcheck = wrm_gencheck(idnocheck)
	end		end

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

	~~idnocheck = idcheck:sub(1,-2)~~		return "<code>"..idnocheck.."<span class=\"check_digit\">"..
	~~check = idcheck:sub(-1,-1)~~		check.."</span></code>"..invalid_check
	~~invalid_check = wrm_verifycheck(idcheck) and "" or " is invalid!"~~		end

	return "<code>"..idnocheck.."<span class=\"check_digit\">"..		function wrm_fmtcheck_f(frame)
	check.."</span></code>"..invalid_check		pargs = frame:getParent().args
			wrm_fmtcheck(pargs[1], pargs[2])
	end		end

	local p = {~~gen=wrm_gencheck, verify=wrm_verifycheck,~~ fmt=wrm_fmtcheck}		local p = {fmt=wrm_fmtcheck}
	return p		return p