From 994e0482bc95840dbe0dc933011023bfb47bed7b Mon Sep 17 00:00:00 2001 From: Aarne Ranta Date: Mon, 3 Dec 2018 17:27:59 +0200 Subject: [PATCH] added Construction for 'five inch nail' in Eng,Ger,Fin from the Dresden team at the summer school --- src/abstract/Construction.gf | 1 + src/english/ConstructionEng.gf | 3 ++- src/finnish/ConstructionFin.gf | 3 ++- src/german/ConstructionGer.gf | 3 ++- 4 files changed, 7 insertions(+), 3 deletions(-) diff --git a/src/abstract/Construction.gf b/src/abstract/Construction.gf index 69f5d1b4..d0b720dd 100644 --- a/src/abstract/Construction.gf +++ b/src/abstract/Construction.gf @@ -39,6 +39,7 @@ fun n_units_AP : Card -> CN -> A -> AP ; -- x inches long n_units_of_NP : Card -> CN -> NP -> NP ; -- x ounces of this flour + n_unit_CN : Card -> CN -> CN -> CN ; -- x gallon bottle -- containers diff --git a/src/english/ConstructionEng.gf b/src/english/ConstructionEng.gf index a12cc46c..3811ae79 100644 --- a/src/english/ConstructionEng.gf +++ b/src/english/ConstructionEng.gf @@ -28,7 +28,8 @@ lin is_wrong_VP = mkVP (ParadigmsEng.mkA "wrong") ; n_units_AP card cn a = mkAP (lin AdA (mkUtt (mkNP (lin CN cn)))) (lin A a) ; - +---- n_units_of_NP card cn a = mkAP (lin AdA (mkUtt (mkNP (lin CN cn)))) (lin A a) ; + n_unit_CN card unit cn = mkCN (invarA ((mkUtt card).s ++ (mkUtt unit).s)) cn ; bottle_of_CN np = mkCN (lin N2 (mkN2 "bottle")) (lin NP np) ; cup_of_CN np = mkCN (lin N2 (mkN2 "cup")) (lin NP np) ; diff --git a/src/finnish/ConstructionFin.gf b/src/finnish/ConstructionFin.gf index 5517401b..75e3ce0f 100644 --- a/src/finnish/ConstructionFin.gf +++ b/src/finnish/ConstructionFin.gf @@ -20,7 +20,8 @@ lin what_name_QCl x = mkQCl (mkIComp whatSg_IP) (mkNP (E.GenNP x) L.name_N) ; how_old_QCl x = mkQCl (E.ICompAP (mkAP L.old_A)) (lin NP x) ; how_far_QCl x = mkQCl (E.IAdvAdv L.far_Adv) (lin NP x) ; - + n_unit_CN card unit cn = mkCN (invarA (SyntaxFin.mkAdv (casePrep genitive) (mkNP (lin CN unit))).s) cn ; + -- some more things weather_adjCl ap = mkCl (mkVP (lin AP ap)) ; diff --git a/src/german/ConstructionGer.gf b/src/german/ConstructionGer.gf index 540edf58..b2477838 100644 --- a/src/german/ConstructionGer.gf +++ b/src/german/ConstructionGer.gf @@ -32,7 +32,8 @@ lin is_wrong_VP = mkVP have_V2 (mkNP (ParadigmsGer.mkN "Unrecht")) ; n_units_AP card cn a = mkAP (lin AdA (mkUtt (mkNP (lin CN cn)))) (lin A a) ; - + n_unit_CN card unit cn = mkCN (invarA (mkUtt (mkNP (lin CN unit))).s) cn ; + bottle_of_CN np = N.ApposCN (mkCN (mkN "Flasche")) np ; cup_of_CN np = N.ApposCN (mkCN (mkN "Tasse")) np ; glass_of_CN np = N.ApposCN (mkCN (mkN "Glas")) np ;