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

Romance almost complete

Browse Source
This commit is contained in:
aarne
2005-03-31 16:14:12 +00:00
parent 3d248a8576
commit e9063a42dc
4 changed files with 11 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
lib/resource/french/SyntaxFre.gf
View File

@@ -50,19 +50,10 @@ oper
npGenPossNum = \nu,ton,mec -> npGenPossNum = \nu,ton,mec ->
\\c => prepCase c ++ ton.s ! Poss Pl mec.g ++ nu.s ! mec.g ++ mec.s ! Pl ; \\c => prepCase c ++ ton.s ! Poss Pl mec.g ++ nu.s ! mec.g ++ mec.s ! Pl ;
---- We miss "il y en a"
existNounPhrase = \unemaison -> existNounPhrase = \unemaison ->
predVerbGroupClause sats2clause (
pronImpers insertObject (mkSatsObject pronImpers (mkTransVerbCas verbAvoir dative) pronY)
(predClauseGroup accusative [] unemaison) ;
verbAvoir
(complTransVerbGen
(mkTransVerbCas verbAvoir dative)
pronY
(\\_,_,_ => unemaison.s ! Ton Acc)
)
) ;
reflPron : Number => Person => NPFormA => Str = \\n,p => reflPron : Number => Person => NPFormA => Str = \\n,p =>
case p of { case p of {

2
lib/resource/italian/SyntaxIta.gf
View File

@@ -39,6 +39,8 @@ oper
npGenPossNum = \nu,ton,mec -> npGenPossNum = \nu,ton,mec ->
\\c => artDef mec.g Pl c ++ ton.s ! Poss Pl mec.g ++ nu.s ! mec.g ++ mec.s ! Pl ; \\c => artDef mec.g Pl c ++ ton.s ! Poss Pl mec.g ++ nu.s ! mec.g ++ mec.s ! Pl ;
existNounPhrase = variants {} ; ----
{- ---- {- ----
existNounPhrase = \delvino -> { existNounPhrase = \delvino -> {
s = \\m => s = \\m =>

6
lib/resource/romance/RulesRomance.gf
View File

@@ -117,7 +117,7 @@ lin
s = \\c => np.s ! case2pform c ; s = \\c => np.s ! case2pform c ;
g = pgen2gen np.g ; g = pgen2gen np.g ;
n = np.n n = np.n
}; } ;
FunIP = funIntPron ; FunIP = funIntPron ;
QuestCl = questClause ; QuestCl = questClause ;
@@ -178,8 +178,8 @@ lin
OneNP = nounPhraseOn ; OneNP = nounPhraseOn ;
----- ExistCN A = existNounPhrase (indefNounPhrase Sg A) ; ExistCN A = existNounPhrase (indefNounPhrase Sg A) ;
----- ExistNumCN nu A = existNounPhrase (indefNounPhraseNum nu A) ; ExistNumCN nu A = existNounPhrase (indefNounPhraseNum nu A) ;
} }

3
lib/resource/spanish/SyntaxSpa.gf
View File

@@ -11,6 +11,8 @@ oper
nounPhraseOn = mkNameNounPhrase "se" Masc ; --- can be plural dep. on object nounPhraseOn = mkNameNounPhrase "se" Masc ; --- can be plural dep. on object
pronImpers = pronIl ; ---- should be [] ?
partitiveNounPhrase = \n,vino -> partitiveNounPhrase = \n,vino ->
normalNounPhrase normalNounPhrase
(table { (table {
@@ -35,6 +37,7 @@ oper
npGenPossNum = \nu,ton,mec -> npGenPossNum = \nu,ton,mec ->
\\c => artDef mec.g Pl c ++ ton.s ! Poss Pl mec.g ++ nu.s ! mec.g ++ mec.s ! Pl ; \\c => artDef mec.g Pl c ++ ton.s ! Poss Pl mec.g ++ nu.s ! mec.g ++ mec.s ! Pl ;
existNounPhrase = variants {} ;
{- ---- {- ----
existNounPhrase = \delvino -> { existNounPhrase = \delvino -> {
s = \\m => s = \\m =>