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-Thread: 103376,131f06967722ab4b,start
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!postnews.google.com!c13g2000cwb.googlegroups.com!not-for-mail
From: conradwt@runbox.com
Newsgroups: comp.lang.ada
Subject: Ada 2005?
Date: 17 Dec 2004 20:27:44 -0800
Organization: http://groups.google.com
Message-ID: <1103344064.372396.51420@c13g2000cwb.googlegroups.com>
NNTP-Posting-Host: 130.76.64.16
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"
X-Trace: posting.google.com 1103344069 23251 127.0.0.1 (18 Dec 2004 04:27:49
 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Sat, 18 Dec 2004 04:27:49 +0000 (UTC)
User-Agent: G2/0.2
Complaints-To: groups-abuse@google.com
Injection-Info: c13g2000cwb.googlegroups.com; posting-host=130.76.64.16;
   posting-account=2cgjjBMAAABgvdnIs0P9Xl7xUt0Ov5d9TxVz2CChb4Lc4MXNcZuFCw
Xref: g2news1.google.com comp.lang.ada:7043
Date: 2004-12-17T20:27:44-08:00
List-Id: <comp.lang.ada>

Hi, will Ada support keyword class for designing and implementing
classes?  For example, I'm forced to convert the following C++ class in
Ada as follows:

// C++

class A_Device {

public:

A_Device( char*, int, int );

char* Name( void );

int Major( void );

int Minor( void );

protected:

char* name;

int major;

int minor;
};

// Now, if I need to interact with the, this class I can do the
// following:

void main(void) {

A_Device aDevice = new A_Device( "Test", 1, 1 );

cout << aDevice.Name() << endl;
cout << aDevice.Major() << endl;
cout << aDevice.Minor() << endl;

}

// Ada

package Devices is

type Device is tagged private;

type Device_Type is access private;

function Create( Name : String,
Major : Integer,
Minor : Integer ) return Device_Type;

function Name( this : Device_Type ) return String;

function Major( this : Device_Type ) return Integer;

function Minor( this : Device_Type ) return Integer;

private

type Device is tagged

record

name : String(1..20);
major: Integer;
minor: Integer;

end record;

end Devices;

Now, interact with Ada package I would need to do the following:

procedure main

aDevice : Device_Type := Devices.Create( "Test", 1, 1 );

begin

Put_Line( Name( aDevice ) );
Put_Line( Major( aDevice ) );
Put_line( Minor( aDevice ) );

end main;

It seems that I'm trying to mimic the behavior of a OO language in a
procedural language when converting C++ to Ada.  Is this correct?  If
so, why doesn't Ada have OO contructs similar to C++,
Java, Eiffel, and Smalltalk to name a few where one passes a message to
an instance of a class?  Will this be something in Ada 2005 because I
have been able to find a good overview of the language to date?  Well,
I must go and thanks for any comments that you may send me.

-Conrad