Commit | Line | Data |
---|---|---|
0d3e774c | 1 | /* $Header: array.h,v 3.0.1.1 89/11/17 15:03:42 lwall Locked $ |
a687059c | 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. | |
8d063cd8 | 7 | * |
8 | * $Log: array.h,v $ | |
0d3e774c | 9 | * Revision 3.0.1.1 89/11/17 15:03:42 lwall |
10 | * patch5: nested foreach on same array didn't work | |
11 | * | |
a687059c | 12 | * Revision 3.0 89/10/18 15:08:41 lwall |
13 | * 3.0 baseline | |
8d063cd8 | 14 | * |
15 | */ | |
16 | ||
17 | struct atbl { | |
18 | STR **ary_array; | |
a687059c | 19 | STR **ary_alloc; |
378cc40b | 20 | STR *ary_magic; |
21 | int ary_max; | |
22 | int ary_fill; | |
a687059c | 23 | char ary_flags; |
8d063cd8 | 24 | }; |
25 | ||
a687059c | 26 | #define ARF_REAL 1 /* free old entries */ |
27 | ||
8d063cd8 | 28 | STR *afetch(); |
29 | bool astore(); | |
8d063cd8 | 30 | STR *apop(); |
31 | STR *ashift(); | |
378cc40b | 32 | void afree(); |
33 | void aclear(); | |
8d063cd8 | 34 | bool apush(); |
378cc40b | 35 | int alen(); |
8d063cd8 | 36 | ARRAY *anew(); |
a687059c | 37 | ARRAY *afake(); |