/* $Id: unparser.idef.src 17595 2006-02-01 12:56:38Z kooiker $ */

tool unparser is { command = "/opt/local/bin/unparsePT" }

process Unparser is
let
  UNP : unparser,
  Tree : term,
  Text : str
in
  (
    rec-msg(unparse(Tree?)).
    execute(unparser, UNP?).
    snd-eval(UNP, unparse-asfix(Tree)).
    rec-value(UNP, unparsed-text(Text?)).
    snd-terminate(UNP, "done") .
    snd-msg(unparsed-text(Text))
  ) *
  delta
endlet

toolbus(Unparser)
