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];
34 (void)SvREFCNT_inc(sv);
44 if (key > AvMAX(av)) {
49 if (AvALLOC(av) != AvARRAY(av)) {
50 ary = AvALLOC(av) + AvFILL(av) + 1;
51 tmp = AvARRAY(av) - AvALLOC(av);
52 Move(AvARRAY(av), AvALLOC(av), AvFILL(av)+1, SV*);
54 SvPVX(av) = (char*)AvALLOC(av);
57 ary[--tmp] = &sv_undef;
60 if (key > AvMAX(av) - 10) {
61 newmax = key + AvMAX(av);
67 newmax = key + AvMAX(av) / 5;
69 Renew(AvALLOC(av),newmax+1, SV*);
70 ary = AvALLOC(av) + AvMAX(av) + 1;
71 tmp = newmax - AvMAX(av);
72 if (av == stack) { /* Oops, grew stack (via av_store()?) */
73 stack_sp = AvALLOC(av) + (stack_sp - stack_base);
74 stack_base = AvALLOC(av);
75 stack_max = stack_base + newmax;
79 newmax = key < 4 ? 4 : key;
80 New(2,AvALLOC(av), newmax+1, SV*);
81 ary = AvALLOC(av) + 1;
83 AvALLOC(av)[0] = &sv_undef; /* For the stacks */
87 ary[--tmp] = &sv_undef;
90 SvPVX(av) = (char*)AvALLOC(av);
107 if (SvRMAGICAL(av)) {
108 if (mg_find((SV*)av,'P')) {
110 mg_copy((SV*)av, sv, 0, key);
117 key += AvFILL(av) + 1;
121 else if (key > AvFILL(av)) {
128 return av_store(av,key,sv);
130 if (AvARRAY(av)[key] == &sv_undef) {
133 return av_store(av,key,sv);
137 return &AvARRAY(av)[key];
151 if (SvRMAGICAL(av)) {
152 if (mg_find((SV*)av,'P')) {
153 mg_copy((SV*)av, val, 0, key);
159 key += AvFILL(av) + 1;
172 if (AvFILL(av) < key) {
174 if (av == stack && key > stack_sp - stack_base)
175 stack_sp = stack_base + key; /* XPUSH in disguise */
177 ary[++AvFILL(av)] = &sv_undef;
178 while (AvFILL(av) < key);
183 SvREFCNT_dec(ary[key]);
185 if (SvSMAGICAL(av)) {
186 if (val != &sv_undef) {
187 MAGIC* mg = SvMAGIC(av);
188 sv_magic(val, (SV*)av, toLOWER(mg->mg_type), 0, key);
200 av = (AV*)NEWSV(3,0);
201 sv_upgrade((SV *)av, SVt_PVAV);
205 AvMAX(av) = AvFILL(av) = -1;
218 av = (AV*)NEWSV(8,0);
219 sv_upgrade((SV *) av,SVt_PVAV);
220 New(4,ary,size+1,SV*);
222 AvFLAGS(av) = AVf_REAL;
223 SvPVX(av) = (char*)ary;
224 AvFILL(av) = size - 1;
225 AvMAX(av) = size - 1;
226 for (i = 0; i < size; i++) {
229 sv_setsv(ary[i], *strp);
243 av = (AV*)NEWSV(9,0);
244 sv_upgrade((SV *)av, SVt_PVAV);
245 New(4,ary,size+1,SV*);
247 Copy(strp,ary,size,SV*);
248 AvFLAGS(av) = AVf_REIFY;
249 SvPVX(av) = (char*)ary;
250 AvFILL(av) = size - 1;
251 AvMAX(av) = size - 1;
267 if (!av || AvMAX(av) < 0)
273 key = AvFILL(av) + 1;
275 SvREFCNT_dec(ary[--key]);
276 ary[key] = &sv_undef;
279 if (key = AvARRAY(av) - AvALLOC(av)) {
281 SvPVX(av) = (char*)AvALLOC(av);
296 key = AvFILL(av) + 1;
298 SvREFCNT_dec(AvARRAY(av)[--key]);
300 if (key = AvARRAY(av) - AvALLOC(av)) {
302 SvPVX(av) = (char*)AvALLOC(av);
304 Safefree(AvALLOC(av));
307 AvMAX(av) = AvFILL(av) = -1;
309 SvREFCNT_dec(AvARYLEN(av));
321 av_store(av,AvFILL(av)+1,val);
330 if (!av || AvFILL(av) < 0)
332 retval = AvARRAY(av)[AvFILL(av)];
333 AvARRAY(av)[AvFILL(av)--] = &sv_undef;
345 register SV **sstr,**dstr;
353 croak("Can't unshift");
355 i = AvARRAY(av) - AvALLOC(av);
363 SvPVX(av) = (char*)(AvARRAY(av) - i);
366 av_extend(av,AvFILL(av)+num);
368 dstr = AvARRAY(av) + AvFILL(av);
371 # pragma loop_opt(off) /* don't loop-optimize the following code */
372 #endif /* BUGGY_MSC5 */
373 for (i = AvFILL(av) - num; i >= 0; --i) {
376 # pragma loop_opt() /* loop-optimization back to command-line setting */
377 #endif /* BUGGY_MSC5 */
380 AvARRAY(av)[--num] = &sv_undef;
390 if (!av || AvFILL(av) < 0)
392 retval = *AvARRAY(av);
394 *AvARRAY(av) = &sv_undef;
395 SvPVX(av) = (char*)(AvARRAY(av) + 1);
416 croak("panic: null array");
419 if (fill <= AvMAX(av)) {
420 I32 key = AvFILL(av);
421 SV** ary = AvARRAY(av);
425 SvREFCNT_dec(ary[key]);
426 ary[key--] = &sv_undef;
431 ary[++key] = &sv_undef;
439 (void)av_store(av,fill,&sv_undef);