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

add Adverbs

Browse Source
This commit is contained in:
krasimir
2008-02-21 17:22:39 +00:00
parent a6291512b6
commit 177bd14fef
3 changed files with 22 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
lib/resource/bulgarian/AdverbBul.gf Normal file
View File

@@ -0,0 +1,19 @@
concrete AdverbBul of Adverb = CatBul ** open ResBul, Prelude in {
lin
PositAdvAdj a = {s = a.s ! ASg Neut Indef} ;
ComparAdvAdj cadv a np = {
s = cadv.s ++ "ïî" ++ "-" ++ a.s ! ASg Neut Indef ++ "îò" ++ np.s ! Acc
} ;
ComparAdvAdjS cadv a s = {
s = cadv.s ++ "ïî" ++ "-" ++ a.s ! ASg Neut Indef ++ "îò" ++ s.s
} ;
PrepNP prep np = {s = prep.s ++ np.s ! Acc} ;
AdAdv = cc2 ;
SubjS = cc2 ;
AdvSC s = s ; --- this rule give stack overflow in ordinary parsing
AdnCAdv cadv = {s = cadv.s ++ "îò"} ;
}

1
lib/resource/bulgarian/GrammarBul.gf
View File

@@ -4,6 +4,7 @@ concrete GrammarBul of Grammar =
NounBul,
VerbBul,
AdjectiveBul,
AdverbBul,
NumeralBul,
SentenceBul,
QuestionBul,

4
lib/resource/bulgarian/StructuralBul.gf
View File

@@ -63,9 +63,9 @@ concrete StructuralBul of Structural = CatBul **
"âúâ" / strs {"â" ; "ô" ; "Â" ; "Ô"}
}) ;
it_Pron = mkNP "òî" "íåãî" "íåãîâ" "íåãîâèÿ" "íåãîâèÿò" "íåãîâà" "íåãîâàòà" "íåãîâî" "íåãîâîòî" "íåãîâè" "íåãîâèòå" (GSg Neut) P3 ;
less_CAdv = ss ["ïî-ìàëêî"] ;
less_CAdv = ss "íå" ;
many_Det = mkDeterminerPl "ìíîãî" ;
more_CAdv = ss "îùå" ;
more_CAdv = ss [] ;
most_Predet = {s = \\_ => "ïîâå÷åòî"} ;
much_Det = mkDeterminerSg "ìíîãî" "ìíîãî" "ìíîãî";
{-