static void Read_product()
{
RPG_LDM_msg_hdr_t *msg_hdr = NULL;
/* Read control word to get size of message. */
Read_control_word();
if( Print_LDM_control_word_flag )
{
Print_out( "CONTROL WORD = %d bytes", Msg_size );
}
/* Read message. */
Read_message();
msg_hdr = (RPG_LDM_msg_hdr_t *) &Msg_buf[0];
if( Print_msg_hdr_flag )
{
Print_RPG_LDM_msg_hdr( &Msg_buf[0], FORMAT_MSG_HDR_ALL );
}
Product_index = msg_hdr->code;
Data_ptr = &Msg_buf[Msg_hdr_size];
Data_size = msg_hdr->size;
WMO_header_size = msg_hdr->wmo_header_size;
}
/* bug in BSDI */
sched_yield();
#endif
}
#else /* _REENTRANT */
#ifndef ARCH_PC_WIN95
E_handle_events();
#else /* ARCH_PC_WIN95 */
for(;;)
User_command();
#endif /* ARCH_PC_WIN95 */
#endif /* _REENTRANT */
return( 0 );
}
#ifdef _REENTRANT
#ifndef ARCH_PC_WIN95
static void *Read_thread_routine()
#else /* ARCH_PC_WIN95 */
static DWORD WINAPI Read_thread_routine( void *dummy)
#endif /* ARCH_PC_WIN95 */
{
for(;;)
{
Read_message();
}
return( 0 );
}
static void User_command()
{
char command[130];
char mess[MAX_MESSLEN];
char group[80];
char groups[10][MAX_GROUP_NAME];
int num_groups;
unsigned int mess_len;
int ret;
int i;
for( i=0; i < sizeof(command); i++ ) command[i] = 0;
if( fgets( command, 130, stdin ) == NULL )
Bye();
switch( command[0] )
{
case 'j':
ret = sscanf( &command[2], "%s", group );
if( ret < 1 )
{
printf(" invalid group \n");
break;
}
ret = SP_join( Mbox, group );
if( ret < 0 ) SP_error( ret );
break;
case 'l':
ret = sscanf( &command[2], "%s", group );
if( ret < 1 )
{
printf(" invalid group \n");
break;
}
ret = SP_leave( Mbox, group );
if( ret < 0 ) SP_error( ret );
break;
case 's':
num_groups = sscanf(&command[2], "%s%s%s%s%s%s%s%s%s%s",
groups[0], groups[1], groups[2], groups[3], groups[4],
groups[5], groups[6], groups[7], groups[8], groups[9] );
if( num_groups < 1 )
{
printf(" invalid group \n");
break;
}
printf("enter message: ");
if (fgets(mess, 200, stdin) == NULL)
Bye();
mess_len = strlen( mess );
#ifdef _REENTRANT
#ifdef __bsdi__ /* bsdi bug - doing a close when another thread blocks on the socket causes a seg fault */
ret = send( Mbox, mess, 0, 0 );
if( ret < 0 )
{
SP_error( CONNECTION_CLOSED );
Bye();
}
#endif /* __bsdi__ */
#endif /* _REENTRANT */
ret= SP_multigroup_multicast( Mbox, SAFE_MESS, num_groups, (const char (*)[MAX_GROUP_NAME]) groups, 1, mess_len, mess );
if( ret < 0 )
{
SP_error( ret );
Bye();
}
Num_sent++;
break;
case 'b':
ret=sscanf( &command[2], "%s", group );
if( ret != 1 ) strcpy( group, "dummy_group_name" );
printf("enter size of each message: ");
if (fgets(mess, 200, stdin) == NULL)
Bye();
ret=sscanf(mess, "%u", &mess_len );
if( ret !=1 ) mess_len = Previous_len;
if( mess_len > MAX_MESSLEN ) mess_len = MAX_MESSLEN;
Previous_len = mess_len;
printf("sending 10 messages of %u bytes\n", mess_len );
for( i=0; i<10; i++ )
{
Num_sent++;
sprintf( mess, "mess num %d ", Num_sent );
#ifdef _REENTRANT
#ifdef __bsdi__ /* bsdi bug - doing a close when another thread blocks on the socket causes a seg fault */
ret = send( Mbox, mess, 0,0 );
if( ret < 0 )
{
SP_error( CONNECTION_CLOSED );
Bye();
}
#endif /* __bsdi__ */
#endif /* _REENTRANT */
ret= SP_multicast( Mbox, FIFO_MESS, group, 2, mess_len, mess );
if( ret < 0 )
{
SP_error( ret );
Bye();
}
printf("sent message %d (total %d)\n", i+1, Num_sent );
}
break;
#ifndef _REENTRANT
case 'r':
Read_message();
break;
case 'p':
ret = SP_poll( Mbox );
printf("Polling sais: %d\n", ret );
break;
case 'e':
E_attach_fd( Mbox, READ_FD, Read_message, 0, NULL, HIGH_PRIORITY );
break;
case 'd':
E_detach_fd( Mbox, READ_FD );
break;
#endif /* _REENTRANT */
case 'q':
Bye();
break;
default:
printf("\nUnknown commnad\n");
Print_menu();
break;
}
printf("\nUser> ");
fflush(stdout);
}
