mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-24 02:12:50 -06:00
new extra Chi constructions for HSK
This commit is contained in:
@@ -52,4 +52,7 @@ concrete ExtraChi of ExtraChiAbs = CatChi **
|
|||||||
in
|
in
|
||||||
cl.np ++ cl.vp.prePart ++ verb ++ cl.vp.compl
|
cl.np ++ cl.vp.prePart ++ verb ++ cl.vp.compl
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
TopicAdvCl adv cl = mkClause (adv.s ++ cl.np) cl.vp ;
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -14,4 +14,5 @@ abstract ExtraChiAbs = Cat,
|
|||||||
|
|
||||||
QuestRepV : Cl -> QCl ; -- V neg V question
|
QuestRepV : Cl -> QCl ; -- V neg V question
|
||||||
|
|
||||||
|
TopicAdvCl : Adv -> Cl -> Cl ; -- topicalized adverb
|
||||||
} ;
|
} ;
|
||||||
|
|||||||
@@ -1,7 +1,7 @@
|
|||||||
concrete PhraseChi of Phrase = CatChi ** open Prelude, ResChi in {
|
concrete PhraseChi of Phrase = CatChi ** open Prelude, ResChi in {
|
||||||
|
|
||||||
lin
|
lin
|
||||||
PhrUtt pconj utt voc = {s = pconj.s ++ voc.s ++ utt.s} ;
|
PhrUtt pconj utt voc = {s = pconj.s ++ voc.s ++ chcomma ++ utt.s} ;
|
||||||
|
|
||||||
UttS s = s ;
|
UttS s = s ;
|
||||||
UttQS qs = qs ;
|
UttQS qs = qs ;
|
||||||
|
|||||||
@@ -208,7 +208,7 @@ oper
|
|||||||
mkClauseCompl : Str -> VP -> Str -> Clause = \np,vp,compl -> {
|
mkClauseCompl : Str -> VP -> Str -> Clause = \np,vp,compl -> {
|
||||||
s = \\p,a => np ++ vp.prePart ++ useVerb vp.verb ! p ! a ++ vp.compl ++ compl ;
|
s = \\p,a => np ++ vp.prePart ++ useVerb vp.verb ! p ! a ++ vp.compl ++ compl ;
|
||||||
np = np ;
|
np = np ;
|
||||||
vp = vp ;
|
vp = insertObj (ss compl) vp ;
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@@ -329,6 +329,8 @@ oper
|
|||||||
--2 Other categories
|
--2 Other categories
|
||||||
|
|
||||||
mkSubj : Str -> Subj = \s -> lin Subj {s = s} ; --%
|
mkSubj : Str -> Subj = \s -> lin Subj {s = s} ; --%
|
||||||
|
mkInterj : Str -> Interj
|
||||||
|
= \s -> lin Interj (ss s) ;
|
||||||
|
|
||||||
--.
|
--.
|
||||||
--2 Definitions of paradigms
|
--2 Definitions of paradigms
|
||||||
|
|||||||
Reference in New Issue
Block a user