/* Creates a new tvbuff and call decode_IOR with a NULL tree, just to grab repoid etc for our objkey hash.  */
static guint32 string_to_IOR(guchar *in, guint32 in_len, guint8 **out)
/* Creates a new tvbuff and call decode_IOR with a NULL tree, just to grab repoid etc for our objkey hash.  */
static guint32 string_to_IOR(guchar *in, guint32 in_len, guint8 **out)
{
    return 0;
  }
  for (i=4; i<in_len-1; i+=2) {
    if ( g_ascii_isxdigit(in[i]) && g_ascii_isxdigit(in[i+1]) ) {
      if ( (tmpval_msb = ws_xton(in[i])) < 0 ) {
        report_failure("giop: Invalid value in IOR %i", tmpval_msb);
      }
      if ( (tmpval_lsb = ws_xton(in[i+1])) < 0 ) {
        report_failure("giop: Invalid value in IOR %i", tmpval_lsb);
      }
      tmpval = tmpval_msb << 4;
      tmpval += tmpval_lsb;
      (*out)[(i-4)/2] = (guint8) tmpval;
    }
    else {
      break;
    }
  }
  return (i-4)/2;
}