12 lines
287 B
OCaml
12 lines
287 B
OCaml
module Int_set = Set.Make (Int)
|
|
|
|
module type DEVICE = sig
|
|
type state
|
|
|
|
val state : state
|
|
val dei_ports : Int_set.t
|
|
val deo_ports : Int_set.t
|
|
val dei : Machine.machine -> int -> int
|
|
val dei2 : Machine.machine -> int -> int
|
|
val deo : Machine.machine -> int -> int -> unit
|
|
end
|