Project

General

Profile

Statistics
| Branch: | Tag: | Revision:

lustrec / src / tools / importer / vhdl_ast_utils.ml @ d3f0059e

History | View | Annotate | Download (338 Bytes)

1
open Vhdl_ast_map
2
open Vhdl_ast
3
open Ppxlib_traverse_builtins
4

    
5
let any x = x
6

    
7
let replace_op_expr = object (self)
8
  inherit Ppxlib_traverse_builtins.map
9
  inherit vhdl_map as super
10

    
11
  method unit: unit T.map = any
12

    
13
  method vhdl_expr_t = function
14
    | Op ({id=""; args=hd::[]}) -> self#vhdl_expr_t hd
15
    | x -> super#vhdl_expr_t x
16
end
17