tpia_misc.h File Reference

Go to the source code of this file.

Macros
#define	tpia_misc_pointerToAttributeIfAllOk2(smr, element, required, attributes, name)    tpia_misc_pointerToAttributeIfAllOk( smr, element, NULL, required, attributes, name, __FILE__, __LINE__ )
#define	tpia_misc_pointerToAttributeIfAllOk3(smr, path, required, attributes, name)    tpia_misc_pointerToAttributeIfAllOk( smr, NULL, path, required, attributes, name, __FILE__, __LINE__ )

Functions
char *	tpia_misc_pointerToAttributeIfAllOk (statusMessageReporting *smr, xData_element *element, const char *path, int required, xData_attributionList *attributes, const char *name, const char *file, int line)
int	tpia_misc_setMessageError_Element (statusMessageReporting *smr, void *userInterface, xData_element *element, const char *file, int line, int code, const char *fmt,...)
xData_Int	tpia_misc_binarySearch (xData_Int n, double *ds, double d)
tpia_EqualProbableBinSpectrum *	tpia_misc_getEqualProbableBin (statusMessageReporting *smr, xData_element *parent, xData_Int *n, xData_Int *nBins)
tpia_EqualProbableBinSpectrum *	tpia_misc_getEqualProbableBins (statusMessageReporting *smr, xData_element *parent, const char *name, xData_Int nBins, xData_Int *n)

Macro Definition Documentation

tpia_misc_pointerToAttributeIfAllOk2

#define tpia_misc_pointerToAttributeIfAllOk2	(		smr,
			element,
			required,
			attributes,
			name
	)		tpia_misc_pointerToAttributeIfAllOk( smr, element, NULL, required, attributes, name, __FILE__, __LINE__ )

Definition at line 42 of file tpia_misc.h.

tpia_misc_pointerToAttributeIfAllOk3

#define tpia_misc_pointerToAttributeIfAllOk3	(		smr,
			path,
			required,
			attributes,
			name
	)		tpia_misc_pointerToAttributeIfAllOk( smr, NULL, path, required, attributes, name, __FILE__, __LINE__ )

Definition at line 44 of file tpia_misc.h.

Function Documentation

tpia_misc_binarySearch()

xData_Int tpia_misc_binarySearch	(	xData_Int	n,
		double *	ds,
		double	d
	)

Definition at line 208 of file tpia_misc.cc.

                                                                      {
 
    xData_Int imin = 0, imid, imax = n - 1;
 
    if( d < ds[0] ) return( -2 );
    if( d > ds[n-1] ) return( -1 );
    while( 1 ) {
        imid = ( imin + imax ) >> 1;
        if( imid == imin ) break;
        if( d < ds[imid] ) {
            imax = imid; }
        else {
            imin = imid;
        }
    }
    return( imin );
}

Referenced by tpia_target_heated_getEIndex().

tpia_misc_getEqualProbableBin()

tpia_EqualProbableBinSpectrum * tpia_misc_getEqualProbableBin	(	statusMessageReporting *	smr,
		xData_element *	parent,
		xData_Int *	n,
		xData_Int *	nBins
	)

Definition at line 317 of file tpia_misc.cc.

                                                                                                                                                   {
 
    xData_element *element;
 
    xData_addToAccessed( smr, parent, 1 );
    //if( ( element = xData_getOneElementByTagName( smr, parent, "equalProbableBins", 0 ) ) == NULL ) return( NULL );
    if( ( element = xData_getOneElementByTagName( smr, parent, (char*) "equalProbableBins", 0 ) ) == NULL ) return( NULL );
    if( xData_convertAttributeTo_xData_Int( smr, element, "nBins", nBins ) != 0 ) {
        tpia_misc_setMessageError_Element( smr, NULL, element, __FILE__, __LINE__, 1, "missing or invalid nBins attribute" );
        return( NULL );
    }
    return( tpia_misc_getEqualProbableBins( smr, element, "energy", *nBins, n ) );
}

Referenced by tpia_angular_getFromElement().

tpia_misc_getEqualProbableBins()

tpia_EqualProbableBinSpectrum * tpia_misc_getEqualProbableBins	(	statusMessageReporting *	smr,
		xData_element *	parent,
		const char *	name,
		xData_Int	nBins,
		xData_Int *	n
	)

