diff options
author | Tristan Gingold <tgingold@free.fr> | 2023-01-26 18:14:16 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2023-01-26 21:56:32 +0100 |
commit | d5a56477c79d0ad8de146547554233dd62be36e8 (patch) | |
tree | f02a3934cf35a2a92d953689a4a108812eb1640e /src/vhdl/vhdl-formatters.ads | |
parent | 1c95bef128de8c1fbddf93ac61bb6ffaf1574f4a (diff) | |
download | ghdl-d5a56477c79d0ad8de146547554233dd62be36e8.tar.gz ghdl-d5a56477c79d0ad8de146547554233dd62be36e8.tar.bz2 ghdl-d5a56477c79d0ad8de146547554233dd62be36e8.zip |
vhdl-prints: add Print_String
Move Vstring methods from formatters to prints.
Diffstat (limited to 'src/vhdl/vhdl-formatters.ads')
-rw-r--r-- | src/vhdl/vhdl-formatters.ads | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/src/vhdl/vhdl-formatters.ads b/src/vhdl/vhdl-formatters.ads index f2b7bf0a8..7def1ed7a 100644 --- a/src/vhdl/vhdl-formatters.ads +++ b/src/vhdl/vhdl-formatters.ads @@ -14,9 +14,8 @@ -- You should have received a copy of the GNU General Public License -- along with this program. If not, see <gnu.org/licenses>. -with Grt.Vstrings; -with Grt.Types; with Vhdl.Nodes; use Vhdl.Nodes; +with Vhdl.Prints; package Vhdl.Formatters is type Format_Level is @@ -39,17 +38,9 @@ package Vhdl.Formatters is First_Line : Positive := 1; Last_Line : Positive := Positive'Last); - type Vstring_Acc is access Grt.Vstrings.Vstring; - -- Reindent all lines of F between [First_Line; Last_Line] to HANDLE. procedure Indent_String (F : Iir_Design_File; - Handle : Vstring_Acc; + Handle : Vhdl.Prints.Vstring_Acc; First_Line : Positive := 1; Last_Line : Positive := Positive'Last); - - function Allocate_Handle return Vstring_Acc; - function Get_Length (Handle : Vstring_Acc) return Natural; - function Get_C_String (Handle : Vstring_Acc) - return Grt.Types.Ghdl_C_String; - procedure Free_Handle (Handle : Vstring_Acc); end Vhdl.Formatters; |