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

UTF8 version of Hindi

Browse Source
This commit is contained in:
aarne
2008-05-08 21:05:18 +00:00
parent b5c11a8cfa
commit 047a4f66b8
4 changed files with 595 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -22,15 +22,15 @@ resource ResHin = ParamX ** open Prelude in {
} ;
reggNoun : Str -> Gender -> Noun = \s,g -> case <s,g> of {
<-(_ + ("a:" | "i:")), Fem> => mkNoun s s s (s + "e~") (s + "o~") (s + "o") Fem ;
<-(_ + ("+a:" | "+i:")), Fem> => mkNoun s s s (s + "+e~") (s + "+o~") (s + "+o") Fem ;
_ => regNoun s ** {g = g}
} ;
regNoun : Str -> Noun = \s -> case s of {
x + "iya:" => mkNoun s s s (x + "iya:~") (x + "iyo*") (x + "iyo") Fem ;
x + "a:" => mkNoun s (x + "e") (x + "e") (x + "e") (x + "o*") (x + "o") Masc ;
x + "i:" => mkNoun s s s (x + "iya:~") (x + "iyo*") (x + "iyo") Fem ;
_ => mkNoun s s s s (s + "o*") (s + "o") Masc
x + "+iya:" => mkNoun s s s (x + "+iya:~") (x + "+iyo*") (x + "+iyo") Fem ;
x + "+a:" => mkNoun s (x + "+e") (x + "+e") (x + "+e") (x + "+o*") (x + "+o") Masc ;
x + "+i:" => mkNoun s s s (x + "+iya:~") (x + "+iyo*") (x + "+iyo") Fem ;
_ => mkNoun s s s s (s + "+o*") (s + "+o") Masc
} ;
@@ -45,7 +45,7 @@ resource ResHin = ParamX ** open Prelude in {
} ;
regAdjective : Str -> Adjective = \s -> case s of {
acch + "a:" => mkAdjective s (acch + "e") (acch + "i:") ;
acch + "+a:" => mkAdjective s (acch + "+e") (acch + "+i:") ;
_ => mkAdjective s s s
} ;
@@ -98,17 +98,19 @@ resource ResHin = ParamX ** open Prelude in {
regVerb : Str -> Verb = \cal ->
let caly : Str = case cal of {
_ + ("a:" | "e") => cal + "y" ;
c + v@("u" | "i") + ":" => c + v + "y" ;
_ + ("+a:" | "+e") => cal + "+y" ;
c + "+u:" => c + "+uy" ;
c + "+i:" => c + "+iy" ;
--- c + v@("+u" | "+i") + ":" => c + v + "+y" ;
_ => cal
}
in
mkVerb
(cal + "na:") cal
(cal + "ta:") (cal + "te") (cal + "ti:") (cal + "ti:")
(caly + "a:") (caly + "e") (caly + "i:") (caly + "i:*")
(caly + "u:~") (caly + "e") (caly + "o") (caly + "e*")
(caly + "i-e") ;
(caly + "+a:") (caly + "+e") (caly + "+i:") (caly + "+i:*")
(caly + "+u:~") (caly + "+e") (caly + "+o") (caly + "+e*")
(caly + "+i-e") ;
param
CTense = CPresent | CPast | CFuture ;