array.h

   1 /* $Header: array.h,v 3.0.1.1 89/11/17 15:03:42 lwall Locked $
   2  *
   3  *    Copyright (c) 1989, Larry Wall
   4  *
   5  *    You may distribute under the terms of the GNU General Public License
   6  *    as specified in the README file that comes with the perl 3.0 kit.
   7  *
   8  * $Log:        array.h,v $
   9  * Revision 3.0.1.1  89/11/17  15:03:42  lwall
  10  * patch5: nested foreach on same array didn't work
  11  *
  12  * Revision 3.0  89/10/18  15:08:41  lwall
  13  * 3.0 baseline
  14  *
  15  */
  16
  17 struct atbl {
  18     STR **ary_array;
  19     STR **ary_alloc;
  20     STR *ary_magic;
  21     int ary_max;
  22     int ary_fill;
  23     char ary_flags;
  24 };
  25
  26 #define ARF_REAL 1      /* free old entries */
  27
  28 STR *afetch();
  29 bool astore();
  30 STR *apop();
  31 STR *ashift();
  32 void afree();
  33 void aclear();
  34 bool apush();
  35 int alen();
  36 ARRAY *anew();
  37 ARRAY *afake();