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.3 required=5.0 tests=BAYES_00,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,5be080195a921f51
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2003-07-24 09:44:12 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!logbridge.uoregon.edu!snoopy.risq.qc.ca!newsfeed.news2me.com!elnk-nf2-pas!newsfeed.earthlink.net!stamper.news.pas.earthlink.net!stamper.news.atl.earthlink.net!harp.news.atl.earthlink.net!not-for-mail
From: Richard Riehle <richard@adaworks.com>
Newsgroups: comp.lang.ada
Subject: Re: What this program is going to do?
Date: Thu, 24 Jul 2003 09:47:51 -0700
Organization: AdaWorks Software Engineering
Message-ID: <3F200DB6.D59D24D6@adaworks.com>
References: <d40d7104.0307232339.4f4f1bf2@posting.google.com>
 <8765lsl4wp.fsf@inf.enst.fr>
Reply-To: richard@adaworks.com
NNTP-Posting-Host: 3f.bb.80.1e
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
X-Server-Date: 24 Jul 2003 16:46:04 GMT
X-Mailer: Mozilla 4.7 [en] (Win98; I)
X-Accept-Language: en
Xref: archiver1.google.com comp.lang.ada:40770
Date: 2003-07-24T16:46:04+00:00
List-Id: <comp.lang.ada>

Samuel Tardieu wrote:

> >>>>> "prashna" == prashna  <vashwath@rediffmail.com> writes:
>
> prashna> I found this program in source code of my project(code
> prashna> review).Can any one explain what this program does?
>
> Excuse me for being rude, but if you can't figure yourself what this
> function does, you are certainly not qualified to participate in a
> code review (except as a person whose code is being reviewed but it
> does not look like it's your code here).
>
> This function returns the integer part of the floating point
> variable. It does the same thing as:
>
> function Integer_Part (X : Float) is
> begin
>   if X >= 0.0 then
>     return Float'Floor (X);
>   else
>     return Float'Ceiling (X);
>   end if;
> end Integer_Part;

Sam.  I hate to be a nitpicker, but your function has not return type.

Richard Riehle