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

(Por) add IrregBesch module with verbs using Besch paradigms

Browse Source 
- Besch :
  - use hack to prevent runtime failure with glue in in vars output
  - rm paradigm numbers
- add IrregBeschPor, verbs that use only bescherelle paradigms
  - use them in Construction, Structural, Idiom, Extra
- Diff and Paradigms had (almost) the same oper (verboV/verbBeschH),
  so combine them into one and use it
This commit is contained in:
odanoburu
2018-05-17 12:46:10 -03:00
parent 23c5ce2381
commit 71220ebaf4
11 changed files with 839 additions and 141 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/portuguese/ParadigmsPor.gf
+19 -29
View File
@@ -295,43 +295,33 @@ oper
z = Predef.dp 1 (Predef.tk 2 v) ; -- i in -iar
paradigm = case xr of {
"ir" => case z of {
"g" => redigir_52 ;
"a" => sair_68 ;
"u" => distribuir_73 ;
_ => garantir_6
"g" => redigir_Besch ;
"a" => sair_Besch ;
"u" => distribuir_Besch ;
_ => garantir_Besch
} ;
"er" => case z of {
"c" => aquecer_25 ;
"g" => proteger_26 ;
"o" => moer_28 ;
_ => vender_5
"c" => aquecer_Besch ;
"g" => proteger_Besch ;
"o" => moer_Besch ;
_ => vender_Besch
} ;
"ar" => case z of {
"c" => ficar_12 ;
"ç" => começar_13 ;
"e" => recear_15 ;
"g" => chegar_14 ;
"i" => anunciar_16 ;
"j" => viajar_r22 ;
"o" => perdoar_20 ;
"u" => suar_r37 ;
_ => comprar_4
"c" => ficar_Besch ;
"ç" => começar_Besch ;
"e" => recear_Besch ;
"g" => chegar_Besch ;
"i" => anunciar_Besch ;
"j" => viajar_Besch ;
"o" => perdoar_Besch ;
"u" => suar_Besch ;
_ => comprar_Besch
} ;
"or" | "ôr" => pôr_45 ;
_ => comprar_4 -- hole
"or" | "ôr" => pôr_Besch ;
_ => comprar_Besch -- hole
}
in verboV (paradigm v) ;
{- regAltV : (mostrar,muestro : Str) -> V ;
regAltV x y = case x of {
_ + "ar" => verboV (regAlternV x y) ;
_ => verboV (regAlternVEr x y)
} ;
-}
verboV : Verbum -> V ;
verboV ve = verbBesch ve ** {vtyp = VHabere ; p = [] ;
lock_V = <>} ;
mkV = overload {
--- [ ] update
-- Regular verbs are ones inflected like "cortar", "dever", or