mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 04:59:31 -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) ;
|
||||
|
||||
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 ->
|
||||
|
||||
@@ -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 ;
|
||||
|
||||
Reference in New Issue
Block a user