-/* $Header: array.h,v 1.0 87/12/18 13:04:46 root Exp $
+/* $Header: array.h,v 3.0.1.1 89/11/17 15:03:42 lwall Locked $
+ *
+ * Copyright (c) 1989, Larry Wall
+ *
+ * You may distribute under the terms of the GNU General Public License
+ * as specified in the README file that comes with the perl 3.0 kit.
*
* $Log: array.h,v $
- * Revision 1.0 87/12/18 13:04:46 root
- * Initial revision
+ * Revision 3.0.1.1 89/11/17 15:03:42 lwall
+ * patch5: nested foreach on same array didn't work
+ *
+ * Revision 3.0 89/10/18 15:08:41 lwall
+ * 3.0 baseline
*
*/
struct atbl {
STR **ary_array;
- int ary_max;
- int ary_fill;
+ STR **ary_alloc;
+ STR *ary_magic;
+ int ary_max;
+ int ary_fill;
+ char ary_flags;
};
+#define ARF_REAL 1 /* free old entries */
+
STR *afetch();
bool astore();
-bool adelete();
STR *apop();
STR *ashift();
+void afree();
+void aclear();
bool apush();
-long alen();
+int alen();
ARRAY *anew();
+ARRAY *afake();