Login
Username:

Password:

Remember me



Lost Password?

Register now!

Sections

Who's Online
75 user(s) are online (70 user(s) are browsing Forums)

Members: 1
Guests: 74

AmigaSociety, more...

Support us!
Donate

Headlines
Recent files - OS4Depot - Your one stop for AmigaOS4 files

 
Jump to the bottom of the page Bottom    View previous topic Previous Topic    View next topic Next Topic

  Register To Post  

Spirantho
Help with ARexx from C to a Blitz host?
Posted on: 2014/12/17 11:18    #1
Quite a regular
Quite a regular


See User information
Hi everybody,

I'm having trouble with ARexx.

I have "borrowed" the ARexx example code from here:
http://thomas-rapp.homepage.t-online.de/examples/rexx.c

I've also checked against other examples and it seems fine.

All I ever get is "Sending notification..", then "Sending message to port... *correct address here*".. and then "Waiting for Reply..."

It never returns. RX_TEST is a Blitz program which just sits waiting for an AREXX event.

I can send messages to the Blitz program via Rx or SendRexx on Aminet. Both work perfectly.
I can send messages using my program to other programs such as MiamiDx or Scout. They work perfectly.
But trying to send a messagr from my program to the Blitz program, the Blitz program never receives the message so my code hangs waiting for a reply that never arrives (because the Blitz program never received it).

Can anyone help? This has me stumped!

int TestRexx( void )
{
    struct RexxMsg *rexx_msg = NULL;
    const char *end_of_song_text = "HELLO";
    struct MsgPort *msgport = NULL;

    printf( "Opening library.\n" );

    if ( RexxSysBase == NULL )
    {
        RexxSysBase = (struct RxsLib *)OpenLibrary( "rexxsyslib.library", 0L );
    }

    test_reply_port = CreateMsgPort();

    printf( "Sending notification to RX_TEST.\n", 0 );
//return;

    if ( test_reply_port != NULL )
    {
        // Create the Msg with a reply port.
        rexx_msg = CreateRexxMsg( test_reply_port, NULL, NULL );

        if ( rexx_msg != NULL )
        {
            // We have a REXX message port and we're not afraid to use it!
            rexx_msg->rm_Action = RXCOMM | RXFF_RESULT;
            rexx_msg->rm_Args[ 0 ] = CreateArgstring( (char *)end_of_song_text, strlen( end_of_song_text ));
//            rexx_msg->rm_Stdin = rexx_msg->rm_Stdout = NULL;

            if ( FillRexxMsg( rexx_msg, 1, 0 ) != NULL )
            {
                Forbid();
                msgport = FindPort( "RX_TEST" );
                Permit();

                if ( msgport != NULL )
                {
                    printf( "Sending message to port %p.\n", (ULONG)msgport );
                    PutMsg( msgport, &rexx_msg->rm_Node );
                    printf( "Waiting for reply...\n", 0 );
                    WaitPort( test_reply_port );
                    GetMsg( test_reply_port );
                    printf( "reply received.\n", 0 );
                    if ( rexx_msg != NULL )
                    {
                        if ( rexx_msg->rm_Result1 == 0 )
                        {
                            // With a zero error code, Result 2 is a STRPTR.
                            if ( rexx_msg->rm_Result2 != NULL )
                            {
                                DeleteArgstring( (STRPTR)rexx_msg->rm_Result2 );
                            }
                        }
                    }
                }
                else
                {
                    printf( "No target port found.\n", 0 );
                }

                ClearRexxMsg( rexx_msg, 1 );

                if ( rexx_msg->rm_Args[ 0 ] != NULL )
                {
                    DeleteArgstring( rexx_msg->rm_Args[ 0 ] );
                }
            }
            DeleteRexxMsg( rexx_msg );
            rexx_msg = NULL;
        }
    }
    else
    {
        printf( "No reply msgport available.\n", 0 );
    }

    DeleteMsgPort(test_reply_port);
}

--
Ian Gledhill
ian.gledhill@btinternit.com (except it should be internEt of course...!)
Check out my company's shop: http://www.mutant-caterpillar.co.uk/shop/ - specialising in Sinclair Spectrums but will be adding Amigas!
Go to top
broadblues
Re: Help with ARexx from C to a Blitz host?
Posted on: 2014/12/17 14:14    #2
Home away from home
Home away from home


See User information
@Spirantho

Try set the name in the node in the Rexx message. Some programs do check for the "REXX" string there.

from ProAction srces.

/* fake that it's from REXX to work round python bug*/
                ((struct Node*)rmsg)->ln_Name = "REXX";



(the python bug refrered is fixed by the way)
Blender For OS4.x : Blues : Walker Broad
Go to top
Spirantho
Re: Help with ARexx from C to a Blitz host?
Posted on: 2014/12/17 15:55    #3
Quite a regular
Quite a regular


See User information
You, Sir, are (as they say) "Da Man".

It seems like Blitz Basic has the same problem as Python! If you don't set the node manually, even if you use CreateRexxMsg, Blitz just completely ignores it! How very useful!

It works now :)
--
Ian Gledhill
ian.gledhill@btinternit.com (except it should be internEt of course...!)
Check out my company's shop: http://www.mutant-caterpillar.co.uk/shop/ - specialising in Sinclair Spectrums but will be adding Amigas!
Go to top
Daedalus
Re: Help with ARexx from C to a Blitz host?
Posted on: 2014/12/17 15:57    #4
Not too shy to talk
Not too shy to talk


See User information
@Spirantho

There are a couple of different ways of using ARexx in Blitz, and I remember a long time ago having a similar problem myself. I switched to a different library and the problem went away, so it was probably a bug in that particular library. There are at least 2 ARexx libraries, plus the ARexx include that can be used... Which method are you using?

Another potential issue is that perhaps the Blitz demo isn't issuing a correct acknowledgement reply, or any reply at all. Some other applications might not wait for the response and just leave the reply port open until it arrives, meaning they'll still work with a host that doesn't reply properly/at all, whereas your code sits and waits for the acknowledgement.

I have various Blitz programs that can all use ARexx in both directions. I can probably dig up some example source code if you need it?
Go to top
Spirantho
Re: Help with ARexx from C to a Blitz host?
Posted on: 2014/12/17 16:36    #5
Quite a regular
Quite a regular


See User information
It's sorted for now, but thanks!
We're using the built-in commands, not the add-on pack. It was just not receiving it, though - obviously it was checking the AREXX port name for some reason!
--
Ian Gledhill
ian.gledhill@btinternit.com (except it should be internEt of course...!)
Check out my company's shop: http://www.mutant-caterpillar.co.uk/shop/ - specialising in Sinclair Spectrums but will be adding Amigas!
Go to top

  Register To Post

 
Jump to the top of the page Top    View previous topic Previous Topic    View next topic Next Topic




Currently Active Users Viewing This Thread: 1 ( 0 members and 1 Anonymous Users )




Powered by XOOPS 2.0 © 2001-2024 The XOOPS Project