blob: b3f0739d1913a1a5e087a948ee8df72e217c91f1 (
plain)
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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
(************************************************************************)
(* v * The Coq Proof Assistant / The Coq Development Team *)
(* <O___,, * CNRS-Ecole Polytechnique-INRIA Futurs-Universite Paris Sud *)
(* \VV/ **************************************************************)
(* // * This file is distributed under the terms of the *)
(* * GNU Lesser General Public License Version 2.1 *)
(************************************************************************)
(*s Output options *)
type target_language = LaTeX | HTML | TeXmacs | Raw
let target_language = ref HTML
type output_t =
| StdOut
| MultFiles
| File of string
let output_dir = ref ""
let out_to = ref MultFiles
let out_channel = ref stdout
let open_out_file f =
let f = if !output_dir <> "" && Filename.is_relative f then Filename.concat !output_dir f else f in
out_channel := open_out f
let close_out_file () = close_out !out_channel
type glob_source_t =
| NoGlob
| DotGlob
| GlobFile of string
let glob_source = ref DotGlob
let header_trailer = ref true
let header_file = ref ""
let header_file_spec = ref false
let footer_file = ref ""
let footer_file_spec = ref false
let quiet = ref true
let light = ref false
let gallina = ref false
let short = ref false
let index = ref true
let multi_index = ref false
let toc = ref false
let page_title = ref ""
let title = ref ""
let externals = ref true
let coqlib = ref Coq_config.wwwstdlib
let coqlib_path = ref Coq_config.coqlib
let raw_comments = ref false
let parse_comments = ref false
let interpolate = ref false
let charset = ref "iso-8859-1"
let inputenc = ref ""
let latin1 = ref false
let utf8 = ref false
let set_latin1 () =
charset := "iso-8859-1";
inputenc := "latin1";
latin1 := true
let set_utf8 () =
charset := "utf-8";
inputenc := "utf8";
utf8 := true
(* Parsing options *)
type coq_module = string
type file =
| Vernac_file of string * coq_module
| Latex_file of string
|
