home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / perl / perl5a1.lha / perl5alpha1 / do / push < prev    next >
Encoding:
Text File  |  1992-08-15  |  376 b   |  20 lines
  1. STR *
  2. do_push(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 = &str_undef;
  10.  
  11.     for (st += ++sp; items > 0; items--,st++) {
  12.     TARG = Str_new(26,0);
  13.     if (*st)
  14.         str_sset(TARG,*st);
  15.     (void)apush(ary,TARG);
  16.     }
  17.     return TARG;
  18. }
  19.  
  20.