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-Thread: 103376,f0aecf9351d714ac
X-Google-Attributes: gid103376,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news2.google.com!news.glorb.com!newsfeed2.telusplanet.net!newsfeed.telus.net!edtnps82.POSTED!023a3d7c!not-for-mail
Sender: blaak@METROID
Newsgroups: comp.lang.ada
Subject: Re: C Macros and their equivalent in Ada
References: 
 <f0560361-31c2-4a3d-851c-639cdfc5ac46@i76g2000hsf.googlegroups.com>
 <Pine.WNT.4.64.0809091436240.3584@teor1>
From: Ray Blaak <rAYblaaK@STRIPCAPStelus.net>
Message-ID: <uej3tth30.fsf@STRIPCAPStelus.net>
Organization: The Transcend
User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.1
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Date: Tue, 09 Sep 2008 16:33:10 GMT
NNTP-Posting-Host: 208.66.252.228
X-Trace: edtnps82 1220977990 208.66.252.228 (Tue, 09 Sep 2008 10:33:10 MDT)
NNTP-Posting-Date: Tue, 09 Sep 2008 10:33:10 MDT
Xref: g2news1.google.com comp.lang.ada:1962
Date: 2008-09-09T16:33:10+00:00
List-Id: <comp.lang.ada>

Colin Paul Gloster <Colin_Paul_Gloster@ACM.org> writes:
> On Tue, 9 Sep 2008, RasikaSrinivasan@gmail.com wrote:
> |"are there Ada equivalents of the C macros like :                |
> |                                                                 |
> |__DATE__, __TIME__                                               |
>
> How about the function Ada.Calendar.Clock to get the current instant

The idea is to get the date/time the file was compiled.

Rasika, what I have often done is generate a source file from my build script
that has the version and build dates baked in. E.g. using ant:

  <property name="VERSION" value="1.1"/>

  <target name="generate.version">
    <tstamp>
      <format property="yyyyMMdd" pattern="yyyyMMdd"/>
    </tstamp>
    <echo file="src/Support/Version.adb">
package body Version is

  function Version return String is
  begin
    return "${VERSION}";
  end;

  function Build return String is
  begin
    return "${yyyyMMdd}";
  end;
end;
    </echo>
  </target>

Apologies for any errors, but it should get the idea across.

-- 
Cheers,                                        The Rhythm is around me,
                                               The Rhythm has control.
Ray Blaak                                      The Rhythm is inside me,
rAYblaaK@STRIPCAPStelus.net                    The Rhythm has my soul.