Project

General

Profile

Download (897 Bytes) Statistics
| Branch: | Tag: | Revision:
1
open Utils
2
open Format
3
open Lustre_types
4
open Machine_code_types
5
open C_backend_common
6

    
7
module type MODIFIERS_SRC = sig
8
  module GhostProto : MODIFIERS_GHOST_PROTO
9

    
10
  val pp_predicates : formatter -> machine_t list -> unit
11

    
12
  val pp_set_reset_spec : formatter -> ident -> ident -> machine_t -> unit
13

    
14
  val pp_clear_reset_spec : formatter -> ident -> ident -> machine_t -> unit
15

    
16
  val pp_step_spec :
17
    formatter -> machine_t list -> ident -> ident -> machine_t -> unit
18

    
19
  val pp_step_instr_spec :
20
    machine_t -> ident -> ident -> formatter -> instr_t -> unit
21

    
22
  val pp_ghost_parameter : ident -> formatter -> ident option -> unit
23

    
24
  val pp_contract : formatter -> machine_t list -> ident -> ident -> machine_t -> unit
25
end
26

    
27
module EmptyMod : MODIFIERS_SRC
28

    
29
module Main (Mod : MODIFIERS_SRC) : sig
30
  val pp_lib_c :
31
    formatter -> string -> program_t -> machine_t list -> dep_t list -> unit
32
end
(18-18/18)