server.pro

经典的基于Context-Free_Grammer 的语法分析器。

%:-module(server,[main/0,parse1/2]).
:- use_module(library(prologbeans)).
:- use_module('parser.pro').


%% Register acceptable queries and start the server (using default port)
main:- register_query(parse(C,P), parse1(C,P)),start.


parse1(Chars, P) :- prologbeans:pb_read_term_from_chars(Chars, X, []),parse(X,P).
%% We have received a list of characters, which needs to be converted into an expression