GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-16 18:40:14 -06:00
Code Issues Packages Projects Releases Wiki Activity

esto/isto in Spanish/Portuguese

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

28
src/french/ExtendFre.gf
View File

@@ -61,4 +61,32 @@ lin ApposNP np1 np2 = np1 ** { -- guessed by KA
lin CompoundN a b = lin N {s = \\n => b.s ! n ++ a.s ! Sg ; g = b.g} ; -- connessione internet = internet connection
lin UseDAP = \dap ->
let
g = Masc ;
n = dap.n
in heavyNPpol dap.isNeg {
s = dap.spn ;
a = agrP3 g n ;
hasClit = False
} ;
UseDAPMasc = \dap ->
let
g = Masc ;
n = dap.n
in heavyNPpol dap.isNeg {
s = dap.sp ! g ;
a = agrP3 g n ;
hasClit = False
} ;
UseDAPFem dap =
let
g = Fem ;
n = dap.n
in heavyNPpol dap.isNeg {
s = dap.sp ! g ;
a = agrP3 g n ;
hasClit = False
} ;
}

4
src/french/ExtraFre.gf
View File

@@ -74,8 +74,8 @@ concrete ExtraFre of ExtraFreAbs = ExtraRomanceFre **
lin
tout_Det = {
s = \\g,c => prepCase c ++ genForms "tout" "toute" ! g ;
sp = \\g,c => prepCase c ++ genForms "tout" "toute" ! g ;
s,sp = \\g,c => prepCase c ++ genForms "tout" "toute" ! g ;
spn= \\c => prepCase c ++ "tout" ;
n = Sg ;
s2 = [] ;
isNeg = False

11
src/french/MakeStructuralFre.gf
View File

@@ -23,6 +23,7 @@ oper
in lin Quant {
s = \\_ => aucun ;
sp = aucun ;
spn= \\c => prepCase c ++ sm ;
s2 = [] ;
isNeg = False
} ;
@@ -38,9 +39,15 @@ oper
mkInterj : Str -> Interj = \s -> lin Interj (ss s) ;
mkDet = overload {
mkDet : Str -> Det = \s -> lin Det {s,sp = \\_,c => prepCase c ++ s ; n = Sg ; s2 = [] ; isNeg = False} ;
mkDet : Str -> Det = \s -> lin Det {
s,sp = \\_,c => prepCase c ++ s ;
spn = \\c => prepCase c ++ s ;
n = Sg ; s2 = [] ; isNeg = False
} ;
mkDet : Str -> Str -> Number -> Det = \m,f,n -> lin Det {
s,sp = \\g,c => prepCase c ++ case g of {Masc => m ; Fem => f} ; n = n ; s2 = [] ; isNeg = False
s,sp = \\g,c => prepCase c ++ case g of {Masc => m ; Fem => f} ;
spn = \\c => prepCase c ++ m ;
n = n ; s2 = [] ; isNeg = False
} ;
} ;

30
src/french/StructuralFre.gf
View File

@@ -36,13 +36,17 @@ lin
every_Det = {
s = \\_,c => prepCase c ++ "chaque" ;
sp = \\g,c => prepCase c ++ genForms "chacun" "chacune" ! g ;
n = Sg ;
spn= \\c => prepCase c ++ "tout" ;
n = Sg ;
s2 = [] ;
isNeg = False
} ;
everything_NP = pn2np (mkPN ["tout"] Masc) ;
everywhere_Adv = ss "partout" ;
few_Det = {s,sp = \\g,c => prepCase c ++ "peu" ++ elisDe ; n = Pl ; s2 = [] ; isNeg = False} ;
few_Det = {
s,sp = \\g,c => prepCase c ++ "peu" ++ elisDe ;
spn = \\c => prepCase c ++ "peu" ++ elisDe ;
n = Pl ; s2 = [] ; isNeg = False} ;
--- DEPREC first_Ord = {s = \\ag => (regA "premier").s ! Posit ! AF ag.g ag.n} ;
for_Prep = mkPreposition "pour" ;
from_Prep = complGen ; ---
@@ -68,10 +72,15 @@ lin
"il" (elision "l") "lui" "lui" "son" (elisPoss "s") "ses"
Masc Sg P3 ;
less_CAdv = X.mkCAdv "moins" conjThan ;
many_Det = {s,sp = \\_,c => prepCase c ++ "plusieurs" ; n = Pl ; s2 = [] ; isNeg = False} ;
many_Det = {
s,sp = \\_,c => prepCase c ++ "plusieurs" ;
spn = \\c => prepCase c ++ "plusieurs" ;
n = Pl ; s2 = [] ; isNeg = False} ;
more_CAdv = X.mkCAdv "plus" conjThan ;
most_Predet = {s = \\_,c => prepCase c ++ ["la plupart"] ; c = CPrep P_de ; a = PNoAg} ;
much_Det = {s,sp = \\_,c => prepCase c ++ "beaucoup" ++ elisDe ; n = Pl ; s2 = [] ; isNeg = False} ;
much_Det = {s,sp = \\_,c => prepCase c ++ "beaucoup" ++ elisDe ;
spn = \\c => prepCase c ++ "beaucoup" ++ elisDe ;
n = Pl ; s2 = [] ; isNeg = False} ;
must_VV = mkVV (devoir_V2 ** {lock_V = <>}) ;
---b no_Phr = ss "non" ;
no_Utt = ss "non" ;
@@ -91,8 +100,14 @@ lin
so_AdA = ss "si" ;
somebody_NP = pn2np (mkPN ["quelqu'un"] Masc) ;
somePl_Det = {s,sp = \\_,c => prepCase c ++ "quelques" ; n = Pl ; s2 = [] ; isNeg = False} ; ---- sp
someSg_Det = {s,sp = \\_,c => prepCase c ++ "quelque" ; n = Sg ; s2 = [] ; isNeg = False} ; ----sp
somePl_Det = {
s,sp = \\_,c => prepCase c ++ "quelques" ;
spn = \\c => prepCase c ++ "quelque chose" ;
n = Pl ; s2 = [] ; isNeg = False} ; ---- sp
someSg_Det = {
s,sp = \\_,c => prepCase c ++ "quelque" ;
spn = \\c => prepCase c ++ "quelque chose" ;
n = Sg ; s2 = [] ; isNeg = False} ; ----sp
something_NP = pn2np (mkPN ["quelque chose"] Masc) ;
somewhere_Adv = ss ["quelque part"] ; --- ne - pas
@@ -106,6 +121,7 @@ lin
Sg => \\g,c => prepCase c ++ genForms "celui-là" "celle-là" ! g ;
Pl => \\g,c => prepCase c ++ genForms "ceux-là" "celles-là" ! g
} ;
spn= \\c => prepCase c ++ "celui-là" ;
s2 = [] ; ---- "-là" ;
isNeg = False
} ;
@@ -130,6 +146,7 @@ lin
Sg => \\g,c => prepCase c ++ genForms "celui-ci" "celle-ci" ! g ;
Pl => \\g,c => prepCase c ++ genForms "ceux-ci" "celles-ci" ! g
} ;
spn= \\c => prepCase c ++ "cela" ;
s2 = [] ; ---- "-ci"
isNeg = False
} ;
@@ -188,6 +205,7 @@ lin
in {
s = \\_ => aucun ;
sp = aucun ;
spn= aucun ! Sg ! Masc ;
s2 = [] ;
isNeg = True
} ;