GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-08 02:32:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

fixed many things in ParseChi

Browse Source
This commit is contained in:
aarne
2013-09-27 03:45:02 +00:00
parent 6c28e9743d
commit 9ce07e699f
7 changed files with 47 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
lib/src/chinese/ExtraChi.gf
View File

@@ -1,10 +1,32 @@
concrete ExtraChi of ExtraChiAbs = CatChi **
open ResChi, Prelude in {
open ResChi, Coordination, Prelude in {
lincat
Aspect = {s : Str ; a : ResChi.Aspect} ;
VPS = {s : Str} ;
[VPS] = {s1,s2 : Str} ;
VPI = {s : Str} ; --- ???
[VPI] = {s1,s2 : Str} ; --- ???
[CN] = {s : Str ; c : Str} ;
lin
PassVPSlash vps = insertAdv (mkNP passive_s) vps ;
MkVPS t p vp = {s = t.s ++ p.s ++ (mkClause [] vp).s ! p.p ! t.t} ;
ConjVPS c = conjunctDistrSS (c.s ! CSent) ;
BaseVPS = twoSS ;
ConsVPS = consrSS duncomma ;
MkVPI vp = {s = (mkClause [] vp).s ! Pos ! APlain} ; --- ?? almost just a copy of VPS
ConjVPI c = conjunctDistrSS (c.s ! CSent) ;
BaseVPI = twoSS ;
ConsVPI = consrSS duncomma ;
ConjCN c = conjunctDistrSS (c.s ! CPhr CNPhrase) ** {c = ge_s} ; --- classifier always ge
BaseCN = twoSS ;
ConsCN = consrSS duncomma ;
GenRP nu cn = {s = cn.s ++ relative_s} ; ---- ??
}