Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 39 lines (30 sloc) 1.091 kb
9efeab3 @BourgerieQuentin [feature] compiler: Added bsl tracker and plugged on compiler
BourgerieQuentin authored
1 (*
2 Copyright © 2011, 2012 MLstate
3
5bb0f1a @Aqua-Ye [cleanup] compiler: typo on Opa
Aqua-Ye authored
4 This file is part of Opa.
9efeab3 @BourgerieQuentin [feature] compiler: Added bsl tracker and plugged on compiler
BourgerieQuentin authored
5
5bb0f1a @Aqua-Ye [cleanup] compiler: typo on Opa
Aqua-Ye authored
6 Opa is free software: you can redistribute it and/or modify it under the
9efeab3 @BourgerieQuentin [feature] compiler: Added bsl tracker and plugged on compiler
BourgerieQuentin authored
7 terms of the GNU Affero General Public License, version 3, as published by
8 the Free Software Foundation.
9
5bb0f1a @Aqua-Ye [cleanup] compiler: typo on Opa
Aqua-Ye authored
10 Opa is distributed in the hope that it will be useful, but WITHOUT ANY
9efeab3 @BourgerieQuentin [feature] compiler: Added bsl tracker and plugged on compiler
BourgerieQuentin authored
11 WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
12 FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License for
13 more details.
14
15 You should have received a copy of the GNU Affero General Public License
5bb0f1a @Aqua-Ye [cleanup] compiler: typo on Opa
Aqua-Ye authored
16 along with Opa. If not, see <http://www.gnu.org/licenses/>.
9efeab3 @BourgerieQuentin [feature] compiler: Added bsl tracker and plugged on compiler
BourgerieQuentin authored
17 *)
18
19 (* depends *)
20 module Format = Base.Format
21
22 module Printer =
23 struct
24 let bymap fmt e =
25 Format.fprintf fmt "/* printer: --print bymap */@\n@\n" ;
26 BslLib.BSL.ByPassMap.pp fmt e.BslLib.bymap ;
27 Format.fprintf fmt "@."
28 end
29
30 let define = PassHandler.define_printer
31 let bymap_id = define "bymap"
32
33 let printers extract _ =
34 let make_bymap fct fmt env =
35 fct fmt (extract env) in
36 [
37 bymap_id, make_bymap Printer.bymap ;
38 ]
Something went wrong with that request. Please try again.