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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
(* Copyright (C) 2005-2008 Henry Cejtin, Matthew Fluet, Suresh
* Jagannathan, and Stephen Weeks.
*
* MLton is released under a BSD-style license.
* See the file MLton-LICENSE for details.
*)
signature CONTROL =
sig
(* set all flags to their default values *)
val defaults: unit -> unit
(*------------------------------------*)
(* Begin Flags *)
(*------------------------------------*)
val debug : bool ref
val allSU : bool ref
val collect_enums : bool ref
val cppopts : string list ref
val dir : string ref
val enum_cons : bool ref
val extramembers : string list ref
val gensym : string ref
val libhandle : string ref
structure Linkage :
sig
datatype t = Archive | Dynamic | Shared
end
val linkage : Linkage.t ref
val match : (string -> bool) ref
val mlbfile : string ref
val namedargs : bool ref
val prefix : string ref
structure Target :
sig
type t
val fromString : string -> t option
val make: t -> {name: string, sizes: Sizes.sizes,
endianShift: Endian.shift} option
end
val target: {name: string, sizes: Sizes.sizes,
endianShift: Endian.shift} option ref
val weight: {heavy: bool, light: bool} ref
val width : int ref
end
|
