array.h

   1 /* $Header: array.h,v 3.0 89/10/18 15:08:41 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  89/10/18  15:08:41  lwall
  10  * 3.0 baseline
  11  *
  12  */
  13
  14 struct atbl {
  15     STR **ary_array;
  16     STR **ary_alloc;
  17     STR *ary_magic;
  18     int ary_max;
  19     int ary_fill;
  20     int ary_index;
  21     char ary_flags;
  22 };
  23
  24 #define ARF_REAL 1      /* free old entries */
  25
  26 STR *afetch();
  27 bool astore();
  28 STR *apop();
  29 STR *ashift();
  30 void afree();
  31 void aclear();
  32 bool apush();
  33 int alen();
  34 ARRAY *anew();
  35 ARRAY *afake();