msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

add adverbial form to each adjective in bulgarian-1.4

Browse Source
This commit is contained in:
krasimir
2008-06-08 11:06:30 +00:00
parent a9ad4dbba6
commit 7d9f4337d9
6 changed files with 25 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
lib/resource-1.4/bulgarian/ParadigmsBul.gf
View File

@@ -699,15 +699,15 @@ oper
(v0+"čňĺ") ;
mkA078 : Str -> A ;
mkA078 base = let v0 = tk 1 base
in mkAdjective (v0+"č")
(v0+"č˙")
(v0+"č˙ň")
(v0+"ŕ")
(v0+"ŕňŕ")
(v0+"î")
(v0+"îňî")
(v0+"č")
(v0+"čňĺ") ;
in adjAdv (mkAdjective (v0+"č")
(v0+"č˙")
(v0+"č˙ň")
(v0+"ŕ")
(v0+"ŕňŕ")
(v0+"î")
(v0+"îňî")
(v0+"č")
(v0+"čňĺ")) (v0+"č") ;
mkA079 : Str -> A ;
mkA079 base = let v0 = tk 2 base
in mkAdjective (v0+"ĺí")
@@ -1452,4 +1452,7 @@ oper
(v0+"˙í")
(v0+"˙ů")
(v0+"˙é") ;
adjAdv : A -> Str -> A =
\a,adv -> {s = a.s; adv = adv; lock_A=<>} ;
}