GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-24 02:12:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

Romanian: mkV moved to ParadigmsRon

Browse Source
This commit is contained in:
ra.monique
2009-02-25 12:54:00 +00:00
parent 8b844f7279
commit 7091a83d56
3 changed files with 31 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
next-lib/src/romanian/BeschRon.gf
View File

@@ -20,23 +20,6 @@ oper mkRV : Verbe -> V = \ve -> {s = ve ; lock_V = <>} ;
-- the smart paradigm covers (60-70% cases for a reasonably big database) -- the smart paradigm covers (60-70% cases for a reasonably big database)
-- (statistical tests also needed) -- (statistical tests also needed)
oper regV : Str -> Verbe = \s ->
case s of
{ x + ("chea"|"ghea") => mkV61 s ;
x + "ea" => mkV69 s ;
x + "ca" => mkV8 s ;
x + "ga" => mkV9 s ;
x + "eia" => mkV11 s;
x + "ia" => mkV10 s;
x + "a" => mkV6 s ;
x + "e" => mkV79 s ;
x + "ui" => mkV121 s ;
x + "ii" => mkV120 s ;
x + "i" => mkV119 s ;
x + "î" => mkV141 s
};
oper mkV : Str -> V = \s -> mkNV (regV s) ;
oper conj : Str -> Verbe = mkV6 ; oper conj : Str -> Verbe = mkV6 ;

25
next-lib/src/romanian/ParadigmsRon.gf
View File

@@ -11,7 +11,8 @@ resource ParadigmsRon =
(Predef=Predef), (Predef=Predef),
Prelude, Prelude,
MorphoRon, MorphoRon,
CatRon in { CatRon,
BeschRon in {
flags optimize=all ; flags optimize=all ;
@@ -308,6 +309,28 @@ prefA a = {s = a.s ; isPre = True ; lock_A = <>} ;
mkAdA x = ss x ** {lock_AdA = <>} ; mkAdA x = ss x ** {lock_AdA = <>} ;
--Verbs :
oper regV : Str -> Verbe = \s ->
case s of
{ x + ("chea"|"ghea") => mkV61 s ;
x + "ea" => mkV69 s ;
x + "ca" => mkV8 s ;
x + "ga" => mkV9 s ;
x + "eia" => mkV11 s;
x + "ia" => mkV10 s;
x + "a" => mkV6 s ;
x + "e" => mkV79 s ;
x + "ui" => mkV121 s ;
x + "ii" => mkV120 s ;
x + "i" => mkV119 s ;
x + "î" => mkV141 s
};
oper mkV : Str -> V = \s -> mkNV (regV s) ;
mkV2S : V -> Prep -> V2S ; mkV2S : V -> Prep -> V2S ;
-- mkVV : V -> VV ; -- mkVV : V -> VV ;
mkV2V : V -> Prep -> Prep -> V2V ; mkV2V : V -> Prep -> Prep -> V2V ;

9
next-lib/src/romanian/ResRon.gf
View File

@@ -28,10 +28,10 @@ param
param Size = sg | less20 | pl ; param Size = sg | less20 | pl ;
Case = Acc | Dat | Gen ; -- Case = Acc | Dat | Gen ;
-- Adjectives are inflected in number, gender, have specific form for enclitic determined -- Adjectives are inflected in number, gender, have specific form for enclitic determined
--article, and specific forms for Nom-Accusative/Dative-Genitive/Voccative --article, and specific forms for Nominative-Accusative/Dative-Genitive/Voccative
AForm = AF Gender Number Species ACase | AA ; AForm = AF Gender Number Species ACase | AA ;
@@ -49,6 +49,11 @@ param
CardOrd = NCard Gender | NOrd Gender; CardOrd = NCard Gender | NOrd Gender;
--3 Verbs --3 Verbs