GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-25 10:48:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

StructuralFre completed

Browse Source
This commit is contained in:
aarne
2006-01-23 09:55:48 +00:00
parent d1a05d8fea
commit 5c50cbe5ca
3 changed files with 38 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/resource-1.0/romance/CatRomance.gf
View File

@@ -26,12 +26,12 @@ incomplete concrete CatRomance of Cat =
QCl = {s : Tense => Anteriority => Polarity => QForm => Str} ;
IP = {s : Case => Str ; a : AAgr} ;
IAdv = {s : Str} ;
IDet = {s : Gender => Str ; n : Number} ;
IDet = {s : Gender => Case => Str ; n : Number} ;
-- Relative
RCl = {s : Tense => Anteriority => Polarity => Mood => Agr => Str} ;
---- RP = {s : AAgr => RelForm => Str ; a : RAgr} ;
RP = {s : AAgr => RelForm => Str} ; ---- ; a : RAgr} ;
-- Verb
@@ -50,7 +50,7 @@ incomplete concrete CatRomance of Cat =
Det = {s : Gender => Case => Str ; n : Number} ;
QuantSg = {s : Gender => Case => Str} ;
QuantPl = {s : Gender => Case => Str} ;
Predet = {s : AAgr => Str} ;
Predet = {s : AAgr => Case => Str ; c : Case} ; -- la plupart de...
Num = {s : Gender => Str} ;
Ord = {s : AAgr => Str} ;

20
lib/resource-1.0/romance/NounRomance.gf
View File

@@ -19,7 +19,7 @@ incomplete concrete NounRomance of Noun =
UsePron p = p ;
PredetNP pred np = {
s = \\c => prepCase (npform2case c) ++ pred.s ! np.a ++ np.s ! Ton Acc ;
s = \\c => pred.s ! np.a ! npform2case c ++ np.s ! case2npform pred.c ;
a = np.a ;
c = Clit0
} ;
@@ -100,21 +100,17 @@ incomplete concrete NounRomance of Noun =
g = g ;
} ;
{-
RelCN cn rs = let g = cn.g in {
s = \\n,d,c => cn.s ! n ! d ! c ++ rs.s ! agrP3 g n ;
g = g ;
isMod = cn.isMod
s = \\n => cn.s ! n ++ rs.s ! Indic ! agrP3 g n ; --- mood
g = g
} ;
SentCN cn sc = let g = cn.g in {
s = \\n,d,c => cn.s ! n ! d ! c ++ sc.s ;
g = g ;
isMod = cn.isMod
s = \\n => cn.s ! n ++ sc.s ;
g = g
} ;
AdvCN cn sc = let g = cn.g in {
s = \\n,d,c => cn.s ! n ! d ! c ++ sc.s ;
g = g ;
isMod = cn.isMod
s = \\n => cn.s ! n ++ sc.s ;
g = g
} ;
-}
}