GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-11 05:49:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

genitive s in Nor possessives ; some Nor words in Phrasebook

Browse Source
This commit is contained in:
aarne
2010-05-28 12:25:26 +00:00
parent f9f2491fcc
commit b23640c769
6 changed files with 24 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
examples/phrasebook/SentencesDan.gf
View File

@@ -1,4 +1,8 @@
concrete SentencesDan of Sentences = NumeralDan ** SentencesI with
concrete SentencesDan of Sentences = NumeralDan ** SentencesI - [NameNN] with
(Syntax = SyntaxDan),
(Symbolic = SymbolicDan),
(Lexicon = LexiconDan) ;
(Lexicon = LexiconDan) ** open Prelude, SyntaxDan, (P = ParadigmsDan) in {
lin NameNN = mkNP (P.mkPN "NN") ;
}

10
examples/phrasebook/SentencesNor.gf
View File

@@ -1,4 +1,10 @@
concrete SentencesNor of Sentences = NumeralNor ** SentencesI with
concrete SentencesNor of Sentences = NumeralNor ** SentencesI - [NameNN] with
(Syntax = SyntaxNor),
(Symbolic = SymbolicNor),
(Lexicon = LexiconNor) ;
(Lexicon = LexiconNor) ** open SyntaxNor, (P = ParadigmsNor) in
{
lin NameNN = mkNP (P.mkPN "NN") ;
}

5
examples/phrasebook/SentencesSwe.gf
View File

@@ -1,8 +1,9 @@
concrete SentencesSwe of Sentences = NumeralSwe ** SentencesI - [PYesToNo] with
concrete SentencesSwe of Sentences = NumeralSwe ** SentencesI - [PYesToNo,NameNN] with
(Syntax = SyntaxSwe),
(Symbolic = SymbolicSwe),
(Lexicon = LexiconSwe) ** open Prelude in {
(Lexicon = LexiconSwe) ** open Prelude, SyntaxSwe, (P = ParadigmsSwe) in {
lin PYesToNo = mkPhrase (lin Utt (ss "jo")) ;
lin NameNN = mkNP (P.mkPN "NN") ;
}

2
examples/phrasebook/WordsDan.gf
View File

@@ -133,7 +133,7 @@ concrete WordsDan of Words = SentencesDan **
AHasTable p num = mkCl p.name have_V2
(mkNP (mkNP a_Det (mkN "bord"))
(SyntaxDan.mkAdv to_Prep (mkNP num (mkN "person" "personen" "personer" "personerne")))) ;
AHungry p = mkCl p.name (mkA "sulten") ;
AHungry p = mkCl p.name (mkA "sulten" "sultet" "sultne") ;
AIll p = mkCl p.name (mkA "syg") ;
AKnow p = mkCl p.name vide_V ;
ALike p item = mkCl p.name (mkV2 holde_V (mkPrep "af")) item ;

10
examples/phrasebook/WordsNor.gf
View File

@@ -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") ;

2
examples/phrasebook/WordsSwe.gf
View File

@@ -108,7 +108,7 @@ concrete WordsSwe of Words = SentencesSwe **
Car = mkTransport L.car_N ;
Ferry = mkTransport (mkN "färja") ;
Plane = mkTransport L.airplane_N ;
Subway = mkTransport (mkN "metro" "metron" "metro" "metrona") ; ----
Subway = mkTransport (mkN "tunnelbana") ;
Taxi = mkTransport (mkN "taxi" "taxin" "taxibilar" "taxibilarna") ; ----
Train = mkTransport L.train_N ;
Tram = mkTransport (mkN "spårvagn") ;