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
src/portuguese/ConstructionPor.gf
+3 -2
View File
@@ -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í ----