From: Siraaj Khandkar Date: Sat, 28 Sep 2013 19:29:14 +0000 (-0400) Subject: Moved Terminal module to the top. X-Git-Url: https://git.xandkar.net/?a=commitdiff_plain;h=ce139f1f2ee9903f6a1447e298da831acc4af9d1;p=cellular-automata.git Moved Terminal module to the top. So it can be visible from more modules. --- diff --git a/polymorphism/001/src/polymorphism.ml b/polymorphism/001/src/polymorphism.ml index cb65462..0f15a3a 100644 --- a/polymorphism/001/src/polymorphism.ml +++ b/polymorphism/001/src/polymorphism.ml @@ -1,6 +1,39 @@ open Core.Std +module Terminal : sig + type color = [ `green + | `red + ] + + val string_with_color : string -> color -> string + + val clear : unit -> unit + + val reset : unit -> unit +end = struct + type color = [ `green + | `red + ] + + let ansi_code_clear = "\027[2J" (* Clear screen *) + let ansi_code_reset = "\027[1;1H" (* Reset cursor position *) + + let string_of_color = function + | `green -> "\027[0;32m" + | `red -> "\027[1;31m" + + let string_with_color s c = + sprintf "%s%s\027[0m" (string_of_color c) s + + let clear () = + print_string ansi_code_clear + + let reset () = + print_string ansi_code_reset +end + + module type MATRIX = sig module Point : sig type t = {r : int; k : int} @@ -197,39 +230,6 @@ module Conway : RULE = struct end -module Terminal : sig - type color = [ `green - | `red - ] - - val string_with_color : string -> color -> string - - val clear : unit -> unit - - val reset : unit -> unit -end = struct - type color = [ `green - | `red - ] - - let ansi_code_clear = "\027[2J" (* Clear screen *) - let ansi_code_reset = "\027[1;1H" (* Reset cursor position *) - - let string_of_color = function - | `green -> "\027[0;32m" - | `red -> "\027[1;31m" - - let string_with_color s c = - sprintf "%s%s\027[0m" (string_of_color c) s - - let clear () = - print_string ansi_code_clear - - let reset () = - print_string ansi_code_reset -end - - module Automaton : sig type t