mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-23 03:32:51 -06:00
missing AdvS in Rus added
This commit is contained in:
@@ -12,7 +12,9 @@ GFC=$(GFCC) -src
|
|||||||
|
|
||||||
# comment the first and uncomment the second in Windows
|
# comment the first and uncomment the second in Windows
|
||||||
GFCP=$(GFC) -preproc=./mkPresent
|
GFCP=$(GFC) -preproc=./mkPresent
|
||||||
|
|
||||||
GFCCP=$(GFCC) -preproc=./mkPresent
|
GFCCP=$(GFCC) -preproc=./mkPresent
|
||||||
|
|
||||||
#GFCP=$(GFC) -preproc=mkPresent
|
#GFCP=$(GFC) -preproc=mkPresent
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@@ -82,6 +82,9 @@ concrete SentenceRus of Sentence = CatRus ** open Prelude, ResRus in {
|
|||||||
_ => qcl.s!p.p! ClIndic (getTense t.t) a.a }};
|
_ => qcl.s!p.p! ClIndic (getTense t.t) a.a }};
|
||||||
|
|
||||||
UseRCl t a p rcl ={s = \\gn,c,anim => case t.t of {
|
UseRCl t a p rcl ={s = \\gn,c,anim => case t.t of {
|
||||||
|
Cond => [", "] ++ rcl.s! p.p ! ClCondit ! gn !c !anim ;
|
||||||
|
_ => [", "] ++ rcl.s! p.p ! ClIndic (getTense t.t) a.a !gn !c !anim}};
|
||||||
|
|
||||||
AdvS a s = {s = a.s ++ "," ++ s.s} ; ---- AR 19/6/2007
|
AdvS a s = {s = a.s ++ "," ++ s.s} ; ---- AR 19/6/2007
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user