From 6cb10e4d80e36697fea3517651915a7a8a0bc322 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 30 Mar 2022 08:15:25 +0200 Subject: grt-readline.ads: use types from grt-types --- src/grt/grt-readline.ads | 21 +++++---------------- 1 file changed, 5 insertions(+), 16 deletions(-) (limited to 'src') diff --git a/src/grt/grt-readline.ads b/src/grt/grt-readline.ads index 1a3083981..6d4903e02 100644 --- a/src/grt/grt-readline.ads +++ b/src/grt/grt-readline.ads @@ -2,29 +2,18 @@ -- it (for easier reuse). with System; use System; +with Grt.Types; use Grt.Types; package Grt.Readline is - subtype Fat_String is String (Positive); - type Char_Ptr is access Fat_String; - pragma Convention (C, Char_Ptr); - -- A C string (which is NUL terminated) is represented as a (thin) access - -- to a fat string (a string whose range is 1 .. integer'Last). - -- The use of an access to a constrained array allows a representation - -- compatible with C. Indexing of object of that type is safe only for - -- indexes until the NUL character. - - function Readline (Prompt : Char_Ptr) return Char_Ptr; - function Readline (Prompt : Address) return Char_Ptr; + function Readline (Prompt : Ghdl_C_String) return Ghdl_C_String; + function Readline (Prompt : Address) return Ghdl_C_String; pragma Import (C, Readline); - procedure Free (Buf : Char_Ptr); + procedure Free (Buf : Ghdl_C_String); pragma Import (C, Free); - procedure Add_History (Line : Char_Ptr); + procedure Add_History (Line : Ghdl_C_String); pragma Import (C, Add_History); - function Strlen (Str : Char_Ptr) return Natural; - pragma Import (C, Strlen); - pragma Linker_Options ("-lreadline"); end Grt.Readline; -- cgit v1.2.3