mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-23 03:32:51 -06:00
english infVP bugfixed ; LangRus made compilable
This commit is contained in:
@@ -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 ->
|
||||||
|
|||||||
@@ -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 ;
|
||||||
|
|||||||
Reference in New Issue
Block a user