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