diff options
| author | krasimir <krasimir@chalmers.se> | 2008-11-27 14:08:50 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2008-11-27 14:08:50 +0000 |
| commit | 4af8cf36171af49882009f1f15d2ce7cd6a1c220 (patch) | |
| tree | c33f1d3701eb81b9c26b97b2d0c9a911cbda8300 /next-lib/src/bulgarian | |
| parent | 7f81aa43af09d37f857361096d3b2c4f27dceef6 (diff) | |
further refactoring in Russian
Diffstat (limited to 'next-lib/src/bulgarian')
| -rw-r--r-- | next-lib/src/bulgarian/DiffBul.gf | 6 | ||||
| -rw-r--r-- | next-lib/src/bulgarian/ResBul.gf | 22 |
2 files changed, 6 insertions, 22 deletions
diff --git a/next-lib/src/bulgarian/DiffBul.gf b/next-lib/src/bulgarian/DiffBul.gf index 6d94154a5..55cf8c963 100644 --- a/next-lib/src/bulgarian/DiffBul.gf +++ b/next-lib/src/bulgarian/DiffBul.gf @@ -12,4 +12,10 @@ instance DiffBul of DiffSlavic = open CommonSlavic, Prelude in { | NFVocative
;
+ oper
+ Agr = {gn : GenNum ; p : Person} ;
+
+ agrP3 : GenNum -> Agr = \gn ->
+ {gn = gn; p = P3} ;
+
}
\ No newline at end of file diff --git a/next-lib/src/bulgarian/ResBul.gf b/next-lib/src/bulgarian/ResBul.gf index 263a8dbb2..bb92432e8 100644 --- a/next-lib/src/bulgarian/ResBul.gf +++ b/next-lib/src/bulgarian/ResBul.gf @@ -22,13 +22,6 @@ instance ResBul of ResSlavic = ParamX, DiffBul, CommonSlavic ** open Prelude in param Role = RSubj | RObj Case | RVoc ; - GenNum = GSg Gender | GPl ; - --- Agreement of $NP$ is a record. We'll add $Gender$ later. - - oper - Agr = {gn : GenNum ; p : Person} ; - param -- The plural never makes a gender distinction. @@ -87,9 +80,6 @@ instance ResBul of ResSlavic = ParamX, DiffBul, CommonSlavic ** open Prelude in --2 Transformations between parameter types oper - agrP3 : GenNum -> Agr = \gn -> - {gn = gn; p = P3} ; - conjGenNum : GenNum -> GenNum -> GenNum = \a,b -> case <a,b> of { <GSg _,GSg g> => GSg g ; @@ -101,18 +91,6 @@ instance ResBul of ResSlavic = ParamX, DiffBul, CommonSlavic ** open Prelude in p = conjPerson a.p b.p } ; - gennum : Gender -> Number -> GenNum = \g,n -> - case n of { - Sg => GSg g ; - Pl => GPl - } ; - - numGenNum : GenNum -> Number = \gn -> - case gn of { - GSg _ => Sg ; - GPl => Pl - } ; - aform : GenNum -> Species -> Role -> AForm = \gn,spec,role -> case gn of { GSg g => case <g,spec,role> of { |