%
% Copyright (C) 1996 Thanaruk Theeramunkong (ping@jaist.ac.jp)       
%                    Hiroki Imai            (imai@cs.titech.ac.jp)  
%                    Manabu Okumura         (oku@jaist.ac.jp)       
%                    Susumu Kunifuji        (kuni@jaist.ac.jp)      
%								     
%					       6 June 1996	     
%								     
% The file contains some specifications for RLRPAR          	     
%
% The Style of these clauses are as follows.
% parse(Terminal,Arg2,Arg2,Arg3,Arg4,Arg5,NodRec1,NodRec2)


parse([null],A1,A2,A3,A4,A5,NR1,NR2) :- 
    null(A1,A2,A3,A4,A5,NR1,NR2).
parse([det],A1,A2,A3,A4,A5,NR1,NR2) :- 
    det(A1,A2,A3,A4,A5,NR1,NR2).
parse([n],A1,A2,A3,A4,A5,NR1,NR2) :- 
    n(A1,A2,A3,A4,A5,NR1,NR2).
parse([p],A1,A2,A3,A4,A5,NR1,NR2) :- 
    p(A1,A2,A3,A4,A5,NR1,NR2).
parse([v],A1,A2,A3,A4,A5,NR1,NR2) :- 
    v(A1,A2,A3,A4,A5,NR1,NR2).


parse([null|IR],A1,A2,A3,NA4,A5,NR1,NR2) :- 
    null(A1,A2,A3,A4,A5,NR1,NR3),
    merge_node(A4,NA3),
    NA1 = A1, NA2 = A2, NA5 is A5+1,
    parse(IR,NA1,NA2,NA3,NA4,NA5,NR3,NR2).
parse([det|IR],A1,A2,A3,NA4,A5,NR1,NR2) :- 
    det(A1,A2,A3,A4,A5,NR1,NR3),
    merge_node(A4,NA3),
    NA1 = A1, NA2 = A2, NA5 is A5+1,
    parse(IR,NA1,NA2,NA3,NA4,NA5,NR3,NR2).
parse([n|IR],A1,A2,A3,NA4,A5,NR1,NR2) :- 
    n(A1,A2,A3,A4,A5,NR1,NR3),
    merge_node(A4,NA3),
    NA1 = A1, NA2 = A2, NA5 is A5+1,
    parse(IR,NA1,NA2,NA3,NA4,NA5,NR3,NR2).
parse([p|IR],A1,A2,A3,NA4,A5,NR1,NR2) :- 
    p(A1,A2,A3,A4,A5,NR1,NR3),
    merge_node(A4,NA3),
    NA1 = A1, NA2 = A2, NA5 is A5+1,
    parse(IR,NA1,NA2,NA3,NA4,NA5,NR3,NR2).
parse([v|IR],A1,A2,A3,NA4,A5,NR1,NR2) :- 
    v(A1,A2,A3,A4,A5,NR1,NR3),
    merge_node(A4,NA3),
    NA1 = A1, NA2 = A2, NA5 is A5+1,
    parse(IR,NA1,NA2,NA3,NA4,NA5,NR3,NR2).
