Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
14 lines (11 sloc) 190 Bytes
module type GENLINENUM =
sig
val reset : unit -> unit
val next : unit -> int
end ;;
module Genlinenum : GENLINENUM =
struct
let c = ref 0
let reset () = c:=0
let next () = incr c;!c
end;;