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

hindi-resource-grammar

Browse Source
This commit is contained in:
virk.shafqat
2012-02-23 13:36:50 +00:00
parent f1d2852c4d
commit 9aede98c7f
52 changed files with 2166 additions and 1991 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lib/src/hindustani/SentenceHindustani.gf
View File

@@ -1,6 +1,6 @@
--concrete SentenceUrd of Sentence = CatUrd ** open Prelude, StringsHindustani, ResUrd in {
incomplete concrete SentenceHindustani of Sentence =
CatHindustani ** open CommonHindustani, ResHindustani, Prelude, StringsHindustani in {
CatHindustani ** open CommonHindustani, ResHindustani, Prelude in {
flags optimize=all_subs ;
coding = utf8;
@@ -40,9 +40,10 @@ incomplete concrete SentenceHindustani of Sentence =
(insertObj2 (conjThat ++ slash.s) (predV vs)) **
{c2 = slash.c2} ;
EmbedS s = {s = conjThat ++ s.s} ;
EmbedQS qs = {s = qs.s ! QIndir} ;
EmbedVP vp = {s = infVP False vp defaultAgr} ; --- agr
EmbedS s = {s = conjThat ++ s.s ; fromVP = False} ;
EmbedQS qs = {s = conjThat ++ qs.s ! QIndir ; fromVP = False} ;
-- EmbedVP vp = {s = infVP False vp defaultAgr ; fromVP = True} ; --- agr
EmbedVP vp = {s = (vp.s ! VPInf).fin ; fromVP = True} ;
UseCl temp p cl =
{ s = case <temp.t,temp.a> of {
@@ -98,7 +99,6 @@ incomplete concrete SentenceHindustani of Sentence =
} ;
AdvS a s = {s = a.s ! Masc ++ s.s} ;
ExtAdvS a s = {s = a.s ! Masc ++ "," ++ s.s} ;
RelS s r = {s = s.s ++ r.s ! agrP3 Masc Sg} ;
SSubjS s sj s = { s = s.s ++ sj.s ++ s.s};