Module:snon-headword: Difference between revisions

← Older edit Newer edit →

@@ Line 240: / Line 240: @@
 local function do_adj(args, data)
 	local category_pos = m_en_util.singularize(data.pos_category)
 	local lemma = data.pagename
-	local comp = {{term = lemma .. "ir"}}
+	local comps = m_hw_util.parse_term_list_with_modifiers {
-	local sup = {{term = lemma .. "ist"}}
+		paramname = "comp",
+		forms = args.comp,
+		splitchar = ",",
+	}
-	insert_inflection(data, comp, "comparative", "comp")
+	if not comps[1] then
-	insert_inflection(data, sup, "superlative", "sup")
+		comps = {{term = lemma .. "ir"}}
+	else
+		local new_comps = {}
+		for _, c in ipairs(comps) do
+			if c.term == "+" then
+				table.insert(new_comps, {term = lemma .. "ir"})
+			else
+				table.insert(new_comps, c)
+			end
+		end
+		comps = new_comps
+	end
+	local sups = m_hw_util.parse_term_list_with_modifiers {
+		paramname = "sup",
+		forms = args.sup,
+		splitchar = ",",
+	}
+	if not sups[1] then
+		sups = {{term = lemma .. "ist"}}
+	else
+		local new_sups = {}
+		for _, s in ipairs(sups) do
+			if s.term == "+" then
+				table.insert(new_sups, {term = lemma .. "ist"})
+			else
+				table.insert(new_sups, s)
+			end
+		end
+		sups = new_sups
+	end
+	insert_inflection(data, comps, "comparative", "comp")
+	insert_inflection(data, sups, "superlative", "sup")
 end