epr_typconv.c

Insar图像处理软件

/*
 * $Id: epr_typconv.c,v 1.1.1.1 2003/03/05 17:36:43 hartmut Exp $
 *
 * Copyright (C) 2002 by Brockmann Consult ([e-mail])
 *
 * This program is free software; you can redistribute it and/or modify it
 * under the terms of the GNU General Public License as published by the
 * Free Software Foundation. This program is distributed in the hope it will
 * be useful, but WITHOUT ANY WARRANTY; without even the implied warranty
 * of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 * See the GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
 */

#include <assert.h>
#include <errno.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include "epr_api.h"
#include "epr_core.h"
#include "epr_field.h"

/*********************************** TYPE CONVERSION ***********************************/


/**
 * Interprates a memory as a <code>char</code> value
 * 
 * @param field the pointer at the array to convert 
 * @param elem_index the index of the element 
 * in the given array to convert
 *
 * @return the <code>char</code> typed element
 *         or <code>error_code</code> if an error occured.
 */ 
char epr_get_field_elem_as_char(const EPR_SField* field, uint elem_index)
{
    epr_clear_err();

    if (field == NULL) {
        epr_set_err(e_err_invalid_field_name, 
                    "epr_get_field_elem_as_char: invalid field name");
        return (char)0;
    }
    if (elem_index >= field->info->num_elems) {
        epr_set_err(e_err_invalid_value, 
                    "epr_get_field_elem_as_char: invalid elem_index parameter");
        return (char)0;
    }
    if (field->info->data_type_id != e_tid_char) {
        epr_set_err(e_err_invalid_data_format, 
                    "epr_get_field_elem_as_char: invalid type");
        return (char)0;
    }
    return ((char*) field->elems)[elem_index];
}

/**
 * Interprates a memory data as a <code>char</code> data
 * 
 * @param field the pointer at the array to convert 
 *
 * @return the <code>char</code> typed element
 *         or <code>NULL</code> if an error occured.
 */
const char* epr_get_field_elems_char(const EPR_SField* field)
{
    epr_clear_err();

    if (field == NULL) {
        epr_set_err(e_err_invalid_field_name, 
                    "epr_get_field_elems_as_chars: invalid field name");
        return NULL;
    }
    if (field->info->data_type_id != e_tid_char) {
        epr_set_err(e_err_invalid_data_format, 
                    "epr_get_field_elems_as_chars: invalid type");
        return NULL;
    }
    return (char*) field->elems;
}

/**
 * Interprates a memory as a <code>uchar</code> value
 * 
 * @param field the pointer at the array to convert 
 * @param elem_index the index of the element 
 * in the given array to convert
 *
 * @return the <code>uchar</code> typed element
 *         or <code>error_code</code> if an error occured.
 */
uchar epr_get_field_elem_as_uchar(const EPR_SField* field, uint elem_index)
{
    epr_clear_err();

    if (field == NULL) {
        epr_set_err(e_err_invalid_field_name, 
                    "epr_get_field_elem_as_uchar: invalid field name");
        return (uchar)0;
    }
    if (elem_index >= field->info->num_elems) {
        epr_set_err(e_err_invalid_value, 
                    "epr_get_field_elem_as_uchar: invalid elem_index parameter");
        return (uchar)0;
    }
    if (field->info->data_type_id != e_tid_uchar) {
        epr_set_err(e_err_invalid_data_format, 
                    "epr_get_field_elem_as_uchar: invalid type");
        return (uchar)0;
    }
    return ((uchar*) field->elems)[elem_index];
}

/**
 * Interprates a memory data as a <code>uchar</code> data
 * 
 * @param field the pointer at the array to convert 
 *
 * @return the <code>uchar</code> typed element
 *         or <code>NULL</code> if an error occured.
 */
const uchar* epr_get_field_elems_uchar(const EPR_SField* field)
{
    epr_clear_err();

    if (field == NULL) {
        epr_set_err(e_err_invalid_field_name, 
                    "epr_get_field_elems_as_uchars: invalid field name");
        return NULL;
    }
    if (field->info->data_type_id != e_tid_uchar) {
        epr_set_err(e_err_invalid_data_format, 
                    "epr_get_field_elems_as_uchars: invalid type");
        return NULL;
    }
    return (uchar*) field->elems;
}

/**
 * Interprates a memory as a <code>short</code> value
 * 
 * @param field the pointer at the array to convert 
 * @param elem_index the index of the element 
 * in the given array to convert
 *
 * @return the <code>short</code> typed element
 *         or <code>error_code</code> if an error occured.
 */
