From 5d156e9e414d6dc4b94928c4d9786ffd7a55dce9 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Mon, 11 Jan 2021 18:56:09 +0100 Subject: vhdl-formatters: add realignment --- src/ghdldrv/ghdlprint.adb | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'src/ghdldrv/ghdlprint.adb') diff --git a/src/ghdldrv/ghdlprint.adb b/src/ghdldrv/ghdlprint.adb index cd2407443..21eda4e25 100644 --- a/src/ghdldrv/ghdlprint.adb +++ b/src/ghdldrv/ghdlprint.adb @@ -1008,6 +1008,7 @@ package body Ghdlprint is Flag_Sem : Boolean := True; Flag_Format : Boolean := False; Level : Format_Level := Format_Indent; + Flag_Realign : Boolean := False; Flag_Force : Boolean := False; First_Line : Positive := 1; Last_Line : Positive := Positive'Last; @@ -1053,6 +1054,9 @@ package body Ghdlprint is elsif Option = "--force" then Cmd.Flag_Force := True; Res := Option_Ok; + elsif Option = "--realign" then + Cmd.Flag_Realign := True; + Res := Option_Ok; elsif Option'Length > 8 and then Option (1 .. 8) = "--range=" then declare F : constant Natural := 9; @@ -1152,6 +1156,7 @@ package body Ghdlprint is if Cmd.Flag_Format then Vhdl.Formatters.Format (Design_File, Cmd.Level, + Cmd.Flag_Realign, Cmd.First_Line, Cmd.Last_Line); end if; end loop; -- cgit v1.2.3