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

@@ -539,6 +539,19 @@ resource ResBul = ParamX ** open Prelude in {
} }
} ; } ;
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}; Preposition : Type = {s : Str; c : Case};
mkQuestion : mkQuestion :

View File

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