]> git.wincent.com - wikitext.git/blob - ext/ary.h
More array wrapper instrumentation: delete calls
[wikitext.git] / ext / ary.h
1 // Copyright 2008 Wincent Colaiuta
2 // This program is free software: you can redistribute it and/or modify
3 // it under the terms of the GNU General Public License as published by
4 // the Free Software Foundation, either version 3 of the License, or
5 // (at your option) any later version.
6 //
7 // This program is distributed in the hope that it will be useful,
8 // but WITHOUT ANY WARRANTY; without even the implied warranty of
9 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
10 // GNU General Public License for more details.
11 //
12 // You should have received a copy of the GNU General Public License
13 // along with this program.  If not, see <http://www.gnu.org/licenses/>.
14
15 #include <ruby/ruby.h>
16
17 typedef struct
18 {
19     int     count;
20     int     max;
21     int     *entries;
22 } ary_t;
23
24 inline VALUE ary_new(void)
25 {
26     return rb_ary_new();
27 }
28
29 inline VALUE ary_entry(VALUE ary, long idx)
30 {
31     return rb_ary_entry(ary, idx);
32 }
33
34 #ifdef DEBUG
35 long deleted = 0;
36 #endif
37
38 // deleting from end: just adjust count
39 // deleting from middle: insert marker
40 inline VALUE ary_delete_at(VALUE ary, long idx)
41 {
42 #ifdef DEBUG
43     // called 2086 times in all
44     // of these, only 18 calls have an idx parameter other than -1
45     // and in all 18 cases we're still only deleting the last item in the array
46     // so we only have to worry about optimizing for that case
47     // will support deletions prior to the end by inserting a special value rather than moving memory around
48     if (idx != -1)
49     {
50         deleted++;
51         printf("deleting %d at idx %d (len is %d)\n", deleted, idx, RARRAY_LEN(ary));
52     }
53 #endif /* DEBUG */
54     return rb_ary_delete_at(ary, idx);
55 }
56
57 #ifdef DEBUG
58 long max_len = 0;
59 #endif
60
61 inline VALUE ary_push(VALUE ary, VALUE obj)
62 {
63     VALUE ret = rb_ary_push(ary, obj);
64 #ifdef DEBUG
65     if (RARRAY_LEN(ary) > max_len)
66     {
67         // in typical work loads the array length goes no higher than 25 or 26
68         max_len++;
69         printf("max len %d\n", max_len);
70     }
71 #endif /* DEBUG */
72     return ret;
73 }
74
75 inline VALUE ary_includes(VALUE ary, VALUE obj)
76 {
77     return rb_ary_includes(ary, obj);
78 }