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

a big patch which renames a few functions in the Bulgarian morphology. The old names are deprecated

Browse Source
This commit is contained in:
kr.angelov
2013-10-12 17:00:47 +00:00
parent add86fcf1d
commit 9e1ed234fc
2 changed files with 2019 additions and 2012 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4011
lib/src/bulgarian/DictEngBul.gf
View File

File diff suppressed because it is too large Load Diff

20
lib/src/bulgarian/MorphoFunsBul.gf
View File

@@ -53,8 +53,8 @@ oper
phrasalV : V -> Case -> V ; phrasalV : V -> Case -> V ;
phrasalV v c = {s = v.s; vtype = VPhrasal c; lock_V=<>} ; phrasalV v c = {s = v.s; vtype = VPhrasal c; lock_V=<>} ;
actionV : VTable -> VTable -> V ; dualV : VTable -> VTable -> V ;
actionV imperf perf = { dualV imperf perf = {
s = table {Imperf=>imperf; Perf=>perf}; s = table {Imperf=>imperf; Perf=>perf};
n = let v0 = init (imperf ! (VImperfect Sg P1)) + "í" n = let v0 = init (imperf ! (VImperfect Sg P1)) + "í"
in (mkNoun (v0+"å") in (mkNoun (v0+"å")
@@ -66,8 +66,10 @@ oper
lock_V=<> lock_V=<>
} ; } ;
stateV : VTable -> V ; actionV : VTable -> VTable -> V = dualV ;
stateV vtable = {
singleV : VTable -> V ;
singleV vtable = {
s = \\_=>vtable; s = \\_=>vtable;
n = let v0 = init (vtable ! (VImperfect Sg P1)) + "í" n = let v0 = init (vtable ! (VImperfect Sg P1)) + "í"
in (mkNoun (v0+"å") in (mkNoun (v0+"å")
@@ -79,6 +81,8 @@ oper
lock_V=<> lock_V=<>
} ; } ;
stateV : VTable -> V = singleV ;
--3 Zero-place verbs --3 Zero-place verbs
-- --
@@ -192,13 +196,15 @@ oper
} ; } ;
} ; } ;
relativeN : N -> A -> N; dualN : N -> A -> N;
relativeN n a = lin N { dualN n a = lin N {
s = n.s; s = n.s;
rel = a.s; rel = a.s;
g = n.g g = n.g
} ; } ;
relativeN : N -> A -> N = dualN ; -- deprecated
substantiveN : A -> AGender -> N; substantiveN : A -> AGender -> N;
substantiveN a g = lin N { substantiveN a g = lin N {
s = \\nform => a.s ! nform2aform nform g; s = \\nform => a.s ! nform2aform nform g;