Variable length string

Variable length string

[Shitij]

Hi,
Iam new to ADA.I just wanted to know how do you define a variable length
string.I have declared a string array of length say a size of 20.But if I
use get and pass this string as an arguement,then unless and until I fill
this with exactly 20 characters my program is not working.How to overcome
this?
Iam using the below structure

type list;
 type pList is access list;
 type list is
record
   data:integer;
   str:string(1 .. 20);
   next:pList:=NULL;
  end record;

Re: Variable length string

[Petter Fryklund]

You might find Ada.Strings.FIxed.Move useful!

Shitij wrote in message <9l82gv$j83$1@news.mch.sbs.de>...
>Hi,
>Iam new to ADA.I just wanted to know how do you define a variable length
>string.I have declared a string array of length say a size of 20.But if I
>use get and pass this string as an arguement,then unless and until I fill
>this with exactly 20 characters my program is not working.How to overcome
>this?
>Iam using the below structure
>
>type list;
> type pList is access list;
> type list is
>record
>   data:integer;
>   str:string(1 .. 20);
>   next:pList:=NULL;
>  end record;
>
>

Re: Variable length string

[Des Walker]

Shitij wrote:
> 
> Hi,
> Iam new to ADA.I just wanted to know how do you define a variable length
> string.I have declared a string array of length say a size of 20.But if I
> use get and pass this string as an arguement,then unless and until I fill
> this with exactly 20 characters my program is not working.How to overcome
> this?
> Iam using the below structure
> 
> type list;
>  type pList is access list;
>  type list is
> record
>    data:integer;
>    str:string(1 .. 20);
>    next:pList:=NULL;
>   end record;

Hi,

I think the Text_Io Get procedure attempts to get as many characters as
the length of the supplied string and this can include multiple line
feed characters.

If you expect to input a single line of text you could use the Get_Line
procedure. This returns the index in the string of the last character
read, and you could store this information in your record so that you
could always access the appropriate slice of your string.

Alternatively, you could try using unbounded strings, they're a little
weightier on performance compared to standard strings, but keep track of
the length for you. An example of their use can be found through Section
8 of the Lovelace Tutorial.

http://www.adahome.com/Tutorials/Lovelace/lovelace.html

select the link of 'The master outline of all lessons'

	Regards
	Des Walker

Re: Variable length string

[Des Walker]

Des Walker wrote:
> 
> Hi,
> 
> I think the Text_Io Get procedure attempts to get as many characters as
> the length of the supplied string and this can include multiple line
> feed characters.
> 

No, I was wrong here. Rereading the ARM suggests the Get procedure for a
string
"Determines the length of the given string and attempts that number of
Get operations for successive characters of the string (in particular,
no operation is performed if the string is null)."

and the Get procedure for a Character
"After skipping any line terminators and any page terminators, reads the
next character from the specified input file and returns the value of
this character in the out parameter Item."

	Regards
	Des Walker

Re: Variable length string

[Larry Kilgallen]

In article <3B77E4A4.50FFA02B@amsjv.com>, Des Walker <des.walker@amsjv.com> writes:
> Des Walker wrote:
>> 
>> Hi,
>> 
>> I think the Text_Io Get procedure attempts to get as many characters as
>> the length of the supplied string and this can include multiple line
>> feed characters.
>> 
> 
> No, I was wrong here. Rereading the ARM suggests the Get procedure for a
> string
> "Determines the length of the given string and attempts that number of
> Get operations for successive characters of the string (in particular,
> no operation is performed if the string is null)."
> 
> and the Get procedure for a Character
> "After skipping any line terminators and any page terminators, reads the
> next character from the specified input file and returns the value of
> this character in the out parameter Item."

But one should not infer any lack of efficiency in the implementation
due to that description.  Anybody skilled enough to write an Ada compiler
knows how to make Get for a line operate without actual subprogram calls
for each character.  So long as the result is the same from the caller
point of view, semantic equivalence is enough.

Re: Variable length string

[Larry Kilgallen]

