e576bb | 2002-10-11 | Martin Nilsson | |
|
24ddc7 | 1998-03-28 | Henrik Grubbström (Grubba) | |
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | #ifndef MAPPING_H
#define MAPPING_H
|
38ac33 | 2003-11-14 | Martin Stjernholm | | #include "svalue.h"
|
72389e | 2004-09-27 | Martin Stjernholm | | #include "dmalloc.h"
|
c1835b | 2017-11-11 | Tobias S. Josefowitz | | #include "gc_header.h"
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | |
|
0b5d2b | 2001-06-05 | Martin Stjernholm | |
#define MAPPING_WEAK_INDICES 2
#define MAPPING_WEAK_VALUES 4
#define MAPPING_WEAK 6
#define MAPPING_FLAG_WEAK 6 /* Compat. */
|
e2001f | 2016-10-21 | Henrik Grubbström (Grubba) | | #define MAPPING_FLAG_NO_SHRINK 0x1000
|
3b589f | 1999-02-04 | Fredrik Hübinette (Hubbe) | |
|
0cde28 | 1998-05-14 | Fredrik Hübinette (Hubbe) | | struct keypair
{
struct keypair *next;
|
ad4ecd | 2016-06-27 | Henrik Grubbström (Grubba) | | size_t hval;
|
0cde28 | 1998-05-14 | Fredrik Hübinette (Hubbe) | | struct svalue ind, val;
};
|
57a4ab | 2000-01-27 | Fredrik Hübinette (Hubbe) | | struct mapping_data
{
|
f42642 | 2015-03-17 | Martin Nilsson | | INT32 refs;
|
57a4ab | 2000-01-27 | Fredrik Hübinette (Hubbe) | | INT32 valrefs;
|
742b55 | 2017-11-11 | Arne Goedeke | | struct marker m;
|
57a4ab | 2000-01-27 | Fredrik Hübinette (Hubbe) | | INT32 hardlinks;
INT32 size, hashsize;
INT32 num_keypairs;
TYPE_FIELD ind_types, val_types;
|
ee7b38 | 2000-09-04 | Martin Stjernholm | | INT16 flags;
|
57a4ab | 2000-01-27 | Fredrik Hübinette (Hubbe) | | struct keypair *free_list;
struct keypair *hash[1 ];
};
|
ee7b38 | 2000-09-04 | Martin Stjernholm | | #undef MAPPING_SIZE_DEBUG
|
c83512 | 2000-12-14 | Martin Stjernholm | |
|
ee7b38 | 2000-09-04 | Martin Stjernholm | |
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | struct mapping
{
|
f42642 | 2015-03-17 | Martin Nilsson | | INT32 refs;
|
a6e988 | 2018-05-19 | Tobias S. Josefowitz | | INT32 ___fill_to_marker;
|
c1835b | 2017-11-11 | Tobias S. Josefowitz | | struct marker m;
|
ee7b38 | 2000-09-04 | Martin Stjernholm | | #ifdef MAPPING_SIZE_DEBUG
|
20b19f | 2000-02-09 | Fredrik Hübinette (Hubbe) | | INT32 debug_size;
|
7e97c3 | 1999-01-21 | Fredrik Hübinette (Hubbe) | | #endif
|
57a4ab | 2000-01-27 | Fredrik Hübinette (Hubbe) | | struct mapping_data *data;
|
515b6c | 1996-06-09 | Fredrik Hübinette (Hubbe) | | struct mapping *next, *prev;
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | };
|
57a4ab | 2000-01-27 | Fredrik Hübinette (Hubbe) | |
|
62971d | 1998-01-19 | Fredrik Hübinette (Hubbe) | | extern struct mapping *first_mapping;
|
e2d9e6 | 2000-06-10 | Martin Stjernholm | | extern struct mapping *gc_internal_mapping;
|
62971d | 1998-01-19 | Fredrik Hübinette (Hubbe) | |
|
ea0be6 | 1999-11-11 | Fredrik Hübinette (Hubbe) | | #define map_delete(m,key) map_delete_no_free(m, key, 0)
|
57a4ab | 2000-01-27 | Fredrik Hübinette (Hubbe) | | #define m_sizeof(m) ((m)->data->size)
#define m_ind_types(m) ((m)->data->ind_types)
#define m_val_types(m) ((m)->data->val_types)
|
ee7b38 | 2000-09-04 | Martin Stjernholm | | #define mapping_get_flags(m) ((m)->data->flags)
|
194514 | 2004-02-10 | Martin Stjernholm | | #define mapping_data_is_shared(m) ((m)->data->refs > 1)
|
57a4ab | 2000-01-27 | Fredrik Hübinette (Hubbe) | |
|
df9b62 | 2001-05-27 | Henrik Grubbström (Grubba) | | #define MD_KEYPAIRS(MD, HSIZE) \
|
d2361e | 2003-06-30 | Martin Stjernholm | | ( (struct keypair *) \
|
3a488b | 2014-01-11 | Arne Goedeke | | DO_ALIGN( PTR_TO_INT(MD) + OFFSETOF(mapping_data, hash) + HSIZE * sizeof(struct keypair *), \
|
d2361e | 2003-06-30 | Martin Stjernholm | | ALIGNOF(struct keypair)) )
|
57a4ab | 2000-01-27 | Fredrik Hübinette (Hubbe) | |
|
3a488b | 2014-01-11 | Arne Goedeke | |
|
df9b62 | 2001-05-27 | Henrik Grubbström (Grubba) | | #ifndef PIKE_MAPPING_KEYPAIR_LOOP
|
57a4ab | 2000-01-27 | Fredrik Hübinette (Hubbe) | | #define NEW_MAPPING_LOOP(md) \
|
821f94 | 2001-06-30 | Martin Stjernholm | | for((e=0) DO_IF_DMALLOC( ?0:(debug_malloc_touch(md)) ) ;e<(md)->hashsize;e++) for(k=(md)->hash[e];k;k=k->next)
|
caad85 | 2017-03-03 | Henrik Grubbström (Grubba) | | #define MD_FULLP(md) (!(md)->free_list)
|
df9b62 | 2001-05-27 | Henrik Grubbström (Grubba) | | #else /* PIKE_MAPPING_KEYPAIR_LOOP */
|
ea7fc7 | 2004-04-30 | Martin Nilsson | |
|
df9b62 | 2001-05-27 | Henrik Grubbström (Grubba) | | #define NEW_MAPPING_LOOP(md) \
|
821f94 | 2001-06-30 | Martin Stjernholm | | for(((k = MD_KEYPAIRS(md, (md)->hashsize)), e=0) DO_IF_DMALLOC( ?0:(debug_malloc_touch(md)) ) ; e<(md)->size; e++,k++)
|
caad85 | 2017-03-03 | Henrik Grubbström (Grubba) | | #define MD_FULLP(md) ((md)->size >= (md)->num_keypairs)
|
ea7fc7 | 2004-04-30 | Martin Nilsson | |
|
df9b62 | 2001-05-27 | Henrik Grubbström (Grubba) | | #endif /* PIKE_MAPPING_KEYPAIR_LOOP */
|
515b6c | 1996-06-09 | Fredrik Hübinette (Hubbe) | |
|
488ce0 | 2006-07-05 | Martin Stjernholm | |
|
76ff45 | 2012-05-28 | Martin Stjernholm | | PMOD_EXPORT void really_free_mapping(struct mapping *md);
|
6c2192 | 2006-08-06 | Martin Stjernholm | |
|
466b66 | 2008-01-05 | Martin Nilsson | | #define inl_free_mapping(M) do{ \
|
4fab5f | 2004-04-18 | Martin Stjernholm | | struct mapping *m_=(M); \
debug_malloc_touch(m_); \
|
31a868 | 2004-09-27 | Martin Stjernholm | | DO_IF_DEBUG ( \
|
dbcb29 | 2004-09-29 | Martin Stjernholm | | DO_IF_PIKE_CLEANUP ( \
if (gc_external_refs_zapped) \
gc_check_zapped (m_, PIKE_T_MAPPING, __FILE__, __LINE__))); \
|
4fab5f | 2004-04-18 | Martin Stjernholm | | if(!sub_ref(m_)) \
really_free_mapping(m_); \
}while(0)
|
54beb2 | 2000-02-01 | Fredrik Hübinette (Hubbe) | |
|
466b66 | 2008-01-05 | Martin Nilsson | | #if defined(USE_DLL) && defined(DYNAMIC_MODULE)
#define free_mapping(M) do_free_mapping (M)
#else
#define free_mapping(M) inl_free_mapping(M)
|
1abbfb | 2006-07-05 | Martin Stjernholm | | #endif /* !(USE_DLL && DYNAMIC_MODULE) */
|
488ce0 | 2006-07-05 | Martin Stjernholm | |
|
466b66 | 2008-01-05 | Martin Nilsson | |
|
2dff75 | 2005-09-10 | Marek Habersack | |
|
54beb2 | 2000-02-01 | Fredrik Hübinette (Hubbe) | | #define free_mapping_data(M) do{ \
struct mapping_data *md_=(M); \
debug_malloc_touch(md_); \
|
45637c | 2001-04-07 | Fredrik Hübinette (Hubbe) | | if(!sub_ref(md_)) really_free_mapping_data(md_); \
|
7a76e8 | 2000-03-28 | Henrik Grubbström (Grubba) | | /* FIXME: What about valrefs & hardlinks? */ \
|
54beb2 | 2000-02-01 | Fredrik Hübinette (Hubbe) | | }while(0)
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | |
|
d47659 | 2013-06-12 | Arne Goedeke | | void count_memory_in_mappings(size_t * num, size_t * size);
|
84387d | 2001-09-24 | Fredrik Hübinette (Hubbe) | |
|
a4682e | 2012-09-26 | Henrik Grubbström (Grubba) | | void mapping_free_keypair(struct mapping_data *md, struct keypair *k);
|
6f0d75 | 2000-12-16 | Marcus Comstedt | | PMOD_EXPORT struct mapping *debug_allocate_mapping(int size);
|
2dff75 | 2005-09-10 | Marek Habersack | |
|
6f0d75 | 2000-12-16 | Marcus Comstedt | | PMOD_EXPORT void really_free_mapping_data(struct mapping_data *md);
|
2dff75 | 2005-09-10 | Marek Habersack | |
|
6f0d75 | 2000-12-16 | Marcus Comstedt | | PMOD_EXPORT void do_free_mapping(struct mapping *m);
|
2dff75 | 2005-09-10 | Marek Habersack | |
|
286874 | 2016-02-29 | Henrik Grubbström (Grubba) | |
ptrdiff_t do_gc_weak_mapping(struct mapping *m);
|
2dff75 | 2005-09-10 | Marek Habersack | |
|
59e53e | 2000-01-31 | Fredrik Hübinette (Hubbe) | | struct mapping_data *copy_mapping_data(struct mapping_data *md);
|
6f0d75 | 2000-12-16 | Marcus Comstedt | | PMOD_EXPORT void mapping_fix_type_field(struct mapping *m);
PMOD_EXPORT void mapping_set_flags(struct mapping *m, int flags);
|
b14b41 | 2005-09-11 | Marek Habersack | |
|
6f0d75 | 2000-12-16 | Marcus Comstedt | | PMOD_EXPORT void low_mapping_insert(struct mapping *m,
|
9cc28d | 2004-05-28 | Henrik Grubbström (Grubba) | | const struct svalue *key,
const struct svalue *val,
int overwrite);
|
2dff75 | 2005-09-10 | Marek Habersack | |
|
6f0d75 | 2000-12-16 | Marcus Comstedt | | PMOD_EXPORT void mapping_insert(struct mapping *m,
|
9cc28d | 2004-05-28 | Henrik Grubbström (Grubba) | | const struct svalue *key,
const struct svalue *val);
|
6f0d75 | 2000-12-16 | Marcus Comstedt | | PMOD_EXPORT union anything *mapping_get_item_ptr(struct mapping *m,
|
466b66 | 2008-01-05 | Martin Nilsson | | const struct svalue *key,
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | TYPE_T t);
|
b14b41 | 2005-09-11 | Marek Habersack | |
|
6f0d75 | 2000-12-16 | Marcus Comstedt | | PMOD_EXPORT void map_delete_no_free(struct mapping *m,
|
466b66 | 2008-01-05 | Martin Nilsson | | const struct svalue *key,
|
ea0be6 | 1999-11-11 | Fredrik Hübinette (Hubbe) | | struct svalue *to);
|
6f0d75 | 2000-12-16 | Marcus Comstedt | | PMOD_EXPORT void check_mapping_for_destruct(struct mapping *m);
|
b14b41 | 2005-09-11 | Marek Habersack | |
|
6f0d75 | 2000-12-16 | Marcus Comstedt | | PMOD_EXPORT struct svalue *low_mapping_lookup(struct mapping *m,
|
9cc28d | 2004-05-28 | Henrik Grubbström (Grubba) | | const struct svalue *key);
|
b14b41 | 2005-09-11 | Marek Habersack | |
|
6f0d75 | 2000-12-16 | Marcus Comstedt | | PMOD_EXPORT struct svalue *low_mapping_string_lookup(struct mapping *m,
|
9fca41 | 2017-07-31 | Martin Nilsson | | const struct pike_string *p);
|
b14b41 | 2005-09-11 | Marek Habersack | |
|
13670c | 2015-05-25 | Martin Nilsson | | |
b14b41 | 2005-09-11 | Marek Habersack | | * where the key is a Pike string.
*
* @param m mapping to insert the new entry into
* @param p a Pike string to be used as the new entry key
* @param val an svalue representing the new entry's value
* @see mapping_insert
* @see low_mapping_insert
* @see mapping_string_insert_string
*/
|
6f0d75 | 2000-12-16 | Marcus Comstedt | | PMOD_EXPORT void mapping_string_insert(struct mapping *m,
|
466b66 | 2008-01-05 | Martin Nilsson | | struct pike_string *p,
const struct svalue *val);
|
b14b41 | 2005-09-11 | Marek Habersack | |
|
6f0d75 | 2000-12-16 | Marcus Comstedt | | PMOD_EXPORT void mapping_string_insert_string(struct mapping *m,
|
ea0be6 | 1999-11-11 | Fredrik Hübinette (Hubbe) | | struct pike_string *p,
struct pike_string *val);
|
b14b41 | 2005-09-11 | Marek Habersack | |
|
6f0d75 | 2000-12-16 | Marcus Comstedt | | PMOD_EXPORT struct svalue *simple_mapping_string_lookup(struct mapping *m,
|
adb3b1 | 2004-03-22 | Martin Stjernholm | | const char *p);
|
b14b41 | 2005-09-11 | Marek Habersack | |
|
13670c | 2015-05-25 | Martin Nilsson | | * value, if any, is a mapping itself. If it is a mapping, look it up using
|
b14b41 | 2005-09-11 | Marek Habersack | | * @b key2 and return the retrieved entry's value, if any. If key1 lookup in
* the @b m mapping doesn't return a mapping and @b create is not 0 allocate
* a new mapping, insert it in @b m and use for lookup with @b key2. If @b key2
* lookup doesn't yield a value in neither of the above cases and @b create is not
* 0, allocate a new svalue representing an undefined number, insert it into the
* mapping retrieved (or allocated) during the @b key1 lookup and then perform a
* @b key2 lookup on the mapping retrieved (or allocated) during the @b key1 and
* return the result.
*
* @param m primary mapping to perform a @b key1 lookup on
* @param key1 key used to lookup an entry in the primary mapping @b m
* @param key2 key used to lookup an entry in the secondary mapping retrieved
* (or allocated) as the result of the @b key1 lookup
* @param create 0 to not insert an entry into neither mapping if it cannot be
* found in the mapping, not 0 to insert such entry.
* @return the result of the @b key2 lookup or 0 if either @b key1 or @b key2
* returned no value and @b create was 0
*
* @see low_mapping_lookup
*/
|
6f0d75 | 2000-12-16 | Marcus Comstedt | | PMOD_EXPORT struct svalue *mapping_mapping_lookup(struct mapping *m,
|
466b66 | 2008-01-05 | Martin Nilsson | | const struct svalue *key1,
const struct svalue *key2,
|
8a5d44 | 1999-10-19 | Fredrik Hübinette (Hubbe) | | int create);
|
b14b41 | 2005-09-11 | Marek Habersack | |
|
6f0d75 | 2000-12-16 | Marcus Comstedt | | PMOD_EXPORT struct svalue *mapping_mapping_string_lookup(struct mapping *m,
|
8a5d44 | 1999-10-19 | Fredrik Hübinette (Hubbe) | | struct pike_string *key1,
struct pike_string *key2,
int create);
|
6f0d75 | 2000-12-16 | Marcus Comstedt | | PMOD_EXPORT void mapping_index_no_free(struct svalue *dest,
|
515b6c | 1996-06-09 | Fredrik Hübinette (Hubbe) | | struct mapping *m,
|
466b66 | 2008-01-05 | Martin Nilsson | | const struct svalue *key);
|
6f0d75 | 2000-12-16 | Marcus Comstedt | | PMOD_EXPORT struct array *mapping_indices(struct mapping *m);
PMOD_EXPORT struct array *mapping_values(struct mapping *m);
PMOD_EXPORT struct array *mapping_to_array(struct mapping *m);
PMOD_EXPORT void mapping_replace(struct mapping *m,struct svalue *from, struct svalue *to);
PMOD_EXPORT struct mapping *mkmapping(struct array *ind, struct array *val);
PMOD_EXPORT struct mapping *copy_mapping(struct mapping *m);
PMOD_EXPORT struct mapping *merge_mappings(struct mapping *a, struct mapping *b, INT32 op);
|
13670c | 2015-05-25 | Martin Nilsson | | PMOD_EXPORT struct mapping *merge_mapping_array_ordered(struct mapping *a,
|
59e53e | 2000-01-31 | Fredrik Hübinette (Hubbe) | | struct array *b, INT32 op);
|
13670c | 2015-05-25 | Martin Nilsson | | PMOD_EXPORT struct mapping *merge_mapping_array_unordered(struct mapping *a,
|
59e53e | 2000-01-31 | Fredrik Hübinette (Hubbe) | | struct array *b, INT32 op);
|
6f0d75 | 2000-12-16 | Marcus Comstedt | | PMOD_EXPORT struct mapping *add_mappings(struct svalue *argp, INT32 args);
PMOD_EXPORT int mapping_equal_p(struct mapping *a, struct mapping *b, struct processing *p);
|
e0cd66 | 2016-12-28 | Arne Goedeke | | void describe_mapping(struct byte_buffer *buf, struct mapping *m,struct processing *p,int indent);
|
59e53e | 2000-01-31 | Fredrik Hübinette (Hubbe) | | node *make_node_from_mapping(struct mapping *m);
|
6f0d75 | 2000-12-16 | Marcus Comstedt | | PMOD_EXPORT void f_aggregate_mapping(INT32 args);
PMOD_EXPORT struct mapping *copy_mapping_recursively(struct mapping *m,
|
9cc28d | 2004-05-28 | Henrik Grubbström (Grubba) | | struct mapping *p);
|
6f0d75 | 2000-12-16 | Marcus Comstedt | | PMOD_EXPORT void mapping_search_no_free(struct svalue *to,
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | | struct mapping *m,
|
466b66 | 2008-01-05 | Martin Nilsson | | const struct svalue *look_for,
const struct svalue *key );
|
aa95de | 2008-06-24 | Henrik Grubbström (Grubba) | | PMOD_EXPORT INT32 mapping_generation(struct mapping *m);
|
466b66 | 2008-01-05 | Martin Nilsson | | #ifdef PIKE_DEBUG
void check_mapping(const struct mapping *m);
|
be478c | 1997-08-30 | Henrik Grubbström (Grubba) | | void check_all_mappings(void);
|
466b66 | 2008-01-05 | Martin Nilsson | | #endif
|
d05654 | 2014-06-17 | Henrik Grubbström (Grubba) | | PMOD_EXPORT void visit_mapping (struct mapping *m, int action, void *extra);
|
c94c37 | 1996-03-28 | Fredrik Hübinette (Hubbe) | | void gc_mark_mapping_as_referenced(struct mapping *m);
|
84387d | 2001-09-24 | Fredrik Hübinette (Hubbe) | | void real_gc_cycle_check_mapping(struct mapping *m, int weak);
|
e2d9e6 | 2000-06-10 | Martin Stjernholm | | unsigned gc_touch_all_mappings(void);
|
be478c | 1997-08-30 | Henrik Grubbström (Grubba) | | void gc_check_all_mappings(void);
void gc_mark_all_mappings(void);
|
e2d9e6 | 2000-06-10 | Martin Stjernholm | | void gc_cycle_check_all_mappings(void);
|
45d87e | 2000-07-18 | Martin Stjernholm | | void gc_zap_ext_weak_refs_in_mappings(void);
|
88cf4f | 2003-01-11 | Martin Stjernholm | | size_t gc_free_all_unreferenced_mappings(void);
|
61e9a0 | 1998-01-25 | Fredrik Hübinette (Hubbe) | | void simple_describe_mapping(struct mapping *m);
void debug_dump_mapping(struct mapping *m);
|
84387d | 2001-09-24 | Fredrik Hübinette (Hubbe) | | int mapping_is_constant(struct mapping *m,
struct processing *p);
|
3b54e5 | 2014-08-21 | Martin Nilsson | | void free_all_mapping_blocks(void);
|
d47659 | 2013-06-12 | Arne Goedeke | |
|
e3832f | 2014-10-02 | Per Hedbor | | void o_append_mapping( INT32 args );
|
5267b7 | 1995-08-09 | Fredrik Hübinette (Hubbe) | |
|
616b62 | 2000-01-31 | Fredrik Hübinette (Hubbe) | |
#define allocate_mapping(X) dmalloc_touch(struct mapping *,debug_allocate_mapping(X))
|
7c36d5 | 2014-06-17 | Henrik Grubbström (Grubba) | | #define visit_mapping_ref(M, REF_TYPE, EXTRA) \
|
5e8344 | 2008-05-11 | Martin Stjernholm | | visit_ref (pass_mapping (M), (REF_TYPE), \
|
7c36d5 | 2014-06-17 | Henrik Grubbström (Grubba) | | (visit_thing_fn *) &visit_mapping, (EXTRA))
|
45d87e | 2000-07-18 | Martin Stjernholm | | #define gc_cycle_check_mapping(X, WEAK) \
gc_cycle_enqueue((gc_cycle_check_cb *) real_gc_cycle_check_mapping, (X), (WEAK))
|
e2d9e6 | 2000-06-10 | Martin Stjernholm | |
#endif /* MAPPING_H */
|