From 374da1f0b04ed7b617d619b3309bbcdcd3cdd44a Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Thu, 19 Mar 2015 14:17:45 +0000
Subject: [PATCH] PGF service: add commands c-abstrtree and c-parsetree

These are the C runtime variants of the absttree and parsetree commands. They
work in the same way, but support fewer rendering options.
---
 src/server/PGFService.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/server/PGFService.hs b/src/server/PGFService.hs
index e196eca9c..037f32587 100644
--- a/src/server/PGFService.hs
+++ b/src/server/PGFService.hs
@@ -135,6 +135,8 @@ cpgfMain qsem command (t,(pgf,pc)) =
     "c-lookupmorpho"-> out t=<< morpho # from1 % textInput
     "c-flush"       -> out t=<< flush
     "c-grammar"     -> out t grammar
+    "c-abstrtree"   -> outputGraphviz=<< C.graphvizAbstractTree pgf # tree
+    "c-parsetree"   -> outputGraphviz=<< C.graphvizParseTree . snd # from1 %tree
     "c-wordforword" -> out t =<< wordforword # input % to
     _               -> badRequest "Unknown command" command
   where