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=ham autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,bc010a2bdba758e8,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2002-03-11 11:42:53 PST
Path: archiver1.google.com!postnews1.google.com!not-for-mail
From: karlran1234@yahoo.com (Karl Ran)
Newsgroups: comp.lang.ada
Subject: Ada-kernel calls / IF & ELSE...
Date: 11 Mar 2002 11:42:52 -0800
Organization: http://groups.google.com/
Message-ID: <e7ebd224.0203111142.6801d352@posting.google.com>
NNTP-Posting-Host: 80.134.13.197
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit
X-Trace: posting.google.com 1015875772 31725 127.0.0.1 (11 Mar 2002 19:42:52
 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: 11 Mar 2002 19:42:52 GMT
Xref: archiver1.google.com comp.lang.ada:21073
Date: 2002-03-11T19:42:52+00:00
List-Id: <comp.lang.ada>

Hi,
I'm just starting to understand how to make Ada-kernel calls...

Has anyone compiled the Kernel Calls demo on
http://www.vaxxine.com/pegasoft/homes/13.html#13.5.4 
?

Here is a much simpler version:

-----------------------------------------------------
with Ada.Text_IO; use Ada.Text_IO;

procedure audiocd is 

  DevCDROM : constant string := "/dev/cdrom";

  type aFileID is new integer;

  procedure open( id : out aFileID;
                  path : string;
                  flags : integer );

  pragma import( C, open, "open");
  pragma import_valued_procedure( open );

  procedure perror( prefixstr : string );
  pragma import( C, perror, "perror");

  cd : aFileID;

begin

  Put_Line( "Openning " & DevCDROM & "..." );
  Open( cd, DevCDROM, 0 );

  if cd < 0 then
     perror( "IF: Error openning CDROM drive " );
  else
     Put_Line( "ELSE: opened CDROM drive successfully " );
  end if;

end audiocd; 
-----------------------------------------------------

>gnatmake -gnatwa audiocd.adb
gcc -c -gnatwa audiocd.adb
gnatbind -x audiocd.ali
gnatlink audiocd.ali

>./audiocd
Openning /dev/cdrom...
IF: Error openning CDROM drive ELSE: opened CDROM drive successfully :
No such file or directory


Would someone please explain whats going on here?

Is this just because of my bleeding-edge-suse71-gnat3.14p-unsupported
system or is normal?


Karl