GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-06-03 07:08: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

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
} ;
-}
}