types/float.c

   1 /*
   2  * float.c
   3  *
   4  * BabelTrace - Float Type Converter
   5  *
   6  * Copyright 2010, 2011 - Mathieu Desnoyers <mathieu.desnoyers@efficios.com>
   7  *
   8  * Permission is hereby granted, free of charge, to any person obtaining a copy
   9  * of this software and associated documentation files (the "Software"), to deal
  10  * in the Software without restriction, including without limitation the rights
  11  * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
  12  * copies of the Software, and to permit persons to whom the Software is
  13  * furnished to do so, subject to the following conditions:
  14  *
  15  * The above copyright notice and this permission notice shall be included in
  16  * all copies or substantial portions of the Software.
  17  */
  18
  19 #include <babeltrace/compiler.h>
  20 #include <babeltrace/format.h>
  21
  22 static
  23 struct declaration *_float_declaration_new(struct type *type,
  24                                    struct declaration_scope *parent_scope);
  25 static
  26 void _float_declaration_free(struct declaration *declaration);
  27
  28 void float_copy(struct stream_pos *destp,
  29                 const struct format *fdest,
  30                 struct stream_pos *srcp,
  31                 const struct format *fsrc,
  32                 struct declaration *declaration)
  33 {
  34         struct declaration_float *_float =
  35                 container_of(declaration, struct declaration_float, p);
  36         struct type_float *float_type = _float->type;
  37
  38         if (fsrc->float_copy == fdest->float_copy) {
  39                 fsrc->float_copy(destp, srcp, float_type);
  40         } else {
  41                 double v;
  42
  43                 v = fsrc->double_read(srcp, float_type);
  44                 fdest->double_write(destp, float_type, v);
  45         }
  46 }
  47
  48 static
  49 void _float_type_free(struct type *type)
  50 {
  51         struct type_float *float_type =
  52                 container_of(type, struct type_float, p);
  53
  54         type_unref(&float_type->exp->p);
  55         type_unref(&float_type->mantissa->p);
  56         type_unref(&float_type->sign->p);
  57         g_free(float_type);
  58 }
  59
  60 struct type_float *
  61         float_type_new(const char *name, size_t mantissa_len,
  62                        size_t exp_len, int byte_order, size_t alignment)
  63 {
  64         struct type_float *float_type;
  65         struct type *type;
  66         int ret;
  67
  68         float_type = g_new(struct type_float, 1);
  69         type = &float_type->p;
  70         type->name = g_quark_from_string(name);
  71         type->alignment = alignment;
  72         type->copy = float_copy;
  73         type->type_free = _float_type_free;
  74         type->declaration_new = _float_declaration_new;
  75         type->declaration_free = _float_declaration_free;
  76         type->ref = 1;
  77         float_type->byte_order = byte_order;
  78
  79         float_type->sign = integer_type_new(NULL, 1,
  80                                             byte_order, false, 1);
  81         if (!float_type->mantissa)
  82                 goto error_sign;
  83         float_type->mantissa = integer_type_new(NULL, mantissa_len - 1,
  84                                                 byte_order, false, 1);
  85         if (!float_type->mantissa)
  86                 goto error_mantissa;
  87         float_type->exp = integer_type_new(NULL, exp_len,
  88                                            byte_order, true, 1);
  89         if (!float_type->exp)
  90                 goto error_exp;
  91
  92         if (float_type->p.name) {
  93                 ret = register_type(&float_type->p);
  94                 if (ret)
  95                         goto error_register;
  96         }
  97         return float_type;
  98
  99 error_register:
 100         type_unref(&float_type->exp->p);
 101 error_exp:
 102         type_unref(&float_type->mantissa->p);
 103 error_mantissa:
 104         type_unref(&float_type->sign->p);
 105 error_sign:
 106         g_free(float_type);
 107         return NULL;
 108 }
 109
 110 static
 111 struct declaration *
 112         _float_declaration_new(struct type *type,
 113                                struct declaration_scope *parent_scope)
 114 {
 115         struct type_float *float_type =
 116                 container_of(type, struct type_float, p);
 117         struct declaration_float *_float;
 118
 119         _float = g_new(struct declaration_float, 1);
 120         type_ref(&_float_type->p);
 121         _float->p.type= _float_type;
 122         _float->p.ref = 1;
 123         _float->value = 0.0;
 124         return &_float->p;
 125 }
 126
 127 static
 128 void _float_declaration_free(struct declaration *declaration)
 129 {
 130         struct declaration_float *_float =
 131                 container_of(declaration, struct declaration_float, p);
 132
 133         type_unref(_float->p.type);
 134         g_free(_float);
 135 }