File: common.h

package info (click to toggle)
libcaca 0.99.beta14-1
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 6,720 kB
  • ctags: 2,334
  • sloc: ansic: 18,652; cs: 1,171; objc: 835; cpp: 741; makefile: 446; sh: 289; python: 215; ruby: 190; asm: 93
file content (48 lines) | stat: -rw-r--r-- 1,999 bytes parent folder | download
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
#ifndef __COMMON_H__
#define __COMMON_H__

#define _SELF  (DATA_PTR(self))

#define get_singleton_double_list(x)                      \
static VALUE x##_list(void)                     \
{                                               \
    VALUE ary, ary2;                            \
    char const* const* list;                    \
                                                \
    list = cucul_get_##x##_list();              \
    ary = rb_ary_new();                         \
    while (*list != NULL)                       \
    {                                           \
        ary2 = rb_ary_new();                    \
        rb_ary_push(ary2, rb_str_new2(*list));  \
        list++;                                 \
        rb_ary_push(ary2, rb_str_new2(*list));  \
        list++;                                 \
        rb_ary_push(ary, ary2);                 \
    }                                           \
                                                \
    return ary;                                 \
}

#define get_double_list(x)                      \
static VALUE x##_list(VALUE self)               \
{                                               \
    VALUE ary, ary2;                            \
    char const* const* list;                    \
                                                \
    list = cucul_get_##x##_list(_SELF);         \
    ary = rb_ary_new();                         \
    while (*list != NULL)                       \
    {                                           \
        ary2 = rb_ary_new();                    \
        rb_ary_push(ary2, rb_str_new2(*list));  \
        list++;                                 \
        rb_ary_push(ary2, rb_str_new2(*list));  \
        list++;                                 \
        rb_ary_push(ary, ary2);                 \
    }                                           \
                                                \
    return ary;                                 \
}

#endif