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




conj(_)			--> [if].
pron(1+agr(sg1,_,nom))	--> [i].
pron(1+agr(sg1,_,acc))	--> [me].
pron(2+agr(sg3,_,_))	--> [this].
vt(v1+agr(sg1,_,_))	--> [profane].
vt(v1+agr(sg3,_,_))	--> [profanes].
vc(v2+agr(sg3,_,_))	--> [is].
p(1+agr(_,_,acc))	--> [with].
det(1+agr(_,_,_))	--> [the].
det(2+agr(_,_,_))	--> [my].
det(3+agr(_,_,_))	--> [this].
a(a1+agr(_,_,_))	--> [unworthiest].
a(a2+agr(_,_,_))	--> [holy].
a(a3+agr(_,_,_))	--> [gentle].
n(n1+agr(sg3,_,_))	--> [hand].
n(n2+agr(sg3,_,_))	--> [shrine].
n(n3+agr(sg3,_,_))	--> [sin].

s_bar	--> conj(_), s.
s(s(NP,VP)+agr(N,_,nom)) --> np(NP+agr(N,_,nom)), vp(VP+agr(N,_,_)).
vp(vp(V,PP,NP+agr(N,_,acc))+Agr)	--> vt(V+Agr), pp(PP), np(NP+agr(N,_,acc)).
vp(vp(V,NP)+Agr) --> vc(V+Agr), np(NP+Agr).
pp(pp(P,NP)+Agr)	--> p(P+Agr), np(NP+Agr).
np(np(Pron)+Agr)	--> pron(Pron+Agr).
np(np(Det,A,N)+Agr)	--> det(Det+Agr), a(A+Agr), n(N+Agr).

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

conj2(1+agr(_,_))	--> [si].
pron2(1+agr(sg1,_,nom))--> [yo].
pron2(2+agr(sg3,m,_))	--> [este].
vt2(v1+agr(sg1,_,_))	--> [profano].
vt2(v1+agr(sg3,_,_))	--> [profana].
vc2(v2+agr(sg3,_,_))	--> [es].
p2(1+agr(_,_,acc))	--> [con].
det2(1+agr(sg3,m,_))	--> [el].
det2(2+agr(sg3,_,_))	--> [mi].
det2(3+agr(sg3,m,_))	--> [este].
a2(a1+agr(sg3,f,_))	--> [indigna].
a2(a2+agr(sg3,m,_))	--> [sagrado].
a2(a3+agr(sg3,m,_))	--> [sacro].
n2(n1+agr(sg3,f,_))	--> [mano].
n2(n2+agr(sg3,m,_))	--> [altar].
n2(n3+agr(sg3,m,_))	--> [pecado].

s_bar2	--> conj2(_), s2.
s2(s(NP,VP)+agr(N,G,nom)) --> np2(NP+agr(N,G,nom)), vp2(VP+agr(N,G,_)).
vp2(vp(V,PP,NP+agr(N,_,acc))+Agr)	--> vt2(V+Agr), pp2(PP), np2(NP+agr(N,_,acc)).
vp2(vp(V,NP)+Agr) --> vc2(V+Agr), np2(NP+Agr).
pp2(pp(P,NP)+Agr)	--> p2(P+Agr), np2(NP+Agr).
np2(np(Pron)+Agr)	--> pron2(Pron+Agr).
np2(np(Det,A,N)+Agr)	--> det2(Det+Agr), a2(A+Agr), n2(N+Agr).




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