#include <rpcrts.h>

typedef    rpc_char rpc_stype_0[81];

program_index p_cback1;

extern display_all();
/*  Parameters: 
    rpc_stype_0 message;
    */

extern dummy();
/*  Parameters: none
    */

static rpc_message *rpc_p_buf;

r_display_all()
{
    rpc_stype_0 message;
    register rpc_integer rpc_a;
    register rpc_integer rpc_b;

   upk_integer(rpc_p_buf, rpc_b);
   for (rpc_a = 0; rpc_a < rpc_b; rpc_a++) {
   upk_char(rpc_p_buf, message[rpc_a]);
   }
   message[rpc_b] = '\0';
    if (rpc_p_buf->m_index%2) rpc_p_buf->m_index++;
    c_turn(rpc_p_buf);
    display_all(message);
    }

r_dummy()
{

    c_turn(rpc_p_buf);
    dummy();
    }

r_cback1(rpc_a) rpc_message **rpc_a;
{   rpc_short request;

    rpc_p_buf = *rpc_a;
    rpc_p_buf->m_index = CALL_HEADER_LENGTH - 4;
    upk_short(rpc_p_buf, request);
    if (request != 0 && request != 9332)
         rpc_p_buf->m_status = RPC_S_UNSUPPORTED_VERSION;
    else {
     upk_short(rpc_p_buf, request);
     switch (request)
     {   case  1 : r_display_all();
                  break;
        case  2 : r_dummy();
                  break;
        default : rpc_p_buf->m_status = RPC_S_BAD_PROCEDURE_NUMBER;
        }
     }
    }

attach_cback1()
{   rpc_status      status;

    c_attach_stub(status, r_cback1, 
        "cback1                                  ", p_cback1);
    c_report_error(status);
    }