Project

General

Profile

Revision 9d5959cb

View differences:

src/backends/VHDL/vhdl_ast_deriving.ml
5408 5408
  ((let open! Ppx_deriving_runtime in
5409 5409
      fun fmt  ->
5410 5410
        fun x  ->
5411
          Format.fprintf fmt "@[<v 2>";
5411 5412
          ((__0 ()) fmt) x.name;
5412 5413
          Format.fprintf fmt " : ";
5413 5414
          ((__1 ()) fmt) x.inst_unit;
5414 5415
          ((function
5415 5416
             | None  -> Format.pp_print_string fmt ""
5416 5417
             | Some x ->
5417
                 (Format.pp_print_string fmt "(";
5418
                 (Format.fprintf fmt "(";
5418 5419
                 ((__2 ()) fmt) x;
5419
                 Format.pp_print_string fmt ")@;"))) x.archi_name;
5420
          ((fun x  ->
5421
            Format.fprintf fmt "(@[<v 2>";
5420
                 Format.fprintf fmt ")@;"))) x.archi_name;
5421
          (match x.generic_map with
5422
          | [] -> Format.fprintf fmt "";
5423
          | _ ->
5424
            (Format.fprintf fmt "@[<v 2>generic map (";
5425
            ((fun x  ->
5422 5426
            ignore
5423 5427
            (List.fold_left
5424 5428
               (fun sep  ->
5425 5429
                 fun x  ->
5426
                   if sep then Format.fprintf fmt ",@;";
5430
                   if sep then Format.fprintf fmt ",@,";
5427 5431
                   ((__3 ()) fmt) x;
5428
                   true) false x);
5429
            Format.fprintf fmt "@]")) x.generic_map;
5430
          ((fun x  ->
5431
            Format.fprintf fmt "(@[<v 2>";
5432
                   true) false x))) x.generic_map;
5433
            Format.fprintf fmt ")@]@;"));
5434
          (match x.port_map with
5435
          | [] -> Format.fprintf fmt ";";
5436
          | _ ->
5437
            (Format.fprintf fmt "@[<v 2>port map (";
5438
            ((fun x  ->
5432 5439
            ignore
5433 5440
            (List.fold_left
5434 5441
               (fun sep  ->
5435 5442
                 fun x  ->
5436
                   if sep then Format.fprintf fmt ",@;";
5443
                   if sep then Format.fprintf fmt ",@,";
5437 5444
                   ((__4 ()) fmt) x;
5438
                   true) false x);
5439
            Format.fprintf fmt "@]")) x.port_map;)
5445
                   true) false x))) x.port_map;
5446
            Format.fprintf fmt ")@];"));
5447
          Format.fprintf fmt "@]")
5440 5448
    [@ocaml.warning "-A"])
5441 5449

  
5442 5450
and show_vhdl_component_instantiation_t :
......
6099 6107
                 (List.fold_left
6100 6108
                    (fun sep  ->
6101 6109
                       fun x  ->
6102
                         if sep then Format.fprintf fmt "";
6110
                         if sep then Format.fprintf fmt "@;";
6103 6111
                         ((__3 ()) fmt) x;
6104 6112
                         true) false x))) x.body;
6105 6113
          Format.fprintf fmt "@]@;end;"))

Also available in: Unified diff