Re: newbie - OOP in Ada Set and Get Methods

["R" <ruthless@poczta.onet.pl>]

Jeff C r e e.m wrote:
> It is not possible for anyone to answer this question since we don't
know
> what you
> are trying to accomplish.

I'm only trying to write a constructor.
Package testclass.
testclass.Create is meant to be my constructor

given main unit:

with Text_IO;
use Text_IO;
with testclass; -- include testclass package

procedure Main is
object : testclass.rec1_Type := testclass.Create(10);
begin
Put_Line(Integer'Image(testclass.Get(object)));
end Main;

testclass specyfication:

package testclass is
type rec1 is tagged private;

type rec1_Type is access rec1;

function Create(s: Integer) return rec1_Type;
function Set(this: rec1_Type; s: Integer) return Integer;
function Get(this: rec1_Type) return Integer;

private
type rec1 is tagged record
field: Integer;
end record;
end testclass;

testclass body:

package body testclass is

function Create(s: Integer) return rec1_Type is
begin
return testclass.rec1_Type(field=>s);
end Create;

function Set(this: rec1_Type; s: Integer) return Integer is
begin
this.field := s;
return this.field;
end Set;

function Get(this: rec1_Type) return Integer is
begin
return this.field;
end Get;

end testclass;

during compilation gnatmake points an error to:

return testclass.rec1_Type(field=>s);

$ gcc -c testclass.adb
testclass.adb:5:33: invalid prefix in call
gnatmake: "testclass.adb" compilation error
(the 5th line of testclass is return statement)


and I don't know how to write this constructor to return the access
type rec1_Type to rec1
hope it helps to help me ;-)

thanks in advance

best regards
R