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