short epr_get_field_elem_as_short(const EPR_SField* field, uint elem_index)
{
    epr_clear_err();

    if (field == NULL) {
        epr_set_err(e_err_invalid_field_name, 
                    "epr_get_field_elem_as_short: invalid field name");
        return (short)0;
    }
    if (elem_index >= field->info->num_elems) {
        epr_set_err(e_err_invalid_value, 
                    "epr_get_field_elem_as_short: invalid elem_index parameter");
        return (short)0;
    }


    if (field->info->data_type_id == e_tid_uchar) {
        return (short)((uchar*) field->elems)[elem_index];
    }
    if (field->info->data_type_id == e_tid_char) {
        return (short)((char*) field->elems)[elem_index];
    }
    if (field->info->data_type_id == e_tid_short) {
        return (short)((short*) field->elems)[elem_index];
    }

    epr_set_err(e_err_invalid_data_format, 
                "epr_get_field_elem_as_short: invalid type");

    return (short)0;
}

/**
 * Interprates a memory data as a <code>short</code> data 
 * 
 * @param field the pointer at the array to convert 
 *
 * @return the <code>short</code> typed element
 *         or <code>NULL</code> if an error occured.
 */
const short* epr_get_field_elems_short(const EPR_SField* field)
{
    epr_clear_err();

    if (field == NULL) {
        epr_set_err(e_err_invalid_field_name, 
                    "epr_get_field_elems_as_shorts: invalid field name");
        return NULL;
    }
    if (field->info->data_type_id != e_tid_short) {
        epr_set_err(e_err_invalid_data_format, 
                    "epr_get_field_elems_as_shorts: invalid type");
        return NULL;
    }
    return (short*) field->elems;
}

/**
 * Interprates a memory as a <code>ushort</code> value
 * 
 * @param field the pointer at the array to convert 
 * @param elem_index the index of the element 
 * in the given array to convert
 *
 * @return the <code>ushort</code> typed element
 *         or <code>error_code</code> if an error occured.
 */
ushort epr_get_field_elem_as_ushort(const EPR_SField* field, uint elem_index)
{
    epr_clear_err();

    if (field == NULL) {
        epr_set_err(e_err_invalid_field_name, 
                    "epr_get_field_elem_as_ushort: invalid field name");
        return (ushort)0;
    }
    if (elem_index >= field->info->num_elems) {
        epr_set_err(e_err_invalid_value, 
                    "epr_get_field_elem_as_ushort: invalid elem_index parameter");
        return (ushort)0;
    }

    if (field->info->data_type_id == e_tid_uchar) {
        return (ushort)((uchar*) field->elems)[elem_index];
    }
    if (field->info->data_type_id == e_tid_char) {
        return (ushort)((char*) field->elems)[elem_index];
    }
    if (field->info->data_type_id == e_tid_ushort) {
        return (ushort)((ushort*) field->elems)[elem_index];
    }

    epr_set_err(e_err_invalid_data_format, 
                "epr_get_field_elem_as_ushort: invalid type");

    return (ushort)0;
}

/**
 * Interprates a memory data as a <code>ushort</code> data 
 * 
 * @param field the pointer at the array to convert 
 *
 * @return the <code>ushort</code> typed element
 *         or <code>NULL</code> if an error occured.
 */
const ushort* epr_get_field_elems_ushort(const EPR_SField* field)
{
    epr_clear_err();

    if (field == NULL) {
        epr_set_err(e_err_invalid_field_name, 
                    "epr_get_field_elems_as_ushorts: invalid field name");
        return NULL;
    }
    if (field->info->data_type_id != e_tid_ushort) {
        epr_set_err(e_err_invalid_data_format, 
                    "epr_get_field_elems_as_ushorts: invalid type");
        return NULL;
    }
    return (ushort*) field->elems;
}

/**
 * Interprates a memory as a <code>long</code> value.
 * 
 * <p> If an error occurs the method returns <code>0</code> (zero).
 * Whether an error really occured when zero is returned can by determined by 
 * using the <code>epr_get_last_err_code</code> function.
 * 
 * @param field the pointer at the array to convert 
 * @param elem_index the index of the element 
 * in the given array to convert
 *
 * @return a <code>long</code> value
 */
