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 autolearn=ham
	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 01:17:20 PST
Path: 
 archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-06!sn-xit-05!sn-xit-09!supernews.com!news.maxwell.syr.edu!newsfeed.icl.net!newsfeed.fjserv.net!proxad.net!usenet-fr.net!enst.fr!beeblebrox!nobody
From: Samuel Tardieu <sam@rfc1149.net>
Newsgroups: comp.lang.ada
Subject: Re: What this program is going to do?
Date: Thu, 24 Jul 2003 10:12:22 +0200
Organization: Avian Carrier & Friends
Message-ID: <8765lsl4wp.fsf@inf.enst.fr>
References: <d40d7104.0307232339.4f4f1bf2@posting.google.com>
NNTP-Posting-Host: willow.enst.fr
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: avanie.enst.fr 1059034353 29071 137.194.161.3 (24 Jul 2003 08:12:33
 GMT)
X-Complaints-To: usenet@enst.fr
NNTP-Posting-Date: Thu, 24 Jul 2003 08:12:33 +0000 (UTC)
User-Agent: Gnus/5.090007 (Oort Gnus v0.07) XEmacs/21.5 (cauliflower,
 i386--freebsd)
Cancel-Lock: sha1:K+OQei7iTskyqipB79dLHUlHrYM=
X-Leafnode-NNTP-Posting-Host: 127.0.0.1
Xref: archiver1.google.com comp.lang.ada:40753
Date: 2003-07-24T10:12:22+02:00
List-Id: <comp.lang.ada>

>>>>> "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
-- 
Samuel Tardieu -- sam@rfc1149.net -- http://www.rfc1149.net/sam