#endif	// SWIGPYTHON

/*

 * Similar trickery as above, only this time for Guile

 */

%{

  struct arg_holder {

    gr_msg_queue_sptr	q;

    gr_message_sptr	msg;

  };

  void *insert_tail_shim(void *arg)

  {

    arg_holder *a = (arg_holder *)arg;

    a->q->insert_tail(a->msg);

    return 0;

  }

  void *delete_head_shim(void *arg)

  {

    arg_holder *a = (arg_holder *)arg;

    a->msg = a->q->delete_head();

    return 0;

  }

%}

%inline %{

  // handle and insert_tail are equivalent

  static void handle(gr_msg_queue_sptr q, gr_message_sptr msg)

  {

    arg_holder	a;

    a.q = q;

    a.msg = msg;

    scm_without_guile(insert_tail_shim, (void *) &a);

  }

  static void insert_tail(gr_msg_queue_sptr q, gr_message_sptr msg)

  {

    arg_holder	a;

    a.q = q;

    a.msg = msg;

    scm_without_guile(insert_tail_shim, (void *) &a);

  }

  static gr_message_sptr delete_head(gr_msg_queue_sptr q)

  {

    arg_holder	a;

    a.q = q;

    scm_without_guile(delete_head_shim, (void *) &a);

    return a.msg;

  }

%}

#endif	// SWIGGUILE