GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-24 02:12:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

adjustments and clean-up in resource

Browse Source
This commit is contained in:
aarne
2006-02-26 18:43:13 +00:00
parent f1ffa2f17d
commit 4a21c9b6e2
27 changed files with 84 additions and 70 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lib/resource-1.0/spanish/DiffSpa.gf
View File

@@ -6,7 +6,6 @@ instance DiffSpa of DiffRomance = open CommonRomance, PhonoSpa, BeschSpa, Prelud
param
Prep = P_de | P_a ;
NPForm = Ton Case | Aton Case | Poss {g : Gender ; n : Number} ; --- AAgr
VType = VHabere | VRefl ;
oper
@@ -37,6 +36,8 @@ instance DiffSpa of DiffRomance = open CommonRomance, PhonoSpa, BeschSpa, Prelud
_ => prepCase c ++ genForms "unos" "unas" ! g
} ;
possCase = \_,_,c -> prepCase c ;
partitive = \g,c -> case c of {
CPrep P_de => "de" ;
_ => prepCase c ++ artDef g Sg (CPrep P_de)

2
lib/resource-1.0/spanish/NumeralSpa.gf
View File

@@ -16,7 +16,7 @@ lincat Sub1000000 = {s : Gender => Str ; n : Number} ;
lin num x = {
s = table {
NCard g => x.s ! g ;
NOrd _ _ => "número" ++ x.s ! Masc ---- TODO
NOrd _ _ => "número" ++ x.s ! Masc ---- TODO
}
} ;
lin n2 =

4
lib/resource-1.0/spanish/StructuralSpa.gf
View File

@@ -85,7 +85,7 @@ lin
something_NP = pn2np (mkPN ["algo"] Masc) ;
somewhere_Adv = ss ["en ninguna parte"] ;
that_Quant = {
s = table {
s = \\_ => table {
Sg => \\g,c => prepCase c ++ genForms "ese" "esa" ! g ;
Pl => \\g,c => prepCase c ++ genForms "esos" "esas" ! g
}
@@ -101,7 +101,7 @@ lin
"su" "su" "sus" "sus"
Fem Pl P3 ;
this_Quant = {
s = table {
s = \\_ => table {
Sg => \\g,c => prepCase c ++ genForms "este" "esta" ! g ;
Pl => \\g,c => prepCase c ++ genForms "estos" "estas" ! g
}