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
|
(* ========================================================================= *)
(* Some miscellaneous OCaml system hacking before we get started. *)
(* *)
(* (c) Copyright, John Harrison 1998-2014 *)
(* ========================================================================= *)
Gc.set { (Gc.get()) with Gc.stack_limit = 16777216 };;
(* ------------------------------------------------------------------------- *)
(* Make sure user interrupts generate an exception, not kill the process. *)
(* ------------------------------------------------------------------------- *)
Sys.catch_break true;;
(* ------------------------------------------------------------------------- *)
(* Set up a quotation expander for the `...` quotes. *)
(* This includes the case `;...` to support miz3, even if that isn't loaded. *)
(* Other quotations ending in `...:` are treated just as (escaped) strings, *)
(* so they can be parsed in a type context etc. *)
(* ------------------------------------------------------------------------- *)
let quotexpander s =
if s = "" then failwith "Empty quotation" else
let c = String.sub s 0 1 in
if c = ":" then
"parse_type \""^
(String.escaped (String.sub s 1 (String.length s - 1)))^"\""
else if c = ";" then "parse_qproof \""^(String.escaped s)^"\"" else
let n = String.length s - 1 in
if String.sub s n 1 = ":"
then "\""^(String.escaped (String.sub s 0 n))^"\""
else "parse_term \""^(String.escaped s)^"\"";;
Quotation.add "tot" (Quotation.ExStr (fun x -> quotexpander));;
(* ------------------------------------------------------------------------- *)
(* Modify the lexical analysis of uppercase identifiers. *)
(* ------------------------------------------------------------------------- *)
set_jrh_lexer;;
(* ------------------------------------------------------------------------- *)
(* Load in the bignum library and set up printing in the toplevel. *)
(* ------------------------------------------------------------------------- *)
#load "nums.cma";;
include Num;;
let pp_print_num fmt n =
Format.pp_open_hbox fmt ();
Format.pp_print_string fmt (string_of_num n);
Format.pp_close_box fmt ();;
let print_num = pp_print_num Format.std_formatter;;
#install_printer pp_print_num;;
|
