examples/neato.lua

   1 gr = require "graph"
   2
   3 --
   4 -- For simple formatted printing
   5 --
   6 local function printf(fmt, ...)
   7   print(string.format(fmt, ...))
   8 end
   9
  10 local function gshow(g)
  11   local fn = os.tmpname() .. ".dot"
  12   g:write(fn)
  13   os.execute("dotty "..fn)
  14   os.remove(fn)
  15 end
  16
  17 -- Provide simple reference for frequently used functions (optional)
  18 node, edge, subgraph, cluster, digraph, strictdigraph =
  19   gr.node, gr.edge, gr.subgraph, gr.cluster, gr.digraph, gr.strictdigraph
  20
  21 local f, err = assert(loadfile(arg[1]))
  22 local g = f()
  23
  24 printf("Generated 'dot' format:")
  25 g:write()
  26 gshow(g)
  27 g:close()