esto/isto in Spanish/Portuguese

This commit is contained in:
Krasimir Angelov
2023-10-16 16:20:42 +02:00
parent da608c2084
commit 17da1893d7
16 changed files with 168 additions and 42 deletions

View File

@@ -28,11 +28,12 @@ oper
in lin Quant {
s = \\b => questo ;
sp = questo ;
spn= \\c => prepCase c ++ s ;
s2 = [] ;
isNeg = False
} ;
-- Inflects for number and gender
mkQuant : Str -> Str -> Str -> Str -> Quant = \tutto,tutta,tutti,tutte ->
mkQuant : Str -> Str -> Str -> Str -> Str -> Quant = \tutto,tutta,tutti,tutte,esto ->
let
questo : Number => Gender => Case => Str = table {
Sg => table {
@@ -47,6 +48,7 @@ oper
in lin Quant {
s = \\b => questo ;
sp = questo ;
spn= \\c => prepCase c ++ "esto" ;
s2 = [] ;
isNeg = False
} ;
@@ -56,6 +58,7 @@ oper
-- Does not inflect for number
mkDet : Str -> Number -> Det = \piu,n -> lin Det {
s,sp = \\_,c => prepCase c ++ piu ;
spn = \\c => prepCase c ++ piu ;
n = n ;
s2 = [] ;
isNeg = False
@@ -63,6 +66,7 @@ oper
-- Inflects for number
mkDet : Str -> Str -> Number -> Det = \alcuni,alcune,n -> lin Det {
s,sp = \\g,c => prepCase c ++ genForms alcuni alcune ! g ;
spn = \\c => prepCase c ++ alcuni ;
n = n ;
s2 = [] ;
isNeg = False