%Computational Linguistics II, Feb-May 1999
%Joseba Abaitua, Universidad de Deusto
%--------------------dcg5.dec------------------------------

conj(_)			--> [if].
pron(agr(sg1,_,nom))	--> [i].
pron(agr(sg1,_,acc))	--> [me].
pron(agr(sg3,_,_))	--> [this].
vt(agr(sg1,_,_))	--> [profane].
vt(agr(sg3,_,_))	--> [profanes].
vc(agr(sg3,_,_))	--> [is].
p(agr(_,_,acc))		--> [with].
det(agr(_,_,_))		--> [the].
det(agr(_,_,_))		--> [my].
det(agr(_,_,_))		--> [this].
a(agr(_,_,_))		--> [unworthiest].
a(agr(_,_,_))		--> [holy].
a(agr(_,_,_))		--> [gentle].
n(agr(sg3,_,_))		--> [hand].
n(agr(sg3,_,_))		--> [shrine].
n(agr(sg3,_,_))		--> [sin].

s_bar	--> conj(_), s.
s	--> np(agr(Num,_,nom)), vp(agr(Num,_,_)).
vp(Agr)	--> vt(Agr), pp(_), np(agr(_,_,acc)).
vp(Agr)	--> vc(Agr), np(Agr).
pp(Agr)	--> p(Agr), np(Agr).
np(Agr)	--> pron(Agr).
np(Agr)	--> det(Agr), a(_), n(Agr).

%----------------------------------------------------------

conj2(agr(_,_))		--> [si].
pron2(agr(sg1,_,nom))	--> [yo].
pron2(agr(sg3,m,_))	--> [este].
vt2(agr(sg1,_,_))	--> [profano].
vt2(agr(sg3,_,_))	--> [profana].
vc2(agr(sg3,_,_))	--> [es].
p2(agr(_,_,acc))	--> [con].
det2(agr(sg3,m,_))	--> [el].
det2(agr(sg3,_,_))	--> [mi].
det2(agr(sg3,m,_))	--> [este].
a2(agr(sg3,f,_,_))	--> [indigna].
a2(agr(sg3,m,_))	--> [sagrado].
a2(agr(sg3,m,_))	--> [sacro].
n2(agr(sg3,f,_))	--> [mano].
n2(agr(sg3,m,_))	--> [altar].
n2(agr(sg3,m,_))	--> [pecado].

s_bar2		--> conj2(_), s2.
s2		--> np2(agr(Num,nom)), vp2(agr(Num,_)).
vp2(Agr)	--> vt2(Agr), pp2(_), np2(agr(_,_,acc)).
vp2(Agr)	--> vc2(Agr), np2(Agr).
pp2(Agr)	--> p2(Agr), np2(Agr).
np2(Agr)	--> pron2(Agr).
np2(Agr)	--> det2(Agr), a2(Agr), n2(Agr).