Help with Glade (Annex E) on Windows
- From: "Gene" <gene.ressler@xxxxxxxxx>
- Date: 28 Jan 2007 17:00:19 -0800
Is there someone who can help with Glade setup on Windows? Have tried
both Academic and free GPL versions. Gnatdist builds clean with MSYS
(current version .10). The bank example works fine. Two of the prime
number finding examples work fine. Two hang after partial output.
Recursive calls seem to cause this. The Adacore folks are looking at
it.
This is for a student who's trying to parallelize a genetic
algorithm. Should be a nice project if we can get off the ground.
The trivial RCI code (below) works fine with all partitions on one
host. When we put a partition on a separate host, no output. Clearly
I'm missing something.
To eliminate the Starter, I have tried starting the partitions
manually with the following commands:
On host 10.1.0.30:
c:\bin\partition_0 --boot_location tcp://10.1.0.30:1234
On host 10.254.254.10:
c:\bin\partition_1 --boot_location tcp://10.1.0.30:1234
Result is same... Just hung partition processes.
Thanks in advance.
Gene
-- static.cfg
configuration Static is
pragma Starter(Ada);
for Partition'Directory use "/bin";
Partition_0 : Partition := ();
for Partition_0'host use "10.1.0.30";
procedure Main is in Partition_0;
Partition_1 : Partition := (Report_1);
for Partition_1'host use "10.254.254.10";
end Static;
-- report_1.ads
package Report_1 is
pragma Remote_Call_Interface;
function Identity(X : in Integer) return Integer;
procedure Echo(Rtn : out Integer; X : in Integer);
end Report_1;
-- report_1.adb
with Report;
package body Report_1 is
function Identity(X : in Integer) return Integer
renames Report.Identity;
procedure Echo(Rtn : out Integer; X : in Integer)
renames Report.Echo;
end Report_1;
-- report.ads
package Report is
function Identity(X : in Integer) return Integer;
procedure Echo(Rtn : out Integer; X : in Integer);
end Report;
-- report.adb
package body Report is
function Identity(X : in Integer) return Integer is
begin
return X;
end Identity;
procedure Echo(Rtn : out Integer; X : in Integer) is
begin
Rtn := X;
end Echo;
end Report;
-- main.adb
with Ada.Text_IO; use Ada.Text_IO;
with Report_1;
procedure Main is
I : Integer := 0;
begin
Put_Line("Start:");
Report_1.Echo(I, Report_1.Identity(I+1));
Put_Line(Integer'Image(I));
-end Main;
.
- Follow-Ups:
- Re: Help with Glade (Annex E) on Windows
- From: Dr. Adrian Wrigley
- Re: Help with Glade (Annex E) on Windows
- Prev by Date: Re: How come Ada isn't more popular?
- Next by Date: Re: How come Ada isn't more popular?
- Previous by thread: In Rememberance of Jean Ichbiah
- Next by thread: Re: Help with Glade (Annex E) on Windows
- Index(es):
Relevant Pages
|
