1
0
forked from GitHub/gf-core

English auxiliaries and AdV

This commit is contained in:
aarne
2006-02-16 22:34:00 +00:00
parent 834b63a175
commit 490e5a4e8f
7 changed files with 72 additions and 25 deletions

View File

@@ -1,4 +1,4 @@
concrete PhraseEng of Phrase = CatEng ** open ResEng in {
concrete PhraseEng of Phrase = CatEng ** open Prelude, ResEng in {
lin
PhrUtt pconj utt voc = {s = pconj.s ++ utt.s ++ voc.s} ;
@@ -11,7 +11,7 @@ concrete PhraseEng of Phrase = CatEng ** open ResEng in {
UttIP ip = {s = ip.s ! Nom} ; --- Acc also
UttIAdv iadv = iadv ;
UttNP np = {s = np.s ! Acc} ;
UttVP vp = {s = "to" ++ infVP vp (agrP3 Sg)} ;
UttVP vp = {s = infVP False vp (agrP3 Sg)} ;
UttAdv adv = adv ;
NoPConj = {s = []} ;