long epr_get_field_elem_as_long(const EPR_SField* field, uint elem_index)
{
    epr_clear_err();

    if (field == NULL) {
        epr_set_err(e_err_invalid_field_name, 
                    "epr_get_field_elem_as_long: invalid field name");
        return (long)0;
    }
    if (elem_index >= field->info->num_elems) {
        epr_set_err(e_err_invalid_value, 
                    "epr_get_field_elem_as_long: invalid elem_index parameter");
        return (long)0;
    }

    if (field->info->data_type_id == e_tid_uchar) {
        return (long)((uchar*) field->elems)[elem_index];
    }
    if (field->info->data_type_id == e_tid_char) {
        return (long)((char*) field->elems)[elem_index];
    }
    if (field->info->data_type_id == e_tid_ushort) {
        return (long)((ushort*) field->elems)[elem_index];
    }
    if (field->info->data_type_id == e_tid_short) {
        return (long)((short*) field->elems)[elem_index];
    }
    if (field->info->data_type_id == e_tid_long) {
        return (long)((long*) field->elems)[elem_index];
    }

    epr_set_err(e_err_invalid_data_format, 
                "epr_get_field_elem_as_long: invalid type");

    return (long)0;
}

/**
 * Interprates a memory data as a <code>long</code> data 
 * 
 * @param field the pointer at the array to convert 
 *
 * @return the <code>long</code> typed element
 *         or <code>NULL</code> if an error occured.
 */
const long* epr_get_field_elems_long(const EPR_SField* field)
{
    epr_clear_err();

    if (field == NULL) {
        epr_set_err(e_err_invalid_field_name, 
                    "epr_get_field_elems_as_longs: invalid field name");
        return NULL;
    }
    if (field->info->data_type_id != e_tid_long) {
        epr_set_err(e_err_invalid_data_format, 
                    "epr_get_field_elems_as_longs: invalid type");
        return NULL;
    }
    return (long*) field->elems;
}

/**
 * Interprates a memory as a <code>ulong</code> value
 * 
 * @param field the pointer at the array to convert 
 * @param elem_index the index of the element 
 * in the given array to convert
 *
 * @return the <code>ulong</code> typed element
 *         or <code>error_code</code> if an error occured.
 */
ulong epr_get_field_elem_as_ulong(const EPR_SField* field, uint elem_index)
{
    epr_clear_err();

    if (field == NULL) {
        epr_set_err(e_err_invalid_field_name, 
                    "epr_get_field_elem_as_ulong: invalid field name");
        return (ulong)0;
    }
    if (elem_index >= field->info->num_elems) {
        epr_set_err(e_err_invalid_value, 
                    "epr_get_field_elem_as_ulong: invalid elem_index parameter");
        return (ulong)0;
    }

    if (field->info->data_type_id == e_tid_ulong) {
        return (ulong)((ulong*) field->elems)[elem_index];
    }
    if (field->info->data_type_id == e_tid_uchar) {
        return (ulong)((uchar*) field->elems)[elem_index];
    }
    if (field->info->data_type_id == e_tid_char) {
        return (ulong)((char*) field->elems)[elem_index];
    }
    if (field->info->data_type_id == e_tid_ushort) {
        return (ulong)((ushort*) field->elems)[elem_index];
    }
    if (field->info->data_type_id == e_tid_short) {
        return (ulong)((short*) field->elems)[elem_index];
    }

    epr_set_err(e_err_invalid_data_format, 
                "epr_get_field_elem_as_ulong: invalid type");

    return (ulong)0;
}

/**
 * Interprates a memory data as a <code>ulong</code> data 
 * 
 * @param field the pointer at the array to convert 
 *
 * @return the <code>ulong</code> typed element
 *         or <code>NULL</code> if an error occured.
 */
const ulong* epr_get_field_elems_ulong(const EPR_SField* field)
{
    epr_clear_err();

    if (field == NULL) {
        epr_set_err(e_err_invalid_field_name, 
                    "epr_get_field_elems_as_ulongs: invalid field name");
        return NULL;
    }
    if (field->info->data_type_id != e_tid_ulong) {
        epr_set_err(e_err_invalid_data_format, 
                    "epr_get_field_elems_as_ulongs: invalid type");
        return NULL;
    }
    return (ulong*) field->elems;
}

/**
 * Interprates a memory as a <code>float</code> value
 * 
 * @param field the pointer at the array to convert 
 * @param elem_index the index of the element 
 * in the given array to convert
 *
 * @return the <code>float</code> typed element
 *         or <code>error_code</code> if an error occured.
 */
float epr_get_field_elem_as_float(const EPR_SField* field, uint elem_index)
{
    epr_clear_err();

    if (field == NULL) {
        epr_set_err(e_err_invalid_field_name, 
                    "epr_get_field_elem_as_float: invalid field name");
        return 0.0;
            
    }
    if (elem_index >= field->info->num_elems) {
        epr_set_err(e_err_invalid_value, 
                    "epr_get_field_elem_as_float: invalid elem_index parameter");
        return 0.0;
    }

    if (field->info->data_type_id == e_tid_float) {
        return (float)((float*) field->elems)[elem_index];
    }