top/flags.sml

   1 signature FLAGS =
   2 sig
   3   val verbose : Flag.flag
   4   val liveness : Flag.flag
   5   val ast : Flag.flag
   6   val ir : Flag.flag
   7   val assem : Flag.flag
   8   val color : Flag.flag
   9   val safe : Flag.flag
  10
  11   val reset : unit -> unit      (* Anus... *)
  12 end
  13
  14 structure Flags :> FLAGS =
  15 struct
  16   val verbose = Flag.flag "verbose"
  17   val liveness = Flag.flag "liveness"
  18   val ast = Flag.flag "ast"
  19   val ir = Flag.flag "ir"
  20   val assem = Flag.flag "assem"
  21   val color = Flag.flag "color"
  22   val safe = Flag.flag "safe"
  23
  24   fun reset () =
  25     (List.app Flag.unset [verbose, ast,
  26                           ir, assem, liveness, safe])
  27 end
  28