msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

AdvS and for_Prep in resource (except Russian)

Browse Source
This commit is contained in:
aarne
2006-11-27 16:21:27 +00:00
parent 3f1edb590a
commit 9849a2d58f
20 changed files with 57 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/resource-1.0/abstract/Sentence.gf
View File

@@ -61,6 +61,10 @@ abstract Sentence = Cat ** {
UseQCl : Tense -> Ant -> Pol -> QCl -> QS ;
UseRCl : Tense -> Ant -> Pol -> RCl -> RS ;
-- An adverb can be added to the beginning of a sentence.
AdvS : Adv -> S -> S ; -- today, I will go home
}
--.

1
lib/resource-1.0/abstract/Structural.gf
View File

@@ -38,6 +38,7 @@ abstract Structural = Cat ** {
everywhere_Adv : Adv ;
first_Ord : Ord ;
few_Det : Det ;
for_Prep : Prep ;
from_Prep : Prep ;
he_Pron : Pron ;
here_Adv : Adv ;

8
lib/resource-1.0/api/Constructors.gf
View File

@@ -67,8 +67,8 @@ incomplete resource Constructors = open Grammar in {
mkS : Conj -> S -> S -> S ; -- John walks and Mary talks
mkS : DConj -> S -> S -> S ; -- either I leave or you come
mkS : Conj -> ListS -> S ; -- John walks, Mary talks, and Bob runs
mkS : DConj -> ListS -> S -- either I leave, you come, or he runs
mkS : DConj -> ListS -> S ; -- either I leave, you come, or he runs
mkS : Adv -> S -> S -- today, I will sleep
} ;
mkCl : overload {
@@ -522,7 +522,9 @@ incomplete resource Constructors = open Grammar in {
mkS : Conj -> ListS -> S
= \c,xy -> ConjS c xy ;
mkS : DConj -> ListS -> S
= \c,xy -> DConjS c xy
= \c,xy -> DConjS c xy ;
mkS : Adv -> S -> S
= AdvS
} ;

1
lib/resource-1.0/danish/StructuralDan.gf
View File

@@ -30,6 +30,7 @@ concrete StructuralDan of Structural = CatDan **
everywhere_Adv = ss "overalt" ;
few_Det = {s = \\_,_ => "få" ; n = Pl ; det = DDef Indef} ;
first_Ord = {s = "første" ; isDet = True} ;
for_Prep = ss "for" ;
from_Prep = ss "fra" ;
he_Pron = MorphoDan.mkNP "han" "ham" "hans" "hans" "hans" SgUtr P3 ;
here_Adv = ss "her" ;

2
lib/resource-1.0/english/SentenceEng.gf
View File

@@ -48,6 +48,8 @@ concrete SentenceEng of Sentence = CatEng ** open Prelude, ResEng in {
c = cl.c
} ;
AdvS a s = {s = a.s ++ "," ++ s.s} ;
oper
ctr = contrNeg True ; -- contracted negations
}

1
lib/resource-1.0/english/StructuralEng.gf
View File

@@ -32,6 +32,7 @@ concrete StructuralEng of Structural = CatEng **
everywhere_Adv = ss "everywhere" ;
few_Det = mkDeterminer Pl "few" ;
first_Ord = ss "first" ;
for_Prep = ss "for" ;
from_Prep = ss "from" ;
he_Pron = mkNP "he" "him" "his" Sg P3 ;
here_Adv = ss "here" ;

2
lib/resource-1.0/finnish/SentenceFin.gf
View File

@@ -64,4 +64,6 @@ concrete SentenceFin of Sentence = CatFin ** open Prelude, ResFin in {
c = cl.c
} ;
AdvS a s = {s = a.s ++ "," ++ s.s} ;
}

1
lib/resource-1.0/finnish/StructuralFin.gf
View File

@@ -39,6 +39,7 @@ concrete StructuralFin of Structural = CatFin **
everywhere_Adv = ss "kaikkialla" ;
few_Det = mkDet Sg (regN "harva") ;
first_Ord = {s = \\n,c => (regN "ensimmäinen").s ! NCase n c} ;
for_Prep = casePrep allative ;
from_Prep = casePrep elative ;
he_Pron = mkPronoun "hän" "hänen" "häntä" "hänenä" "häneen" Sg P3 ;
here_Adv = ss "täällä" ;

