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

q

Browse Source
This commit is contained in:
aarne
2008-05-06 16:47:44 +00:00
parent c78791b62e
commit c4a3cd633e
2 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
lib/resource-1.4/hindi/Deva.hs
View File

@@ -89,6 +89,7 @@ encode s = case s of
"*" -> 0x0902 "*" -> 0x0902
" " -> space " " -> space
"\n" -> fromEnum '\n'
_ -> 0x093e --- a: _ -> 0x093e --- a:

4
lib/resource-1.4/hindi/ResHin.gf
View File

@@ -181,7 +181,7 @@ resource ResHin = ParamX ** open Prelude in {
s = \\b,vh => s = \\b,vh =>
let let
na = if_then_Str b [] "na" ; na = if_then_Str b [] "na" ;
nahim = if_then_Str b [] "nahim" ; nahim = if_then_Str b [] "nahi:*" ;
in in
case vh of { case vh of {
VPTense VPGenPres (Ag g n p) => VPTense VPGenPres (Ag g n p) =>
@@ -197,7 +197,7 @@ resource ResHin = ParamX ** open Prelude in {
VPTense VPSubj (Ag _ n p) => {fin = verb.s ! VSubj n p ; inf = [] ; neg = na} ; VPTense VPSubj (Ag _ n p) => {fin = verb.s ! VSubj n p ; inf = [] ; neg = na} ;
VPTense VPFut (Ag g n p) => {fin = verb.s ! VFut n p g ; inf = [] ; neg = na} ; VPTense VPFut (Ag g n p) => {fin = verb.s ! VFut n p g ; inf = [] ; neg = na} ;
VPInf => {fin = verb.s ! VStem ; inf = [] ; neg = na} ; VPInf => {fin = verb.s ! VStem ; inf = [] ; neg = na} ;
_ => {fin = verb.s ! VStem ; inf = [] ; neg = na} _ => {fin = verb.s ! VStem ; inf = [] ; neg = na} ----
} ; } ;
obj = [] ; obj = [] ;
subj = VIntrans ; subj = VIntrans ;