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

refinementNepali-11-06-20

Browse Source
This commit is contained in:
virk.shafqat
2011-06-20 11:24:22 +00:00
parent f08c6a10a1
commit a9d8634147
33 changed files with 1153 additions and 1296 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/src/nepali/SentenceNep.gf
View File

@@ -12,8 +12,8 @@ concrete SentenceNep of Sentence = CatNep ** open Prelude, ResNep in {
ImpVP vp = {
s = \\pol,n =>
let
agr = Ag Masc (numImp n) Pers2_M ;
verb = vp.obj.s ++ (vp.s! PVForm).inf ++ vp.comp ! agr ;
agr = Ag Masc (numImp n) Pers2_M ;
verb = vp.obj.s ++ (vp.s ! Root).inf ++ vp.comp ! agr ;
dont = case pol of {
CNeg True => "नगर" ;
CNeg False => "नगर" ;
@@ -52,7 +52,7 @@ concrete SentenceNep of Sentence = CatNep ** open Prelude, ResNep in {
<Fut,Simul> => temp.s ++ p.s ++ cl.s ! VPFut ! p.p ! ODir;
<Fut,Anter> => temp.s ++ p.s ++ cl.s ! VPPerfFut ! p.p ! ODir;
<Cond,Simul> => temp.s ++ p.s ++ cl.s ! VPCondPres ! p.p ! ODir;
<Cond,Anter> => temp.s ++ p.s ++ cl.s ! VPCondPast ! p.p ! ODir -- this needs to be fixed by making SubjPerf in ResPnb
<Cond,Anter> => temp.s ++ p.s ++ cl.s ! VPCondPast ! p.p ! ODir
};
} ;