mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-25 10:48:54 -06:00
ExtAdvS added to more languages
This commit is contained in:
@@ -77,7 +77,7 @@ langsIncomplete = ["Amh","Ara","Hin","Lat","Tha","Tur"]
|
|||||||
langsAPI = langsLang `except` langsIncomplete
|
langsAPI = langsLang `except` langsIncomplete
|
||||||
|
|
||||||
-- languages for which to compile Symbolic
|
-- languages for which to compile Symbolic
|
||||||
langsSymbolic = langsLang `except` (langsIncomplete ++ ["Afr","Ina","Pes","Pnb","Rus"])
|
langsSymbolic = langsLang `except` (langsIncomplete ++ ["Afr","Ina","Nep","Pes","Pnb","Rus"])
|
||||||
|
|
||||||
-- languages for which to compile minimal Syntax
|
-- languages for which to compile minimal Syntax
|
||||||
langsMinimal = langs `only` ["Ara","Eng","Bul","Rus"]
|
langsMinimal = langs `only` ["Ara","Eng","Bul","Rus"]
|
||||||
|
|||||||
@@ -66,7 +66,8 @@ concrete SentenceBul of Sentence = CatBul ** open Prelude, ResBul in {
|
|||||||
c2 = cl.c2
|
c2 = cl.c2
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
AdvS a s = {s = a.s ++ "," ++ s.s} ;
|
ExtAdvS a s = {s = a.s ++ "," ++ s.s} ;
|
||||||
|
AdvS a s = {s = a.s ++ s.s} ;
|
||||||
|
|
||||||
RelS s r = {s = s.s ++ "," ++ r.s ! {gn=gennum ANeut Sg; p=P3}} ;
|
RelS s r = {s = s.s ++ "," ++ r.s ! {gn=gennum ANeut Sg; p=P3}} ;
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -61,6 +61,7 @@ concrete SentenceDut of Sentence = CatDut ** open ResDut, Prelude in {
|
|||||||
} ;
|
} ;
|
||||||
|
|
||||||
AdvS a s = {s = \\o => a.s ++ s.s ! Inv} ;
|
AdvS a s = {s = \\o => a.s ++ s.s ! Inv} ;
|
||||||
|
ExtAdvS a s = {s = \\o => a.s ++ "," ++ s.s ! Inv} ;
|
||||||
|
|
||||||
RelS s r = {s = \\o => s.s ! o ++ "," ++ r.s ! Neutr ! Sg} ;
|
RelS s r = {s = \\o => s.s ! o ++ "," ++ r.s ! Neutr ! Sg} ;
|
||||||
|
|
||||||
|
|||||||
@@ -98,6 +98,7 @@ incomplete concrete SentenceHindustani of Sentence =
|
|||||||
} ;
|
} ;
|
||||||
|
|
||||||
AdvS a s = {s = a.s ! Masc ++ s.s} ;
|
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} ;
|
RelS s r = {s = s.s ++ r.s ! agrP3 Masc Sg} ;
|
||||||
SSubjS s sj s = { s = s.s ++ sj.s ++ s.s};
|
SSubjS s sj s = { s = s.s ++ sj.s ++ s.s};
|
||||||
|
|||||||
@@ -92,6 +92,7 @@
|
|||||||
} ;
|
} ;
|
||||||
|
|
||||||
AdvS a s = {s = \\o => a.s ++ s.s ! o} ;
|
AdvS a s = {s = \\o => a.s ++ s.s ! o} ;
|
||||||
|
ExtAdvS a s = {s = \\o => a.s ++ "," ++ s.s ! o} ;
|
||||||
|
|
||||||
RelS s r = {
|
RelS s r = {
|
||||||
s = \\o => s.s ! o ++ "," ++ r.s ! Indic ! agrP3 Masc Sg
|
s = \\o => s.s ! o ++ "," ++ r.s ! Indic ! agrP3 Masc Sg
|
||||||
|
|||||||
@@ -129,7 +129,8 @@ concrete SentenceRus of Sentence = CatRus ** open Prelude, ResRus in {
|
|||||||
};
|
};
|
||||||
|
|
||||||
|
|
||||||
AdvS a s = {s = a.s ++ "," ++ s.s} ; ---- AR 19/6/2007
|
AdvS a s = {s = a.s ++ s.s} ; ---- AR 19/6/2007
|
||||||
|
ExtAdvS a s = {s = a.s ++ "," ++ s.s} ; ---- AR 1/9/2011
|
||||||
|
|
||||||
---- AR 17/12/2008
|
---- AR 17/12/2008
|
||||||
RelS s r = {s = s.s ++ "," ++ r.s ! gennum Neut Sg ! Nom ! Inanimate} ; ---- ?
|
RelS s r = {s = s.s ++ "," ++ r.s ! gennum Neut Sg ! Nom ! Inanimate} ; ---- ?
|
||||||
|
|||||||
Reference in New Issue
Block a user