void rpc_ss_alloc_out_cs_conf_array ( IDL_cs_shadow_elt_t *cs_shadow, /* Converted value of array size written to appropriate element */ idl_byte **p_type_vec_ptr, /* [in] Points at IDL_DT_ALLOCATE [out] Points after array defn indices */ /* [out] */ rpc_void_p_t *p_array_addr, /* Where to return address of allocated array */ IDL_msp_t IDL_msp ) { idl_byte *type_vec_ptr = *p_type_vec_ptr; idl_byte array_type; /* DT_CONF_ARRAY or DT_OPEN_ARRAY */ idl_ulong_int array_defn_index; idl_byte *array_defn_ptr; idl_ulong_int Z_value; idl_byte sz_type; /* Data type of [size_is] item */ idl_ulong_int szp_index; /* Index in parameter list of [size_is] item */ idl_cs_convert_t convert_type; idl_ulong_int l_storage_len; type_vec_ptr++; /* IDL_DT_ALLOCATE */ array_type = *type_vec_ptr; type_vec_ptr += 2; /* IDL_DT_..._ARRAY, properties */ IDL_DISCARD_LONG_FROM_VECTOR(type_vec_ptr); /* Discard full array definition */ IDL_GET_LONG_FROM_VECTOR(array_defn_index,type_vec_ptr); array_defn_ptr = IDL_msp->IDL_type_vec + array_defn_index; array_defn_ptr++; /* Skip dimensionality */ /* Skip over lower bound entirely and upper bound kind */ array_defn_ptr += IDL_CONF_BOUND_PAIR_WIDTH/2 + 1; sz_type = *array_defn_ptr; IDL_GET_LONG_FROM_VECTOR(szp_index, array_defn_ptr); /* Get the [size_is] value as it was unmarshalled from the wire */ Z_value = rpc_ss_get_typed_integer(sz_type, IDL_msp->IDL_param_vec[szp_index], IDL_msp); rpc_ss_ndr_conf_cs_array_param(idl_true, array_type, array_defn_ptr, Z_value, &l_storage_len, &convert_type, p_array_addr, IDL_msp); /* Overrwrite the [size_is] value with its local value */ rpc_ss_put_typed_integer(l_storage_len, sz_type, (rpc_void_p_t)&cs_shadow[szp_index-1].IDL_data); *p_type_vec_ptr = type_vec_ptr; }
void rpc_ss_conf_struct_cs_bounds ( idl_byte *defn_vec_ptr, /* [in] Points at bounds info*/ IDL_cs_shadow_elt_t *cs_shadow, /* [in] Address of cs-shadow*/ IDL_bound_pair_t *bounds_list, /* [out]*/ IDL_msp_t IDL_msp ) { idl_byte sz_type; /* Data type of [size_is] item*/ idl_ulong_int sz_index; /* Index in shadow of [size_is] item*/ bounds_list[0].lower = 1; /* Fake the bounds as 1..Z*/ /* Skip over lower bound entirely and upper bound kind*/ defn_vec_ptr += IDL_CONF_BOUND_PAIR_WIDTH/2 + 1; sz_type = *defn_vec_ptr; IDL_GET_LONG_FROM_VECTOR(sz_index, defn_vec_ptr); sz_index--; /* Shadow has one less elt than offset vec*/ bounds_list[0].upper = rpc_ss_get_typed_integer(sz_type, (rpc_void_p_t)&cs_shadow[sz_index].IDL_data, IDL_msp); }
void rpc_ss_ndr_marsh_cs_array ( rpc_void_p_t array_addr, /* [in] Used only for fixed arrays */ IDL_cs_shadow_elt_t *cs_shadow, /* [in] Address of cs-shadow (Not used for fixed arrays) */ idl_ulong_int shadow_index, /* [in] Index in cs_shadow of array */ idl_boolean in_struct, /* [in] TRUE => array is structure field */ idl_byte **p_defn_vec_ptr, /* [in] Type following DT_CS_ARRAY [out] After array indirection words */ IDL_msp_t IDL_msp ) { idl_byte array_type; idl_byte *defn_vec_ptr = 0; idl_ulong_int array_defn_index; idl_byte *array_defn_ptr = 0; IDL_bound_pair_t bound_pair; IDL_bound_pair_t *bounds_list; idl_ulong_int Z_value; IDL_bound_pair_t range_pair; idl_byte ln_type; /* Data type of [length_is] item */ idl_ulong_int ln_index; /* Index in shadow of [length_is] item */ idl_byte sz_type; /* Data type of [size_is] item */ idl_ulong_int sz_index; /* Index in shadow of [size_is] item */ idl_ulong_int cs_type_defn_index; idl_byte *cs_type_defn_ptr = 0 ; /* begin */ array_type = **p_defn_vec_ptr; if (array_type == IDL_DT_FIXED_ARRAY) { rpc_ss_ndr_m_fixed_cs_array(array_addr, p_defn_vec_ptr, IDL_msp); return; } defn_vec_ptr = *p_defn_vec_ptr; defn_vec_ptr += 2; /* Array type and properties byte */ IDL_DISCARD_LONG_FROM_VECTOR(defn_vec_ptr); /* Full array definition */ IDL_GET_LONG_FROM_VECTOR(array_defn_index, defn_vec_ptr); *p_defn_vec_ptr = defn_vec_ptr; if (array_type == IDL_DT_ALLOCATE) { /* Nothing to marshall */ return; } /* Marshall from shadow */ array_defn_ptr = IDL_msp->IDL_type_vec + array_defn_index; array_defn_ptr++; /* dimensionality */ /* Bounds information */ if (array_type == IDL_DT_VARYING_ARRAY) { if (IDL_msp->IDL_type_vec[TVEC_INT_REP_OFFSET] != NDR_LOCAL_INT_REP) rpc_ss_fixed_bounds_from_vector(1, array_defn_ptr, &bounds_list, IDL_msp); else bounds_list = (IDL_bound_pair_t *)array_defn_ptr; array_defn_ptr += IDL_FIXED_BOUND_PAIR_WIDTH; } else /* Conformant or varying */ { bound_pair.lower = 1; /* Fake the bounds as 1..Z */ /* Skip over lower bound entirely and upper bound kind */ array_defn_ptr += IDL_CONF_BOUND_PAIR_WIDTH/2 + 1; sz_type = *array_defn_ptr; IDL_GET_LONG_FROM_VECTOR(sz_index, array_defn_ptr); sz_index--; /* Shadow has one less elt than param or offset vec */ bound_pair.upper = rpc_ss_get_typed_integer(sz_type, (rpc_void_p_t)&cs_shadow[sz_index].IDL_data, IDL_msp); bounds_list = &bound_pair; if ( ! in_struct ) { /* Marshall the Z-value */ IDL_MARSH_LONG(&bound_pair.upper); } } /* Data limit information */ if ((array_type == IDL_DT_VARYING_ARRAY) || (array_type == IDL_DT_OPEN_ARRAY)) { array_defn_ptr++; /* We know the lower data limit is fixed */ IDL_GET_LONG_FROM_VECTOR(range_pair.lower, array_defn_ptr); array_defn_ptr++; /* We know upper data limit is [length_is] */ ln_type = *array_defn_ptr; /* A */ IDL_GET_LONG_FROM_VECTOR(ln_index, array_defn_ptr); ln_index--; /* Shadow has one less elt than param or offset vec */ range_pair.upper = rpc_ss_get_typed_integer(ln_type, (rpc_void_p_t)&cs_shadow[ln_index].IDL_data, IDL_msp); /* B */ range_pair.upper += range_pair.lower; /* A + B */ } /* array_defn_ptr is now pointing to the base type, which has [cs_char] */ array_defn_ptr++; /* IDL_DT_CS_TYPE */ IDL_GET_LONG_FROM_VECTOR(cs_type_defn_index, array_defn_ptr); cs_type_defn_ptr = IDL_msp->IDL_type_vec + cs_type_defn_index; IDL_DISCARD_LONG_FROM_VECTOR(cs_type_defn_ptr); /* Size of local type */ IDL_DISCARD_LONG_FROM_VECTOR(cs_type_defn_ptr); /* Routine index */ /* Now pointing at network type definition */ /* Marshall the data */ if (array_type == IDL_DT_CONF_ARRAY) { rpc_ss_ndr_m_fix_or_conf_arr( cs_shadow[shadow_index].IDL_data.IDL_storage_p, 1, bounds_list, cs_type_defn_ptr, IDL_M_DO_NOT_POINT, IDL_msp); } else { Z_value = bounds_list[0].upper - bounds_list[0].lower + 1; rpc_ss_ndr_m_var_or_open_arr( cs_shadow[shadow_index].IDL_data.IDL_storage_p, &Z_value, 1, &range_pair, cs_type_defn_ptr, IDL_M_DO_NOT_POINT, IDL_msp); } if (IDL_msp->IDL_type_vec[TVEC_INT_REP_OFFSET] != NDR_LOCAL_INT_REP) if (array_type == IDL_DT_VARYING_ARRAY) rpc_ss_mem_item_free(&IDL_msp->IDL_mem_handle, (byte_p_t)bounds_list); return ; }
static void rpc_ss_ndr_m_array_shadow ( rpc_void_p_t struct_addr, /* [in] Address of struct array is a field of. NULL if array is a parameter */ idl_ulong_int *struct_offset_vec_ptr, /* [in] Base of offset vector for structure. NULL if array is parameter */ idl_ulong_int *offset_vec_ptr, /* [in] NULL if array is parameter */ IDL_cs_shadow_elt_t *cs_shadow, /* [in] */ idl_ulong_int shadow_index, /* [in] index into cs-shadow */ idl_byte **p_defn_vec_ptr, /* [in] Points after IDL_DT_CS_ARRAY */ /* [out] Points after array defn indices */ IDL_msp_t IDL_msp ) { idl_byte *defn_vec_ptr; idl_byte array_type; idl_ulong_int array_defn_index; idl_byte *array_defn_ptr; idl_boolean allocate; /* TRUE => [in] size for [out] array */ IDL_bound_pair_t *bounds_list; idl_ulong_int cs_type_defn_index; idl_byte *cs_type_defn_ptr; idl_ulong_int routine_index; void (**routine_ptr)(); idl_byte ln_type = 0; /* Data type of [length_is] item */ idl_ulong_int ln_index; /* Index in shadow of [length_is] item */ idl_byte sz_type = 0; /* Data type of [size_is] item */ idl_ulong_int sz_index; /* Index in shadow of [size_is] item */ /* Parameters for ..._net_size */ idl_ulong_int l_storage_len; idl_ulong_int w_storage_len; idl_cs_convert_t convert_type; /* Parameters for ..._to_netcs */ rpc_void_p_t ldata; idl_ulong_int l_data_len; rpc_void_p_t wdata; idl_ulong_int w_data_len; /* begin */ defn_vec_ptr = *p_defn_vec_ptr; cs_shadow[shadow_index].IDL_release = idl_false; array_type = *defn_vec_ptr; defn_vec_ptr++; allocate = (array_type == IDL_DT_ALLOCATE); if (allocate) { array_type = *defn_vec_ptr; defn_vec_ptr++; } defn_vec_ptr++; /* Properties byte */ IDL_DISCARD_LONG_FROM_VECTOR(defn_vec_ptr); /* Full array definition */ IDL_GET_LONG_FROM_VECTOR(array_defn_index, defn_vec_ptr); if (array_type == IDL_DT_FIXED_ARRAY) { /* No shadow for fixed array of [cs_char] */ *p_defn_vec_ptr = defn_vec_ptr; return; } /* Address of local form of array */ if (struct_addr != NULL) ldata = (rpc_void_p_t)((idl_byte *)struct_addr + *offset_vec_ptr); else ldata = IDL_msp->IDL_param_vec[shadow_index + 1]; array_defn_ptr = IDL_msp->IDL_type_vec + array_defn_index; array_defn_ptr++; /* dimensionality */ /* Bounds information */ if (array_type == IDL_DT_VARYING_ARRAY) { if (IDL_msp->IDL_type_vec[TVEC_INT_REP_OFFSET] != NDR_LOCAL_INT_REP) rpc_ss_fixed_bounds_from_vector(1, array_defn_ptr, &bounds_list, IDL_msp); else bounds_list = (IDL_bound_pair_t *)array_defn_ptr; array_defn_ptr += IDL_FIXED_BOUND_PAIR_WIDTH; l_storage_len = bounds_list[0].upper - bounds_list[0].lower + 1; } else /* Conformant or open */ { /* Skip over lower bound entirely and upper bound kind */ array_defn_ptr += IDL_CONF_BOUND_PAIR_WIDTH/2 + 1; sz_type = *array_defn_ptr; IDL_GET_LONG_FROM_VECTOR(sz_index, array_defn_ptr); if (struct_addr != NULL) { l_storage_len = rpc_ss_get_typed_integer(sz_type, (rpc_void_p_t)((idl_byte *)struct_addr + *(struct_offset_vec_ptr + sz_index)), IDL_msp); } else { l_storage_len = rpc_ss_get_typed_integer(sz_type, IDL_msp->IDL_param_vec[sz_index], IDL_msp); } sz_index--; /* Shadow has one less elt than param or offset vec */ } /* Data limit information */ if ((array_type == IDL_DT_VARYING_ARRAY) || (array_type == IDL_DT_OPEN_ARRAY)) { /* Skip over lower data limit entirely and upper data limit kind */ array_defn_ptr += IDL_DATA_LIMIT_PAIR_WIDTH/2 + 1; ln_type = *array_defn_ptr; IDL_GET_LONG_FROM_VECTOR(ln_index, array_defn_ptr); if (struct_addr != NULL) { l_data_len = rpc_ss_get_typed_integer(ln_type, (rpc_void_p_t)((idl_byte *)struct_addr + *(struct_offset_vec_ptr + ln_index)), IDL_msp); } else { l_data_len = rpc_ss_get_typed_integer(ln_type, IDL_msp->IDL_param_vec[ln_index], IDL_msp); } ln_index--; /* Shadow has one less elt than param or offset vec */ } else l_data_len = l_storage_len; /* array_defn_ptr is now pointing to the base type, which has [cs_char] */ array_defn_ptr += 2; /* IDL_DT_CS_TYPE and properties byte */ IDL_GET_LONG_FROM_VECTOR(cs_type_defn_index, array_defn_ptr); cs_type_defn_ptr = IDL_msp->IDL_type_vec + cs_type_defn_index; IDL_DISCARD_LONG_FROM_VECTOR(cs_type_defn_ptr); /* Size of local type */ IDL_GET_LONG_FROM_VECTOR(routine_index, cs_type_defn_ptr); routine_ptr = IDL_msp->IDL_rtn_vec + routine_index; /* Call ..._net_size */ (*(routine_ptr + IDL_RTN_NET_SIZE_INDEX))(IDL_msp->IDL_h, *(IDL_msp->IDL_cs_tags_p->p_marsh_tag), l_storage_len, &convert_type, (array_type == IDL_DT_VARYING_ARRAY) ? NULL : &w_storage_len, &IDL_msp->IDL_status); if (IDL_msp->IDL_status != error_status_ok) DCETHREAD_RAISE(rpc_x_ss_pipe_comm_error); if ((array_type == IDL_DT_CONF_ARRAY) || (array_type == IDL_DT_OPEN_ARRAY)) { rpc_ss_put_typed_integer(w_storage_len, sz_type, (rpc_void_p_t)&cs_shadow[sz_index].IDL_data); } if (allocate) goto common_return; if (convert_type == idl_cs_no_convert) { cs_shadow[shadow_index].IDL_data.IDL_storage_p = ldata; w_data_len = l_data_len ; /* wire data length same as local */ goto alloc_return; } if (array_type == IDL_DT_VARYING_ARRAY) { w_storage_len = l_storage_len; } /* Allocate a conversion buffer - cs_type_defn_ptr now points at network type */ wdata = (idl_void_p_t)rpc_ss_mem_alloc(&IDL_msp->IDL_mem_handle, w_storage_len * rpc_ss_type_size(cs_type_defn_ptr, IDL_msp)); cs_shadow[shadow_index].IDL_data.IDL_storage_p = wdata; cs_shadow[shadow_index].IDL_release = true; /* Call ..._to_netcs */ (*(routine_ptr + IDL_RTN_TO_NETCS_INDEX))(IDL_msp->IDL_h, *(IDL_msp->IDL_cs_tags_p->p_marsh_tag), ldata, l_data_len, wdata, (array_type == IDL_DT_CONF_ARRAY) ? NULL : &w_data_len, &IDL_msp->IDL_status); if (IDL_msp->IDL_status != error_status_ok) DCETHREAD_RAISE(rpc_x_ss_pipe_comm_error); alloc_return:; if ((array_type == IDL_DT_VARYING_ARRAY) || (array_type == IDL_DT_OPEN_ARRAY)) { rpc_ss_put_typed_integer(w_data_len, ln_type, (rpc_void_p_t)&cs_shadow[ln_index].IDL_data); } common_return: ; *p_defn_vec_ptr = defn_vec_ptr; if (IDL_msp->IDL_type_vec[TVEC_INT_REP_OFFSET] != NDR_LOCAL_INT_REP) if (array_type == IDL_DT_VARYING_ARRAY) rpc_ss_mem_item_free(&IDL_msp->IDL_mem_handle, (byte_p_t)bounds_list); return ; }