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

regular verbs in Cat.

Browse Source
This commit is contained in:
jordi.saludes
2008-09-29 18:29:20 +00:00
parent becce3cb62
commit 6706441624
1 changed files with 11 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
lib/resource/catalan/ParadigmsCat.gf
View File

@@ -329,7 +329,7 @@ oper
{s = table {Posit => a.s ! Posit ; _ => b.s ! Posit} ; {s = table {Posit => a.s ! Posit ; _ => b.s ! Posit} ;
isPre = a.isPre ; lock_A = <>} ; isPre = a.isPre ; lock_A = <>} ;
compADeg a = compADeg a =
{s = table {Posit => a.s ! Posit ; _ => \\f => "más" ++ a.s ! Posit ! f} ; {s = table {Posit => a.s ! Posit ; _ => \\f => "més" ++ a.s ! Posit ! f} ;
isPre = a.isPre ; isPre = a.isPre ;
lock_A = <>} ; lock_A = <>} ;
regADeg a = compADeg (regA a) ; regADeg a = compADeg (regA a) ;
@@ -338,16 +338,19 @@ oper
mkAdV x = ss x ** {lock_AdV = <>} ; mkAdV x = ss x ** {lock_AdV = <>} ;
mkAdA x = ss x ** {lock_AdA = <>} ; mkAdA x = ss x ** {lock_AdA = <>} ;
regV x = -- cantar, perdre, témer, dormir, (servir) regIIIV : (Str -> Verbum) -> Str -> V = \v,x -> -- I, IIa, IIb, III model given by v
let let
verb = case (Predef.dp 2 x) of { verb = case (Predef.dp 2 x) of {
"re" => perdre_83 x ; "re" => perdre_83 x ; -- IIa
"er" => témer_107 x ; "er" => témer_107 x ; -- IIb
"ir" => dormir_44 x ; -- JS TODO: Consider "servir" "ir" => v x ; -- III?
_ => cantar_15 x _ => cantar_15 x -- Ia
} }
in verbBesch verb ** {vtyp = VHabere ; lock_V = <>} ; in verbBesch verb ** {vtyp = VHabere ; lock_V = <>} ;
regVa = regIIIV dormir_44 ; -- IIIa
regV = regIIIV servir_101 ; -- IIIb
reflV v = {s = v.s ; vtyp = VRefl ; lock_V = <>} ; reflV v = {s = v.s ; vtyp = VRefl ; lock_V = <>} ;
verbV ve = verbBesch ve ** {vtyp = VHabere ; lock_V = <>} ; verbV ve = verbBesch ve ** {vtyp = VHabere ; lock_V = <>} ;
@@ -356,7 +359,7 @@ oper
special_ppV ve pa = { special_ppV ve pa = {
s = table { s = table {
VPart g n => (adjFort pa).s ! AF g n ; VPart g n => (adjPrim pa).s ! AF g n ;
p => ve.s ! p p => ve.s ! p
} ; } ;
lock_V = <> ; lock_V = <> ;
@@ -439,7 +442,7 @@ oper
--JS mkV : (mostrar,muestro : Str) -> V = regAltV ; --JS mkV : (mostrar,muestro : Str) -> V = regAltV ;
mkV : Verbum -> V = verbV mkV : Verbum -> V = verbV
} ; } ;
regV : Str -> V ; regV, regVa : Str -> V ;
--JS regAltV : (mostrar,muestro : Str) -> V ; --JS regAltV : (mostrar,muestro : Str) -> V ;
verbV : Verbum -> V ; verbV : Verbum -> V ;