summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorhallgren <hallgren@chalmers.se>2015-03-19 14:17:45 +0000
committerhallgren <hallgren@chalmers.se>2015-03-19 14:17:45 +0000
commit5db57b1a58960e24cc468f234ff6fcc9c2ccca60 (patch)
tree027063281b05ecd4e5c267c2211323085cf48185
parent99f87c30d053e89e0bdb02a42fe8006904e7e9e3 (diff)
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.
-rw-r--r--src/server/PGFService.hs2
1 files changed, 2 insertions, 0 deletions
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