(C) Eskil Heyn Olsen 1995-2008.

sentence(s(VP),CMD) --> verbp(VP,CMD).

nounp(np(N),CCL,[CCL,N]) --> noun(N).
nounp(np(N,TYPE,NP),CCL,[CCL,N,TYPE,SUBCMD]) --> 
	noun(N), 
	conj(_,TYPE), 
	nounp(NP,CCL,SUBCMD).
nounp(np(N,ADVTYPE,NP),CCL,[CCL,N,ADVTYPE,SUBCMD]) -->  
        noun(N),                        /* denne regel haandtere */
	conj(CONJUNCTION,_),            /* og-ikke konstruktioner */
	{CONJUNCTION == og},
	adv(ADV,ADVTYPE),
	{ADV == ikke},
	nounp(NP,CCL,SUBCMD).
nounp(np(N),NUM,CCL,[CCL,MEDIA]) --> noun(N,NUM,MEDIA).
nounp(np(N),CATEGORY) --> noun(N,CATEGORY).

...

verb(H) --> [H], { lex(v,H) }.
noun(H) --> [H], { lex(n,H) }.
noun(H,CATEGORY) --> [H], { lex(n_key,H,CATEGORY) }.
noun(H,NUM,MEDIA) --> [H], { lex(n,H,NUM,MEDIA) }.
prep(H,ACCEPTS,STANDS_AS) --> [H], { lex(p,H,ACCEPTS,STANDS_AS) }.
conj(H,TYPE) --> [H],{ lex(conj,H,TYPE)}.
adv(H,TYPE) --> [H], { lex(adv,H,TYPE) }.

...

lex(n,boeger,plur,bo).
lex(n,bogen,sing,bo).
lex(n,cder,plur,av).
lex(n,cden,sing,av).
lex(n,cdrommer,plur,td).
lex(n,cdrommen,sing,td).

...

lex(p,om,[subject],subject).
lex(p,af,[author],author).
lex(p,fra,[year,publisher],publisher).
lex(p,med,[subject,title],invalidcode).