| | 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 | |
git.joshuawise.com / snipe.git / blame_incremental