Revision 5bbf7413
Added by Arnaud Dieumegard about 6 years ago
| src/backends/VHDL/vhdl_ast_utils.ml | ||
|---|---|---|
| 1 | 1 |
open Vhdl_ast_map |
| 2 | 2 |
open Vhdl_to_lustre |
| 3 |
open Vhdl_2_mini_vhdl_map |
|
| 3 | 4 |
open Vhdl_ast |
| 5 |
open Mini_vhdl_ast |
|
| 4 | 6 |
open Ppxlib_traverse_builtins |
| 5 | 7 |
|
| 6 | 8 |
let any x = x |
| ... | ... | |
| 22 | 24 |
|
| 23 | 25 |
method unit: unit T.map = any |
| 24 | 26 |
end |
| 27 |
|
|
| 28 |
let to_mini_vhdl = object (self) |
|
| 29 |
inherit Ppxlib_traverse_builtins.map |
|
| 30 |
inherit vhdl_2_mini_vhdl_map as super |
|
| 31 |
|
|
| 32 |
method unit: unit T.map = any |
|
| 33 |
end |
|
Also available in: Unified diff
definition of the mini-vhdl types + pp + transformation from vhdl structure