+++ /dev/null
-/* This file is part of the Linux Trace Toolkit viewer
- * Copyright (C) 2003-2004 Xiangxiu Yang
- * 2005 Mathieu Desnoyers
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License Version 2.1 as published by the Free Software Foundation.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the
- * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
- * Boston, MA 02111-1307, USA.
- */
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-
-#include <stdio.h>
-#include <glib.h>
-
-#include "parser.h"
-#include <ltt/ltt.h>
-#include "ltt-private.h"
-#include <ltt/type.h>
-
-static unsigned intSizes[] = {
- sizeof(int8_t), sizeof(int16_t), sizeof(int32_t), sizeof(int64_t),
- sizeof(short) };
-
-typedef enum _intSizesNames { SIZE_INT8, SIZE_INT16, SIZE_INT32,
- SIZE_INT64, SIZE_SHORT, INT_SIZES_NUMBER }
- intSizesNames;
-
-
-static unsigned floatSizes[] = {
- 0, 0, sizeof(float), sizeof(double), 0, sizeof(float), sizeof(double) };
-
-#define FLOAT_SIZES_NUMBER 7
-
-
-/*****************************************************************************
- *Function name
- * ltt_eventtype_name : get the name of the event type
- *Input params
- * et : an event type
- *Return value
- * GQuark : the name of the event type
- ****************************************************************************/
-
-GQuark ltt_eventtype_name(LttEventType *et)
-{
- return et->name;
-}
-
-/*****************************************************************************
- *Function name
- * ltt_eventtype_description : get the description of the event type
- *Input params
- * et : an event type
- *Return value
- * char * : the description of the event type
- ****************************************************************************/
-
-gchar *ltt_eventtype_description(LttEventType *et)
-{
- return et->description;
-}
-
-/*****************************************************************************
- *Function name
- * ltt_eventtype_facility : get the facility which contains the event type
- *Input params
- * et : an event type
- *Return value
- * LttFacility * : the facility
- ****************************************************************************/
-
-LttFacility *ltt_eventtype_facility(LttEventType *et)
-{
- return et->facility;
-}
-
-/*****************************************************************************
- *Function name
- * ltt_eventtype_id : get the id of the event type
- *Input params
- * et : an event type
- *Return value
- * unsigned : the id
- ****************************************************************************/
-
-guint8 ltt_eventtype_id(LttEventType *et)
-{
- return et->index;
-}
-
-/*****************************************************************************
- *Function name
- * ltt_field_name : get the name of the field
- *Input params
- * f : a field
- *Return value
- * char * : the name of the type
- ****************************************************************************/
-
-GQuark ltt_field_name(LttField *f)
-{
- return f->name;
-}
-/*****************************************************************************
- *Function name
- * ltt_type_class : get the type class of the type
- *Input params
- * t : a type
- *Return value
- * LttTypeEnum : the type class of the type
- ****************************************************************************/
-
-LttTypeEnum ltt_type_class(LttType *t)
-{
- return t->type_class;
-}
-
-/*****************************************************************************
- *Function name
- * ltt_type_size : obtain the type size. The size is the number of bytes
- * for primitive types (INT, UINT, FLOAT, ENUM)
- * or the size for the unsigned integer length count for
- * sequences
- *Input params
- * tf : trace file
- * t : a type
- *Return value
- * : the type size
- * returns 0 if erroneous, and show a critical warning message.
- ****************************************************************************/
-
-guint ltt_type_size(LttTrace * trace, LttType *t)
-{
- guint size;
-
- switch(t->type_class) {
- case LTT_INT_FIXED:
- case LTT_UINT_FIXED:
- case LTT_CHAR:
- case LTT_UCHAR:
- case LTT_SHORT:
- case LTT_USHORT:
- case LTT_INT:
- case LTT_UINT:
- case LTT_ENUM:
- if(likely(t->size < INT_SIZES_NUMBER))
- size = intSizes[t->size];
- else
- goto error;
- break;
- case LTT_FLOAT:
- if(likely(t->size < FLOAT_SIZES_NUMBER))
- size = floatSizes[t->size];
- else
- goto error;
- break;
- case LTT_POINTER:
- case LTT_LONG:
- case LTT_ULONG:
- case LTT_SIZE_T:
- case LTT_SSIZE_T:
- case LTT_SEQUENCE:
- case LTT_OFF_T:
- case LTT_STRING:
- case LTT_ARRAY:
- case LTT_STRUCT:
- case LTT_UNION:
- case LTT_NONE:
- goto error;
- break;
- }
-
- return size;
-
-
-error:
- g_warning("no size known for the type");
- return 0;
-}
-
-/*****************************************************************************
- *Function name
- * ltt_type_element_type : obtain the type of nested elements for arrays
- * and sequences
- *Input params
- * t : a type
- *Return value
- * LttType : the type of nested element of array or sequence
- ****************************************************************************/
-
-LttType *ltt_type_element_type(LttType *t)
-{
- LttType *element_type;
- LttField *field;
-
- if(unlikely(t->type_class != LTT_ARRAY && t->type_class != LTT_SEQUENCE))
- element_type = NULL;
- else {
- if(t->type_class == LTT_ARRAY)
- field = &g_array_index(t->fields, LttField, 0);
- else
- field = &g_array_index(t->fields, LttField, 1);
- element_type = ltt_field_type(field);
- }
-
- return element_type;
-}
-
-/*****************************************************************************
- *Function name
- * ltt_type_element_number : obtain the number of elements for enums
- *Input params
- * t : a type
- *Return value
- * unsigned : the number of elements for arrays
- ****************************************************************************/
-unsigned ltt_type_element_number(LttType *t)
-{
- unsigned ret = 0;
-
- if(likely(t->type_class == LTT_ENUM))
- ret = g_hash_table_size(t->enum_map);
-
- return ret;
-}
-
-/*****************************************************************************
- *Function name
- * ltt_type_member_number : obtain the number of data members for structure
- *Input params
- * t : a type
- *Return value
- * unsigned : the number of members for structure
- ****************************************************************************/
-
-unsigned ltt_type_member_number(LttType *t)
-{
- unsigned ret = 0;
-
- if(likely(t->type_class == LTT_STRUCT || t->type_class == LTT_UNION))
- ret = t->fields->len;
-
- return ret;
-}
-
-
-/*****************************************************************************
- *Function name
- * ltt_enum_string_get : for enumerations, obtain the symbolic string
- * associated with a value (0 to n - 1 for an
- * enumeration of n elements)
- *Input params
- * t : a type
- * i : index of the member
- *Return value
- * char * : symbolic string associated with a value
- ****************************************************************************/
-
-GQuark ltt_enum_string_get(LttType *t, gulong i)
-{
- if(likely(t->type_class == LTT_ENUM))
- return (GQuark)g_hash_table_lookup(t->enum_map, (gpointer)i);
- else
- return 0;
-}
-#if 0
-/*****************************************************************************
- *Function name
- * ltt_field_element : obtain the field of nested elements for arrays and
- * sequence
- *Input params
- * f : a field
- *Return value
- * LttField * : the field of the nested element
- ****************************************************************************/
-
-LttField *ltt_field_element(LttField *f)
-{
- LttField *nest = NULL;
-
- if(likely(f->field_type->type_class == LTT_ARRAY ||
- f->field_type->type_class == LTT_SEQUENCE))
- nest = f->child[0];
-
- return nest;
-}
-#endif//0
-
-/*****************************************************************************
- *Function name
- * ltt_field_member_by_name : obtain the field of data members for structure
- *Input params
- * f : a field
- * name : name of the field
- *Return value
- * LttField * : the field of the nested element
- ****************************************************************************/
-
-LttField *ltt_field_member_by_name(LttField *f, GQuark name)
-{
- LttField *field_member;
-
- g_assert(f->field_type.type_class == LTT_STRUCT ||
- f->field_type.type_class == LTT_UNION);
-
- field_member = g_datalist_id_get_data(&f->field_type.fields_by_name, name);
-
- return field_member;
-}
-
-
-/*****************************************************************************
- *Function name
- * ltt_field_member : obtain the field of data members for structure
- *Input params
- * f : a field
- * i : index of member field
- *Return value
- * LttField * : the field of the nested element
- ****************************************************************************/
-
-LttField *ltt_field_member(LttField *f, guint i)
-{
- LttField *field_member;
-
- g_assert(f->field_type.type_class == LTT_STRUCT ||
- f->field_type.type_class == LTT_UNION);
- g_assert(i < f->field_type.fields->len);
-
- field_member = &g_array_index(f->field_type.fields, LttField, i);
-
- return field_member;
-}
-
-/*****************************************************************************
- *Function name
- * ltt_field_type : obtain the type of the field
- *Input params
- * f : a field
- *Return value
- * ltt_tyoe * : the type of field
- ****************************************************************************/
-
-LttType *ltt_field_type(LttField *f)
-{
- if(unlikely(!f))return NULL;
- return &f->field_type;
-}
-
-int ltt_field_size(LttField * f)
-{
- if(unlikely(!f))return 0;
- return f->field_size;
-}
-
-
-/*****************************************************************************
- *Function name
- * ltt_eventtype_num_fields : get the number of fields of the event
- *Input params
- * e : an instance of an event type
- *Return value
- * guint : number of fields
- ****************************************************************************/
-
-guint ltt_eventtype_num_fields(LttEventType *event_type)
-{
- if(unlikely(!event_type)) return 0;
-
- return event_type->fields->len;
-
-}
-/*****************************************************************************
- *Function name
- * ltt_eventtype_field : get the i th field of the event
- *Input params
- * e : an instance of an event type
- * i : field index
- *Return value
- * LttField * : The requested field, or NULL
- ****************************************************************************/
-
-LttField *ltt_eventtype_field(LttEventType *event_type, guint i)
-{
- if(unlikely(!event_type)) return NULL;
-
- if(i >= event_type->fields->len) return NULL;
-
- return &g_array_index(event_type->fields, LttField, i);
-
-}
-
-/*****************************************************************************
- *Function name
- * ltt_eventtype_field_by_name : get a field of the event
- *Input params
- * e : an instance of an event type
- * name : field name
- *Return value
- * LttField * : The requested field, or NULL
- ****************************************************************************/
-
-LttField *ltt_eventtype_field_by_name(LttEventType *event_type, GQuark name)
-{
- if(unlikely(!event_type)) return NULL;
-
- return (LttField*)g_datalist_id_get_data(&event_type->fields_by_name, name);
-
-}
-
-