In article <9l82gv$j83$1@news.mch.sbs.de>, "Shitij" <shitij.sah@sisl.co.in> writes:
> Hi,
> Iam new to ADA.I just wanted to know how do you define a variable length
> string.I have declared a string array of length say a size of 20.But if I
> use get and pass this string as an arguement,then unless and until I fill
> this with exactly 20 characters my program is not working.How to overcome
> this?
> Iam using the below structure
> 
> type list;
>  type pList is access list;
>  type list is
> record
>    data:integer;
>    str:string(1 .. 20);
>    next:pList:=NULL;
>   end record;

My suggestion would be to consider the use of a discriminated record
(that term should be in the index of your textbook).  That way you
can make each string be exactly the right length.  You should have
a separate large string for a buffer to do the initial Get call for
each string.  Once you have received it, you know the proper length.

Re: Variable length string

[James Rogers]

Larry Kilgallen wrote:
> 
> In article <9l82gv$j83$1@news.mch.sbs.de>, "Shitij" <shitij.sah@sisl.co.in> writes:
> > Hi,
> > Iam new to ADA.I just wanted to know how do you define a variable length
> > string.I have declared a string array of length say a size of 20.But if I
> > use get and pass this string as an arguement,then unless and until I fill
> > this with exactly 20 characters my program is not working.How to overcome
> > this?
 (code snipped)
> My suggestion would be to consider the use of a discriminated record
> (that term should be in the index of your textbook).  That way you
> can make each string be exactly the right length.  You should have
> a separate large string for a buffer to do the initial Get call for
> each string.  Once you have received it, you know the proper length.

Another possibility is to use the Ada.Strings.Bounded package to create
a string type with a maximum size.

Jim Rogers
Colorado Springs, Colorado USA

Re: Variable length string

[DuckE]

If you're new to Ada, I suggest you browse through the facilities built into
the standard Ada libraries.

http://www.ada-auth.org/~acats/arm-html/RM-A.html

For the task at hand, I suggest you have a look at:
  Ada.Strings.Unbounded
 - or -
  Ada.Strings.Bounded


SteveD

"Shitij" <shitij.sah@sisl.co.in> wrote in message
news:9l82gv$j83$1@news.mch.sbs.de...
> Hi,
> Iam new to ADA.I just wanted to know how do you define a variable length
> string.I have declared a string array of length say a size of 20.But if I
> use get and pass this string as an arguement,then unless and until I fill
> this with exactly 20 characters my program is not working.How to overcome
> this?
> Iam using the below structure
>
> type list;
>  type pList is access list;
>  type list is
> record
>    data:integer;
>    str:string(1 .. 20);
>    next:pList:=NULL;
>   end record;
>
>

Re: Variable length string

[file13]

what you need is Ada.Strings.Fixed--as someone mentioned above....

Example:

with Ada.Text_IO; use Ada.Text_IO;
with Ada.Strings.Fixed; use Ada.Strings.Fixed;

procedure Tester is

    type List;
    type PList is access List;
    type List is
       record
          Data : Integer;
          Str  : String (1 .. 20);
          Next : PList := null;
       end record;

    List1 : List;

begin

    Move ("Howdy", List1.Str);  --  Part of Ada.Strings.Fixed
    Put_Line ("List1.Str: " & List1.Str);

end Tester;


Unbounded and Bounded strings have their own ways to do the same thing.

For more info check out

http://www.adahome.com/rm95/rm9x-A-04-03.html

--
file13
http://haxor.redcommandos.com/~file13/
--
"...war is about killing people and destroying things...that requirement 
is...best met through the use of Ada."
Lt. Col. John A. Hamilton Jr. U.S. Military Academy
http://www.stsc.hill.af.mil/crosstalk/1997/dec/languages.asp


Shitij wrote:
> Hi,
> Iam new to ADA.I just wanted to know how do you define a variable length
> string.I have declared a string array of length say a size of 20.But if I
> use get and pass this string as an arguement,then unless and until I fill
> this with exactly 20 characters my program is not working.How to overcome
> this?
> Iam using the below structure
> 
> type list;
>  type pList is access list;
>  type list is
> record
>    data:integer;
>    str:string(1 .. 20);
>    next:pList:=NULL;
>   end record;