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 ;
}
