Unbounded.String instead of Standard.String

Unbounded.String instead of Standard.String

[comicfanzine]

Hi ,

I want to use a String variable with no specific length and without a "declare" bloc .

I tried the following code which compile on Gnat 4.9 , Ubuntu 15.10 .

The problem is that at execution time , nothing happen .


with Ada.Text_IO; 
with Ada.Strings.Unbounded; 

use Ada.Text_IO; 
use Ada.Strings.Unbounded; 
 
procedure autre(var : String) is

 transform : Unbounded_String := To_Unbounded_String(Source => var) 
   
    
 begin
	get(transform);
end autre;

Re: Unbounded.String instead of Standard.String

[Jeffrey R. Carter]

On 12/27/2015 10:34 AM, comicfanzine@gmail.com wrote:
> 
> The problem is that at execution time , nothing happen .
> 
> 
> with Ada.Text_IO; 
> with Ada.Strings.Unbounded; 
> 
> use Ada.Text_IO; 
> use Ada.Strings.Unbounded; 
>  
> procedure autre(var : String) is
> 
>  transform : Unbounded_String := To_Unbounded_String(Source => var) 
>    
>     
>  begin
> 	get(transform);
> end autre;

What do you expect to happen?

-- 
Jeff Carter
"Who wears beige to a bank robbery?"
Take the Money and Run
144

Re: Unbounded.String instead of Standard.String

[Anh Vo]

On Sunday, December 27, 2015 at 9:39:36 AM UTC-8, Jeffrey R. Carter wrote:
> On 12/27/2015 10:34 AM, comicfanzine@gmail.com wrote:
> > 
> > The problem is that at execution time , nothing happen .
> > 
> > 
> > with Ada.Text_IO; 
> > with Ada.Strings.Unbounded; 
> > 
> > use Ada.Text_IO; 
> > use Ada.Strings.Unbounded; 
> >  
> > procedure autre(var : String) is
> > 
> >  transform : Unbounded_String := To_Unbounded_String(Source => var) 
> >    
> >     
> >  begin
> > 	get(transform);
> > end autre;
> 
> What do you expect to happen?

Here is a tiny hint. Linkable/Executable procedure has no parameter.

Anh Vo

Re: Unbounded.String instead of Standard.String

[comicfanzine]

> Here is a tiny hint. Linkable/Executable procedure has no parameter.
> 
> Anh Vo

I didn't knew that a main procedure has no parameter .
Plus , i was a beginner with ubunded_string , so here is the correction :

with Ada.Text_IO;
with Ada.Strings.Unbounded;
with Ada.Text_IO.Unbounded_IO;
  
use Ada.Text_IO;
use Ada.Strings.Unbounded;
use Ada.Text_IO.Unbounded_IO;
 
procedure autre is  
  var_string : Unbounded_String;
 begin
    get_line(var_string);
    put(var_string);
end autre;

Re: Unbounded.String instead of Standard.String

[Anh Vo]

On Wednesday, January 6, 2016 at 7:21:54 AM UTC-8, comicf...@gmail.com wrote:
> > Here is a tiny hint. Linkable/Executable procedure has no parameter.
> > 
> > Anh Vo
> 
> I didn't knew that a main procedure has no parameter .
> Plus , i was a beginner with ubunded_string , so here is the correction :
> 
> with Ada.Text_IO;
> with Ada.Strings.Unbounded;
> with Ada.Text_IO.Unbounded_IO;
>   
> use Ada.Text_IO;
> use Ada.Strings.Unbounded;
> use Ada.Text_IO.Unbounded_IO;
>  
> procedure autre is  
>   var_string : Unbounded_String;
>  begin
>     get_line(var_string);
>     put(var_string);
> end autre;

To make it clearer I would suggest to add a statement before get_line telling the operator to type a message.

     put ("Please type a message then press Enter key: ");