diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-11-08 09:38:32 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-11-08 09:38:32 +0000 |
| commit | cbec29962e58f17ebe4f066e8268eac58dc8a5f7 (patch) | |
| tree | 8256dfd57b5ae2389595f2e3b7ae7935d86c2855 /examples/attempto/TestAttemptoEng.gf | |
| parent | 4e921573f4ab33d955f895fcca60436e8b00ee78 (diff) | |
corrections in Attempto grammars
Diffstat (limited to 'examples/attempto/TestAttemptoEng.gf')
| -rw-r--r-- | examples/attempto/TestAttemptoEng.gf | 10 |
1 files changed, 5 insertions, 5 deletions
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") ; |