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

FixedRon

Browse Source
This commit is contained in:
ramona.enache
2010-04-25 00:47:15 +00:00
parent 9b98d272fd
commit 98555ed6b3
15 changed files with 200 additions and 149 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lib/src/romanian/IdiomRon.gf
View File

@@ -8,27 +8,27 @@ in {
lin
ImpersCl vp = mkClause "" (agrP3 Masc Sg) vp ;
ImpersCl vp = mkClause "" False (agrP3 Masc Sg) vp ;
GenericCl vp = mkClause "cineva" (agrP3 Masc Sg) vp ; -- an exact correspondent does not exist !
GenericCl vp = mkClause "cineva" False (agrP3 Masc Sg) vp ; -- an exact correspondent does not exist !
ExistNP np =
mkClause "" np.a (insertSimpObj (\\ag => (np.s ! No ).comp) (useVerb (v_besch20 "existã"))) ;
mkClause "" False np.a (insertSimpObj (\\ag => (np.s ! No ).comp) (useVerb (v_besch20 "existã"))) ;
-- v_besch20 "exista"
ExistIP ip = {
s = \\t,a,p,_ =>
ip.s ! No ++
(mkClause "" (agrP3 (ip.a.g) (ip.a.n))
(mkClause "" False (agrP3 (ip.a.g) (ip.a.n))
copula).s
! DDir ! t ! a ! p ! Indic } ;
CleftNP np rs = mkClause "" np.a
CleftNP np rs = mkClause "" False np.a
(insertSimpObj (\\_ => rs.s ! Indic ! np.a)
(insertSimpObj (\\_ => (np.s ! rs.c).comp) copula)) ;
--need adverb for
CleftAdv ad s = mkClause "" (agrP3 Masc Sg)
CleftAdv ad s = mkClause "" False (agrP3 Masc Sg)
(insertSimpObj (\\_ => conjThat ++ s.s ! Indic)
(insertSimpObj (\\_ => ad.s) copula)) ;