Source file `default_printing.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
(*Generated by Lem from default_printing.lem.*)
(** [default_printing] module is a small utility module providing default
  * printing functions for when ABI-specific functions are not available.
  * These functions were constantly being redefined and reused all over the
  * place hence their placement in this module.
  *)
open Lem_function

(** [default_os_specific_print] is a default print function for OS specific
  * functionality.
  *)
(*val default_os_specific_print : forall 'a. 'a -> string*)
let default_os_specific_print:'a ->string=
   ((fun y->"*Default OS specific print*"))

(** [default_proc_specific_print] is a default print function for processor specific
  * functionality.
  *)
(*val default_proc_specific_print : forall 'a. 'a -> string*)
let default_proc_specific_print:'a ->string=
   ((fun y->"*Default processor specific print*"))

(** [default_user_specific_print] is a default print function for user specific
  * functionality.
  *)
(*val default_user_specific_print : forall 'a. 'a -> string*)
let default_user_specific_print:'a ->string=
   ((fun y->"*Default user specific print*"))