forked from GitHub/comp-syntax-gu-mlt
235 lines
6.4 KiB
Plaintext
235 lines
6.4 KiB
Plaintext
--# -path=.:../abstract
|
|
concrete MiniGrammarEng of MiniGrammar = open MiniResEng, Prelude in {
|
|
|
|
|
|
lincat
|
|
Utt = {s : Str} ;
|
|
Pol = {s : Str ; isTrue : Bool} ; -- the s field is empty, but needed for parsing
|
|
Temp = {s : Str ; isPres : Bool} ;
|
|
|
|
S = {s : Str} ;
|
|
QS = {s : Str} ;
|
|
Cl = { -- word order is fixed in S and QS
|
|
subj : Str ; -- subject
|
|
verb : Bool => Bool => {fin,inf : Str} ; -- dep. on Pol,Temp, e.g. "does","sleep"
|
|
compl : Str -- after verb: complement, adverbs
|
|
} ;
|
|
QCl = Cl ** {isWh : Bool} ;
|
|
Imp = {s : Bool => Str} ;
|
|
VP = {verb : GVerb ; compl : Str} ;
|
|
Comp = {s : Str} ;
|
|
AP = Adjective ;
|
|
CN = Noun ;
|
|
NP = {s : Case => Str ; a : Agreement} ;
|
|
IP = {s : Case => Str ; a : Agreement} ;
|
|
Pron = {s : Case => Str ; a : Agreement} ;
|
|
Det = {s : Str ; n : Number} ;
|
|
Conj = {s : Str} ;
|
|
Prep = {s : Str} ;
|
|
V = Verb ;
|
|
V2 = Verb2 ;
|
|
VS = Verb ;
|
|
VV = Verb ; ---- only VV to VP
|
|
A = Adjective ;
|
|
N = Noun ;
|
|
PN = {s : Str} ;
|
|
Adv = {s : Str} ;
|
|
IAdv = {s : Str} ;
|
|
|
|
lin
|
|
UttS s = s ;
|
|
UttQS s = s ;
|
|
UttNP np = {s = np.s ! Acc} ; -- Acc: produce "me" rather than "I"
|
|
UttAdv adv = adv ;
|
|
UttIAdv iadv = iadv ;
|
|
UttImpSg pol imp = {s = pol.s ++ imp.s ! pol.isTrue} ;
|
|
|
|
UseCl temp pol cl =
|
|
let clt = cl.verb ! pol.isTrue ! temp.isPres -- isTrue regulates if "do" is used
|
|
in {
|
|
s = pol.s ++ temp.s ++ --- needed for parsing: a GF hack
|
|
cl.subj ++ -- she
|
|
clt.fin ++ -- does
|
|
negation pol.isTrue ++ -- not
|
|
clt.inf ++ -- drink
|
|
cl.compl -- beer
|
|
} ;
|
|
|
|
UseQCl temp pol qcl =
|
|
let
|
|
isWh = qcl.isWh ;
|
|
clt = qcl.verb ! andB isWh pol.isTrue ! temp.isPres ; -- no "do" in present positive Wh questions
|
|
verbsubj = case isWh of {
|
|
True => qcl.subj ++ clt.fin ; -- no inversion in Wh questions
|
|
False => clt.fin ++ qcl.subj
|
|
}
|
|
|
|
in {
|
|
s = pol.s ++ temp.s ++
|
|
verbsubj ++
|
|
negation pol.isTrue ++ -- not
|
|
clt.inf ++ -- drink
|
|
qcl.compl -- beer
|
|
} ;
|
|
|
|
PredVP np vp = {
|
|
subj = np.s ! Nom ;
|
|
compl = vp.compl ;
|
|
verb = \\plain,isPres => case <vp.verb.isAux, plain, isPres, np.a> of {
|
|
|
|
-- non-auxiliary verbs, negative/question present: "does (not) drink"
|
|
<False,False,True,Agr Sg Per3> => {fin = "does" ; inf = vp.verb.s ! VF Inf} ;
|
|
<False,False,True,_ > => {fin = "do" ; inf = vp.verb.s ! VF Inf} ;
|
|
|
|
-- non-auxiliary, plain present ; auxiliary, all present: "drinks", "is (not)"
|
|
<_,_, True, Agr Sg Per1> => {fin = vp.verb.s ! PresSg1 ; inf = []} ;
|
|
<_,_, True, Agr Sg Per3> => {fin = vp.verb.s ! VF PresSg3 ; inf = []} ;
|
|
<_,_, True, _> => {fin = vp.verb.s ! PresPl ; inf = []} ;
|
|
|
|
-- all verbs, past: "has (not) drunk", "has (not) been"
|
|
<_,_, False,Agr Sg Per3> => {fin = "has" ; inf = vp.verb.s ! VF PastPart} ;
|
|
<_,_, False,_ > => {fin = "have" ; inf = vp.verb.s ! VF PastPart}
|
|
|
|
-- the negation word "not" is put in place in UseCl, UseQCl
|
|
}
|
|
} ;
|
|
|
|
QuestCl cl = cl ** {isWh = False} ; -- since the parts are the same, we don't need to change anything
|
|
|
|
QuestVP ip vp = PredVP ip vp ** {isWh = True} ;
|
|
|
|
ImpVP vp = {
|
|
s = table {
|
|
True => vp.verb.s ! VF Inf ++ vp.compl ; -- in Eng, imperative = infinitive
|
|
False => "do not" ++ vp.verb.s ! VF Inf ++ vp.compl
|
|
}
|
|
} ;
|
|
|
|
UseV v = {
|
|
verb = verb2gverb v ; -- lift ordinary verbs to generalized verbs
|
|
compl = []
|
|
} ;
|
|
|
|
ComplV2 v2 np = {
|
|
verb = verb2gverb v2 ;
|
|
compl = v2.c ++ np.s ! Acc -- NP object in the accusative, preposition first
|
|
} ;
|
|
|
|
ComplVS vs s = {
|
|
verb = verb2gverb vs ;
|
|
compl = "that" ++ s.s ;
|
|
} ;
|
|
|
|
ComplVV vv vp = {
|
|
verb = verb2gverb vv ;
|
|
compl = "to" ++ vp.verb.s ! VF Inf ++ vp.compl ;
|
|
} ;
|
|
|
|
UseComp comp = {
|
|
verb = be_GVerb ; -- the verb is the copula "be"
|
|
compl = comp.s
|
|
} ;
|
|
|
|
CompAP ap = ap ;
|
|
|
|
CompNP np = {
|
|
s = np.s ! Nom -- NP complement is in the nominative
|
|
} ;
|
|
|
|
CompAdv adv = adv ;
|
|
|
|
AdvVP vp adv =
|
|
vp ** {compl = vp.compl ++ adv.s} ;
|
|
|
|
DetCN det cn = {
|
|
s = table {c => det.s ++ cn.s ! det.n} ;
|
|
a = Agr det.n Per3 -- this kind of NP is always third person
|
|
} ;
|
|
|
|
UsePN pn = {
|
|
s = \\_ => pn.s ;
|
|
a = Agr Sg Per3
|
|
} ;
|
|
|
|
UsePron p = p ; -- Pron is worst-case NP
|
|
|
|
MassNP cn = {
|
|
s = \\_ => cn.s ! Sg ;
|
|
a = Agr Sg Per3
|
|
} ;
|
|
|
|
a_Det = {s = pre {"a"|"e"|"i"|"o" => "an" ; _ => "a"} ; n = Sg} ; --- a/an can get wrong
|
|
aPl_Det = {s = "" ; n = Pl} ;
|
|
the_Det = {s = "the" ; n = Sg} ;
|
|
thePl_Det = {s = "the" ; n = Pl} ;
|
|
|
|
UseN n = n ;
|
|
|
|
AdjCN ap cn = {
|
|
s = table {n => ap.s ++ cn.s ! n}
|
|
} ;
|
|
|
|
PositA a = a ;
|
|
|
|
PrepNP prep np = {s = prep.s ++ np.s ! Acc} ;
|
|
|
|
CoordS conj a b = {s = a.s ++ conj.s ++ b.s} ;
|
|
|
|
PPos = {s = [] ; isTrue = True} ;
|
|
PNeg = {s = [] ; isTrue = False} ;
|
|
|
|
TSim = {s = [] ; isPres = True} ;
|
|
TAnt = {s = [] ; isPres = False} ;
|
|
|
|
and_Conj = {s = "and"} ;
|
|
or_Conj = {s = "or"} ;
|
|
|
|
every_Det = {s = "every" ; n = Sg} ;
|
|
|
|
in_Prep = {s = "in"} ;
|
|
on_Prep = {s = "on"} ;
|
|
with_Prep = {s = "with"} ;
|
|
|
|
i_Pron = {
|
|
s = table {Nom => "I" ; Acc => "me"} ;
|
|
a = Agr Sg Per1
|
|
} ;
|
|
youSg_Pron = {
|
|
s = \\_ => "you" ;
|
|
a = Agr Sg Per2
|
|
} ;
|
|
he_Pron = {
|
|
s = table {Nom => "he" ; Acc => "him"} ;
|
|
a = Agr Sg Per3
|
|
} ;
|
|
she_Pron = {
|
|
s = table {Nom => "she" ; Acc => "her"} ;
|
|
a = Agr Sg Per3
|
|
} ;
|
|
we_Pron = {
|
|
s = table {Nom => "we" ; Acc => "us"} ;
|
|
a = Agr Pl Per1
|
|
} ;
|
|
youPl_Pron = {
|
|
s = \\_ => "you" ;
|
|
a = Agr Pl Per2
|
|
} ;
|
|
they_Pron = {
|
|
s = table {Nom => "they" ; Acc => "them"} ;
|
|
a = Agr Pl Per3
|
|
} ;
|
|
|
|
whoSg_IP = {
|
|
s = table {Nom => "who" ; Acc => "whom"} ;
|
|
a = Agr Sg Per3
|
|
} ;
|
|
|
|
where_IAdv = {s = "where"} ;
|
|
why_IAdv = {s = "why"} ;
|
|
|
|
have_V2 = mkVerb "have" "has" "had" "had" "having" ** {c = []} ;
|
|
|
|
want_VV = regVerb "want" ;
|
|
|
|
}
|