some NP constants

This commit is contained in:
krasimir
2008-02-27 14:09:44 +00:00
parent b799e7a41b
commit 5960838e98
2 changed files with 21 additions and 16 deletions

View File

@@ -538,6 +538,19 @@ resource ResBul = ParamX ** open Prelude in {
p = p
}
} ;
mkNP : Str -> GenNum -> Person -> {s : Role => Str; a : Agr} =
\s,gn,p -> {
s = table {
RSubj => s ;
RObj Acc => s ;
RObj Dat => "íà" ++ s
} ;
a = {
gn = gn ;
p = p
}
} ;
Preposition : Type = {s : Str; c : Case};

View File

@@ -39,12 +39,10 @@ concrete StructuralBul of Structural = CatBul **
during_Prep = mkPrep ["ïî âðåìå íà"] Acc ;
{-
either7or_DConj = sd2 "either" "or" ** {n = Sg} ;
everybody_NP = regNP "everybody" Sg ;
-}
everybody_NP = mkNP "âñåêè" (GSg Masc) P3 ;
every_Det = mkDeterminerSg "âñåêè" "âñÿêà" "âñÿêî";
{-
everything_NP = regNP "everything" Sg ;
-}
everything_NP = mkNP "âñÿêî" (GSg Neut) P3 ;
everywhere_Adv = ss "íàâñÿêúäå" ;
few_Det = {s = \\_,_ => "íÿêîëêî"; n = Pl; countable = True; spec = Indef} ;
--- first_Ord = ss "first" ; DEPRECATED
@@ -98,30 +96,24 @@ concrete StructuralBul of Structural = CatBul **
quite_Adv = ss "äîñòà" ;
she_Pron = mkPron "òÿ" "íåÿ" "è" "íåèí" "íåéíèÿ" "íåéíèÿò" "íåéíà" "íåéíàòà" "íåéíî" "íåéíîòî" "íåéíè" "íåéíèòå" (GSg Fem) P3 ;
so_AdA = ss "òîëêîâà" ;
{-
somebody_NP = regNP "somebody" Sg ;
somebody_NP = mkNP "íÿêîé" (GSg Masc) P3 ;
someSg_Det = mkDeterminerSg "íÿêîé" "íÿêîå" "íÿêîÿ" ;
somePl_Det = mkDeterminerPl "íÿêîè" ;
something_NP = regNP "something" Sg ;
-}
something_NP = mkNP "íåùî" (GSg Neut) P3 ;
somewhere_Adv = ss "íÿêúäå" ;
that_Quant = mkQuant "îíçè" "îíàçè" "îíîâà" "îíåçè" ;
{-
that_NP = regNP "that" Sg ;
-}
that_NP = mkNP "òîâà" (GSg Neut) P3 ;
there_Adv = ss "òàì" ;
there7to_Adv = ss ["äî òàì"] ;
there7from_Adv = ss ["îò òàì"] ;
{-
therefore_PConj = ss "therefore" ;
these_NP = regNP "these" Pl ;
-}
these_NP = mkNP "òåçè" GPl P3 ;
they_Pron = mkPron "òå" "òÿõ" "èì" "òåõåí" "òåõíèÿ" "òåõíèÿò" "òÿõíà" "òÿõíàòà" "òÿõíî" "òÿõíîòî" "òåõíè" "òåõíèòå" GPl P3 ;
this_Quant = mkQuant "òîçè" "òaçè" "òîâà" "òåçè" ;
{-
this_NP = regNP "this" Sg ;
those_NP = regNP "those" Pl ;
-}
this_NP = mkNP "òîçè" (GSg Masc) P3 ;
those_NP = mkNP "òåçè" GPl P3 ;
through_Prep = mkPrep "ïðåç" Acc ;
too_AdA = ss "ïðåêàëåíî" ;
to_Prep = mkPrep "äî" Acc ;