3 * Copyright (c) 1991-1994, Larry Wall
5 * You may distribute under the terms of either the GNU General Public
6 * License or the Artistic License, as specified in the README file.
11 * "...for the Entwives desired order, and plenty, and peace (by which they
12 * meant that things should remain where they had set them)." --Treebeard
18 static void av_reify _((AV* av));
28 while (key > AvFILL(av) + 1)
29 AvARRAY(av)[--key] = &sv_undef;
31 sv = AvARRAY(av)[--key];
33 if (sv != &sv_undef) {
35 (void)SvREFCNT_inc(sv);
46 dTHR; /* only necessary if we have to extend stack */
47 if (key > AvMAX(av)) {
52 if (AvALLOC(av) != AvARRAY(av)) {
53 ary = AvALLOC(av) + AvFILL(av) + 1;
54 tmp = AvARRAY(av) - AvALLOC(av);
55 Move(AvARRAY(av), AvALLOC(av), AvFILL(av)+1, SV*);
57 SvPVX(av) = (char*)AvALLOC(av);
60 ary[--tmp] = &sv_undef;
63 if (key > AvMAX(av) - 10) {
64 newmax = key + AvMAX(av);
70 #ifndef STRANGE_MALLOC
74 newmax = key + AvMAX(av) / 5;
77 Renew(AvALLOC(av),newmax+1, SV*);
79 bytes = (newmax + 1) * sizeof(SV*);
80 #define MALLOC_OVERHEAD 16
81 tmp = MALLOC_OVERHEAD;
82 while (tmp - MALLOC_OVERHEAD < bytes)
84 tmp -= MALLOC_OVERHEAD;
88 New(2,ary, newmax+1, SV*);
89 Copy(AvALLOC(av), ary, AvMAX(av)+1, SV*);
90 if (AvMAX(av) > 64 && !nice_chunk) {
91 nice_chunk = (char*)AvALLOC(av);
92 nice_chunk_size = (AvMAX(av) + 1) * sizeof(SV*);
95 Safefree(AvALLOC(av));
98 ary = AvALLOC(av) + AvMAX(av) + 1;
99 tmp = newmax - AvMAX(av);
100 if (av == stack) { /* Oops, grew stack (via av_store()?) */
101 stack_sp = AvALLOC(av) + (stack_sp - stack_base);
102 stack_base = AvALLOC(av);
103 stack_max = stack_base + newmax;
107 newmax = key < 4 ? 4 : key;
108 New(2,AvALLOC(av), newmax+1, SV*);
109 ary = AvALLOC(av) + 1;
111 AvALLOC(av)[0] = &sv_undef; /* For the stacks */
115 ary[--tmp] = &sv_undef;
118 SvPVX(av) = (char*)AvALLOC(av);
125 av_fetch(av,key,lval)
135 if (SvRMAGICAL(av)) {
136 if (mg_find((SV*)av,'P')) {
139 mg_copy((SV*)av, sv, 0, key);
146 key += AvFILL(av) + 1;
150 else if (key > AvFILL(av)) {
157 return av_store(av,key,sv);
159 if (AvARRAY(av)[key] == &sv_undef) {
162 return av_store(av,key,sv);
166 return &AvARRAY(av)[key];
180 if (SvRMAGICAL(av)) {
181 if (mg_find((SV*)av,'P')) {
182 mg_copy((SV*)av, val, 0, key);
188 key += AvFILL(av) + 1;
201 if (AvFILL(av) < key) {
204 if (av == stack && key > stack_sp - stack_base)
205 stack_sp = stack_base + key; /* XPUSH in disguise */
207 ary[++AvFILL(av)] = &sv_undef;
208 while (AvFILL(av) < key);
213 SvREFCNT_dec(ary[key]);
215 if (SvSMAGICAL(av)) {
216 if (val != &sv_undef) {
217 MAGIC* mg = SvMAGIC(av);
218 sv_magic(val, (SV*)av, toLOWER(mg->mg_type), 0, key);
230 av = (AV*)NEWSV(3,0);
231 sv_upgrade((SV *)av, SVt_PVAV);
235 AvMAX(av) = AvFILL(av) = -1;
248 av = (AV*)NEWSV(8,0);
249 sv_upgrade((SV *) av,SVt_PVAV);
250 New(4,ary,size+1,SV*);
252 AvFLAGS(av) = AVf_REAL;
253 SvPVX(av) = (char*)ary;
254 AvFILL(av) = size - 1;
255 AvMAX(av) = size - 1;
256 for (i = 0; i < size; i++) {
259 sv_setsv(ary[i], *strp);
273 av = (AV*)NEWSV(9,0);
274 sv_upgrade((SV *)av, SVt_PVAV);
275 New(4,ary,size+1,SV*);
277 Copy(strp,ary,size,SV*);
278 AvFLAGS(av) = AVf_REIFY;
279 SvPVX(av) = (char*)ary;
280 AvFILL(av) = size - 1;
281 AvMAX(av) = size - 1;
297 if (!av || AvMAX(av) < 0)
303 key = AvFILL(av) + 1;
305 SvREFCNT_dec(ary[--key]);
306 ary[key] = &sv_undef;
309 if (key = AvARRAY(av) - AvALLOC(av)) {
311 SvPVX(av) = (char*)AvALLOC(av);
326 key = AvFILL(av) + 1;
328 SvREFCNT_dec(AvARRAY(av)[--key]);
330 if (key = AvARRAY(av) - AvALLOC(av)) {
332 SvPVX(av) = (char*)AvALLOC(av);
334 Safefree(AvALLOC(av));
337 AvMAX(av) = AvFILL(av) = -1;
339 SvREFCNT_dec(AvARYLEN(av));
351 av_store(av,AvFILL(av)+1,val);
360 if (!av || AvFILL(av) < 0)
362 retval = AvARRAY(av)[AvFILL(av)];
363 AvARRAY(av)[AvFILL(av)--] = &sv_undef;
375 register SV **sstr,**dstr;
383 croak("Can't unshift");
385 i = AvARRAY(av) - AvALLOC(av);
393 SvPVX(av) = (char*)(AvARRAY(av) - i);
396 av_extend(av,AvFILL(av)+num);
398 dstr = AvARRAY(av) + AvFILL(av);
401 # pragma loop_opt(off) /* don't loop-optimize the following code */
402 #endif /* BUGGY_MSC5 */
403 for (i = AvFILL(av) - num; i >= 0; --i) {
406 # pragma loop_opt() /* loop-optimization back to command-line setting */
407 #endif /* BUGGY_MSC5 */
410 AvARRAY(av)[--num] = &sv_undef;
420 if (!av || AvFILL(av) < 0)
422 retval = *AvARRAY(av);
424 *AvARRAY(av) = &sv_undef;
425 SvPVX(av) = (char*)(AvARRAY(av) + 1);
446 croak("panic: null array");
449 if (fill <= AvMAX(av)) {
450 I32 key = AvFILL(av);
451 SV** ary = AvARRAY(av);
455 SvREFCNT_dec(ary[key]);
456 ary[key--] = &sv_undef;
461 ary[++key] = &sv_undef;
469 (void)av_store(av,fill,&sv_undef);