%% Description: A Left-Corner Parser         %%
%% Writer: Pereira/Shieber (1987)             %%
%% °ü·Ã¼º: Á¦ 3 Àå                           %%
%% Name: lcparser.pl                          %%

:- op(1200,xfx,--->).

parse(Phrase) -->
	leaf(SubPhrase),
	lc(SubPhrase,Phrase).

leaf(Cat) --> [Word],{word(Word,Cat)}.

lc(Phrase,Phrase) --> [].
lc(SubPhrase,SuperPhrase) -->
	{Phrase ---> [SubPhrase|Rest]},
	parse_rest(Rest),
	lc(Phrase,SuperPhrase).

parse_rest([]) --> [].
parse_rest([Phrase|Phrases]) -->
	parse(Phrase),
	parse_rest(Phrases).