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.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM
	autolearn=unavailable autolearn_force=no version=3.4.4
X-Received: by 10.58.39.202 with SMTP id r10mr3521618vek.12.1383850792361;
 Thu, 07 Nov 2013 10:59:52 -0800 (PST)
X-Received: by 10.49.76.38 with SMTP id h6mr287774qew.9.1383850792340; Thu, 07
 Nov 2013 10:59:52 -0800 (PST)
Path: 
 border2.nntp.dca3.giganews.com!backlog4.nntp.dca3.giganews.com!border4.nntp.dca.giganews.com!border2.nntp.dca.giganews.com!border3.nntp.dca.giganews.com!border1.nntp.dca.giganews.com!nntp.giganews.com!o2no24466703qas.0!news-out.google.com!9ni16024qaf.0!nntp.google.com!i2no15492501qav.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Thu, 7 Nov 2013 10:59:52 -0800 (PST)
In-Reply-To: <alpine.DEB.2.10.1311070825170.26025@debian>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=93.37.95.24;
 posting-account=9fwclgkAAAD6oQ5usUYhee1l39geVY99
NNTP-Posting-Host: 93.37.95.24
References: <19b9cc6b-28a4-45e4-939c-7720ae5666b9@googlegroups.com>
 <8a7f97ef-672e-4930-9502-e1202dd158fd@googlegroups.com>
 <60be5eb1-85e0-43c5-8c81-d191ee805dd3@googlegroups.com>
 <alpine.DEB.2.10.1311070825170.26025@debian>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <ba0f1167-79fa-4e3e-9191-e08237ccfccc@googlegroups.com>
Subject: Re: Question about asynchronous calls
From: mockturtle <framefritti@gmail.com>
Injection-Date: Thu, 07 Nov 2013 18:59:52 +0000
Content-Type: text/plain; charset=ISO-8859-1
X-Original-Bytes: 2281
Xref: number.nntp.dca.giganews.com comp.lang.ada:183795
Date: 2013-11-07T10:59:52-08:00
List-Id: <comp.lang.ada>

On Thursday, November 7, 2013 8:46:54 AM UTC+1, Stefan...@uni-weimar.de wrote:
> On Wed, 6 Nov 2013, mockturtle wrote:
> 
> 
> 
> > type Matlab_Name is new
> >     String
> >   with Dynamic_Predicate =>
> >     (for all I in Matlab_Name'Range =>
> >        Is_Alphanumeric (Matlab_Name (I)) or Matlab_Name (I) = '_')
> >     and
> >       Is_Letter (Matlab_Name (Matlab_Name'First));
> 
> 
> 
> I suggest to write the following.
> 
>    with Dynamic_Predicate =>
>      (  Natlab_Name'Length > 0
>       and then
>         Is_Letter (Matlab_Name (Matlab_Name'First)
>       and then
>         for all I in Matlab_Name'First+1 .. Matlab'Last =>
>           Is_Alphanumeric (Matlab_Name (I)) or Matlab_Name (I) = '_')
>      );
> 
> (Warning: not syntax checked!)
> 
> The "Natlab_Name'Length > 0 and then" part is important -- your code would 
> raise Constraint_Error if the Matlab_Name is the empty string.

Ops! Touche! You are right...  :-)


>