1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
/* Copyright (c) 2007 Scott Lembcke
*
* Permission is hereby granted, free of charge, to any person obtaining a copy
* of this software and associated documentation files (the "Software"), to deal
* in the Software without restriction, including without limitation the rights
* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
* copies of the Software, and to permit persons to whom the Software is
* furnished to do so, subject to the following conditions:
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
* SOFTWARE.
*/
extern VALUE m_Chipmunk;
extern VALUE c_cpVect;
extern VALUE c_cpBB;
extern VALUE c_cpBody;
extern VALUE m_cpShape;
extern VALUE c_cpCircleShape;
extern VALUE c_cpSegmentShape;
extern VALUE c_cpPolyShape;
extern VALUE m_cpConstraint;
extern VALUE c_cpSpace;
extern ID id_parent;
static inline VALUE
VNEW(cpVect v)
{
cpVect *ptr = malloc(sizeof(cpVect));
*ptr = v;
return Data_Wrap_Struct(c_cpVect, NULL, free, ptr);
}
static inline VALUE
VWRAP(VALUE parent, cpVect *v)
{
VALUE vec_obj = Data_Wrap_Struct(c_cpVect, NULL, NULL, v);
rb_ivar_set(vec_obj, id_parent, parent);
return vec_obj;
}
#define GETTER_TEMPLATE(func_name, klass, type)\
static inline type *\
func_name(VALUE self)\
{\
if(!rb_obj_is_kind_of(self, klass)){\
VALUE klass_name = rb_funcall(klass, rb_intern("to_s"), 0);\
rb_raise(rb_eTypeError, "wrong argument type %s (expected %s)", rb_obj_classname(self), StringValuePtr(klass_name));\
}\
type *ptr;\
Data_Get_Struct(self, type, ptr);\
return ptr;\
}\
GETTER_TEMPLATE(VGET , c_cpVect , cpVect )
GETTER_TEMPLATE(BBGET, c_cpBB , cpBB )
GETTER_TEMPLATE(BODY , c_cpBody , cpBody )
GETTER_TEMPLATE(SHAPE, m_cpShape, cpShape)
GETTER_TEMPLATE(CONSTRAINT, m_cpConstraint, cpConstraint)
GETTER_TEMPLATE(SPACE, c_cpSpace, cpSpace)
void Init_chipmunk(void);
void Init_cpVect();
void Init_cpBB();
void Init_cpBody();
void Init_cpShape();
void Init_cpConstraint();
void Init_cpSpace();
|
