home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / program / language / perl / Source / H / Array < prev    next >
Encoding:
Text File  |  1990-05-28  |  1.1 KB  |  40 lines
  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. extern void afill PROTO((ARRAY *, int));
  29. extern STR *afetch PROTO((ARRAY *, int, int));
  30. extern bool astore PROTO((ARRAY *, int, STR *));
  31. extern STR *apop PROTO((ARRAY *));
  32. extern STR *ashift PROTO((ARRAY *));
  33. extern void aunshift PROTO((ARRAY *, int));
  34. extern void afree PROTO((ARRAY *));
  35. extern void aclear PROTO((ARRAY *));
  36. extern bool apush PROTO((ARRAY *, STR *));
  37. extern int alen PROTO((ARRAY *));
  38. extern ARRAY *anew PROTO((STAB *));
  39. extern ARRAY *afake PROTO((STAB *, int, STR **));
  40.