Definition at line 333 of file tpia_misc.cc.

                   {
        
 
    int i, j;
    xData_Int index, size;
    xData_elementList *list;
    xData_element *element, *xData;
    double *d;
    tpia_EqualProbableBinSpectrum *epbs = NULL, *epb;
 
    xData_addToAccessed( smr, parent, 1 );
    list = xData_getElementsByTagNameAndSort( smr, parent, name, NULL, NULL );
    if( list->n == 0 ) {
        tpia_misc_setMessageError_Element( smr, NULL, parent, __FILE__, __LINE__, 1, "bins does not contain any %s elements", name ); }
    else {
        *n = list->n;
        size = list->n * ( sizeof( tpia_EqualProbableBinSpectrum ) + ( nBins + 1 ) * sizeof( double ) );
        //if( ( epbs = xData_malloc2( smr, size, 0, "energies" ) ) != NULL ) {
        if( ( epbs = (tpia_EqualProbableBinSpectrum*) xData_malloc2( smr, size, 0, "energies" ) ) != NULL ) {
            d = (double *) &(epbs[list->n]);
            for( i = 0, epb = epbs; i < list->n; i++, epb++ ) {    /* Loop to test nBins and index are proper. */
                element = list->items[i].element;
                xData_addToAccessed( smr, element, 1 );
                if( xData_convertAttributeTo_xData_Int( smr, element, "index", &index ) != 0 ) {
                    tpia_misc_setMessageError_Element( smr, NULL, element, __FILE__, __LINE__, 1, "missing or invalid index attribute" );
                    //epbs = xData_free( smr, epbs );
                    epbs = (tpia_EqualProbableBinSpectrum*) xData_free( smr, epbs );
                    break;
                }
                if( index != i ) {
                    tpia_misc_setMessageError_Element( smr, NULL, element, __FILE__, __LINE__, 1, "index = %lld is not incremental", index );
                    //epbs = xData_free( smr, epbs );
                    epbs = (tpia_EqualProbableBinSpectrum*) xData_free( smr, epbs );
                    break;
                }
                if( ( j = xData_convertAttributeToDouble( smr, element, "value", &(epb->value) ) ) != 0 ) {
                    if( j == 1 ) {
                        tpia_misc_setMessageError_Element( smr, NULL, element, __FILE__, __LINE__, 1, "element does not have value attribute" ); }
                    else {
                        tpia_misc_setMessageError_Element( smr, NULL, element, __FILE__, __LINE__, 1, "failed to convert value attribute to double" );
                    }
                    //epbs = xData_free( smr, epbs );
                    epbs = (tpia_EqualProbableBinSpectrum*) xData_free( smr, epbs );
                    break;
                }
                if( ( xData = xData_getElements_xDataElement( smr, element ) ) == NULL ) {
                    //epbs = xData_free( smr, epbs );
                    epbs = (tpia_EqualProbableBinSpectrum*) xData_free( smr, epbs );
                    break;
                }
                xData_addToAccessed( smr, xData, 1 );
                epb->index = index;
                epb->nBins = nBins;
                epb->bins = d;
                if( xData_1d_x_copyData( smr, xData, ( nBins + 1 ) * sizeof( double ), d ) != 0 ) {
                    //epbs = xData_free( smr, epbs );
                    epbs = (tpia_EqualProbableBinSpectrum*) xData_free( smr, epbs );
                    break;
                }
                d += nBins + 1;
            }
        }
    }
    xData_freeElementList( smr, list );
    return( epbs );
}

Referenced by tpia_angularEnergy_getFromElement(), and tpia_misc_getEqualProbableBin().

tpia_misc_pointerToAttributeIfAllOk()

char * tpia_misc_pointerToAttributeIfAllOk	(	statusMessageReporting *	smr,
		xData_element *	element,
		const char *	path,
		int	required,
		xData_attributionList *	attributes,
		const char *	name,
		const char *	file,
		int	line
	)

Definition at line 163 of file tpia_misc.cc.

                                                                                          {
 
    char *value;
 
    if( !smr_isOk( smr ) ) return( NULL );
    if( ( value = xData_getAttributesValue( attributes, name ) ) == NULL ) {
        if( required ) {
            if( element != NULL ) {
                tpia_misc_setMessageError_Element( smr, NULL, element, file, line, 1, "element does not have attribute named %s", name ); }
            else {
                smr_setMessageError( smr, NULL, file, line, 1, "element does not have attribute named %s for file = %d", name, path );
            }
        }
    }
    return( value );
}

tpia_misc_setMessageError_Element()

int tpia_misc_setMessageError_Element	(	statusMessageReporting *	smr,
		void *	userInterface,
		xData_element *	element,
		const char *	file,
		int	line,
		int	code,
		const char *	fmt,
			...
	)

Definition at line 183 of file tpia_misc.cc.

                           {
 
    int status = 0;
    va_list args;
    char *msg;
 
    va_start( args, fmt );
    msg = smr_vallocateFormatMessage( fmt, &args );
    va_end( args );
    if( msg == NULL ) {
        status = 1;
        va_start( args, fmt );
        smr_vsetMessageError( smr, userInterface, file, line, code, fmt, &args );
        va_end( args ); }
    else {
        status = smr_setMessageError( smr, userInterface, file, line, code, "%s for element %s at line %d column %d", msg, element->fullName, 
            (int) element->docInfo.line, (int) element->docInfo.column );
        free( msg );
    }
    return( status );
}

Referenced by tpia_angularEnergy_getFromElement(), tpia_frame_setFromElement(), tpia_Legendre_getFromElement(), tpia_misc_getEqualProbableBin(), tpia_misc_getEqualProbableBins(), tpia_misc_pointerToAttributeIfAllOk(), tpia_multiplicity_getFromElement(), tpia_multiplicity_getTimeScaleFromElement(), tpia_product_getFromElement(), tpia_target_heated_read(), and tpia_target_read().