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=-0.9 required=5.0 tests=BAYES_00,FORGED_GMAIL_RCVD,
	FREEMAIL_FROM autolearn=no autolearn_force=no version=3.4.4
X-Google-Thread: 103376,ba232ef32a8f7384,start
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news2.google.com!postnews.google.com!m58g2000cwm.googlegroups.com!not-for-mail
From: "Gene" <gene.ressler@gmail.com>
Newsgroups: comp.lang.ada
Subject: Help with Glade (Annex E) on Windows
Date: 28 Jan 2007 17:00:19 -0800
Organization: http://groups.google.com
Message-ID: <1170032419.418744.115020@m58g2000cwm.googlegroups.com>
NNTP-Posting-Host: 24.39.153.20
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"
X-Trace: posting.google.com 1170032431 22525 127.0.0.1 (29 Jan 2007 01:00:31
 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Mon, 29 Jan 2007 01:00:31 +0000 (UTC)
User-Agent: G2/1.0
X-HTTP-UserAgent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1;
 .NET CLR 1.1.4322; .NET CLR 2.0.50727),gzip(gfe),gzip(gfe)
Complaints-To: groups-abuse@google.com
Injection-Info: m58g2000cwm.googlegroups.com; posting-host=24.39.153.20;
   posting-account=ZFTPUQ0AAABW8AYEou9RtrBd-zTxz0_y
Xref: g2news2.google.com comp.lang.ada:8666
Date: 2007-01-28T17:00:19-08:00
List-Id: <comp.lang.ada>

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;