1
lib/resource-1.0/french/StructuralFre.gf
View File

@@ -35,6 +35,7 @@ lin
everywhere_Adv = ss "partout" ;
few_Det = {s = \\g,c => prepCase c ++ "peu" ++ elisDe ; n = Pl} ;
first_Ord = {s = \\ag => (regA "premier").s ! Posit ! AF ag.g ag.n} ;
for_Prep = mkPreposition "pour" ;
from_Prep = complGen ; ---
he_Pron =
mkPronoun

2
lib/resource-1.0/german/SentenceGer.gf
View File

@@ -44,4 +44,6 @@ concrete SentenceGer of Sentence = CatGer ** open ResGer in {
c = cl.c
} ;
AdvS a s = {s = \\o => a.s ++ "," ++ s.s ! o} ;
}

1
lib/resource-1.0/german/StructuralGer.gf
View File

@@ -35,6 +35,7 @@ concrete StructuralGer of Structural = CatGer **
everywhere_Adv = ss "überall" ;
few_Det = detLikeAdj Pl "wenig" ;
first_Ord = {s = (regA "erst").s ! Posit} ;
for_Prep = mkPrep "für" Acc ;
from_Prep = mkPrep "aus" Dat ;
he_Pron = mkPronPers "er" "ihn" "ihm" "seiner" "sein" Masc Sg P3 ;
here7to_Adv = ss ["hierher"] ;

1
lib/resource-1.0/italian/StructuralIta.gf
View File

@@ -33,6 +33,7 @@ lin
everywhere_Adv = ss "dappertutto" ;
few_Det = {s = \\g,c => prepCase c ++ genForms "pochi" "poche" ! g ; n = Pl} ;
first_Ord = {s = \\ag => (regA "primo").s ! Posit ! AF ag.g ag.n} ;
for_Prep = mkPrep "per" ;
from_Prep = complGen ; ---
he_Pron =
mkPronoun

1
lib/resource-1.0/norwegian/StructuralNor.gf
View File

@@ -30,6 +30,7 @@ concrete StructuralNor of Structural = CatNor **
everywhere_Adv = ss "overalt" ;
few_Det = {s = \\_,_ => "få" ; n = Pl ; det = DDef Indef} ;
first_Ord = {s = "første" ; isDet = True} ;
for_Prep = ss "for" ;
from_Prep = ss "fra" ;
he_Pron = MorphoNor.mkNP "han" "ham" "hans" "hans" "hans" SgUtr P3 ;
here_Adv = ss "her" ;

2
lib/resource-1.0/romance/SentenceRomance.gf
View File

@@ -50,4 +50,6 @@ incomplete concrete SentenceRomance of Sentence =
c = cl.c
} ;
AdvS a s = {s = \\o => a.s ++ "," ++ s.s ! o} ;
}

1
lib/resource-1.0/scandinavian/SentenceScand.gf
View File

@@ -47,4 +47,5 @@ incomplete concrete SentenceScand of Sentence =
c = cl.c
} ;
AdvS a s = {s = \\o => a.s ++ "," ++ s.s ! o} ;
}

1
lib/resource-1.0/spanish/StructuralSpa.gf
View File

@@ -33,6 +33,7 @@ lin
everywhere_Adv = ss ["en todas partes"] ;
few_Det = {s = \\g,c => prepCase c ++ genForms "pocos" "pocas" ! g ; n = Pl} ;
first_Ord = {s = \\ag => (regA "primero").s ! Posit ! AF ag.g ag.n} ;
for_Prep = mkPrep "por" ;
from_Prep = complGen ; ---
he_Pron =
mkPronoun

1
lib/resource-1.0/swedish/StructuralSwe.gf
View File

@@ -30,6 +30,7 @@ concrete StructuralSwe of Structural = CatSwe **
everywhere_Adv = ss "överallt" ;
few_Det = {s = \\_,_ => "få" ; n = Pl ; det = DDef Indef} ;
first_Ord = {s = "första" ; isDet = True} ;
for_Prep = ss "för" ;
from_Prep = ss "från" ;
he_Pron = MorphoSwe.mkNP "han" "honom" "hans" "hans" "hans" SgUtr P3 ;
here_Adv = ss "här" ;