GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-01 23:32:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

spanish_quantifiers_bugfixes

Browse Source
This commit is contained in:
inari.listenmaa
2012-10-19 10:57:07 +00:00
parent bbfeb933e4
commit 072d62c2a2
4 changed files with 88 additions and 118 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
lib/src/spanish/ParadigmsSpa.gf
View File

@@ -172,15 +172,6 @@ oper
mkA2 : A -> Prep -> A2 ; -- e.g. "casado" + dative
-- Quantifiers
mkQuant : (ese,esa,esos,esas : Str) -> Quant ;
mkDet : (mucho,mucha : Str) -> Number -> Det ;
mkOrd : A -> Ord ;
--2 Adverbs
-- Adverbs are not inflected. Most lexical ones have position
@@ -355,36 +346,6 @@ oper
mkAdA x = ss x ** {lock_AdA = <>} ;
mkAdN x = ss x ** {lock_AdN = <>} ;
mkOrd adj = lin Ord {
s = \\ag => adj.s ! Posit ! AF ag.g ag.n ;
} ;
mkQuant ese esa esos esas =
let
se : Str = Predef.drop 1 ese ;
sa : Str = Predef.drop 1 esa ;
sos : Str = Predef.drop 1 esos ;
sas : Str = Predef.drop 1 esas ;
E : Str = "é" ;
attrforms : Number => Gender => Case => Str = table {
Sg => \\g,c => prepCase c ++ genForms ese esa ! g ;
Pl => \\g,c => prepCase c ++ genForms esos esas ! g ----
} ;
npforms : Number => Gender => Case => Str = table {
Sg => \\g,c => prepCase c ++ genForms (E + se) (E + sa) ! g ;
Pl => \\g,c => prepCase c ++ genForms (E + sos) (E + sas) ! g }
in lin Quant {
s = \\_ => attrforms ;
s2 = [] ;
sp = npforms ; isNeg = False
} ;
mkDet mucho mucha number =
lin Det {
s,sp = \\g,c => prepCase c ++ genForms mucho mucha ! g ;
n = number;
s2 = [] ; isNeg = False
} ;
regV x = -- cortar actuar cazar guiar pagar sacar
let