english infVP bugfixed ; LangRus made compilable

This commit is contained in:
aarne
2006-05-08 16:57:24 +00:00
parent 952fce5499
commit 660644fcf5
2 changed files with 15 additions and 15 deletions

View File

@@ -293,7 +293,7 @@ resource ResEng = ParamX ** open Prelude in {
agrVerb (verb.s ! VPres) (verb.s ! VInf) ; agrVerb (verb.s ! VPres) (verb.s ! VInf) ;
infVP : Bool -> VP -> Agr -> Str = \isAux,vp,a -> infVP : Bool -> VP -> Agr -> Str = \isAux,vp,a ->
if_then_Str isAux [] "to" ++ vp.ad ++ if_then_Str isAux [] "to" ++
vp.inf ++ vp.s2 ! a ; vp.inf ++ vp.s2 ! a ;
agrVerb : Str -> Str -> Agr -> Str = \has,have,agr -> agrVerb : Str -> Str -> Agr -> Str = \has,have,agr ->

View File

@@ -2,20 +2,20 @@
concrete LangRus of Lang = concrete LangRus of Lang =
NounRus, -- NounRus,
VerbRus, -- VerbRus,
AdjectiveRus, -- AdjectiveRus,
AdverbRus, -- AdverbRus,
NumeralRus, -- NumeralRus,
SentenceRus, -- SentenceRus,
QuestionRus, -- QuestionRus,
RelativeRus, -- RelativeRus,
ConjunctionRus, -- ConjunctionRus,
PhraseRus, -- PhraseRus,
TextX, -- TextX,
StructuralRus, -- StructuralRus,
IdiomRus, -- IdiomRus,
LexiconRus -- LexiconRus
** { ** {
flags startcat = Phr ; unlexer = text ; lexer = text ; flags startcat = Phr ; unlexer = text ; lexer = text ;