From 3a429730bcbe59ab38decdd85e23c1ba66790849 Mon Sep 17 00:00:00 2001 From: bruno cuconato Date: Fri, 28 Sep 2018 05:11:01 +0000 Subject: [PATCH] (Por) small fixes and add missing paradigm (#28) * (Por) add Str -> V3 paradigm * (Por) small fixes --- src/portuguese/ConstructionPor.gf | 5 +++-- src/portuguese/LexiconPor.gf | 2 +- src/portuguese/ParadigmsPor.gf | 1 + src/portuguese/StructuralPor.gf | 4 ++-- 4 files changed, 7 insertions(+), 5 deletions(-) diff --git a/src/portuguese/ConstructionPor.gf b/src/portuguese/ConstructionPor.gf index 4d4edbf8e..c4c323920 100644 --- a/src/portuguese/ConstructionPor.gf +++ b/src/portuguese/ConstructionPor.gf @@ -2,7 +2,8 @@ concrete ConstructionPor of Construction = CatPor ** open SyntaxPor, SymbolicPor, ParadigmsPor, BeschPor, - (L = LexiconPor), (E = ExtraPor), (B = IrregBeschPor), (R = ResPor), (C = CommonRomance), + (L = LexiconPor), (E = ExtraPor), (B = IrregBeschPor), (R = ResPor), + (S = SyntaxPor), (C = CommonRomance), Prelude in { flags coding=utf8 ; @@ -62,7 +63,7 @@ oper timeunitAdv n time = let n_card : Card = lin Card n; n_hours_NP : NP = mkNP n_card time ; - in SyntaxPor.mkAdv for_Prep n_hours_NP ;--| SyntaxPor.mkAdv (n_hours_NP.s ! R.Nom) ; + in S.mkAdv for_Prep n_hours_NP | S.mkAdv to_Prep n_hours_NP ;--| S.mkAdv (n_hours_NP.s ! R.Nom) ; weekdayPunctualAdv w = lin Adv {s = w.s ! C.Sg} ; -- lundi weekdayHabitualAdv w = SyntaxPor.mkAdv noPrep (mkNP the_Det w) ; -- il lunedí ---- diff --git a/src/portuguese/LexiconPor.gf b/src/portuguese/LexiconPor.gf index 541ab153a..6fbb22d45 100644 --- a/src/portuguese/LexiconPor.gf +++ b/src/portuguese/LexiconPor.gf @@ -10,7 +10,7 @@ flags lin easy_A2V = mkA2V (mkA "fácil") dative genitive ; married_A2 = mkA2 (mkA "casado") dative ; - probable_AS = mkAS (mkA "provável") ; + probable_AS = mkAS (mkA "provável" "provável" "prováveis" "prováveis" "provavelmente") ; fun_AV = mkAV (mkA "divertido") genitive ; -- A bad_A = prefA (mkA (mkA "mau") (mkA "pior")) ; diff --git a/src/portuguese/ParadigmsPor.gf b/src/portuguese/ParadigmsPor.gf index 2ce3f6b04..0d284c019 100644 --- a/src/portuguese/ParadigmsPor.gf +++ b/src/portuguese/ParadigmsPor.gf @@ -403,6 +403,7 @@ oper -- the first one or both can be absent. mkV3 = overload { + mkV3 : Str -> V3 = \s -> dirdirV3 (regV s) ; mkV3 : V -> V3 = dirdirV3 ; -- donner (+ accusative + dative) mkV3 : V -> Prep -> V3 = dirV3 ; -- placer (+ accusative) + dans mkV3 : V -> Prep -> Prep -> V3 = mmkV3 -- parler + dative + genitive diff --git a/src/portuguese/StructuralPor.gf b/src/portuguese/StructuralPor.gf index 87b7eac6b..f296e0f6f 100644 --- a/src/portuguese/StructuralPor.gf +++ b/src/portuguese/StructuralPor.gf @@ -145,8 +145,8 @@ concrete StructuralPor of Structural = CatPor ** when_Subj = ss "quando" ** {m = Indic} ; where_IAdv = ss "onde" ; which_IQuant = {s = table { - Sg => \\g,c => prepCase c ++ "que" ; --- qual - Pl => \\g,c => prepCase c ++ "que" + Sg => \\g,c => prepCase c ++ "qual" ; --- que + Pl => \\g,c => prepCase c ++ "quais" } } ; whoPl_IP = {s = \\c => prepCase c ++ "quem" ; a = aagr Masc Pl} ;