4 * BabelTrace - Sequence Type Converter
6 * Copyright 2010, 2011 - Mathieu Desnoyers <mathieu.desnoyers@efficios.com>
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:
15 * The above copyright notice and this permission notice shall be included in
16 * all copies or substantial portions of the Software.
19 #include <babeltrace/compiler.h>
20 #include <babeltrace/format.h>
23 #define max(a, b) ((a) < (b) ? (b) : (a))
27 struct type
*_sequence_type_new(struct type_class
*type_class
,
28 struct declaration_scope
*parent_scope
);
30 void _sequence_type_free(struct type
*type
);
32 void sequence_copy(struct stream_pos
*dest
, const struct format
*fdest
,
33 struct stream_pos
*src
, const struct format
*fsrc
,
36 struct type_sequence
*sequence
=
37 container_of(type
, struct type_sequence
, p
);
38 struct type_class_sequence
*sequence_class
= sequence
->_class
;
41 fsrc
->sequence_begin(src
, sequence
);
42 fdest
->sequence_begin(dest
, sequence
);
44 sequence
->len
->p
._class
->copy(dest
, fdest
, src
, fsrc
,
47 for (i
= 0; i
< sequence
->len
->value
._unsigned
; i
++) {
48 struct type
*elem_type
= sequence
->current_element
.type
;
49 elem_type
->p
._class
->copy(dest
, fdest
, src
, fsrc
, elem_type
);
51 fsrc
->sequence_end(src
, sequence
);
52 fdest
->sequence_end(dest
, sequence
);
56 void _sequence_type_class_free(struct type_class
*type_class
)
58 struct type_class_sequence
*sequence_class
=
59 container_of(type_class
, struct type_class_sequence
, p
);
61 type_class_unref(&sequence_class
->len_class
->p
);
62 type_class_unref(sequence_class
->elem
);
63 g_free(sequence_class
);
66 struct type_class_sequence
*
67 sequence_type_class_new(const char *name
, struct type_class_integer
*len_class
,
68 struct type_class
*elem
)
70 struct type_class_sequence
*sequence_class
;
71 struct type_class
*type_class
;
74 sequence_class
= g_new(struct type_class_sequence
, 1);
75 type_class
= &sequence_class
->p
;
76 assert(!len_class
->signedness
);
77 type_ref(&len_class
->p
);
78 sequence_class
->len_class
= len_class
;
80 sequence_class
->elem
= elem
;
81 type_class
->name
= g_quark_from_string(name
);
82 type_class
->alignment
= max(len_class
->p
.alignment
,
84 type_class
->copy
= sequence_copy
;
85 type_class
->class_free
= _sequence_type_class_free
;
86 type_class
->type_new
= _sequence_type_new
;
87 type_class
->type_free
= _sequence_type_free
;
90 if (type_class
->name
) {
91 ret
= register_type(type_class
);
95 return sequence_class
;
98 type_class_unref(&len_class
->p
);
99 type_class_unref(elem
);
100 g_free(sequence_class
);
105 struct type
*_sequence_type_new(struct type_class
*type_class
,
106 struct declaration_scope
*parent_scope
)
108 struct type_class_sequence
*sequence_class
=
109 container_of(type_class
, struct type_class_sequence
, p
);
110 struct type_sequence
*sequence
;
112 sequence
= g_new(struct type_sequence
, 1);
113 type_class_ref(&sequence_class
->p
);
114 sequence
->p
._class
= sequence_class
;
116 sequence
->scope
= new_declaration_scope(parent_scope
);
118 sequence_class
->len_class
.p
->type_new(&sequence_class
->len_class
.p
,
120 sequence
->current_element
.type
=
121 sequence_class
->elem
.p
->type_new(&sequence_class
->elem
.p
,
127 void _sequence_type_free(struct type
*type
)
129 struct type_sequence
*sequence
=
130 container_of(type
, struct type_sequence
, p
);
131 struct type
*len_type
= sequence
->len
.type
;
132 struct type
*elem_type
= sequence
->current_element
.type
;
134 len_type
->p
._class
->type_free(len_type
);
135 elem_type
->p
._class
->type_free(elem_type
);
136 free_declaration_scope(sequence
->scope
);
137 type_class_unref(sequence
->p
._class
);