bool_t
xdr_rpc_loc_assist_data_pos_s_type (XDR *xdrs, rpc_loc_assist_data_pos_s_type *objp)
{
    register int32_t *buf;

    if (!xdr_rpc_loc_assist_pos_valid_mask_type (xdrs, &objp->valid_mask))
        return FALSE;
    if (!xdr_rpc_uint64 (xdrs, &objp->timestamp_utc))
        return FALSE;
    if (!xdr_double (xdrs, &objp->latitude))
        return FALSE;
    if (!xdr_double (xdrs, &objp->longitude))
        return FALSE;
    if (!xdr_float (xdrs, &objp->altitude_wrt_ellipsoid))
        return FALSE;
    if (!xdr_float (xdrs, &objp->altitude_wrt_mean_sea_level))
        return FALSE;
    if (!xdr_float (xdrs, &objp->hor_unc_circular))
        return FALSE;
    if (!xdr_float (xdrs, &objp->vert_unc))
        return FALSE;
    if (!xdr_u_char (xdrs, &objp->confidence_horizontal))
        return FALSE;
    if (!xdr_u_char (xdrs, &objp->confidence_vertical))
        return FALSE;
    if (!xdr_rpc_int32 (xdrs, &objp->timestamp_age))
        return FALSE;
    return TRUE;
}
bool_t
xdr_rpc_loc_ni_umts_cp_notify_verify_req_s_type (XDR *xdrs, rpc_loc_ni_umts_cp_notify_verify_req_s_type *objp)
{
    register int32_t *buf;

    int i;
    if (!xdr_rpc_loc_ni_notify_verify_e_type (xdrs, &objp->notification_priv_type))
        return FALSE;
    if (!xdr_u_char (xdrs, &objp->invoke_id))
        return FALSE;
    if (!xdr_rpc_uint16 (xdrs, &objp->flags))
        return FALSE;
    if (!xdr_u_char (xdrs, &objp->notification_length))
        return FALSE;
    if (!xdr_opaque (xdrs, objp->notification_text, 64))
        return FALSE;
    if (!xdr_rpc_loc_ni_datacoding_scheme_e_type (xdrs, &objp->datacoding_scheme))
        return FALSE;
    if (!xdr_rpc_loc_ni_ext_client_address_s_type (xdrs, &objp->ext_client_address_data))
        return FALSE;
    if (!xdr_rpc_loc_ni_location_type_e_type (xdrs, &objp->location_type))
        return FALSE;
    if (!xdr_rpc_loc_ni_deferred_location_s_type (xdrs, &objp->deferred_location))
        return FALSE;
    if (!xdr_rpc_loc_ni_requestor_id_s_type (xdrs, &objp->requestor_id))
        return FALSE;
    if (!xdr_rpc_loc_ni_codeword_string_s_type (xdrs, &objp->codeword_string))
        return FALSE;
    if (!xdr_rpc_loc_ni_service_type_id_s_type (xdrs, &objp->service_type_id))
        return FALSE;
    if (!xdr_rpc_uint16 (xdrs, &objp->user_response_timer))
        return FALSE;
    return TRUE;
}
bool_t
xdr_rpc_loc_ni_vx_notify_verify_req_s_type (XDR *xdrs, rpc_loc_ni_vx_notify_verify_req_s_type *objp)
{
    register int32_t *buf;

    if (!xdr_rpc_loc_ni_notify_verify_e_type (xdrs, &objp->notification_priv_type))
        return FALSE;
    if (!xdr_u_char (xdrs, &objp->pos_qos_incl))
        return FALSE;
    if (!xdr_u_char (xdrs, &objp->pos_qos))
        return FALSE;
    if (!xdr_rpc_uint32 (xdrs, &objp->num_fixes))
        return FALSE;
    if (!xdr_rpc_uint32 (xdrs, &objp->tbf))
        return FALSE;
    if (!xdr_rpc_loc_ni_vx_pos_mode_e_type (xdrs, &objp->pos_mode))
        return FALSE;
    if (!xdr_rpc_loc_ni_vx_requester_id_encoding_scheme_e_type (xdrs, &objp->encoding_scheme))
        return FALSE;
    if (!xdr_rpc_loc_ni_vx_requester_id_s_type (xdrs, &objp->requester_id))
        return FALSE;
    if (!xdr_rpc_uint16 (xdrs, &objp->user_resp_timer_val))
        return FALSE;
    return TRUE;
}
bool_t
xdr_rpc_loc_parsed_position_s_type (XDR *xdrs, rpc_loc_parsed_position_s_type *objp)
{
    register int32_t *buf;

    if (!xdr_rpc_loc_position_valid_mask_type (xdrs, &objp->valid_mask))
        return FALSE;
    if (!xdr_rpc_loc_session_status_e_type (xdrs, &objp->session_status))
        return FALSE;
    if (!xdr_rpc_loc_calendar_time_s_type (xdrs, &objp->timestamp_calendar))
        return FALSE;
    if (!xdr_rpc_uint64 (xdrs, &objp->timestamp_utc))
        return FALSE;
    if (!xdr_rpc_uint8 (xdrs, &objp->leap_seconds))
        return FALSE;
    if (!xdr_float (xdrs, &objp->time_unc))
        return FALSE;
    if (!xdr_double (xdrs, &objp->latitude))
        return FALSE;
    if (!xdr_double (xdrs, &objp->longitude))
        return FALSE;
    if (!xdr_float (xdrs, &objp->altitude_wrt_ellipsoid))
        return FALSE;
    if (!xdr_float (xdrs, &objp->altitude_wrt_mean_sea_level))
        return FALSE;
    if (!xdr_float (xdrs, &objp->speed_horizontal))
        return FALSE;
    if (!xdr_float (xdrs, &objp->speed_vertical))
        return FALSE;
    if (!xdr_float (xdrs, &objp->heading))
        return FALSE;
    if (!xdr_float (xdrs, &objp->hor_unc_circular))
        return FALSE;
    if (!xdr_float (xdrs, &objp->hor_unc_ellipse_semi_major))
        return FALSE;
    if (!xdr_float (xdrs, &objp->hor_unc_ellipse_semi_minor))
        return FALSE;
    if (!xdr_float (xdrs, &objp->hor_unc_ellipse_orient_azimuth))
        return FALSE;
    if (!xdr_float (xdrs, &objp->vert_unc))
        return FALSE;
    if (!xdr_float (xdrs, &objp->speed_unc))
        return FALSE;
    if (!xdr_float (xdrs, &objp->heading_unc))
        return FALSE;
    if (!xdr_u_char (xdrs, &objp->confidence_horizontal))
        return FALSE;
    if (!xdr_u_char (xdrs, &objp->confidence_vertical))
        return FALSE;
    if (!xdr_float (xdrs, &objp->magnetic_deviation))
        return FALSE;
    if (!xdr_rpc_loc_pos_technology_mask_type (xdrs, &objp->technology_mask))
        return FALSE;
    return TRUE;
}
bool_t
xdr_rpc_loc_api_version_s_type (XDR *xdrs, rpc_loc_api_version_s_type *objp)
{
    register int32_t *buf;

    if (!xdr_u_char (xdrs, &objp->major))
        return FALSE;
    if (!xdr_u_char (xdrs, &objp->minor))
        return FALSE;
    return TRUE;
}
bool_t
xdr_rpc_loc_ni_deferred_location_s_type (XDR *xdrs, rpc_loc_ni_deferred_location_s_type *objp)
{
    register int32_t *buf;

    if (!xdr_u_char (xdrs, &objp->unused_bits))
        return FALSE;
    if (!xdr_u_char (xdrs, &objp->ms_available))
        return FALSE;
    return TRUE;
}
bool_t
xdr_rpc_loc_ni_supl_client_name_s_type (XDR *xdrs, rpc_loc_ni_supl_client_name_s_type *objp)
{
    register int32_t *buf;

    int i;
    if (!xdr_u_char (xdrs, &objp->data_coding_scheme))
        return FALSE;
    if (!xdr_opaque (xdrs, objp->client_name_string, 64))
        return FALSE;
    if (!xdr_u_char (xdrs, &objp->string_len))
        return FALSE;
    return TRUE;
}
bool_t
xdr_rpc_loc_ni_codeword_string_s_type (XDR *xdrs, rpc_loc_ni_codeword_string_s_type *objp)
{
    register int32_t *buf;

    int i;
    if (!xdr_u_char (xdrs, &objp->data_coding_scheme))
        return FALSE;
    if (!xdr_opaque (xdrs, objp->lcs_codeword_string, 20))
        return FALSE;
    if (!xdr_u_char (xdrs, &objp->string_len))
        return FALSE;
    return TRUE;
}
Пример #9
0
bool_t
xdr_krb5_octet(XDR *xdrs, krb5_octet *objp)
{
   if (!xdr_u_char(xdrs, objp))
	return (FALSE);
   return (TRUE);
}
Пример #10
0
void
F77_FUNC(xdrfuchar,XDRFUCHAR)(int *xdrid, unsigned char *ucp, int *ret)
{
        xdr_fortran_lock();
	*ret = xdr_u_char(xdridptr[*xdrid], (u_char *)ucp);
	cnt += sizeof(char);
        xdr_fortran_unlock();
}
bool_t
xdr_rpc_loc_ni_supl_qop_s_type (XDR *xdrs, rpc_loc_ni_supl_qop_s_type *objp)
{
    register int32_t *buf;

    if (!xdr_u_char (xdrs, &objp->bit_mask))
        return FALSE;
    if (!xdr_u_char (xdrs, &objp->horacc))
        return FALSE;
    if (!xdr_u_char (xdrs, &objp->veracc))
        return FALSE;
    if (!xdr_rpc_uint16 (xdrs, &objp->maxLocAge))
        return FALSE;
    if (!xdr_u_char (xdrs, &objp->delay))
        return FALSE;
    return TRUE;
}
bool_t
xdr_rpc_loc_ni_service_type_id_s_type (XDR *xdrs, rpc_loc_ni_service_type_id_s_type *objp)
{
    register int32_t *buf;

    if (!xdr_u_char (xdrs, &objp->lcs_service_type_id))
        return FALSE;
    return TRUE;
}
bool_t
xdr_rpc_byte (XDR *xdrs, rpc_byte *objp)
{
    register int32_t *buf;

    if (!xdr_u_char (xdrs, objp))
        return FALSE;
    return TRUE;
}
Пример #14
0
bool_t
xdr_Iu8 (XDR *xdrs, Iu8 *objp)
{
	register int32_t *buf;

	 if (!xdr_u_char (xdrs, objp))
		 return FALSE;
	return TRUE;
}
bool_t
xdr_rpc_loc_predicted_orbits_auto_download_config_s_type (XDR *xdrs, rpc_loc_predicted_orbits_auto_download_config_s_type *objp)
{
    register int32_t *buf;

    if (!xdr_rpc_boolean (xdrs, &objp->enable))
        return FALSE;
    if (!xdr_u_char (xdrs, &objp->auto_check_every_hrs))
        return FALSE;
    return TRUE;
}
bool_t
xdr_rpc_loc_ni_ext_client_address_s_type (XDR *xdrs, rpc_loc_ni_ext_client_address_s_type *objp)
{
    register int32_t *buf;

    int i;
    if (!xdr_u_char (xdrs, &objp->ext_client_address_len))
        return FALSE;
    if (!xdr_opaque (xdrs, objp->ext_client_address, 20))
        return FALSE;
    return TRUE;
}
bool_t
xdr_rpc_loc_ni_vx_requester_id_s_type (XDR *xdrs, rpc_loc_ni_vx_requester_id_s_type *objp)
{
    register int32_t *buf;

    int i;
    if (!xdr_u_char (xdrs, &objp->requester_id_length))
        return FALSE;
    if (!xdr_opaque (xdrs, objp->requester_id, 200))
        return FALSE;
    return TRUE;
}
Пример #18
0
bool_t xdr_foc_datetime(XDR* xdrs, FOC_DATETIME* dttm)
{
	if (!xdr_u_char(xdrs, &dttm->sec))
	{
		fprintf(stderr, "Bad XDR conversion on 'FOC_DATETIME(sec)'\n");
		return FALSE;
	}
	
	if (!xdr_u_char(xdrs, &dttm->min))
	{
		fprintf(stderr, "Bad XDR conversion on 'FOC_DATETIME(min)'\n");
		return FALSE;
	}
	
	if (!xdr_u_char(xdrs, &dttm->hour))
	{
		fprintf(stderr, "Bad XDR conversion on 'FOC_DATETIME(hour)'\n");
		return FALSE;
	}
	
	if (!xdr_u_char(xdrs, &dttm->day))
	{
		fprintf(stderr, "Bad XDR conversion on 'FOC_DATETIME(day)'\n");
		return FALSE;
	}
	
	if (!xdr_u_char(xdrs, &dttm->month))
	{
		fprintf(stderr, "Bad XDR conversion on 'FOC_DATETIME(month)'\n");
		return FALSE;
	}
	
	if (!xdr_u_short(xdrs, &dttm->year))
	{
		fprintf(stderr, "Bad XDR conversion on 'FOC_DATETIME(year)'\n");
		return FALSE;
	}

	return TRUE;
}
bool_t
xdr_rpc_loc_ni_supl_slp_session_id_s_type (XDR *xdrs, rpc_loc_ni_supl_slp_session_id_s_type *objp)
{
    register int32_t *buf;

    int i;
    if (!xdr_u_char (xdrs, &objp->presence))
        return FALSE;
    if (!xdr_opaque (xdrs, objp->session_id, 4))
        return FALSE;
    if (!xdr_rpc_loc_server_info_s_type (xdrs, &objp->slp_address))
        return FALSE;
    return TRUE;
}
Пример #20
0
bool_t
xdr_ndmp3_execute_cdb_reply (XDR *xdrs, ndmp3_execute_cdb_reply *objp)
{
	if (!xdr_ndmp3_error (xdrs, &objp->error))
		return FALSE;
	if (!xdr_u_char (xdrs, &objp->status))
		return FALSE;
	if (!xdr_u_long (xdrs, &objp->dataout_len))
		return FALSE;
	if (!xdr_bytes (xdrs, (char **)&objp->datain.datain_val, (u_int *) &objp->datain.datain_len, ~0))
		return FALSE;
	if (!xdr_bytes (xdrs, (char **)&objp->ext_sense.ext_sense_val, (u_int *) &objp->ext_sense.ext_sense_len, ~0))
		return FALSE;
	return TRUE;
}
Пример #21
0
bool_t
xdr_table_obj(XDR *xdrs, table_obj *objp)
{
	if (!xdr_string(xdrs, &objp->ta_type, 64))
		return (FALSE);
	if (!xdr_int(xdrs, &objp->ta_maxcol))
		return (FALSE);
	if (!xdr_u_char(xdrs, &objp->ta_sep))
		return (FALSE);
	if (!xdr_array(xdrs, (char **)&objp->ta_cols.ta_cols_val,
	    (uint_t *)&objp->ta_cols.ta_cols_len, ~0,
	    sizeof (table_col), (xdrproc_t)xdr_table_col))
		return (FALSE);
	return (xdr_string(xdrs, &objp->ta_path, ~0));
}
Пример #22
0
void
ltspfs_readdir (int sockfd, XDR *in)
{
  XDR  out;
  char path[PATH_MAX];
  char output[LTSP_MAXBUF];
  DIR  *dp;
  char *nameptr;
  struct dirent *de;
  int  i;

  if (get_fn(sockfd, in, path)) {		/* Get the dir name */ 
    eacces(sockfd);
    return;
  }

  dp = opendir (path);

  if (dp == NULL) {
    status_return(sockfd, FAIL);		/* opendir failed */
    return;
  }

  while ((de = readdir (dp)) != NULL) {
    xdrmem_create(&out, output, LTSP_MAXBUF, XDR_ENCODE);
    i = 0;
    xdr_int(&out, &i);	 			/* First, the dummy length */
    i = LTSP_STATUS_CONT;
    xdr_int(&out, &i);				/* Then the 2 status return */
    xdr_u_longlong_t(&out, &(de->d_ino));	/* Inode */
    xdr_u_char(&out, &(de->d_type));		/* type */
    nameptr = de->d_name;
    xdr_string(&out, &nameptr, PATH_MAX);	/* filename */
    i = xdr_getpos(&out);			/* Get our position */
    xdr_setpos(&out, 0);			/* Rewind to the beginning */
    xdr_int(&out, &i);				/* Rewrite with proper length */
    xdr_destroy(&out);

    if (debug)
      info("returning %s", de->d_name);

    writen(sockfd, output, i);
  }

  closedir (dp);

  status_return(sockfd, OK);
}
Пример #23
0
bool_t
ldap_xdr_krb5_kvno(XDR *xdrs, krb5_kvno *objp)
{
    unsigned char tmp;

    tmp = '\0'; /* for purify, else xdr_u_char performs a umr */

    if (xdrs->x_op == XDR_ENCODE)
	tmp = (unsigned char) *objp;

    if (!xdr_u_char(xdrs, &tmp))
	return (FALSE);

    if (xdrs->x_op == XDR_DECODE)
	*objp = (krb5_kvno) tmp;
    return (TRUE);
}
Пример #24
0
int pykadmin_xdr_osa_princ_ent_rec(XDR *xdrs, osa_princ_ent_rec *entry) {

	int result = 0; 

	memset(entry, 0, sizeof(osa_princ_ent_rec));


	switch (xdrs->x_op) {

		case XDR_ENCODE:
			entry->version = OSA_ADB_PRINC_VERSION_1;
		case XDR_FREE:
			if (!xdr_int(xdrs, &entry->version))
				goto done;
		case XDR_DECODE:
			if (!xdr_int(xdrs, &entry->version) || (entry->version != OSA_ADB_PRINC_VERSION_1))
				goto done;
	}

  if (!pykadmin_xdr_nullstring(xdrs, &entry->policy))
		goto done;

  if (!xdr_long(xdrs, &entry->aux_attributes))
		goto done;

  if (!xdr_u_int(xdrs, &entry->old_key_next))
		goto done;

	if (!xdr_u_char(xdrs, (unsigned char *)&entry->admin_history_kvno))
		goto done;

  if (!xdr_array(xdrs, (caddr_t *) &entry->old_keys, (unsigned int *) &entry->old_key_len, ~0, sizeof(osa_pw_hist_ent), pykadmin_xdr_osa_pw_hist_ent))
   	goto done;

	result = 1;

done:
	
	return result;
}
Пример #25
0
static bool_t
xdr_table_obj (XDR *xdrs, table_obj *objp)
{
  bool_t res = xdr_string (xdrs, &objp->ta_type, 64);
  if (__builtin_expect (res, TRUE))
    {
      res = xdr_int (xdrs, &objp->ta_maxcol);
      if (__builtin_expect (res, TRUE))
	{
	  res = xdr_u_char (xdrs, &objp->ta_sep);
	  if (__builtin_expect (res, TRUE))
	    {
	      res = xdr_array (xdrs, (void *) &objp->ta_cols.ta_cols_val,
			       &objp->ta_cols.ta_cols_len, ~0,
			       sizeof (table_col), (xdrproc_t) xdr_table_col);
	      if (__builtin_expect (res, TRUE))
		res = xdr_string (xdrs, &objp->ta_path, ~0);
	    }
	}
    }
  return res;
}
bool_t
xdr_rpc_loc_calendar_time_s_type (XDR *xdrs, rpc_loc_calendar_time_s_type *objp)
{
    register int32_t *buf;

    if (!xdr_rpc_uint16 (xdrs, &objp->year))
        return FALSE;
    if (!xdr_u_char (xdrs, &objp->month))
        return FALSE;
    if (!xdr_u_char (xdrs, &objp->day_of_week))
        return FALSE;
    if (!xdr_u_char (xdrs, &objp->day))
        return FALSE;
    if (!xdr_u_char (xdrs, &objp->hour))
        return FALSE;
    if (!xdr_u_char (xdrs, &objp->minute))
        return FALSE;
    if (!xdr_u_char (xdrs, &objp->second))
        return FALSE;
    if (!xdr_rpc_uint16 (xdrs, &objp->millisecond))
        return FALSE;
    return TRUE;
}
Пример #27
0
static gmx_bool do_xdr(t_fileio *fio, void *item, int nitem, int eio, 
                   const char *desc, const char *srcfile, int line)
{
    unsigned char ucdum, *ucptr;
    bool_t res = 0;
    float fvec[DIM];
    double dvec[DIM];
    int j, m, *iptr, idum;
    gmx_large_int_t sdum;
    real *ptr;
    unsigned short us;
    double d = 0;
    float f = 0;

    gmx_fio_check_nitem(fio, eio, nitem, srcfile, line);
    switch (eio)
    {
    case eioREAL:
        if (fio->bDouble)
        {
            if (item && !fio->bRead)
                d = *((real *) item);
            res = xdr_double(fio->xdr, &d);
            if (item)
                *((real *) item) = d;
        }
        else
        {
            if (item && !fio->bRead)
                f = *((real *) item);
            res = xdr_float(fio->xdr, &f);
            if (item)
                *((real *) item) = f;
        }
        break;
    case eioFLOAT:
        if (item && !fio->bRead)
            f = *((float *) item);
        res = xdr_float(fio->xdr, &f);
        if (item)
            *((float *) item) = f;
        break;
    case eioDOUBLE:
        if (item && !fio->bRead)
            d = *((double *) item);
        res = xdr_double(fio->xdr, &d);
        if (item)
            *((double *) item) = d;
        break;
    case eioINT:
        if (item && !fio->bRead)
            idum = *(int *) item;
        res = xdr_int(fio->xdr, &idum);
        if (item)
            *(int *) item = idum;
        break;
    case eioGMX_LARGE_INT:
        /* do_xdr will not generate a warning when a 64bit gmx_large_int_t
         * value that is out of 32bit range is read into a 32bit gmx_large_int_t.
         */
        if (item && !fio->bRead)
            sdum = *(gmx_large_int_t *) item;
        res = xdr_gmx_large_int(fio->xdr, &sdum, NULL);
        if (item)
            *(gmx_large_int_t *) item = sdum;
        break;
    case eioUCHAR:
        if (item && !fio->bRead)
            ucdum = *(unsigned char *) item;
        res = xdr_u_char(fio->xdr, &ucdum);
        if (item)
            *(unsigned char *) item = ucdum;
        break;
    case eioNUCHAR:
        ucptr = (unsigned char *) item;
        res = 1;
        for (j = 0; (j < nitem) && res; j++)
        {
            res = xdr_u_char(fio->xdr, &(ucptr[j]));
        }
        break;
    case eioUSHORT:
        if (item && !fio->bRead)
            us = *(unsigned short *) item;
        res = xdr_u_short(fio->xdr, (unsigned short *) &us);
        if (item)
            *(unsigned short *) item = us;
        break;
    case eioRVEC:
        if (fio->bDouble)
        {
            if (item && !fio->bRead)
                for (m = 0; (m < DIM); m++)
                    dvec[m] = ((real *) item)[m];
            res = xdr_vector(fio->xdr, (char *) dvec, DIM,
                             (unsigned int) sizeof(double),
                             (xdrproc_t) xdr_double);
            if (item)
                for (m = 0; (m < DIM); m++)
                    ((real *) item)[m] = dvec[m];
        }
        else
        {
            if (item && !fio->bRead)
                for (m = 0; (m < DIM); m++)
                    fvec[m] = ((real *) item)[m];
            res = xdr_vector(fio->xdr, (char *) fvec, DIM,
                             (unsigned int) sizeof(float),
                             (xdrproc_t) xdr_float);
            if (item)
                for (m = 0; (m < DIM); m++)
                    ((real *) item)[m] = fvec[m];
        }
        break;
    case eioNRVEC:
        ptr = NULL;
        res = 1;
        for (j = 0; (j < nitem) && res; j++)
        {
            if (item)
                ptr = ((rvec *) item)[j];
            res = do_xdr(fio, ptr, 1, eioRVEC, desc, srcfile, line);
        }
        break;
    case eioIVEC:
        iptr = (int *) item;
        res = 1;
        for (m = 0; (m < DIM) && res; m++)
        {
            if (item && !fio->bRead)
                idum = iptr[m];
            res = xdr_int(fio->xdr, &idum);
            if (item)
                iptr[m] = idum;
        }
        break;
    case eioSTRING:
    {
        char *cptr;
        int slen;

        if (item)
        {
            if (!fio->bRead)
                slen = strlen((char *) item) + 1;
            else
                slen = 0;
        }
        else
            slen = 0;

        if (xdr_int(fio->xdr, &slen) <= 0)
            gmx_fatal(FARGS, "wrong string length %d for string %s"
                      " (source %s, line %d)",slen,desc,srcfile,line);
        if (!item && fio->bRead)
            snew(cptr,slen);
        else
            cptr=(char *)item;
        if (cptr)
            res = xdr_string(fio->xdr,&cptr,slen);
        else
            res = 1;
        if (!item && fio->bRead)
            sfree(cptr);
        break;
    }
    default:
        gmx_fio_fe(fio, eio, desc, srcfile, line);
    }
    if ((res == 0) && (fio->bDebug))
        fprintf(stderr,"Error in xdr I/O %s %s to file %s (source %s, line %d)\n",
                eioNames[eio],desc,fio->fn,srcfile,line);

    return (res != 0);
}
Пример #28
0
void
F77_FUNC(xdrfuchar,XDRFUCHAR)(int *xdrid, unsigned char *ucp, int *ret)
{
	*ret = xdr_u_char(xdridptr[*xdrid], (unsigned char *)ucp);
	cnt += sizeof(char);
}
Пример #29
0
bool FocCsHeader::xdr_convert(XDR* xdrs, xdr_op x_op)
{
	char* str;

	xdrs->x_op = x_op;

	str = (char *) orig_id;
	if (!xdr_string(xdrs, &str, sizeof(orig_id)))
	{
		fprintf(stderr, "Bad XDR conversion on 'orig_id'\n");
		return FALSE;
	}

	str = (char *) recip_id;
	if (!xdr_string(xdrs, &str, sizeof(recip_id)))
	{
		fprintf(stderr, "Bad XDR conversion on 'recip_id'\n");
		return FALSE;
	}

	if (!xdr_u_char(xdrs, &msg_priority))
	{
		fprintf(stderr, "Bad XDR conversion on 'msg_priority'\n");
		return FALSE;
	}
	
	if (!xdr_u_char(xdrs, &msg_class))
	{
		fprintf(stderr, "Bad XDR conversion on 'msg_class'\n");
		return FALSE;
	}
	
	if (!xdr_u_char(xdrs, &num_items))
	{
		fprintf(stderr, "Bad XDR conversion on 'num_items'\n");
		return FALSE;
	}
	
	if (!xdr_u_char(xdrs, &msg_type))
	{
		fprintf(stderr, "Bad XDR conversion on 'msg_type'\n");
		return FALSE;
	}
	
	if (!xdr_u_short(xdrs, &service_id))
	{
		fprintf(stderr, "Bad XDR conversion on 'service_id'\n");
		return FALSE;
	}
	
	if (!xdr_u_short(xdrs, &msg_time))
	{
		fprintf(stderr, "Bad XDR conversion on 'msg_time'\n");
		return FALSE;
	}
	
	if (!xdr_u_long(xdrs, &msg_seq_num))
	{
		fprintf(stderr, "Bad XDR conversion on 'msg_seq_num'\n");
		return FALSE;
	}

	return TRUE;
}
Пример #30
0
bool_t P_xdr_u_char(XDR *x, u_char *u) { return (xdr_u_char(x, u));}