This commit is contained in:
ra.monique
2009-12-14 11:58:15 +00:00
parent 7a449030b0
commit bb0bac0310
8 changed files with 112 additions and 71 deletions

View File

@@ -3,7 +3,7 @@ concrete RelativeRon of Relative =
flags optimize=all_subs ;
lin
lin
RelCl cl = {
s = \\ag,t,a,p,m => "astfel" ++ "cã" ++
@@ -40,7 +40,10 @@ concrete RelativeRon of Relative =
s = \\a,c => ss ++ p.s ++ rp.s ! a ! p.c ;
a = {g = np.a.g ; n = np.a.n} ;
hasAgr = True;
hasRef = np.hasRef
hasRef = case np.nForm of
{HasRef False => False ;
_ => True
}
} ;
-- Ac => if_then_Str p.isDir (ss ++ p.s ++ rp.s ! a ! p.c) (ss ++ p.s ++ rp.s ! a ! No)