GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-28 05:52:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

romanian_modified

Browse Source
This commit is contained in:
ra.monique
2009-09-14 01:33:06 +00:00
parent a81def4168
commit 18d01be869
15 changed files with 928 additions and 938 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
lib/src/romanian/RelativeRon.gf
View File

@@ -1,4 +1,4 @@
incomplete concrete RelativeRon of Relative =
concrete RelativeRon of Relative =
CatRon ** open Prelude, ResRon in {
flags optimize=all_subs ;
@@ -6,7 +6,7 @@ incomplete concrete RelativeRon of Relative =
lin
RelCl cl = {
s = \\ag,t,a,p,m => therefore_PConj.s ++ conjThat ++
s = \\ag,t,a,p,m => "astfel" ++ "cã" ++
cl.s ! DDir ! t ! a ! p ! m ;
c = No
} ;
@@ -15,12 +15,12 @@ incomplete concrete RelativeRon of Relative =
RelVP rp vp = case rp.hasAgr of {
True => {s = \\ag =>
(mkClause
(rp.s ! {g = ag.g ; n = ag.n} ! No) False
(rp.s ! {g = ag.g ; n = ag.n} ! No)
{g = rp.a.g ; n = rp.a.n ; p = P3}
vp).s ! DDir ; c = No} ;
False => {s = \\ag =>
(mkClause
(rp.s ! {g = ag.g ; n = ag.n} ! No) False
(rp.s ! {g = ag.g ; n = ag.n} ! No)
ag
vp).s ! DDir ; c = No
}
@@ -31,7 +31,7 @@ incomplete concrete RelativeRon of Relative =
let aag = {g = ag.g ; n = ag.n} --add Clitics in this case also !
in
slash.c2.s ++ slash.c2.prepDir ++ rp.s ! aag ! slash.c2.c ++
slash.s ! aag ! DInv ! t ! a ! p ! m ;
slash.s ! True ! aag ! DInv ! t ! a ! p ! m ;
c = No
} ;
@@ -46,8 +46,8 @@ incomplete concrete RelativeRon of Relative =
-- Ac => if_then_Str p.isDir (ss ++ p.s ++ rp.s ! a ! p.c) (ss ++ p.s ++ rp.s ! a ! No)
IdRP = {
s = \\ag,c => case c of { Da | Ge => case <ag.g, ag.n > of
{<Fem,Sg> => "careia" ; <Masc,Sg> => "caruia" ;
<_Pl> => "carora"
{<Fem,Sg> => "cãreia" ; <Masc,Sg> => "cãruia" ;
<_Pl> => "cãrora"
};
_ => "care"
}