GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-10 13:29:32 -06:00
Code Issues Packages Projects Releases Wiki Activity

QForm is more appropriate parameter than Species in IAdv and IP

Browse Source
This commit is contained in:
krasimir
2008-06-15 12:38:12 +00:00
parent 89bd8eeb74
commit 49eefbb2ad
6 changed files with 25 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lib/resource-1.4/bulgarian/CatBul.gf
View File

@@ -39,10 +39,10 @@ concrete CatBul of Cat = open ResBul, Prelude, (R = ParamX) in {
-- Question
QCl = {s : ResBul.Tense => Anteriority => Polarity => QForm => Str} ;
IP = {s : Role => Species => Str; gn : GenNum} ;
IComp = {s : Species => Str} ;
IDet = {s : DGender => Species => Str; n : Number ; nonEmpty : Bool} ;
IQuant = {s : GenNum => Species => Str} ;
IP = {s : Role => QForm => Str; gn : GenNum} ;
IComp = {s : QForm => Str} ;
IDet = {s : DGender => QForm => Str; n : Number ; nonEmpty : Bool} ;
IQuant = {s : GenNum => QForm => Str} ;
-- Relative
@@ -65,7 +65,7 @@ concrete CatBul of Cat = open ResBul, Prelude, (R = ParamX) in {
Adv = {s : Str} ;
CAdv = {s : Str; sn : Str} ;
IAdv = {s : Species => Str} ;
IAdv = {s : QForm => Str} ;
AdA = {s : Str} ;
-- Noun

2
lib/resource-1.4/bulgarian/MorphoFunsBul.gf
View File

@@ -178,5 +178,5 @@ oper
--
mkIAdv : Str -> IAdv ;
mkIAdv s = {s = table {Indef=>s;Def=>s+"ňî"}; lock_IAdv = <>} ;
mkIAdv s = {s = table {QDir=>s;QIndir=>s+"ňî"}; lock_IAdv = <>} ;
}

4
lib/resource-1.4/bulgarian/PhraseBul.gf
View File

@@ -9,8 +9,8 @@ concrete PhraseBul of Phrase = CatBul ** open Prelude, ResBul in {
UttImpPl pol imp = {s = pol.s ++ imp.s ! pol.p ! GPl} ;
UttImpPol pol imp = {s = pol.s ++ imp.s ! pol.p ! GPl} ;
UttIP ip = {s = ip.s ! RSubj ! Indef} ;
UttIAdv iadv = {s = iadv.s ! Indef} ;
UttIP ip = {s = ip.s ! RSubj ! QDir} ;
UttIAdv iadv = {s = iadv.s ! QDir} ;
UttNP np = {s = np.s ! RSubj} ;
UttVP vp = {s = daComplex vp ! Perf ! agrP3 (GSg Neut)} ;
UttAdv adv = adv ;

2
lib/resource-1.4/bulgarian/QuestionBul.gf
View File

@@ -15,7 +15,7 @@ concrete QuestionBul of Question = CatBul ** open ResBul, Prelude in {
QuestVP ip vp = {
s = \\t,a,b,qform =>
(mkClause (ip.s ! RSubj ! (case qform of {QDir=>Indef; QIndir=>Def})) {gn = ip.gn ; p = P3} vp).s ! t ! a ! b ! Main
(mkClause (ip.s ! RSubj ! qform) {gn = ip.gn ; p = P3} vp).s ! t ! a ! b ! Main
} ;
QuestSlash ip slash =

22
lib/resource-1.4/bulgarian/ResBul.gf
View File

@@ -522,13 +522,13 @@ resource ResBul = ParamX ** open Prelude in {
DNeutDef => addDef dve
} ;
mkIP : Str -> Str -> GenNum -> {s : Role => Species => Str ; gn : GenNum} =
mkIP : Str -> Str -> GenNum -> {s : Role => QForm => Str ; gn : GenNum} =
\koi,kogo,gn -> {
s = table {
RSubj => table {Indef=>koi; Def=>koi+"òî"} ;
RObj Acc => table {Indef=>kogo; Def=>kogo+"òî"} ;
RObj Dat => table {Indef=>"íà" ++ kogo; Def=>"íà" ++ kogo+"òî"} ;
RVoc => table {Indef=>koi; Def=>koi+"òî"}
RSubj => table QForm [koi; koi+"òî"] ;
RObj Acc => table QForm [kogo; kogo+"òî"] ;
RObj Dat => table QForm ["íà" ++ kogo; kogo+"òî"] ;
RVoc => table QForm [koi; koi+"òî"]
} ;
gn = gn
} ;
@@ -575,15 +575,15 @@ resource ResBul = ParamX ** open Prelude in {
Preposition : Type = {s : Str; c : Case};
mkQuestion :
{s : Species => Str} -> Clause ->
{s : QForm => Str} -> Clause ->
{s : Tense => Anteriority => Polarity => QForm => Str} = \wh,cl ->
{
s = \\t,a,p =>
s = \\t,a,p,qform =>
let cls = cl.s ! t ! a ! p ;
in table {
QDir => wh.s ! Indef ++ cls ! Inv ;
QIndir => wh.s ! Def ++ cls ! Main
}
in wh.s ! qform ++ cls ! case qform of {
QDir => Inv ;
QIndir => Main
}
} ;
whichRP : GenNum => Str

10
lib/resource-1.4/bulgarian/StructuralBul.gf
View File

@@ -35,7 +35,7 @@ concrete StructuralBul of Structural = CatBul **
here7to_Adv = ss ["äî òóê"] ;
here7from_Adv = ss ["îò òóê"] ;
how_IAdv = mkIAdv "êàê" ;
how8many_IDet = {s = \\_ => table Species ["êîëêî";"êîëêîòî"]; n = Pl; nonEmpty = False} ;
how8many_IDet = {s = \\_ => table QForm ["êîëêî";"êîëêîòî"]; n = Pl; nonEmpty = False} ;
if_Subj = ss "àêî" ;
in8front_Prep = mkPrep "ïðåä" Acc ;
i_Pron = mkPron "àç" "ìåí" "ìè" "ìîé" "ìîÿ" "ìîÿò" "ìîÿ" "ìîÿòà" "ìîå" "ìîåòî" "ìîè" "ìîèòå" (GSg Masc) P1 ;
@@ -101,10 +101,10 @@ concrete StructuralBul of Structural = CatBul **
when_IAdv = mkIAdv "êîãà" ;
when_Subj = ss "êîãàòî" ;
where_IAdv = mkIAdv "êúäå" ;
which_IQuant = {s = table GenNum [table Species ["êîé";"êîéòî"];
table Species ["êîÿ";"êîÿòî"];
table Species ["êîå";"êîåòî"];
table Species ["êîè";"êîèòî"]]} ;
which_IQuant = {s = table GenNum [table QForm ["êîé";"êîéòî"];
table QForm ["êîÿ";"êîÿòî"];
table QForm ["êîå";"êîåòî"];
table QForm ["êîè";"êîèòî"]]} ;
whoSg_IP = mkIP "êîé" "êîãî" (GSg Masc) ;
whoPl_IP = mkIP "êîè" "êîè" GPl ;
why_IAdv = mkIAdv "çàùî" ;