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

some missing Chi functions

Browse Source
This commit is contained in:
aarne
2014-12-08 13:14:47 +00:00
parent 307d5a78fb
commit 6067bc4932
3 changed files with 16 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/src/chinese/VerbChi.gf
View File

@@ -42,7 +42,13 @@ concrete VerbChi of Verb = CatChi ** open ResChi, Prelude in {
insertObj np insertObj np
(insertObj (mkNP (infVP vp)) (predV v v.part)) ** {c2 = vp.c2 ; isPre = vp.isPre} ; (insertObj (mkNP (infVP vp)) (predV v v.part)) ** {c2 = vp.c2 ; isPre = vp.isPre} ;
ExtAdvVP, AdvVP = \vp,adv -> case adv.advType of { ---- ExtAdvVP also ? AdvVP vp adv = case adv.advType of {
ATManner => insertObj (ss (deVAdv_s ++ adv.s)) vp ; -- he sleeps *well*
ATPlace True => insertAdvPost adv vp ; -- he today *in the house* sleeps
ATPlace False => insertAdvPost (ss (zai_V.s ++ adv.s)) vp ; -- he today *here* sleeps
ATTime | ATPoss => insertTopic adv vp -- *today* he here sleeps
} ;
ExtAdvVP vp adv = case adv.advType of { ---- ExtAdvVP also ?
ATManner => insertObj (ss (deVAdv_s ++ adv.s)) vp ; -- he sleeps *well* ATManner => insertObj (ss (deVAdv_s ++ adv.s)) vp ; -- he sleeps *well*
ATPlace True => insertAdvPost adv vp ; -- he today *in the house* sleeps ATPlace True => insertAdvPost adv vp ; -- he today *in the house* sleeps
ATPlace False => insertAdvPost (ss (zai_V.s ++ adv.s)) vp ; -- he today *here* sleeps ATPlace False => insertAdvPost (ss (zai_V.s ++ adv.s)) vp ; -- he today *here* sleeps

6
lib/src/translator/ExtensionsChi.gf
View File

@@ -61,12 +61,6 @@ lin
advType = ATManner ; advType = ATManner ;
} ; } ;
GerundAP v = {
s = v.s ++ de_s ; ----
monoSyl = False ;
hasAdA = True ; ---
} ;
PastPartAP v = { PastPartAP v = {
s = v.verb.s ++ de_s ; ---- s = v.verb.s ++ de_s ; ----
monoSyl = False ; monoSyl = False ;

12
lib/src/translator/TranslateChi.gf
View File

@@ -13,7 +13,7 @@ concrete TranslateChi of Translate =
VerbChi - [ VerbChi - [
UseCopula, -- just removed UseCopula, -- just removed
PassV2, -- generalized PassV2, -- generalized
CompAP, AdvVP -- Chi exceptions CompAP, ExtAdvVP -- Chi exceptions
], ],
AdverbChi, AdverbChi,
PhraseChi, PhraseChi,
@@ -27,7 +27,12 @@ concrete TranslateChi of Translate =
DocumentationChi, DocumentationChi,
ChunkChi, ChunkChi,
ExtensionsChi [CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP], ExtensionsChi [
CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP
, DirectComplVS, DirectComplVQ, FocusObjS
, PastPartAP, PastPartAgentAP, PresPartAP, GerundNP, GerundAdv
, WithoutVP, InOrderToVP, ByVP
],
DictionaryChi ** DictionaryChi **
@@ -43,7 +48,8 @@ flags
lin lin
CompAP = E.CompBareAP | G.CompAP ; -- he good | he is good CompAP = E.CompBareAP | G.CompAP ; -- he good | he is good
AdvVP vp adv = G.AdvVP vp adv | E.TopicAdvVP vp adv ; -- he *today* here sleeps | *today* he here sleeps ExtAdvVP vp adv = G.ExtAdvVP vp adv ;
---- | E.TopicAdvVP vp adv ; -- he *today* here sleeps | *today* he here sleeps
QuestCl cl = G.QuestCl cl | E.QuestRepV cl ; -- he comes 'ma' | he come not come QuestCl cl = G.QuestCl cl | E.QuestRepV cl ; -- he comes 'ma' | he come not come