From cbec29962e58f17ebe4f066e8268eac58dc8a5f7 Mon Sep 17 00:00:00 2001 From: aarne Date: Sat, 8 Nov 2008 09:38:32 +0000 Subject: corrections in Attempto grammars --- examples/attempto/TestAttemptoEng.gf | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'examples/attempto/TestAttemptoEng.gf') diff --git a/examples/attempto/TestAttemptoEng.gf b/examples/attempto/TestAttemptoEng.gf index bf7333307..1eefd49b6 100644 --- a/examples/attempto/TestAttemptoEng.gf +++ b/examples/attempto/TestAttemptoEng.gf @@ -5,15 +5,15 @@ concrete TestAttemptoEng of TestAttempto = AttemptoEng ** lin card_N = mkkN "card" ; lin water_MCN = mkCN (mkkN "water") ; -lin john_PN = mkPN "john" ; +lin john_PN = mkPN "John" ; lin apple_N = mkkN "apple" ; lin sleep_V = IrregEng.sleep_V ; lin young_A = mkA "young" ; lin dog_N = mkkN "dog" ; lin animal_N = mkkN "animal" ; lin wait_V = mkV "wait" ; -lin man_N = mkkN "man" ; -lin woman_N = mkkN "woman" ; +lin man_N = mkCN (mkN "man" "men") ; +lin woman_N = mkCN (mkN "woman" "women") ; lin give_V3 = mkV3 give_V (mkPrep []) (mkPrep "to") ; lin tired_A = mkA "tired" ; lin rich_A = mkA "rich" ; @@ -25,7 +25,7 @@ lin lucky_A = mkA "lucky" ; lin well_known_A = mkA "well" ; lin important_A = mkA "important" ; lin expensive_A = mkA "expensive" ; -lin fill_in_V2 = mkV2 "fill" ; +lin fill_in_V2 = mkV2 (partV (mkV "fill") "in") ; lin form_N = mkkN "form" ; lin age_N = mkkN "age" ; lin teacher_N = mkkN "teacher" ; @@ -41,7 +41,7 @@ lin eat_V2 = mkV2 eat_V ; lin burger_N = mkkN "burger" ; lin earn_V2 = mkV2 "earn" ; lin income_N = mkkN "income" ; -lin england_PN = mkPN "england" ; +lin england_PN = mkPN "England" ; lin beginning_N = mkkN "beginning" ; lin office_N = mkkN "office" ; lin interested_A2 = mkA2 (mkA "interested") (mkPrep "in") ; -- cgit v1.2.3