diff options
| author | aarne <aarne@chalmers.se> | 2010-05-28 12:25:26 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2010-05-28 12:25:26 +0000 |
| commit | b23640c769367c1cc288afc8a867f49f023b1a3f (patch) | |
| tree | 0e9dfb3514faff8ae026561264ef9dd5c667f409 /examples/phrasebook/WordsNor.gf | |
| parent | f9f2491fccd45ed83c0c360af24e2caf982e3dab (diff) | |
genitive s in Nor possessives ; some Nor words in Phrasebook
Diffstat (limited to 'examples/phrasebook/WordsNor.gf')
| -rw-r--r-- | examples/phrasebook/WordsNor.gf | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/examples/phrasebook/WordsNor.gf b/examples/phrasebook/WordsNor.gf index 2504602e4..9c63f9d39 100644 --- a/examples/phrasebook/WordsNor.gf +++ b/examples/phrasebook/WordsNor.gf @@ -32,7 +32,7 @@ concrete WordsNor of Words = SentencesNor ** Expensive = mkA "dyr" ; Fresh = mkA "fersk" ; Good = L.good_A ; - Suspect = mkA "suspekt" ; + Suspect = mkA "suspekt" "suspekt" ; Warm = L.warm_A ; -- places @@ -131,9 +131,9 @@ concrete WordsNor of Words = SentencesNor ** (mkNP (mkNP a_Det (mkN "rom" "rommet" "rommene" "romma")) (SyntaxNor.mkAdv for_Prep (mkNP num (mkN "person" "personen" "personer" "personene")))) ; AHasTable p num = mkCl p.name have_V2 - (mkNP (mkNP a_Det (mkN "tabel" "tabellen" "tabeller" "tabellene")) + (mkNP (mkNP a_Det (mkN "bord" "bordet" "bord" "borda")) (SyntaxNor.mkAdv for_Prep (mkNP num (mkN "person" "personen" "personer" "personene")))) ; - AHungry p = mkCl p.name (mkA "sulten") ; + AHungry p = mkCl p.name (mkA "sulten" "sultet" "sultne") ; AIll p = mkCl p.name (mkA "syk") ; AKnow p = mkCl p.name vite_V ; ALike p item = mkCl p.name (dirV2 (mk2V "like" "likte")) item ; @@ -143,7 +143,7 @@ concrete WordsNor of Words = SentencesNor ** AReady p = mkCl p.name (mkA "klar") ; AScared p = mkCl p.name (mkA "redd") ; ASpeak p lang = mkCl p.name (dirV2 (regV "snakke")) lang ; - AThirsty p = mkCl p.name (mkA "tørst") ; + AThirsty p = mkCl p.name (mkA "tørstig") ; ATired p = mkCl p.name (mkA "sliten") ; AUnderstand p = mkCl p.name (irregV "forstå" "forstod" "forstått") ; AWant p obj = mkCl p.name want_VV (mkVP have_V2 obj) ; @@ -251,7 +251,7 @@ concrete WordsNor of Words = SentencesNor ** mkTransport : N -> {name : CN ; by : Adv} = \n -> { name = mkCN n ; - by = SyntaxNor.mkAdv by8means_Prep (mkNP n) + by = SyntaxNor.mkAdv by8means_Prep (mkNP the_Det n) } ; far_IAdv = ExtraNor.IAdvAdv (ParadigmsNor.mkAdv "langt") ; |