monotone-viz/monotone-viz-agraph.patch

   1 # patch "agraph.ml"
   2 #  from [8ae6c9bb70bbf9fd80e4e62d9f162ac581619b9e]
   3 #    to [05aa88921481ac9bfe238daeb4374fbc9993caaa]
   4 #
   5 ============================================================
   6 --- a/agraph.ml 8ae6c9bb70bbf9fd80e4e62d9f162ac581619b9e
   7 +++ b/agraph.ml 05aa88921481ac9bfe238daeb4374fbc9993caaa
   8 @@ -50,8 +50,9 @@ let dot_format params agraph =
   9        agraph.nodes in
  10
  11    !+ "digraph \"monotone-viz\"\n{\n" ;
  12 -  if params.lr_layout then
  13 -    !+ "  graph [rankdir=LR] ;\n" ;
  14 +  if params.lr_layout
  15 +  then  !+ "  graph [rankdir=LR] ;\n"
  16 +  else  !+ "  graph [rankdir=BT] ;\n" ;
  17    !+ "  graph [ranksep=\"0.25\"] ;\n" ;
  18    !+ "  node [label=\"\"] ;\n" ;
  19
  20 @@ -222,11 +223,11 @@ let spawn_dot graph status done_cb =
  21    let dot_prg = graph.layout_params.dot_program in
  22    let cmd =
  23      if Viz_misc.debug "dot"
  24 -    then [ "/bin/sh" ; "-c" ;
  25 +    then [ "/bin/sh" ; "-c" ;
  26            Printf.sprintf
  27              "set -o pipefail ; \
  28 -              tee agraph.in.dot | %s -q -y -s%.0f | tee agraph.out.dot" dot_prg ppi ]
  29 -    else [ dot_prg ; "-q" ; "-y" ; Printf.sprintf "-s%.0f" ppi ] in
  30 +              tee agraph.in.dot | %s -q -s%.0f | tee agraph.out.dot" dot_prg ppi ]
  31 +    else [ dot_prg ; "-q" ; Printf.sprintf "-s%.0f" ppi ] in
  32    let error fmt =
  33      Printf.kprintf (fun s -> done_cb (`LAYOUT_ERROR s)) fmt in
  34    try