1
0
forked from GitHub/gf-core

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) ;
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 ;
agrVerb : Str -> Str -> Agr -> Str = \has,have,agr ->

View File

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