do/unshift

   1 void
   2 do_unshift(ary,arglast)
   3 register ARRAY *ary;
   4 int *arglast;
   5 {
   6     register STR **st = stack->ary_array;
   7     register int sp = arglast[1];
   8     register int items = arglast[2] - sp;
   9     register STR *TARG;
  10     register int i;
  11
  12     aunshift(ary,items);
  13     i = 0;
  14     for (st += ++sp; i < items; i++,st++) {
  15         TARG = Str_new(27,0);
  16         str_sset(TARG,*st);
  17         (void)astore(ary,i,TARG);
  18     }
  19 }
  20