mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-19 08:02:51 -06:00
fixed many things in ParseChi
This commit is contained in:
@@ -34,13 +34,16 @@ concrete SentenceChi of Sentence = CatChi **
|
||||
EmbedQS qs = qs ;
|
||||
EmbedVP vp = ss (infVP vp) ;
|
||||
|
||||
UseCl t p cl = {s = cl.s ! p.p ! t.t} ;
|
||||
UseQCl t p cl = {s = cl.s ! p.p ! t.t} ;
|
||||
UseRCl t p cl = {s = cl.s ! p.p ! t.t} ;
|
||||
UseSlash t p cl = {s = cl.s ! p.p ! t.t ; c2 = cl.c2} ;
|
||||
UseCl t p cl = {s = t.s ++ p.s ++ cl.s ! p.p ! t.t} ;
|
||||
UseQCl t p cl = {s = t.s ++ p.s ++ cl.s ! p.p ! t.t} ;
|
||||
UseRCl t p cl = {s = t.s ++ p.s ++ cl.s ! p.p ! t.t} ;
|
||||
UseSlash t p cl = {s = t.s ++ p.s ++ cl.s ! p.p ! t.t ; c2 = cl.c2} ;
|
||||
|
||||
AdvS a s = ss (a.s ++ s.s) ;
|
||||
ExtAdvS a s = ss (a.s ++ chcomma ++ s.s) ;
|
||||
|
||||
RelS s r = ss (s.s ++ r.s) ;
|
||||
|
||||
SSubjS a subj b = ss (a.s ++ subj.prePart ++ b.s ++ subj.sufPart) ;
|
||||
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user