Step_effect (hardcaml_step_testbench.hardcaml_step_testbench.digital_components.Digital_components.Step

module Handler : sig ... end

val current_input : ('i, 'o) Handler.t @ local -> 'i

val next_step : 
  Base.Source_code_position.t ->
  'o ->
  ('i, 'o) Handler.t @ local ->
  'i

val thunk : 
  (Base.unit -> ('i, 'o) Handler.t @ local -> 'a) ->
  ('i, 'o) Handler.t @ local ->
  'a

val output_forever : 'o -> ('i, 'o) Handler.t @ local -> _

val delay : 'o -> num_steps:Base.int -> ('i, 'o) Handler.t @ local -> Base.unit

delay o ~num_steps outputs o for num_steps and then returns unit. delay raises if num_steps < 0.

val wait : 
  output:'o ->
  until:('i -> Base.bool) ->
  ('i, 'o) Handler.t @ local ->
  Base.unit

module Event : sig ... end

An event is a value that will at some point in time (possibly the past, possibly the future) transition from "undetermined" to "determined", with some value. One can wait_for an event in a computation.

val wait_for : 'a Event.t -> output:'o -> ('i, 'o) Handler.t @ local -> 'a

wait_for event ~output outputs output until the step at which event becomes determined, at which point the wait_for proceeds.

module Component_finished : sig ... end

val spawn : 
  ?update_children_after_finish:Base.bool ->
  ?period:Base.int ->
  Base.Source_code_position.t ->
  start:
    ('i_c -> ('i_c, 'o_c) Handler.t @ local -> ('a, 'o_c) Component_finished.t) ->
  input:'i_c Data.t ->
  output:'o_c Data.t ->
  child_input:(parent:'i -> 'i_c) ->
  include_child_output:(parent:'o -> child:'o_c -> 'o) ->
  ('i, 'o) Handler.t @ local ->
  ('a, 'o_c) Component_finished.t Event.t

spawn creates a child computation that runs start. spawn returns on the current step, and the child starts on the next step. The parent computation uses child_input to adjust its input into the form that the child computation sees, and include_child_output to incorporate the child's output into its output.

When update_children_after_finish, unfinished tasks spawned from within start will be executed even after start completes.

val create_component : 
  ?period:Base.int ->
  created_at:Base.Source_code_position.t ->
  update_children_after_finish:Base.bool ->
  start:('i -> ('i, 'o) Handler.t @ local -> ('a, 'o) Component_finished.t) ->
  input:'i Data.t ->
  output:'o Data.t ->
  Base.unit ->
  ('i, 'o) Component.t * ('a, 'o) Component_finished.t Event.t

create_component creates a Component.t that runs the computation described by start. When update_children_after_finish is set to true, all component's children will be updated even after the child terminates. This will result in tasks spawned from within the child task to execute even after the child terminates.

val run_monadic_computation : 
  ('i, 'o) Handler.t @ local ->
  (('a, 'i, 'o) Step_core.Computation.Monadic.t ->
  'a) @ local