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

added an mkA case to Por

Browse Source
This commit is contained in:
Aarne Ranta
2018-05-05 10:28:15 +02:00
parent 6a49144f00
commit b8b67e8585
1 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/portuguese/ParadigmsPor.gf
View File

@@ -225,10 +225,12 @@ oper
-- For regular adjectives, all forms are derived from the masculine -- For regular adjectives, all forms are derived from the masculine
-- singular. The types of adjectives that are recognized are "alto", -- singular. The types of adjectives that are recognized are "alto",
-- "fuerte", "util". Comparison is formed by "mas". -- "fuerte", "util". Comparison is formed by "mas".
mkA : (bobo : Str) -> A = regA ; -- predictable adjective mkA : (bobo : Str) -> A
= regA ; -- predictable adjective
-- Some adjectives need the feminine form separately. -- Some adjectives need the feminine form separately.
mkA : (espanhol,espanhola : Str) -> A = mk2A ; mkA : (espanhol,espanhola : Str) -> A
= mk2A ;
-- One-place adjectives compared with "mais" need five forms in the -- One-place adjectives compared with "mais" need five forms in the
-- worst case (masc and fem singular, masc plural, adverbial). -- worst case (masc and fem singular, masc plural, adverbial).
@@ -237,7 +239,11 @@ oper
-- In the worst case, two separate adjectives are given: the positive -- In the worst case, two separate adjectives are given: the positive
-- ("bueno"), and the comparative ("mejor"). -- ("bueno"), and the comparative ("mejor").
-- special comparison with "mais" as default -- special comparison with "mais" as default
mkA : (bom : A) -> (melhor : A) -> A = mkADeg ; mkA : (bom : A) -> (melhor : A) -> A
= mkADeg ;
mkA : (blanco : A) -> (hueso : Str) -> A -- noninflecting component after the adjective
= \blanco,hueso -> blanco ** {s = \\x,y => blanco.s ! x ! y ++ hueso } ;
} ; } ;
-- The functions above create postfix adjectives. To switch them to -- The functions above create postfix adjectives. To switch them to