Re: Rename Problem

On Mar 6, 9:53 am, Georg Bauhaus <bauh...@xxxxxxxxxxxxx> wrote:
On Tue, 2007-03-06 at 08:17 -0800, Ant wrote:
I am trying to rename an array component, but no luck. Is this
possible or am I just doing something wrong?

TYPE message_array IS ARRAY (index) OF signals_record;
msg : message_array;

PACKAGE m1 IS NEW transmit_message (id, type);

^^^^
"type" is an Ada keyword. What is transmit_message?

msg (1) : signals RENAMES m1.signals_record;

^^^^^^^^^^^^^^^^^
This is probably a type, if signals_record from above is a type.

If you want to rename a component of msg, msg (1) say,
then the renamed thing is an object. In this case it is
of type signals_record. Not easy to tell without seeing
some more source, preferably compilable.

... : signals_record RENAMES msg (1);

This test procedure should compile. Sorry for the laziness.

PROCEDURE test IS

-------------------------------------------
GENERIC -- receive message --

id : integer;

TYPE message_type IS PRIVATE;

PACKAGE transmit_message IS

PROCEDURE write;

END transmit_message;
-------------------------------------------


-----------------------------------------------------------------------------
PACKAGE BODY transmit_message IS

PROCEDURE write IS
BEGIN
null;
END write;

END transmit_message;

-----------------------------------------------------------------------------

-------------------------------------------
TYPE signals_record IS
RECORD
data1 : boolean;
data2 : boolean;
END RECORD;

FOR signals_record USE
RECORD
data1 AT 0 RANGE 0 .. 15;
data2 AT 0 RANGE 16 .. 31;
END RECORD;
-------------------------------------------

SUBTYPE msg_count IS integer RANGE 1 .. 4;
TYPE message_array IS ARRAY (msg_count) OF signals_record;
msg : message_array;

id : integer := 1;

PACKAGE m1 IS NEW transmit_message (id, signals_record);

msg (1) : signals RENAMES m1.signals_record;

END test;

.

Relevant Pages

  • Failed while delivering a message to a service instance error
    ... BTXService.HandleSpecialMessage(IBTMessage msg) ... md, Objectargs, Object server, Int32 methodPtr, Boolean fExecuteInContext, ...
    (microsoft.public.biztalk.general)
  • Re: CommandBuilder bringt Fehlermeldung!
    ... catch (Exception ex) ... at System.Windows.Forms.ContainerControl.ActivateControlInternal(Control control, Boolean originator) ... at System.Windows.Forms.ContainerControl.ProcessDialogKey(Keys keyData) ... at System.Windows.Forms.Control.PreProcessControlMessageInternal(Control target, Message& msg) ...
    (microsoft.public.de.german.entwickler.dotnet.csharp)
  • Is this a bug?
    ... results in the error message ... catch {package require notFound} msg ... It appears the global msg and the::foo msg ...
    (comp.lang.tcl)
  • Re: Rename Problem
    ... PACKAGE transmit_message IS ... msg: signals RENAMES m1.signals_record; ... Jeff Carter ...
    (comp.lang.ada)
  • Re: Mail Tools 1.74 installs but get error
    ... Can't locate object method "send=hash" via package ... line 22, <VAULT> line 2318518. ... $msg = new Mail::Send ...
    (comp.lang.perl.modules)