do/range

   1 int
   2 do_range(gimme,arglast)
   3 int gimme;
   4 int *arglast;
   5 {
   6     STR **st = stack->ary_array;
   7     register int sp = arglast[0];
   8     register int i;
   9     register ARRAY *ary = stack;
  10     register STR *TARG;
  11     int max;
  12
  13     if (gimme != G_ARRAY)
  14         fatal("panic: do_range");
  15
  16     if (st[sp+1]->str_nok || !st[sp+1]->str_pok ||
  17       (looks_like_number(st[sp+1]) && *st[sp+1]->str_ptr != '0') ) {
  18         i = (int)str_gnum(st[sp+1]);
  19         max = (int)str_gnum(st[sp+2]);
  20         if (max > i)
  21             (void)astore(ary, sp + max - i + 1, Nullstr);
  22         while (i <= max) {
  23             (void)astore(ary, ++sp, TARG = str_mortal(&str_no));
  24             str_numset(TARG,(double)i++);
  25         }
  26     }
  27     else {
  28         STR *final = str_mortal(st[sp+2]);
  29         char *tmps = str_get(final);
  30
  31         TARG = str_mortal(st[sp+1]);
  32         while (!TARG->str_nok && TARG->str_cur <= final->str_cur &&
  33             strNE(TARG->str_ptr,tmps) ) {
  34             (void)astore(ary, ++sp, TARG);
  35             TARG = str_2mortal(str_smake(TARG));
  36             str_inc(TARG);
  37         }
  38         if (strEQ(TARG->str_ptr,tmps))
  39             (void)astore(ary, ++sp, TARG);
  40     }
  41     return sp;
  42 }
  43