test with task

test with task

[Maurizio]

i'm a ada newbie

ad image is better than 1000 words
http://img112.exs.cx/img112/3417/DSC08831.jpg

is possible do this?

package A is generic and the task use his procedure.
in package B there is array of task.

package A create a new task and add it on the array of package B.

ps
this is not home work, only i try to learn ada :)

best regards from italy
Maurizio

Re: test with task

[mferracini]

new problem :) (i try a solution of my problem but dont' work...)

package Foo is
package Bar is
procedure nulla;
end Bar;
end Foo;

package body Foo is
package body Bar is
type Dummy is new Integer;
procedure Nulla is
X : Dummy;
begin
X:=1;
end Nulla;
end Bar;
type N_array is array (1..10) of dummy;
begin
null;
end Foo;

--------------------------------
how make dummy visible? and if dummy is a task type?

thanks

Re: test with task

[mferracini]

new problem :) (i try a solution of my problem but dont' work...)

package Foo is
package Bar is
procedure nulla;
end Bar;
end Foo;

package body Foo is
package body Bar is
type Dummy is new Integer;
procedure Nulla is
X : Dummy;
begin
X:=1;
end Nulla;
end Bar;
type N_array is array (1..10) of dummy;
begin
null;
end Foo;

--------------------------------
how make dummy visible? and if dummy is a task type?

thanks

Re: test with task

[Jeffrey Carter]

mferracini wrote:

> package Foo is
>    package Bar is
>       procedure nulla;
>    end Bar;
> end Foo;
> 
> package body Foo is
>    package body Bar is
>       type Dummy is new Integer;
>       procedure Nulla is
>          X : Dummy;
>       begin
>          X:=1;
>       end Nulla;
>    end Bar;
>    type N_array is array (1..10) of Dummy;

type N_Array is array (1 .. 10) of Bar.Dummy;

> begin
>    null;
> end Foo;


-- 
Jeff Carter
"We use a large, vibrating egg."
Annie Hall
44

Re: test with task

[mferracini]

Jeffrey Carter wrote:

> >    type N_array is array (1..10) of Dummy;
>
> type N_Array is array (1 .. 10) of Bar.Dummy;
> 

foo.adb:10:40 "dummy" is not a visible entity of "bar"

Re: test with task

[Jeffrey Carter]

mferracini wrote:

> Jeffrey Carter wrote:
> 
>>>   type N_array is array (1..10) of Dummy;
>>
>>type N_Array is array (1 .. 10) of Bar.Dummy;
> 
> foo.adb:10:40 "dummy" is not a visible entity of "bar"

By now I've forgotten the original post. If Dummy is not declared in the 
visible part of the specification of Bar, then it cannot be referenced 
outside Bar.

-- 
Jeff Carter
"In the frozen land of Nador they were forced to
eat Robin's minstrels, and there was much rejoicing."
Monty Python & the Holy Grail
70

Re: test with task

[Björn Lundin]

torsdag 25 november 2004 11:52 skrev mferracini:
> Jeffrey Carter wrote:
> > >    type N_array is array (1..10) of Dummy;
> >
> > type N_Array is array (1 .. 10) of Bar.Dummy;
>
> foo.adb:10:40 "dummy" is not a visible entity of "bar"

Move the declaration of dummy to bar spec as in

 package Foo is
    package Bar is
       type Dummy is new Integer;
       procedure nulla;
    end Bar;
 end Foo;
 
 package body Foo is
    package body Bar is
-- moved to spec       type Dummy is new Integer;
       procedure Nulla is
          X : Dummy;
       begin
          X:=1;
       end Nulla;
    end Bar;
   type N_Array is array (1 .. 10) of Bar.Dummy;
end Foo;

/Björn
>
> _______________________________________________
> comp.lang.ada mailing list
> comp.lang.ada@ada-france.org
> http://www.ada-france.org/mailman/listinfo/comp.lang.ada

test with task

[Brittany]

Move the declaration of dummy to bar spec as in

 package Foo is
    package Bar is
       type Dummy is new Integer;
       procedure nulla;
    end Bar;
 end Foo;
 
 package body Foo is
    package body Bar is
-- moved to spec       type Dummy is new Integer;
       procedure Nulla is
          X : Dummy;
       begin
          X:=1;
       end Nulla;
    end Bar;
   type N Array is array (1 .. 10) of Bar.Dummy;
end Foo;

/Bj rn
>
>                                                
> comp.lang.ada mailing list
> comp.lang.ada@ada-france.org
> http://www.ada-france.org/mailman/listinfo/comp.lang.ada
Post a follow-up to this message

Message 7 in thread 
From: mferracini (maurizio.ferracini@gmail.com)
Subject: Re: test with task 
 
  
View this article only 
Newsgroups: comp.lang.ada
Date: 2004-11-23 08:37:22 PST 
 

new problem :) (i try a solution of my problem but dont' work...)

package Foo is
package Bar is
procedure nulla;
end Bar;
end Foo;

package body Foo is
package body Bar is
type Dummy is new Integer;
procedure Nulla is
X : Dummy;
begin
X:=1;
end Nulla;
end Bar;
type N_array is array (1..10) of dummy;
begin
null;
end Foo;

--------------------------------
how make dummy visible? and if dummy is a task type?

thanks
http://www.geocities.com/gooksite/googlegrp.html