GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-28 09:28:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

some fixes in ParadigmsIta to help extract from FreeLing

Browse Source
This commit is contained in:
aarneranta
2020-11-30 13:16:14 +01:00
parent 24b94cdeac
commit 0b1149d509
1 changed files with 12 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
src/italian/ParadigmsIta.gf
View File

@@ -160,7 +160,9 @@ oper
-- case (masc and fem singular, masc plural, adverbial), given that -- case (masc and fem singular, masc plural, adverbial), given that
-- comparison is formed by "più". -- comparison is formed by "più".
mkA : (solo,sola,soli,sole,solamente : Str) -> A ; -- irregular adjective mkA : (solo,sola,soli,sole : Str) -> A ; -- possibly irregular adjective
mkA : (solo,sola,soli,sole,solamente : Str) -> A ; -- irregular adjective, with adverb
-- With irregular comparison, there are as it were two adjectives: -- With irregular comparison, there are as it were two adjectives:
-- the positive ("buono") and the comparative ("migliore"). -- the positive ("buono") and the comparative ("migliore").
@@ -391,13 +393,16 @@ oper
regV x = regV x =
let let
are = Predef.dp 3 x ; ---- are = Predef.dp 3 x ;
ci = Predef.dp 2 (Predef.tk 3 x) ; ci = Predef.dp 2 (Predef.tk 3 x) ;
i = last ci ; i = last ci ;
verb = case are of { verb : {s : VForm => Str} = case x of {
"ire" => finire_100 x ; _ + "ire" => finire_100 x ;
"ere" => temere_20 x ; _ + "ere" => temere_20 x ;
"are" => case i of { _ + "durre" => condurre_36 x ;
_ + "trarre" => trarre_91 x ;
_ + "rre" => porre_68 x ; --- all other verbs in -rre?
_ + "are" => case i of {
"c" => cercare_7 x ; "c" => cercare_7 x ;
"g" => legare_8 x ; "g" => legare_8 x ;
_ => case ci of { _ => case ci of {
@@ -512,6 +517,7 @@ oper
mkA = overload { mkA = overload {
mkA : (bianco : Str) -> A = regA ; mkA : (bianco : Str) -> A = regA ;
mkA : (solo,sola,soli,sole : Str) -> A = \solo,sola,soli,sole -> mk5A solo sola soli sole (sola + "mente") ;
mkA : (solo,sola,soli,sole, solamente : Str) -> A = mk5A ; mkA : (solo,sola,soli,sole, solamente : Str) -> A = mk5A ;
mkA : A -> A -> A = mkADeg ; mkA : A -> A -> A = mkADeg ;
mkA : A -> CopulaType -> A = adjCopula ; mkA : A -> CopulaType -> A = adjCopula ;