GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-28 01:18:57 -06:00
Code Issues Packages Projects Releases Wiki Activity

added Construction for 'five inch nail' in Eng,Ger,Fin from the Dresden team at the summer school

Browse Source
This commit is contained in:
Aarne Ranta
2018-12-03 17:27:59 +02:00
parent e66c27a4da
commit 994e0482bc
4 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/abstract/Construction.gf
View File

@@ -39,6 +39,7 @@ fun
n_units_AP : Card -> CN -> A -> AP ; -- x inches long n_units_AP : Card -> CN -> A -> AP ; -- x inches long
n_units_of_NP : Card -> CN -> NP -> NP ; -- x ounces of this flour n_units_of_NP : Card -> CN -> NP -> NP ; -- x ounces of this flour
n_unit_CN : Card -> CN -> CN -> CN ; -- x gallon bottle
-- containers -- containers

3
src/english/ConstructionEng.gf
View File

@@ -28,7 +28,8 @@ lin
is_wrong_VP = mkVP (ParadigmsEng.mkA "wrong") ; is_wrong_VP = mkVP (ParadigmsEng.mkA "wrong") ;
n_units_AP card cn a = mkAP (lin AdA (mkUtt (mkNP <lin Card card : Card> (lin CN cn)))) (lin A a) ; n_units_AP card cn a = mkAP (lin AdA (mkUtt (mkNP <lin Card card : Card> (lin CN cn)))) (lin A a) ;
---- n_units_of_NP card cn a = mkAP (lin AdA (mkUtt (mkNP <lin Card card : Card> (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) ; bottle_of_CN np = mkCN (lin N2 (mkN2 "bottle")) (lin NP np) ;
cup_of_CN np = mkCN (lin N2 (mkN2 "cup")) (lin NP np) ; cup_of_CN np = mkCN (lin N2 (mkN2 "cup")) (lin NP np) ;

1
src/finnish/ConstructionFin.gf
View File

@@ -20,6 +20,7 @@ lin
what_name_QCl x = mkQCl (mkIComp whatSg_IP) (mkNP (E.GenNP x) L.name_N) ; 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_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) ; 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 Card card : Card> (lin CN unit))).s) cn ;
-- some more things -- some more things
weather_adjCl ap = mkCl (mkVP (lin AP ap)) ; weather_adjCl ap = mkCl (mkVP (lin AP ap)) ;

1
src/german/ConstructionGer.gf
View File

@@ -32,6 +32,7 @@ lin
is_wrong_VP = mkVP have_V2 (mkNP (ParadigmsGer.mkN "Unrecht")) ; is_wrong_VP = mkVP have_V2 (mkNP (ParadigmsGer.mkN "Unrecht")) ;
n_units_AP card cn a = mkAP (lin AdA (mkUtt (mkNP <lin Card card : Card> (lin CN cn)))) (lin A a) ; n_units_AP card cn a = mkAP (lin AdA (mkUtt (mkNP <lin Card card : Card> (lin CN cn)))) (lin A a) ;
n_unit_CN card unit cn = mkCN (invarA (mkUtt (mkNP <lin Card card : Card> (lin CN unit))).s) cn ;
bottle_of_CN np = N.ApposCN (mkCN (mkN "Flasche")) np ; bottle_of_CN np = N.ApposCN (mkCN (mkN "Flasche")) np ;
cup_of_CN np = N.ApposCN (mkCN (mkN "Tasse")) np ; cup_of_CN np = N.ApposCN (mkCN (mkN "Tasse")) np ;