array.h

   1 /* $Header: array.h,v 4.0 91/03/20 01:03:44 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 4.0  91/03/20  01:03:44  lwall
  10  * 4.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     char ary_flags;
  21 };
  22
  23 #define ARF_REAL 1      /* free old entries */
  24
  25 STR *afetch();
  26 bool astore();
  27 STR *apop();
  28 STR *ashift();
  29 void afree();
  30 void aclear();
  31 bool apush();
  32 int alen();
  33 ARRAY *anew();
  34 ARRAY *afake();