SockyPaws: Replace tags with

2024-11-25T17:22:43Z

Replace <syntaxhighlight> tags with <pre>

← Older revision		Revision as of 17:22, 25 November 2024
Line 38:		Line 38:
	local function render_output (frame, table_name, out_t, timestamp, timezone, rep)		local function render_output (frame, table_name, out_t, timestamp, timezone, rep)
	-- To close the table.		-- To close the table.
	table.insert (out_t, '\t}</~~syntaxhighlight~~>');		table.insert (out_t, '\t}</pre>');
	-- Insert this at the start of the output sequence.		-- Insert this at the start of the output sequence.
	table.insert (out_t, 1, table.concat ({		table.insert (out_t, 1, table.concat ({
	-- Opening stuff.		-- Opening stuff.
	'<~~syntaxhighlight lang="lua"~~>local ' .. table_name .. ' = {',		'<pre>local ' .. table_name .. ' = {',
	-- Tabs to place timestamp (hyphen_pos_t = 15, inverse_range_t = 14).		-- Tabs to place timestamp (hyphen_pos_t = 15, inverse_range_t = 14).
	string.rep ('\t', rep),		string.rep ('\t', rep),

SockyPaws: Import missing module from English Wikipedia

2024-11-25T16:21:12Z

Import missing module from English Wikipedia

New page

require ('strict');

-- Get this module's title object.
local title_object = mw.title.getCurrentTitle ();
-- Are we are looking at the ./doc page or the module page?
if not title_object.fullText:find ('/doc$') then
-- Looking at the module page, make a page name for this module's /doc page.
local module_doc_title = title_object.fullText .. '/doc';
-- Reset title object to this module's /doc page.
title_object = mw.title.new (module_doc_title);
end
-- Get the /doc page content.
local range_message_raw = title_object:getContent();

-- Captures are timestamp and time zone (BST or GMT).
local timestamp_pattern = '<MessageDate>%D+(%d%d? %w%w%w %d%d%d%d %d%d:%d%d:%d%d)( %w%w%w)</MessageDate>'
-- Capture holds <Prefix>, <Agency>, and <Rules> groups.
local group_pattern = '<Group>(.-)</Group>';
-- Captures are GS1 prefix (978 or 979) and registration group.
local prefix_pattern = '<Prefix>(%d+)%-(%d+)</Prefix>';
-- Capture holds language and country or territory.
local agency_pattern = '<Agency>(.-)</Agency>';
-- Capture holds registrant <Range> and <Length> groups.
local rule_pattern = '<Rule>(.-)</Rule>';
-- Registrant; captures are min/max ranges right-padded to 7 digits; min not
-- currently used.
local range_pattern = '<Range>(%d+)%-(%d+)</Range>';
-- Registrant; capture holds number of (left) digits to use from <Range>; for
-- len=2 in max=1299999 -> 12.
local length_pattern = '<Length>(%d)</Length>';

--[[ RENDER_OUTPUT
Common function to render either of the two tables that this module
creates. Requires invoking the module twice to get both tables (they are
both created each time range_message_xlate() is called).
--]]
local function render_output (frame, table_name, out_t, timestamp, timezone, rep)
-- To close the table.
table.insert (out_t, '\t}</syntaxhighlight>');
-- Insert this at the start of the output sequence.
table.insert (out_t, 1, table.concat ({
-- Opening stuff.
'<syntaxhighlight lang="lua">local ' .. table_name .. ' = {',
-- Tabs to place timestamp (hyphen_pos_t = 15, inverse_range_t = 14).
string.rep ('\t', rep),
-- The timestamp…
frame:callParserFunction ('#time', {'-- "RangeMessage timestamp": Y-m-d"T"h:i:s', timestamp}),
-- …and timezone.
timezone
}));
-- Make a big string and done.
return frame:preprocess (table.concat (out_t, '\n'));
end

--[[ RANGE_MESSAGE_XLATE {{#invoke:ISBN RangeMessage xlate|range_message_xlate}}
This function translates a local copy of
<https://www.isbn-international.org/export_rangemessage.xml> for use by
Module:Format ISBN by way of Module:Format ISBN/data.

To update <hyphen_pos_t> in Module:Format ISBN/data:
1. Copy the new RangeMessage.xml text from the ISBN international
export_rangemessage.xml page (URL above) to your clipboard and paste
it over the existing XML data inside the HTML comments in this
module's doc page and save: The new translation is now presented on
this module's doc page.
2. Copy the new translation from the doc page to your clipboard.
3. Edit Module:Format ISBN/data and paste the new <hyphen_pos_t> table
over the old one and save.
--]]
local function range_message_xlate (frame)
-- The base output goes here (before prettifying).
local out_t = {};
local out_range_t = {}
-- Get the RangeMessage timestamp.
local timestamp, timezone = range_message_raw:match (timestamp_pattern);

-- Get a <Group>…</Group> block.
for group in range_message_raw:gmatch (group_pattern) do
-- Get the prefix and registration group.
local prefix, registration_group = group:match (prefix_pattern);

-- Get the 'agency'.
local agency = group:match (agency_pattern);
-- Flag to for the avoidance of repeats.
local agency_used = false;

-- Get a <Rule>…</Rule> block.
for rule in group:gmatch (rule_pattern) do
-- The prefix, registration_group, and registrant, then filled right
-- with '0's to thirteen digits.
local isbn_parts_min_t = {};
local isbn_parts_max_t = {};
-- Sequence of lengths for registration_group, registrant, and
-- publication elements in an ISBN.
local element_lengths_t = {};

-- Add prefix (1) to each <Rule> in the <Group>.
table.insert (isbn_parts_max_t, prefix);
table.insert (isbn_parts_min_t, prefix);

-- Add registration group (2) to each <Rule> in the <Group>.
table.insert (isbn_parts_max_t, registration_group);
table.insert (isbn_parts_min_t, registration_group);

-- Add ISBN registration_group length (1) to each <Rule> in <Group>.
table.insert (element_lengths_t, #registration_group);
-- Get range limits.
local range_min, range_max = rule:match (range_pattern);
-- Get the length of the registrant length.
local registrant_len = rule:match (length_pattern);

if '0' ~= registrant_len then
-- Add length of ISBN registrant (2).
table.insert (element_lengths_t, tonumber(registrant_len));
-- Find and add length available for publication element (3).
table.insert (element_lengths_t, 9-#registration_group-registrant_len);

-- Add <registrant_len> digits from left of <range_max> (3).
table.insert (isbn_parts_max_t, range_max:sub (1, registrant_len));
-- Add <registrant_len> digits from left of <range_min> (3).
table.insert (isbn_parts_min_t, range_min:sub (1, registrant_len));

-- Find how many 9s or 0s are needed to right fill an ISBN.
local fill_length = 0;
-- For each part, get its length…
for _, v in ipairs (isbn_parts_max_t) do
-- …and accumulate,…
fill_length = fill_length + #(tostring (v));
end
-- …to figure how many are needed…
fill_length = 13 - fill_length;
-- …and right fill to 13 digits.
table.insert (isbn_parts_max_t, string.rep ('9', fill_length));
table.insert (isbn_parts_min_t, string.rep ('0', fill_length));

-- Prettify.
local pretty_string = '\t[' .. table.concat (isbn_parts_max_t) .. '] = {' .. table.concat (element_lengths_t, ', ') .. '},';
local pretty_string_range = '\t[' .. table.concat (isbn_parts_max_t) .. '] = ' .. table.concat (isbn_parts_min_t) .. ',';
if not agency_used then
-- Add agency to output.
pretty_string = pretty_string .. string.rep ('\t', 12) .. '-- ' .. agency;
pretty_string_range = pretty_string_range .. string.rep ('\t', 11) .. '-- ' .. agency;
-- This 'agency' added to output; don't repeat it.
agency_used = true;
end
-- Add the prettified string to the output sequence.
table.insert (out_t, pretty_string);
table.insert (out_range_t, pretty_string_range);
end
end
end

-- Select the output.
if 'yes' == frame.args.range then
-- inverse_range_t table.
return render_output (frame, 'inverse_range_t', out_range_t, timestamp, timezone, 14);
else
-- hyphen_pos_t table.
return render_output (frame, 'hyphen_pos_t', out_t, timestamp, timezone, 15);
end
end

-- EXPORTS
return {
range_message_xlate = range_message_xlate,
}

Module:ISBN RangeMessage xlate - Revision history

SockyPaws: Replace tags with

SockyPaws: Import missing module from English Wikipedia