[snipe.git] / top / flags.sml

signature FLAGS =
sig
  val verbose : Flag.flag
  val liveness : Flag.flag
  val ast : Flag.flag
  val ir : Flag.flag
  val assem : Flag.flag
  val color : Flag.flag
  val safe : Flag.flag
  
  val reset : unit -> unit	(* Anus... *)
end

structure Flags :> FLAGS =
struct
  val verbose = Flag.flag "verbose"
  val liveness = Flag.flag "liveness"
  val ast = Flag.flag "ast"
  val ir = Flag.flag "ir"
  val assem = Flag.flag "assem"
  val color = Flag.flag "color"
  val safe = Flag.flag "safe"
  
  fun reset () =
    (List.app Flag.unset [verbose, ast,
                          ir, assem, liveness, safe])
end
Commit	Line	Data
5c79bb68 JW	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