diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-06-02 07:48:10 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-06-03 06:43:50 +0200 |
| commit | 400603edd33141740197f17e831b0a0560c9d3fe (patch) | |
| tree | 1a8935bdf110495cdeabd825c6f6f88fb95ac114 /src/vhdl/vhdl-formatters.ads | |
| parent | a4b7cbfcd6a8e90471373f852d0ce3e15054c8c4 (diff) | |
| download | ghdl-400603edd33141740197f17e831b0a0560c9d3fe.tar.gz ghdl-400603edd33141740197f17e831b0a0560c9d3fe.tar.bz2 ghdl-400603edd33141740197f17e831b0a0560c9d3fe.zip | |
vhdl-formatters: Use vstrings to format into a string.
Diffstat (limited to 'src/vhdl/vhdl-formatters.ads')
| -rw-r--r-- | src/vhdl/vhdl-formatters.ads | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-formatters.ads b/src/vhdl/vhdl-formatters.ads index ce651c136..e072b1bd2 100644 --- a/src/vhdl/vhdl-formatters.ads +++ b/src/vhdl/vhdl-formatters.ads @@ -16,6 +16,8 @@ -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. +with Grt.Vstrings; +with Grt.Types; with Vhdl.Nodes; use Vhdl.Nodes; package Vhdl.Formatters is @@ -24,4 +26,14 @@ package Vhdl.Formatters is -- Reindent the file. procedure Indent (F : Iir_Design_File); + + type Vstring_Acc is access Grt.Vstrings.Vstring; + + procedure Indent_String (F : Iir_Design_File; Handle : Vstring_Acc); + + 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 : Vstring_Acc); end Vhdl.Formatters; |