-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathinclude_ml
101 lines (93 loc) · 2.07 KB
/
include_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
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
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
#use "topfind.camlp5";;
#require "oUnit";;
#require "fmt";;
#require "rresult";;
#require "pcre";;
#require "bos";;
#require "yaml";;
#require "camlp5.pa_o";;
#require "yojson" ;;
#require "sedlex" ;;
#require "pa_ppx.testutils" ;;
#require "pa_ppx.base" ;;
#require "pa_ppx.runtime" ;;
let lexbuf_contents lb =
let open Lexing in
let pos = lb.lex_curr_pos in
let len = lb.lex_buffer_len - lb.lex_curr_pos in
(Bytes.to_string (Bytes.sub lb.lex_buffer pos len))
;;
let pp_lexbuf lb =
Format.print_string "#<lexbuf:<";
Format.print_string (lexbuf_contents lb);
Format.print_string ">>"
;;
#install_printer pp_lexbuf ;;
print_string "================ START ================\n";; flush stdout ;;
#load "yayutil.cmo";;
#load "yaytypes.cmo";;
#load "yaylexing.cmo";;
#load "yaypostlexing0.cmo";;
#load "yaypostlexing.cmo";;
#load "yayparse0.cmo";;
#load "yaytest.cmo";;
open Yayutil ;;
open Yaytypes ;;
open Yaylexing ;;
#trace Lexers.versiontag ;;
#trace Lexers.indentspaces ;;
#trace Lexers.rawtoken ;;
open Yayparse0 ;;
open Yaytest ;;
(*
#trace St.pop_styles ;;
#trace St.handle_indents_with ;;
#trace St.increment_indent_with ;;
#trace jsontoken ;;
*)
#load "tml.cmo";;
(*
#load "ocamlyaml_tmltest.cmo";;
open Ocamlyaml_tmltest ;;
*)
#trace Tml.BS4J.docs_of_string_exn ;;
#load "bs4j_tmltest.cmo";;
open Bs4j_tmltest ;;
(*
#trace Tml.JSON.of_string_exn ;;
#load "json_tmltest.cmo";;
open Json_tmltest ;;
*)
(*
#load "json_testsuite_test.cmo";;
open Json_testsuite_test ;;
#trace JSONTestsuite.of_string_exn ;;
#trace JSONTestsuite.yojson_of_string_exn ;;
#trace is_high_surrogate ;;
#trace is_low_surrogate ;;
#trace code_of_surrogate_pair ;;
#trace Yojson.code_of_surrogate_pair ;;
#trace Yojson.utf8_of_code ;;
#trace Yojson.Raw.finish_surrogate_pair ;;
*)
(*
#trace indentspaces ;;
#trace rawtoken ;;
#trace unquote_rawstring ;;
#trace group;;
#trace fold_groups;;
#trace fold_lines;;
#trace consume_indent;;
*)
(*
#trace Sedlexing.new_line ;;
#trace Jsontoken.jsontoken ;;
#untrace_all ;;
*)
#print_length 1000;;
#print_depth 1000;;
(*
;;; Local Variables: ***
;;; mode:tuareg ***
;;; End: ***
*)