From 56ef9ba61d10d08b16fdd2a9891316af989fb09e Mon Sep 17 00:00:00 2001
From: Pagan Gazzard <page@balena.io>
Date: Tue, 3 Aug 2021 22:06:34 +0100
Subject: [PATCH] Add support for term form synonyms

Change-type: minor
---
 sbvr-parser.ometajs | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/sbvr-parser.ometajs b/sbvr-parser.ometajs
index 931c345..dd24867 100644
--- a/sbvr-parser.ometajs
+++ b/sbvr-parser.ometajs
@@ -675,6 +675,15 @@ export ometa SBVRParser <: SBVRLibs {
 		}
 		return term;
 	},
+	AttrTermFormSynonym =
+		{_.last(this.lines)}:factType
+		{_.last(factType)}:attrs
+		{_.findLast(attrs, {0: 'TermForm'})}:termForm
+		(	?(!termForm)
+			{throw new Error('Term form synonyms require a term form first')}
+		)?
+		AddIdentifier(termForm[1][0], termForm[1][1]),
+		
 	AttrReferenceType =
 			seq('informative')
 		|	seq('strict'),
@@ -877,6 +886,7 @@ defaultAllowedAttrLists = {
 	FactType: [
 		'Synonymous Form:',
 		'Term Form:',
+		'Term Form Synonym:',
 		'Reference Type:'
 	].concat(defaultAllowedAttrLists),
 	Rule: [