Модуль:Сущность/поля: различия между версиями

Интерактивная навигация по истории

← Предыдущая правка

@@ Строка 1: / Строка 1: @@
 local p = {}
+local getArgs = require('Module:Arguments').getArgs
 local function trim(s)
@@ Строка 11: / Строка 12: @@
 local function split_first_underscore(k)
-     local a, b = k:match('^([^_]+)_(.+)$')
+     local pos = k:find('_', 1, true)
-     return a, b
+    if not pos or pos == 1 or pos == #k then
+        return nil, nil
+    end
+     return k:sub(1, pos - 1), k:sub(pos + 1)
 end
-local function collect_labels_from_args(args)
+local function each_compound_arg(args, fn)
-    local meta = {}
-    local seen = {}
      for k, v in pairs(args) do
          if type(k) == 'string' and k:find('_', 1, true) then
              local base, rem = split_first_underscore(k)
              if base and rem then
-                 local label = trim(strip_trailing_digits(rem))
+                 fn(base, rem, v)
-                if label ~= '' then
-                    meta[base] = meta[base] or {}
-                    if not seen[base] then seen[base] = {} end
-                    if not seen[base][label] then
-                        table.insert(meta[base], label)
-                        seen[base][label] = true
-                    end
-                end
              end
          end
      end
+end
+local function collect_labels_from_args(args)
+    local meta = {}
+    local seen = {}
+    each_compound_arg(args, function(base, rem)
+        local label = trim(strip_trailing_digits(rem))
+        if label ~= '' then
+            meta[base] = meta[base] or {}
+            if not seen[base] then seen[base] = {} end
+            if not seen[base][label] then
+                table.insert(meta[base], label)
+                seen[base][label] = true
+            end
+        end
+    end)
      for k, v in pairs(args) do
@@ Строка 53: / Строка 63: @@
      -- map base -> label -> value
      local map = {}
-     for k, v in pairs(args) do
+     each_compound_arg(args, function(base, rem, v)
-        if type(k) == 'string' and k:find('_', 1, true) then
+        local lab = trim(strip_trailing_digits(rem))
-            local base, rem = split_first_underscore(k)
+        map[base] = map[base] or {}
-            if base and rem then
+        local cur = map[base][lab]
-                local lab = strip_trailing_digits(rem)
+        if cur then
-                lab = trim(lab)
+            map[base][lab] = cur .. '\n' .. tostring(v)
-                map[base] = map[base] or {}
+        else
-                local cur = map[base][lab]
+            map[base][lab] = tostring(v)
-                if cur then
-                    map[base][lab] = cur .. '\n' .. tostring(v)
-                else
-                    map[base][lab] = tostring(v)
-                end
-            end
          end
-     end
+     end)
      if field ~= '' and label ~= '' then
          local base = map[field]
          if base then return base[label] or '' end
-        return ''
      end
-     if args[1] and args[2] then
+     if field ~= '' and args[field] ~= nil then
-         local f = trim(args[1]); local l = trim(args[2])
+         return trim(tostring(args[field]))
-        local base = map[f]
-        if base then return base[l] or '' end
      end
@@ Строка 86: / Строка 87: @@
 function p.main(frame)
-     local args = frame.args or {}
+     local args = getArgs(frame, { removeBlanks = false })
      local field = args[1]