fixed decodeUTF8 for pgf; removed old resources from darcs

This commit is contained in:
aarne
2008-06-26 19:41:25 +00:00
parent 544fc47489
commit 9d909f32cf
1845 changed files with 4 additions and 468570 deletions

View File

@@ -0,0 +1,34 @@
concrete RelativeBul of Relative = CatBul ** open ResBul in {
flags coding=cp1251 ;
flags optimize=all_subs ;
lin
RelCl cl = {
s = \\t,a,p,gn => suchRP ! gn ++ "֌" ++ cl.s ! t ! a ! p ! Main ;
role = RSubj
} ;
RelVP rp vp = {
s = \\t,a,p,gn =>
let
cl = mkClause (rp.s ! gn) {gn=gn; p=P3} vp
in
cl.s ! t ! a ! p ! Main ;
role = RSubj
} ;
RelSlash rp slash = {
s = \\t,a,p,gn => slash.c2.s ++ rp.s ! gn ++ slash.s ! (agrP3 gn) ! t ! a ! p ! Main ;
role = RObj Acc
} ;
FunRP p np rp = {
s = \\gn => np.s ! RObj Acc ++ p.s ++ (case p.c of {Acc => []; Dat => "íà"}) ++ rp.s ! gn ;
} ;
IdRP = {
s = whichRP ;
} ;
}