tpia_frame.cc File Reference

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <tpia_target.h>
#include <tpia_misc.h>
#include "G4Types.hh"

Go to the source code of this file.

Functions
int	tpia_frame_clear (statusMessageReporting *, tpia_data_frame *frame)
int	tpia_frame_setFromElement (statusMessageReporting *smr, xData_element *element, int dimension, tpia_data_frame *frame)
int	tpia_frame_setFromString (statusMessageReporting *smr, const char *forItem, const char *value, int dimension, tpia_data_frame *frame)
int	tpia_frame_getDimensions (statusMessageReporting *, tpia_data_frame *frame)
char *	tpia_frame_toString (statusMessageReporting *smr, const char *, tpia_data_frame *frame)
int	tpia_frame_setColumns (statusMessageReporting *smr, tpia_data_frame *frame, int nColumns, int *values)
int	tpia_frame_setColumn (statusMessageReporting *smr, tpia_data_frame *frame, int column, int value)
int	tpia_frame_getColumn (statusMessageReporting *smr, tpia_data_frame *frame, int column)

Function Documentation

int tpia_frame_clear	(	statusMessageReporting *	,
		tpia_data_frame *	frame
	)

Definition at line 54 of file tpia_frame.cc.

References tpia_data_frame_s::frames.

Referenced by tpia_frame_setColumns().

                                                                         {

    frame->frames = 0;
    return( 0 );
}

int tpia_frame_getColumn	(	statusMessageReporting *	smr,
		tpia_data_frame *	frame,
		int	column
	)

Definition at line 214 of file tpia_frame.cc.

References tpia_data_frame_s::frames, smr_setMessageError(), and tpia_maxNumberOfFrames.

Referenced by tpia_frame_toString(), and tpia_kinetics_COMKineticEnergy2LabEnergyAndMomentum().

                                                                                            {

    unsigned int value;

    if( ( column < 0 ) || ( column >= tpia_maxNumberOfFrames ) ) {
        smr_setMessageError( smr, NULL, __FILE__, __LINE__, 1, "bad column = %d value for getting frame (0 <= column < %d)", column, tpia_maxNumberOfFrames );
        return( -1 ); }
    else {
        value = frame->frames >> ( 2 * column );
    }
    return( (int) ( value & 3 ) );
}

int tpia_frame_getDimensions	(	statusMessageReporting *	,
		tpia_data_frame *	frame
	)

Definition at line 122 of file tpia_frame.cc.

References tpia_data_frame_s::frames, and tpia_maxNumberOfFrames.

Referenced by tpia_frame_toString().

                                                                                 {

    int i, dimension = 0;
    unsigned value = frame->frames;

    for( i = 0; i < tpia_maxNumberOfFrames; i++ ) {
        if( ( value & 3 ) == 0 ) break;
        dimension++;
        value = value >> 2;
    }
    return( dimension );
}

int tpia_frame_setColumn	(	statusMessageReporting *	smr,
		tpia_data_frame *	frame,
		int	column,
		int	value
	)

Definition at line 191 of file tpia_frame.cc.

References tpia_data_frame_s::frames, smr_setMessageError(), tpia_maxNumberOfFrames, tpia_referenceFrame_Max, and tpia_referenceFrame_None.

Referenced by G4GIDI_target::getElasticFinalState(), G4GIDI_target::getFinalState(), tpia_frame_setColumns(), and tpia_frame_setFromString().

                                                                                                       {

    int i;

    if( ( column < 0 ) || ( column >= tpia_maxNumberOfFrames ) ) {
        smr_setMessageError( smr, NULL, __FILE__, __LINE__, 1, "bad column = %d value for setting frame (0 <= column < %d)", column, tpia_maxNumberOfFrames );
        return( 1 ); }
    else {
        if( ( value < tpia_referenceFrame_None ) || ( value > tpia_referenceFrame_Max ) ) {
            smr_setMessageError( smr, NULL, __FILE__, __LINE__, 1, "bad frame value = %d for column = %d", value, column );
            return( 1 ); }
        else {
            i = 3 << ( 2 * column );
            frame->frames = frame->frames & (~i);
            value = value << ( 2 * column );
            frame->frames = frame->frames | value;
        }
    }
    return( 0 );
}

int tpia_frame_setColumns	(	statusMessageReporting *	smr,
		tpia_data_frame *	frame,
		int	nColumns,
		int *	values
	)

Definition at line 179 of file tpia_frame.cc.

References tpia_frame_clear(), and tpia_frame_setColumn().

Referenced by tpia_decayChannel_sampleProductsAtE().

                                                                                                            {

    int i;

    tpia_frame_clear( smr, frame );
    for( i = 0; i < nColumns; i++ ) if( tpia_frame_setColumn( smr, frame, i, values[i] ) != 0 ) return( 1 );

    return( 0 );
}

int tpia_frame_setFromElement	(	statusMessageReporting *	smr,
		xData_element *	element,
		int	dimension,
		tpia_data_frame *	frame
	)

Definition at line 62 of file tpia_frame.cc.

