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

(Por) small fixes and add missing paradigm (#28)

Browse Source 
* (Por) add Str -> V3 paradigm

* (Por) small fixes
This commit is contained in:
bruno cuconato
2018-09-28 05:11:01 +00:00
committed by Krasimir Angelov
parent 1889f4ce0f
commit 3a429730bc
4 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/portuguese/ConstructionPor.gf
View File

@@ -2,7 +2,8 @@
concrete ConstructionPor of Construction = CatPor ** concrete ConstructionPor of Construction = CatPor **
open SyntaxPor, SymbolicPor, ParadigmsPor, BeschPor, 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 { Prelude in {
flags coding=utf8 ; flags coding=utf8 ;
@@ -62,7 +63,7 @@ oper
timeunitAdv n time = timeunitAdv n time =
let n_card : Card = lin Card n; let n_card : Card = lin Card n;
n_hours_NP : NP = mkNP n_card time ; 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 weekdayPunctualAdv w = lin Adv {s = w.s ! C.Sg} ; -- lundi
weekdayHabitualAdv w = SyntaxPor.mkAdv noPrep (mkNP the_Det w) ; -- il lunedí ---- weekdayHabitualAdv w = SyntaxPor.mkAdv noPrep (mkNP the_Det w) ; -- il lunedí ----

2
src/portuguese/LexiconPor.gf
View File

@@ -10,7 +10,7 @@ flags
lin lin
easy_A2V = mkA2V (mkA "fácil") dative genitive ; easy_A2V = mkA2V (mkA "fácil") dative genitive ;
married_A2 = mkA2 (mkA "casado") dative ; 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 ; fun_AV = mkAV (mkA "divertido") genitive ;
-- A -- A
bad_A = prefA (mkA (mkA "mau") (mkA "pior")) ; bad_A = prefA (mkA (mkA "mau") (mkA "pior")) ;

1
src/portuguese/ParadigmsPor.gf
View File

@@ -403,6 +403,7 @@ oper
-- the first one or both can be absent. -- the first one or both can be absent.
mkV3 = overload { mkV3 = overload {
mkV3 : Str -> V3 = \s -> dirdirV3 (regV s) ;
mkV3 : V -> V3 = dirdirV3 ; -- donner (+ accusative + dative) mkV3 : V -> V3 = dirdirV3 ; -- donner (+ accusative + dative)
mkV3 : V -> Prep -> V3 = dirV3 ; -- placer (+ accusative) + dans mkV3 : V -> Prep -> V3 = dirV3 ; -- placer (+ accusative) + dans
mkV3 : V -> Prep -> Prep -> V3 = mmkV3 -- parler + dative + genitive mkV3 : V -> Prep -> Prep -> V3 = mmkV3 -- parler + dative + genitive

4
src/portuguese/StructuralPor.gf
View File

@@ -145,8 +145,8 @@ concrete StructuralPor of Structural = CatPor **
when_Subj = ss "quando" ** {m = Indic} ; when_Subj = ss "quando" ** {m = Indic} ;
where_IAdv = ss "onde" ; where_IAdv = ss "onde" ;
which_IQuant = {s = table { which_IQuant = {s = table {
Sg => \\g,c => prepCase c ++ "que" ; --- qual Sg => \\g,c => prepCase c ++ "qual" ; --- que
Pl => \\g,c => prepCase c ++ "que" Pl => \\g,c => prepCase c ++ "quais"
} }
} ; } ;
whoPl_IP = {s = \\c => prepCase c ++ "quem" ; a = aagr Masc Pl} ; whoPl_IP = {s = \\c => prepCase c ++ "quem" ; a = aagr Masc Pl} ;