From 5aa5005ba80eca95a6b3c0b08e5a8ea8e04238eb Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 29 Dec 2006 16:22:46 +0000 Subject: [PATCH] CompoundCN in Eng --- lib/resource-1.0/english/ExtraEng.gf | 2 ++ lib/resource-1.0/english/ExtraEngAbs.gf | 4 ++++ lib/resource-1.0/english/ParadigmsEng.gf | 2 +- 3 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lib/resource-1.0/english/ExtraEng.gf b/lib/resource-1.0/english/ExtraEng.gf index 097fce5e8..a8904ec8e 100644 --- a/lib/resource-1.0/english/ExtraEng.gf +++ b/lib/resource-1.0/english/ExtraEng.gf @@ -43,6 +43,8 @@ concrete ExtraEng of ExtraEngAbs = CatEng ** UncNegImpSg imp = {s = imp.s ! neg ! ImpF Sg False} ; UncNegImpPl imp = {s = imp.s ! neg ! ImpF Pl False} ; + CompoundCN a b = {s = \\n,c => a.s ! Sg ! Nom ++ b.s ! n ! c} ; + oper neg = CNeg False ; diff --git a/lib/resource-1.0/english/ExtraEngAbs.gf b/lib/resource-1.0/english/ExtraEngAbs.gf index 7b7db1d4e..9ee849627 100644 --- a/lib/resource-1.0/english/ExtraEngAbs.gf +++ b/lib/resource-1.0/english/ExtraEngAbs.gf @@ -9,4 +9,8 @@ abstract ExtraEngAbs = Extra ** { UncNegImpSg : Imp -> Utt; -- do not help yourself UncNegImpPl : Imp -> Utt; -- do not help yourselves +-- freely compounded nouns + + CompoundCN : CN -> CN -> CN ; -- rock album + } diff --git a/lib/resource-1.0/english/ParadigmsEng.gf b/lib/resource-1.0/english/ParadigmsEng.gf index e435b3ecd..4964af096 100644 --- a/lib/resource-1.0/english/ParadigmsEng.gf +++ b/lib/resource-1.0/english/ParadigmsEng.gf @@ -89,7 +89,7 @@ oper --3 Compound nouns -- --- A compound noun ia an uninflected string attached to an inflected noun, +-- A compound noun is an uninflected string attached to an inflected noun, -- such as "baby boom", "chief executive officer". mkN : Str -> N -> N