diff options
| author | Tristan Gingold <tgingold@free.fr> | 2021-01-11 18:56:09 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2021-01-11 18:56:09 +0100 |
| commit | 5d156e9e414d6dc4b94928c4d9786ffd7a55dce9 (patch) | |
| tree | 8dfc271d48f9e023ec93f701ed6351004511bf5a /src/ghdldrv/ghdlprint.adb | |
| parent | 45d43e9296d8f7bd15a9e975a311f3c91a53513e (diff) | |
| download | ghdl-5d156e9e414d6dc4b94928c4d9786ffd7a55dce9.tar.gz ghdl-5d156e9e414d6dc4b94928c4d9786ffd7a55dce9.tar.bz2 ghdl-5d156e9e414d6dc4b94928c4d9786ffd7a55dce9.zip | |
vhdl-formatters: add realignment
Diffstat (limited to 'src/ghdldrv/ghdlprint.adb')
| -rw-r--r-- | src/ghdldrv/ghdlprint.adb | 5 |
1 files changed, 5 insertions, 0 deletions
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; |