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
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
|
/************************************************
assoc.c -
$Author: matz $
$Date: 1995/01/10 10:30:37 $
created at: Fri Jan 6 10:10:36 JST 1995
Copyright (C) 1995 Yukihiro Matsumoto
************************************************/
#include "ruby.h"
static VALUE C_Assoc;
static ID eq;
VALUE rb_to_a();
VALUE
assoc_new(car, cdr)
VALUE car, cdr;
{
NEWOBJ(assoc, struct RAssoc);
OBJSETUP(assoc, C_Assoc, T_ASSOC);
assoc->car = car;
assoc->cdr = cdr;
return (VALUE)assoc;
}
static VALUE
Fassoc_car(assoc)
struct RAssoc *assoc;
{
return assoc->car;
}
static VALUE
Fassoc_cdr(assoc)
struct RAssoc *assoc;
{
return assoc->cdr;
}
static VALUE
Fassoc_set_car(assoc, val)
struct RAssoc *assoc;
VALUE val;
{
return assoc->car = val;
}
static VALUE
Fassoc_set_cdr(assoc, val)
struct RAssoc *assoc;
VALUE val;
{
return assoc->cdr = val;
}
static VALUE
Fassoc_equal(assoc1, assoc2)
struct RAssoc *assoc1, *assoc2;
{
if (TYPE(assoc2) != T_ASSOC) return FALSE;
if (!rb_equal(assoc1->car, assoc2->car)) return FALSE;
return rb_equal(assoc1->cdr, assoc2->cdr);
}
static VALUE
Fassoc_hash(assoc)
struct RAssoc *assoc;
{
static ID hash;
int key;
if (!hash) hash = rb_intern("hash");
key = rb_funcall(assoc->car, hash, 0, 0);
key ^= rb_funcall(assoc->cdr, hash, 0, 0);
return INT2FIX(key);
}
static VALUE
Fassoc_to_s(assoc)
struct RAssoc *assoc;
{
VALUE str1, str2;
static ID to_s;
if (!to_s) to_s = rb_intern("to_s");
str1 = rb_funcall(assoc->car, to_s, 0);
assoc = RASSOC(assoc->cdr);
while (assoc) {
if (TYPE(assoc) != T_ASSOC) {
str2 = rb_funcall(assoc, to_s, 0);
str_cat(str1, RSTRING(str2)->ptr, RSTRING(str2)->len);
break;
}
str2 = rb_funcall(assoc->car, to_s, 0);
str_cat(str1, RSTRING(str2)->ptr, RSTRING(str2)->len);
assoc = RASSOC(assoc->cdr);
}
return str1;
}
static VALUE
Fassoc_inspect(assoc)
struct RAssoc *assoc;
{
VALUE str1, str2;
static ID inspect;
if (!inspect) inspect = rb_intern("_inspect");
str1 = rb_funcall(assoc->car, inspect, 0, 0);
str2 = rb_funcall(assoc->cdr, inspect, 0, 0);
str_cat(str1, "::", 2);
str_cat(str1, RSTRING(str2)->ptr, RSTRING(str2)->len);
return str1;
}
extern VALUE C_Kernel;
Init_Assoc()
{
C_Assoc = rb_define_class("Assoc", C_Object);
rb_undef_method(CLASS_OF(C_Assoc), "new");
rb_undef_method(C_Assoc, "clone");
rb_define_method(C_Assoc, "car", Fassoc_car, 0);
rb_define_method(C_Assoc, "cdr", Fassoc_cdr, 0);
rb_define_method(C_Assoc, "car=", Fassoc_set_car, 1);
rb_define_method(C_Assoc, "cdr=", Fassoc_set_cdr, 1);
rb_define_method(C_Assoc, "==", Fassoc_equal, 1);
rb_define_method(C_Assoc, "hash", Fassoc_hash, 0);
rb_define_method(C_Assoc, "to_s", Fassoc_to_s, 0);
rb_define_method(C_Assoc, "_inspect", Fassoc_inspect, 0);
rb_define_method(C_Kernel, "::", assoc_new, 1);
}
|
