From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.5 required=5.0 tests=BAYES_00,STOX_REPLY_TYPE
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Thread: 103376,146ef816afa699d1
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Received: by 10.68.22.230 with SMTP id h6mr25412997pbf.4.1319475958785;
        Mon, 24 Oct 2011 10:05:58 -0700 (PDT)
Path: 
 c1ni8228pbr.0!nntp.google.com!news1.google.com!goblin1!goblin.stu.neva.ru!newsfeed.straub-nv.de!news.mixmin.net!feed.xsnews.nl!border-3.ams.xsnews.nl!upload-2.xsnews.nl!10.10.69.1.MISMATCH!frontend-F09-01.ams.textnews.kpn.nl
From: "ldries46" <bertus.dries@planet.nl>
Newsgroups: comp.lang.ada
References: <4e9a9a6d$0$3238$703f8584@news.kpn.nl>
 <9fvo6aF3d6U1@mid.individual.net> <4e9ad365$0$3267$703f8584@news.kpn.nl>
 <9g02plFrnlU1@mid.individual.net> <4e9bdbc7$0$3240$703f8584@news.kpn.nl>
 <9g3f3kFfr7U1@mid.individual.net> <4e9d6722$0$3244$703f8584@news.kpn.nl>
 <9g5snkFlh0U1@mid.individual.net> <4e9e37ea$0$3272$703f8584@news.kpn.nl>
 <j7mo0r$cfc$1@dont-email.me>
In-Reply-To: <j7mo0r$cfc$1@dont-email.me>
Subject: Re: Length of unbounded_string.
Date: Mon, 24 Oct 2011 19:04:57 +0200
MIME-Version: 1.0
X-Priority: 3
X-MSMail-Priority: Normal
Importance: Normal
X-Newsreader: Microsoft Windows Live Mail 15.4.3538.513
X-MimeOLE: Produced By Microsoft MimeOLE V15.4.3538.513
Message-ID: <4ea59b8c$0$8049$703f8584@textnews.kpn.nl>
Organization: KPN.com
NNTP-Posting-Host: 77.168.179.107
X-Trace: 1319476108 textnews.kpn.nl 8049
 77.168.179.107@kpn/77.168.179.107:53375
Xref: news1.google.com comp.lang.ada:18685
Content-Type: text/plain;
	format=flowed;
	charset="iso-8859-1";
	reply-type=original
Content-Transfer-Encoding: 7bit
Date: 2011-10-24T19:04:57+02:00
List-Id: <comp.lang.ada>

No, while debugging I found tthat the first comma at the end of a line 
disappeared and concatenated to the following line.

The if statement may be not to logical but the different cases in which 
concatenation has to be done are al defined.
May be later on a better condition can be defined.

"Alex Mentis"  schreef in bericht news:j7mo0r$cfc$1@dont-email.me...

ldries46 wrote:

> The complete code of which I would conclude that the comma should be
> present is:
. . .
>            ch := Element(str, len);
>            if ch = ',' or (ch /= ';' and ch /= '{' and ch /= '}') then
                . . .
>            end if;

The check to see if ch = ',' seems superfluous here. Since ',' is not a
semi-colon or a brace, the (ch /= ';' and ch /= '{' and ch /= '}')
condition will suffice to execute this branch when ch = ',' (or any
other non semi-colon, left-brace, or right-brace character for that
matter).

Could your problem possibly be that you are appending in more cases
than you expect?

Alex