msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

updated Ina so that API compiles

Browse Source
This commit is contained in:
aarne
2010-12-14 09:52:39 +00:00
parent 8a0b3b8ba8
commit 473c986274
9 changed files with 48 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
lib/src/interlingua/StructuralIna.gf
View File

@@ -4,8 +4,8 @@ concrete StructuralIna of Structural = CatIna **
flags optimize=all ;
oper
mkPrep = P.mkPrep;
pp : Str -> Prep = \s-> mkPrep s Acc;
--- mkPrep = P.mkPrep;
pp : Str -> Prep = \s-> P.mkPrep s Acc;
lin
above_Prep = pp "supra";
after_Prep = pp "post" ;
@@ -36,7 +36,7 @@ concrete StructuralIna of Structural = CatIna **
he_Pron = mkPron "ille" "le" "su" Sp3;
here_Adv = ss "hic" ;
here7to_Adv = ss "hac" ;
here7from_Adv = mkPrep ["de ci"] Dat;
here7from_Adv = P.mkPrep ["de ci"] Dat;
how_IAdv = ss "como" ;
how8many_IDet = mkIDeterminer Pl ["quante"] ;
if_Subj = ss "ii" ;
@@ -51,13 +51,13 @@ concrete StructuralIna of Structural = CatIna **
much_Det = mkDeterminer Sg "tanto" ;
must_VV = P.regV "deber";
no_Utt = ss "no" ;
on_Prep = mkPrep "super" Acc;
on_Prep = P.mkPrep "super" Acc;
only_Predet = ss "unic" ;
or_Conj = {s1 = [] ; s2 = "o" ; n = Sg} ;
otherwise_PConj = ss "alias" ;
part_Prep = mkPrep [] Abl; -- de ...
part_Prep = P.mkPrep [] Abl; -- de ...
please_Voc = ss ("per"++"favor") ;
possess_Prep = mkPrep [] Gen; -- the possesive preposition can not generate clitics, and fuses with the definite determiner "le". Pronoun form: "mie", "sue", etc.
possess_Prep = P.mkPrep [] Gen; -- the possesive preposition can not generate clitics, and fuses with the definite determiner "le". Pronoun form: "mie", "sue", etc.
quite_Adv = ss "assi" ;
she_Pron = mkPron "illa" "la" "su" Sp3;
so_AdA = ss "tam" ;
@@ -66,7 +66,7 @@ concrete StructuralIna of Structural = CatIna **
somePl_Det = mkDeterminer Pl (variants {"alicun"; "alcun"});
something_NP = regNP ("alcun"++"cosa") ; -- very many variants
somewhere_Adv = ss "alicubi" ; -- variants
that_Quant = mkQuant "ille" "ille" ;
that_Quant = mkQuantf "ille" "ille" ;
-- that_NP = regNP "illo" ; -- Also exsits gender variants!
there_Adv = ss "ibi"; -- la
there7to_Adv = ss "ibi" ;
@@ -74,12 +74,12 @@ concrete StructuralIna of Structural = CatIna **
therefore_PConj = ss "ergo" ;
-- these_NP = regNP "istes" ;
they_Pron = mkPron "illos" "los" "lor" Pp3;
this_Quant = mkQuant "iste" "istes" ;
this_Quant = mkQuantf "iste" "istes" ;
-- this_NP = regNP "isto" ;
-- those_NP = regNP "illos" ; -- Also exsits gender variants!
through_Prep = mkPrep "per" Acc;
through_Prep = P.mkPrep "per" Acc;
too_AdA = ss "alsi" ;
to_Prep = mkPrep "" Dat;
to_Prep = P.mkPrep "" Dat;
under_Prep = pp "infra" ;
very_AdA = ss "multo" ;
want_VV = P.regV "want" ;
@@ -97,8 +97,8 @@ concrete StructuralIna of Structural = CatIna **
whoSg_IP = mkIP "qui" Sg ;
whoPl_IP = mkIP "qui" Pl ;
why_IAdv = ss "proque" ;
without_Prep = mkPrep "sin" Acc;
with_Prep = mkPrep "con" Acc ;
without_Prep = P.mkPrep "sin" Acc;
with_Prep = P.mkPrep "con" Acc ;
yes_Utt = ss "itaque" ; -- ita?
youSg_Pron = mkPron "tu" "te" "tu" Sp2;
youPl_Pron = mkPron "vos" "vos" "vostre" Pp2;
@@ -107,7 +107,7 @@ concrete StructuralIna of Structural = CatIna **
-- have_V2 = dirV2 (R.haberV ** {lock_V = <>});
oper
mkQuant : Str -> Str -> {s : Number => Case => Str} = \x,y -> {
mkQuantf : Str -> Str -> {s : Number => Case => Str} = \x,y -> {
s = \\n,c=> case n of {
Sg => x;
Pl => y