static globus_error_base_instance_t *
s_base_instance_data (globus_object_t * error)
{
void * instance_data_vp;
globus_object_t * base;
globus_error_base_instance_t * instance_data;
base = globus_object_upcast (error, GLOBUS_ERROR_TYPE_BASE);
instance_data_vp
= globus_object_get_local_instance_data (base);
instance_data = (globus_error_base_instance_t *) instance_data_vp;
if ( instance_data != NULL ) {
return instance_data;
}
else {
instance_data = globus_malloc (sizeof(globus_error_base_instance_t));
if (instance_data != NULL) {
instance_data->source_module = NULL;
instance_data->causal_error = NULL;
globus_object_set_local_instance_data (base,
(void *) instance_data);
}
return instance_data;
}
}
/**
* Initialize a previously allocated error of type
* GLOBUS_ERROR_TYPE_GSSAPI
* @ingroup globus_gssapi_error_object
*
* @param error
* The previously allocated error object.
* @param base_source
* Pointer to the originating module.
* @param base_cause
* The error object causing the error. If this is the original
* error this paramater may be NULL.
* @param major_status
* The GSSAPI major status
* @param minor_status
* The GSSAPI minor status
* @return
* The resulting error object. You may have to call
* globus_error_put() on this object before passing it on.
*/
globus_object_t *
globus_error_initialize_gssapi_error(
globus_object_t * error,
globus_module_descriptor_t * base_source,
globus_object_t * base_cause,
const OM_uint32 major_status,
const OM_uint32 minor_status)
{
globus_l_gssapi_error_data_t * instance_data;
globus_object_t * minor_obj;
gss_OID_set actual_mechs;
OM_uint32 local_minor_status;
extern gss_OID gss_mech_globus_gssapi_openssl;
instance_data = (globus_l_gssapi_error_data_t *)
malloc(sizeof(globus_l_gssapi_error_data_t));
instance_data->major_status = major_status;
instance_data->minor_status = minor_status;
instance_data->is_globus_gsi = GLOBUS_FALSE;
if(gss_indicate_mechs(
&local_minor_status, &actual_mechs) == GSS_S_COMPLETE)
{
int boolean;
if(gss_test_oid_set_member(
&local_minor_status,
gss_mech_globus_gssapi_openssl,
actual_mechs,
&boolean) == GSS_S_COMPLETE && boolean)
{
instance_data->is_globus_gsi = GLOBUS_TRUE;
}
gss_release_oid_set(&local_minor_status, &actual_mechs);
}
if(instance_data->is_globus_gsi)
{
minor_obj = globus_error_get((globus_result_t) minor_status);
if(!base_cause)
{
base_cause = minor_obj;
}
else if(minor_obj)
{
base_cause = globus_error_initialize_base(
minor_obj, globus_error_get_source(base_cause), base_cause);
}
}
globus_object_set_local_instance_data(error, instance_data);
return globus_error_initialize_base(error, base_source, base_cause);
}/* globus_error_initialize_gssapi_error() */
globus_object_t *
globus_i_ftp_client_wrap_ftp_error(
globus_module_descriptor_t * base_source,
int code,
const char * message,
int error_type,
const char * source_file,
const char * source_func,
int source_line,
const char * format,
...)
{
va_list ap;
globus_object_t * error;
globus_object_t * causal_error;
globus_l_error_ftp_data_t * data;
causal_error = globus_object_construct(GLOBUS_ERROR_TYPE_FTP);
if(!causal_error)
{
goto error_object;
}
data = (globus_l_error_ftp_data_t *)
globus_malloc(sizeof(globus_l_error_ftp_data_t));
if(!data)
{
goto error_data;
}
data->code = code;
data->message = globus_libc_strdup(message);
globus_object_set_local_instance_data(causal_error, data);
globus_error_initialize_base(causal_error, base_source, NULL);
va_start(ap, format);
error = globus_error_v_construct_error(
base_source,
causal_error,
error_type,
source_file,
source_func,
source_line,
format,
ap);
va_end(ap);
if(!error)
{
goto error_construct;
}
return error;
error_construct:
error_data:
globus_object_free(causal_error);
error_object:
return NULL;
}
