| 1 |
4 |
tbourke |
(* $Id: win-graphviz.sml 28 2008-03-28 23:23:25Z tbourke $ *)
|
| 2 |
|
|
|
| 3 |
|
|
structure Graphviz = Graphviz (
|
| 4 |
|
|
type t = TypedDot.graph
|
| 5 |
|
|
val output = TypedDotIO.output
|
| 6 |
|
|
val warn = fn msgs => TextIO.output (TextIO.stdErr,concat msgs ^"\n")
|
| 7 |
|
|
|
| 8 |
28 |
tbourke |
fun statusToString st = let
|
| 9 |
|
|
val wst = Windows.fromStatus st
|
| 10 |
|
|
in SysWord.toString wst end
|
| 11 |
|
|
|
| 12 |
4 |
tbourke |
structure Plain = TextPlain
|
| 13 |
10 |
tbourke |
|
| 14 |
|
|
structure OpSys = HackOpSys
|
| 15 |
|
|
(*structure OpSys = Windows (* Not included with SML/NJ *)*)
|
| 16 |
4 |
tbourke |
)
|
| 17 |
|
|
|