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=-0.9 required=5.0 tests=BAYES_00,FORGED_GMAIL_RCVD,
	FREEMAIL_FROM autolearn=no autolearn_force=no version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!.POSTED!not-for-mail
From: =?UTF-8?Q?Bj=c3=b6rn_Lundin?= <b.f.lundin@gmail.com>
Newsgroups: comp.lang.ada
Subject: Re: Ada++
Date: Fri, 29 May 2020 13:09:18 +0200
Organization: A noiseless patient Spider
Message-ID: <raqqgu$nss$1@dont-email.me>
References: <50711230-5b14-4278-b9d8-d197bbe3c93b@googlegroups.com>
 <rapqt9$189k$1@gioia.aioe.org> <yS_zG.337746$mf1.50060@fx45.iad>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 8bit
Injection-Date: Fri, 29 May 2020 11:09:18 -0000 (UTC)
Injection-Info: reader02.eternal-september.org;
 posting-host="4d012a2ccab991762165f80b9f1f94f2";
	logging-data="24476"; mail-complaints-to="abuse@eternal-september.org";
	posting-account="U2FsdGVkX1/KH1UxDk1U3YE3RTHd1Mw1"
User-Agent: Mozilla/5.0 (Macintosh; Intel Mac OS X 10.13; rv:68.0)
 Gecko/20100101 Thunderbird/68.8.0
Cancel-Lock: sha1:q/uZbEz+zCxB+es89UomYxXVg0o=
In-Reply-To: <yS_zG.337746$mf1.50060@fx45.iad>
Content-Language: sv
Xref: reader01.eternal-september.org comp.lang.ada:58867
Date: 2020-05-29T13:09:18+02:00
List-Id: <comp.lang.ada>

Den 2020-05-29 kl. 04:57, skrev Rick Newbie:
> The curly braces are definitely not a problem

If you ever lost one in the middle, you know that they ARE a problem

end if/end case /end proc-name /end func.name /end package name /end 
loop etc
makes it much easier too see where somehing ends

switch (a)
{
    case 1 :
     {
       if (B==C)
       {
          while (true)
          {
            doSometing1();
            done = doSometing2();
            if done break;
          }
       }
    }
}

compared to

case a is
   when 1 =>
     if B = C then
       loop
          Do_Someting1;
          Done := Do_Someting2;
          exit when Done;
       end loop;
     end if;
   when others => null;
end case;


-- 
Björn