From 3f3df9a71984602d2d8b0d51cbe6ae28f9f5aaaf Mon Sep 17 00:00:00 2001 From: hallgren Date: Tue, 20 Jan 2015 14:57:52 +0000 Subject: PGF2 & PGFService: work in progress on callbacks for nerc & chunks --- src/server/PGFService.hs | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) (limited to 'src/server') diff --git a/src/server/PGFService.hs b/src/server/PGFService.hs index 2a73462ff..d610df45d 100644 --- a/src/server/PGFService.hs +++ b/src/server/PGFService.hs @@ -151,9 +151,14 @@ cpgfMain command (t,(pgf,pc)) = tp (tree,prob) = makeObj ["tree".=tree,"prob".=prob] -- Without caching parse results: - parse' start mlimit ((_,concr),input) = - return $ - maybe id take mlimit . drop start # C.parse concr cat input + parse' start mlimit ((from,concr),input) = + return $ + maybe id take mlimit . drop start # cparse + where + cparse = C.parse concr cat input + --cparse = C.parseWithHeuristics concr cat input (-1) callbacks + callbacks = maybe [] cb $ lookup (C.abstractName pgf) C.literalCallbacks + cb fs = [(cat,f pgf (from,concr))|(cat,f)<-fs] {- -- Caching parse results: parse' start mlimit ((from,concr),input) = -- cgit v1.2.3