References xData_element_s::fullName, tpia_frame_setFromString(), tpia_misc_setMessageError_Element(), and xData_getAttributesValueInElement().

Referenced by tpia_angular_getFromElement(), tpia_angularEnergy_getFromElement(), tpia_channel_getFromElement(), tpia_Legendre_getFromElement(), and tpia_multiplicity_getFromElement().

                                                                                                                            {

    char const *value = xData_getAttributesValueInElement( element, "frame" );

    if( value == NULL ) {
        tpia_misc_setMessageError_Element( smr, NULL, element, __FILE__, __LINE__, 1, "element is missing frame attribute" );
        return( 1 );
    }
    return( tpia_frame_setFromString( smr, element->fullName, value, dimension, frame ) );
}

int tpia_frame_setFromString	(	statusMessageReporting *	smr,
		const char *	forItem,
		const char *	value,
		int	dimension,
		tpia_data_frame *	frame
	)

Definition at line 75 of file tpia_frame.cc.

References smr_isOk(), smr_setMessageError(), status, tpia_frame_setColumn(), tpia_maxNumberOfFrames, tpia_referenceFrame_COM, tpia_referenceFrame_lab, and tpia_referenceFrame_None.

Referenced by tpia_angular_initialize(), tpia_angularEnergy_initialize(), tpia_frame_setFromElement(), tpia_Legendre_initialize(), and tpia_multiplicity_initialize().

                                                                                                                                           {

    char const *e;
    int status = 1, i;

    for( i = 0; i < tpia_maxNumberOfFrames; i++ ) tpia_frame_setColumn( smr, frame, i, tpia_referenceFrame_None );
    if( dimension > tpia_maxNumberOfFrames ) {
        smr_setMessageError( smr, NULL, __FILE__, __LINE__, 1, "dimension argument = %d is greater than tpia_maxNumberOfFrames = %d", dimension,
            tpia_maxNumberOfFrames );
        return( status );
    }
    for( i = 0, e = value; ( i < dimension ) && ( *e != 0 ); i++ ) {
        if( strstr( e, lab_Str ) == e ) {
            tpia_frame_setColumn( smr, frame, i, tpia_referenceFrame_lab );
            e += 3; }
        else if( strstr( e, COM_Str ) == e ) {
            tpia_frame_setColumn( smr, frame, i, tpia_referenceFrame_COM );
            e += 12; }
        else {
            smr_setMessageError( smr, NULL, __FILE__, __LINE__, 1, "bad frame '%s' for %s", value, forItem );
            break;
        }
        if( *e != 0 ) {
            if( *e != ',' ) {
                smr_setMessageError( smr, NULL, __FILE__, __LINE__, 1, "bad separater for frame '%s' for %s", value, forItem );
                break;
            }
            e++;
        }
    }
    if( smr_isOk( smr ) ) {
        if( i == dimension ) {
            if( *e == 0 ) {
                status = 0; }
            else {
                smr_setMessageError( smr, NULL, __FILE__, __LINE__, 1, "extra values for frame '%s' for %s", value, forItem );
            } }
        else {
            smr_setMessageError( smr, NULL, __FILE__, __LINE__, 1, "missing values for frame '%s' for %s", value, forItem );
        }
    }
    return( status );
}

char* tpia_frame_toString	(	statusMessageReporting *	smr,
		const char *	,
		tpia_data_frame *	frame
	)

Definition at line 138 of file tpia_frame.cc.

References n, smr_setMessageError(), tpia_frame_getColumn(), tpia_frame_getDimensions(), tpia_referenceFrame_COM, tpia_referenceFrame_lab, and xData_malloc2.

                                                                                               {

    int i, n = tpia_frame_getDimensions( smr, frame ), value, nStr = 0;
    char *str = NULL, *p;

    if( nlab_Str == 0 ) {
        nlab_Str = strlen( lab_Str );
        nCOM_Str = strlen( COM_Str );
    }
    for( i = 0; i < n; i++ ) {
        value = tpia_frame_getColumn( smr, frame, i );
        if( value == tpia_referenceFrame_COM ) {
            nStr += nCOM_Str + 1; }
        else if( value == tpia_referenceFrame_lab ) {
            nStr += nlab_Str + 1; }
        else {
            smr_setMessageError( smr, NULL, __FILE__, __LINE__, 1, "bad frame value = %d for column = %d", value, i );
            return( NULL );
        }
    }
    if( nStr == 0 ) nStr = 1;
    //if( ( str = xData_malloc2( smr, nStr, 1, "str" ) ) == NULL ) return( NULL );
    if( ( str = (char*) xData_malloc2( smr, nStr, 1, "str" ) ) == NULL ) return( NULL );
    for( i = 0, p = str - 1; i < n; i++ ) {
        p++;
        value = tpia_frame_getColumn( smr, frame, i );
        if( value == tpia_referenceFrame_COM ) {
            strcpy( p, COM_Str );
            p += nCOM_Str; }
        else {
            strcpy( p, lab_Str );
            p += nlab_Str;
        }
        *p = ',';
    }
    *p = 0;
    return( str );
}