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.107.14.10 with SMTP id 10mr24239734ioo.18.1517471731283;
        Wed, 31 Jan 2018 23:55:31 -0800 (PST)
X-Received: by 10.157.90.130 with SMTP id w2mr1952425oth.14.1517471730982;
 Wed, 31 Jan 2018 23:55:30 -0800 (PST)
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!feeder.eternal-september.org!border1.nntp.ams1.giganews.com!nntp.giganews.com!peer02.ams1!peer.ams1.xlned.com!news.xlned.com!peer01.am4!peer.am4.highwinds-media.com!peer03.iad!feed-me.highwinds-media.com!news.highwinds-media.com!g80no142042itg.0!news-out.google.com!s63ni210itb.0!nntp.google.com!w142no141815ita.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Wed, 31 Jan 2018 23:55:30 -0800 (PST)
In-Reply-To: <p4tmt9$p48$1@franka.jacob-sparre.dk>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=176.130.29.212;
 posting-account=6yLzewoAAABoisbSsCJH1SPMc9UrfXBH
NNTP-Posting-Host: 176.130.29.212
References: <575826a1-c983-49aa-95e2-54048f6b7b5b@googlegroups.com>
 <da6805ff-8429-4ca0-bbb5-f5462040989d@googlegroups.com>
 <p4tmt9$p48$1@franka.jacob-sparre.dk>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <1b89075d-c284-4358-93b9-704e4b079292@googlegroups.com>
Subject: Re: [ANN] List_Image v0.2.0
From: briot.emmanuel@gmail.com
Injection-Date: Thu, 01 Feb 2018 07:55:31 +0000
Content-Type: text/plain; charset="UTF-8"
X-Received-Body-CRC: 1617938909
X-Received-Bytes: 2283
Xref: reader02.eternal-september.org comp.lang.ada:50237
Date: 2018-01-31T23:55:30-08:00
List-Id: <comp.lang.ada>

> Ada defined System.System_Name for this sort of purpose, but since it is a 
> constant and it is implementation-defined, it is is of limited use for this 
> purpose.

Apparently GNAT uses it to indicate the "compilation system":

   type Name is (SYSTEM_NAME_GNAT);
   System_Name : constant Name := SYSTEM_NAME_GNAT;

So not very useful in our context either.


Apparently, it has no publicly available entity that would provide that information,
either, so a lot of projects simply do:

   Is_Windows : constant Boolean :=
         GNAT.OS_Lib.Directory_Separator := '\';

Does Janus/Ada have a similar directory_separator somewhere ? Seems like this kind of constant should be standard somewhere. Claiming Ada code is portable is nice (and
mostly true), but I believe almost all  multi-platform projects end up with such a
requirement, in practice, if only to properly handle file names.
If thought Ada.Directories might help here, but apparently not.

Emmanuel