Relicense BabelTrace library to MIT (BSD-style)
[babeltrace.git] / types / float.c
1 /*
2 * float.c
3 *
4 * BabelTrace - Float Type Converter
5 *
6 * Copyright 2010 - 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/types.h>
21
22 void float_copy(struct stream_pos *dest, const struct format *fdest,
23 struct stream_pos *src, const struct format *fsrc,
24 const struct type_class *type_class)
25 {
26 struct type_class_float *float_class =
27 container_of(type_class, struct type_class_float, p);
28
29 if (fsrc->float_copy == fdest->float_copy) {
30 fsrc->float_copy(dest, src, float_class);
31 } else {
32 double v;
33
34 v = fsrc->double_read(src, float_class);
35 fdest->double_write(dest, float_class, v);
36 }
37 }
38
39 void float_type_free(struct type_class_float *float_class)
40 {
41 integer_type_free(float_class->exp);
42 integer_type_free(float_class->mantissa);
43 integer_type_free(float_class->sign);
44 g_free(float_class);
45 }
46
47 static void _float_type_free(struct type_class *type_class)
48 {
49 struct type_class_float *float_class =
50 container_of(type_class, struct type_class_float, p);
51 float_type_free(float_class);
52 }
53
54 struct type_class_float *float_type_new(const char *name,
55 size_t mantissa_len,
56 size_t exp_len, int byte_order,
57 size_t alignment)
58 {
59 struct type_class_float *float_class;
60 struct type_class_integer *int_class;
61 struct type_class *type_class;
62 int ret;
63
64 float_class = g_new(struct type_class_float, 1);
65 type_class = &float_class->p;
66
67 type_class->name = g_quark_from_string(name);
68 type_class->alignment = alignment;
69 type_class->copy = float_copy;
70 type_class->free = _float_type_free;
71 float_class->byte_order = byte_order;
72
73 float_class->sign = integer_type_new(NULL, 1,
74 byte_order, false, 1);
75 if (!float_class->mantissa)
76 goto error_sign;
77 float_class->mantissa = integer_type_new(NULL, mantissa_len - 1,
78 byte_order, false, 1);
79 if (!float_class->mantissa)
80 goto error_mantissa;
81 float_class->exp = integer_type_new(NULL, exp_len,
82 byte_order, true, 1);
83 if (!float_class->exp)
84 goto error_exp;
85
86 if (float_class->p.name) {
87 ret = ctf_register_type(&float_class->p);
88 if (ret)
89 goto error_register;
90 }
91 return float_class;
92
93 error_register:
94 integer_type_free(float_class->exp);
95 error_exp:
96 integer_type_free(float_class->mantissa);
97 error_mantissa:
98 integer_type_free(float_class->sign);
99 error_sign:
100 g_free(float_class);
101 return NULL;
102 }
This page took 0.032176 seconds and 5 git commands to generate.