summaryrefslogtreecommitdiff
path: root/old-lib/resource/spanish/StructuralSpa.gf
diff options
context:
space:
mode:
authoraarne <aarne@chalmers.se>2009-12-09 09:47:16 +0000
committeraarne <aarne@chalmers.se>2009-12-09 09:47:16 +0000
commitc8ceed08efcc0bdc1fcbd89bce643d9f52f0991b (patch)
tree5f0b314341c129eba1bc67b8b887fb8a4486fad8 /old-lib/resource/spanish/StructuralSpa.gf
parent101df06f6c8380328d4266adadac3ab6d1bac0b3 (diff)
moving a few things to deprecated
Diffstat (limited to 'old-lib/resource/spanish/StructuralSpa.gf')
-rw-r--r--old-lib/resource/spanish/StructuralSpa.gf159
1 files changed, 0 insertions, 159 deletions
diff --git a/old-lib/resource/spanish/StructuralSpa.gf b/old-lib/resource/spanish/StructuralSpa.gf
deleted file mode 100644
index 0483d6606..000000000
--- a/old-lib/resource/spanish/StructuralSpa.gf
+++ /dev/null
@@ -1,159 +0,0 @@
-concrete StructuralSpa of Structural = CatSpa **
- open PhonoSpa, MorphoSpa, ParadigmsSpa, BeschSpa, Prelude in {
-
- flags optimize=all ;
-
-lin
-
- above_Prep = mkPrep "sobre" ;
- after_Prep = {s = ["despues"] ; c = MorphoSpa.genitive ; isDir = False} ;
- all_Predet = {
- s = \\a,c => prepCase c ++ aagrForms "todo" "toda" "todos" "todas" ! a ;
- c = Nom
- } ;
- almost_AdA, almost_AdN = ss "casi" ;
- always_AdV = ss "siempre" ;
- although_Subj = ss "benché" ** {m = Conjunct} ;
- and_Conj = {s1 = [] ; s2 = "y" ; n = Pl} ;
- because_Subj = ss "porque" ** {m = Indic} ;
- before_Prep = {s = "antes" ; c = MorphoSpa.genitive ; isDir = False} ;
- behind_Prep = {s = "detrás" ; c = MorphoSpa.genitive ; isDir = False} ;
- between_Prep = mkPrep "entre" ;
- both7and_DConj = {s1,s2 = etConj.s ; n = Pl} ;
- but_PConj = ss "pero" ;
- by8agent_Prep = mkPrep "por" ;
- by8means_Prep = mkPrep "por" ;
- can8know_VV = mkVV (verboV (saber_71 "saber")) ;
- can_VV = mkVV (verboV (poder_58 "poder")) ;
- during_Prep = mkPrep "durante" ; ----
- either7or_DConj = {s1,s2 = "o" ; n = Sg} ;
- everybody_NP = makeNP ["todos"] Masc Pl ;
- every_Det = {s = \\_,_ => "cada" ; n = Sg} ;
- everything_NP = pn2np (mkPN ["todo"] Masc) ;
- everywhere_Adv = ss ["en todas partes"] ;
- few_Det = {s = \\g,c => prepCase c ++ genForms "pocos" "pocas" ! g ; n = Pl} ;
---- first_Ord = {s = \\ag => (regA "primero").s ! Posit ! AF ag.g ag.n} ;
- for_Prep = mkPrep "por" ;
- from_Prep = complGen ; ---
- he_Pron =
- mkPronoun
- "el" "lo" "le" "él"
- "su" "su" "sus" "sus"
- Masc Sg P3 ;
- here_Adv = mkAdv "aquí" ; -- acá
- here7to_Adv = mkAdv ["para acá"] ;
- here7from_Adv = mkAdv ["de acá"] ;
- how_IAdv = ss "como" ;
- how8many_IDet =
- {s = \\g,c => prepCase c ++ genForms "cuantos" "cuantas" ! g ; n = Pl} ;
- if_Subj = ss "si" ** {m = Indic} ;
- in8front_Prep = {s = "delante" ; c = MorphoSpa.genitive ; isDir = False} ;
- i_Pron =
- mkPronoun
- "yo" "me" "me" "mí"
- "mi" "mi" "mis" "mis"
- Masc Sg P1 ;
- in_Prep = mkPrep "en" ;
- it_Pron =
- mkPronoun
- "el" "lo" "le" "él"
- "su" "su" "sus" "sus"
- Masc Sg P3 ;
- less_CAdv = ss "meno" ; ----
- many_Det = {s = \\g,c => prepCase c ++ genForms "muchos" "muchas" ! g ; n = Pl} ;
- more_CAdv = ss "mas" ;
- most_Predet = {s = \\_,c => prepCase c ++ ["la mayor parte"] ; c = CPrep P_de} ;
- much_Det = {s = \\g,c => prepCase c ++ genForms "mucho" "mucha" ! g ; n = Sg} ;
- must_VV = mkVV (verboV (deber_6 "deber")) ;
- no_Utt = ss "no" ;
- on_Prep = mkPrep "sobre" ;
---- one_Quant = {s = \\g,c => prepCase c ++ genForms "uno" "una" ! g} ;
- only_Predet = {s = \\_,c => prepCase c ++ "solamente" ; c = Nom} ;
- or_Conj = {s1 = [] ; s2 = "o" ; n = Sg} ;
- otherwise_PConj = ss "otramente" ;
- part_Prep = complGen ;
- please_Voc = ss ["por favor"] ;
- possess_Prep = complGen ;
- quite_Adv = ss "bastante" ;
- she_Pron =
- mkPronoun
- "ella" "la" "le" "ella"
- "su" "su" "sus" "sus"
- Fem Sg P3 ;
- so_AdA = ss "tanto" ;
- somebody_NP = pn2np (mkPN ["algún"] Masc) ;
- somePl_Det = {s = \\g,c => prepCase c ++ genForms "algunos" "algunas" ! g ; n = Pl} ;
- someSg_Det = {s = \\g,c => prepCase c ++ genForms "algun" "alguna" ! g ; n = Sg} ;
- something_NP = pn2np (mkPN ["algo"] Masc) ;
- somewhere_Adv = ss ["en ninguna parte"] ;
- that_Quant = {
- s = table {
- Sg => \\g,c => prepCase c ++ genForms "ese" "esa" ! g ;
- Pl => \\g,c => prepCase c ++ genForms "esos" "esas" ! g
- }
- } ;
- there_Adv = mkAdv "allí" ; -- allá
- there7to_Adv = mkAdv ["para allá"] ;
- there7from_Adv = mkAdv ["de allá"] ;
- therefore_PConj = ss ["por eso"] ;
- they_Pron = mkPronoun
- "ellos" "los" "les" "ellos"
- "su" "su" "sus" "sus"
- Masc Pl P3 ;
- this_Quant = {
- s = table {
- Sg => \\g,c => prepCase c ++ genForms "este" "esta" ! g ;
- Pl => \\g,c => prepCase c ++ genForms "estos" "estas" ! g
- }
- } ;
- through_Prep = mkPrep "por" ;
- too_AdA = ss "demasiado" ;
- to_Prep = complDat ;
- under_Prep = mkPrep "bajo" ;
- very_AdA = ss "muy" ;
- want_VV = mkVV (verboV (querer_64 "querer")) ;
- we_Pron =
- mkPronoun
- "nosotros" "nos" "nos" "nosotros"
- "nuestro" "nuestra" "nuestros" "nuestras"
- Masc Pl P1 ;
- whatSg_IP = {s = \\c => prepCase c ++ ["qué"] ; a = aagr Masc Sg} ;
- whatPl_IP = {s = \\c => prepCase c ++ ["qué"] ; a = aagr Masc Pl} ; ---
- when_IAdv = ss "cuando" ;
- when_Subj = ss "cuando" ** {m = Indic} ;
- where_IAdv = ss "donde" ;
- which_IQuant = {s = table {
- Sg => \\g,c => prepCase c ++ "qué" ; --- cual
- Pl => \\g,c => prepCase c ++ "qué"
- }
- } ;
- whoPl_IP = {s = \\c => prepCase c ++ "quién" ; a = aagr Masc Pl} ;
- whoSg_IP = {s = \\c => prepCase c ++ "quién" ; a = aagr Masc Sg} ;
- why_IAdv = ss "porqué" ;
- without_Prep = mkPrep "sin" ;
- with_Prep = mkPrep "con" ;
- yes_Utt = ss "sí" ;
- youSg_Pron = mkPronoun
- "tu" "te" "te" "tí"
- "tu" "tu" "tus" "tus"
- Masc Sg P2 ;
- youPl_Pron =
- mkPronoun
- "vosotros" "vos" "vos" "vosotros"
- "vuestro" "vuestra" "vuestros" "vuestras"
- Masc Pl P2 ;
- youPol_Pron =
- mkPronoun
- "usted" "la" "le" "usted"
- "su" "su" "sus" "sus"
- Masc Sg P3 ;
-
-oper
- etConj : {s : Str ; n : MorphoSpa.Number} = {s = pre {
- "y" ;
- "y" / strs {"ya" ; "ye" ; "yo" ; "yu"} ;
- "e" / strs {"i" ; "hi" ; "y"}
- }} ** {n = Pl} ;
-
-}
-