cb22561995-10-11Fredrik Hübinette (Hubbe) /*\
06983f1996-09-22Fredrik Hübinette (Hubbe) ||| This file a part of Pike, and is copyright by Fredrik Hubinette ||| Pike is distributed as GPL (General Public License)
cb22561995-10-11Fredrik Hübinette (Hubbe) ||| See the files COPYING and DISCLAIMER for more information. \*/
24ddc71998-03-28Henrik Grubbström (Grubba)  /*
df94a52000-08-03Henrik Grubbström (Grubba)  * $Id: mapping.h,v 1.29 2000/08/03 17:55:50 grubba Exp $
24ddc71998-03-28Henrik Grubbström (Grubba)  */
5267b71995-08-09Fredrik Hübinette (Hubbe) #ifndef MAPPING_H #define MAPPING_H #include "las.h"
59e53e2000-01-31Fredrik Hübinette (Hubbe) #include "block_alloc_h.h"
5267b71995-08-09Fredrik Hübinette (Hubbe) 
3b589f1999-02-04Fredrik Hübinette (Hubbe) #define MAPPING_FLAG_WEAK 1
0cde281998-05-14Fredrik Hübinette (Hubbe) struct keypair { struct keypair *next;
54beb22000-02-01Fredrik Hübinette (Hubbe)  unsigned INT32 hval;
0cde281998-05-14Fredrik Hübinette (Hubbe)  struct svalue ind, val; };
57a4ab2000-01-27Fredrik Hübinette (Hubbe) struct mapping_data {
df94a52000-08-03Henrik Grubbström (Grubba)  ptrdiff_t refs;
57a4ab2000-01-27Fredrik Hübinette (Hubbe)  INT32 valrefs; /* lock values too */ INT32 hardlinks; INT32 size, hashsize; INT32 num_keypairs; TYPE_FIELD ind_types, val_types; struct keypair *free_list; struct keypair *hash[1 /* hashsize */ ]; /* struct keypair data_block[ hashsize * AVG_LINK_LENGTH ] */ };
5267b71995-08-09Fredrik Hübinette (Hubbe) struct mapping {
df94a52000-08-03Henrik Grubbström (Grubba)  ptrdiff_t refs;
7e97c31999-01-21Fredrik Hübinette (Hubbe) #ifdef PIKE_SECURITY struct object *prot;
9e398c2000-02-08Fredrik Hübinette (Hubbe) #endif #ifdef PIKE_DEBUG
20b19f2000-02-09Fredrik Hübinette (Hubbe)  INT32 debug_size;
7e97c31999-01-21Fredrik Hübinette (Hubbe) #endif
3b589f1999-02-04Fredrik Hübinette (Hubbe)  INT16 flags;
57a4ab2000-01-27Fredrik Hübinette (Hubbe)  struct mapping_data *data;
515b6c1996-06-09Fredrik Hübinette (Hubbe)  struct mapping *next, *prev;
5267b71995-08-09Fredrik Hübinette (Hubbe) };
57a4ab2000-01-27Fredrik Hübinette (Hubbe) 
62971d1998-01-19Fredrik Hübinette (Hubbe) extern struct mapping *first_mapping;
e2d9e62000-06-10Martin Stjernholm extern struct mapping *gc_internal_mapping;
62971d1998-01-19Fredrik Hübinette (Hubbe) 
ea0be61999-11-11Fredrik Hübinette (Hubbe) #define map_delete(m,key) map_delete_no_free(m, key, 0)
57a4ab2000-01-27Fredrik 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) #define NEW_MAPPING_LOOP(md) \ for((e=0) DO_IF_DMALLOC( ?0:(debug_malloc_touch(md)) ) ;e<md->hashsize;e++) for(k=md->hash[e];k;k=k->next) /* WARNING: this should not be used */ #define MAPPING_LOOP(m) \ for((e=0) DO_IF_DMALLOC( ?0:(debug_malloc_touch(m),debug_malloc_touch(m->data))) ;e<m->data->hashsize;e++) for(k=m->data->hash[e];k;k=k->next)
515b6c1996-06-09Fredrik Hübinette (Hubbe) 
a3c6ad1998-01-29Fredrik Hübinette (Hubbe) #define free_mapping(M) do{ struct mapping *m_=(M); debug_malloc_touch(m_); if(!--m_->refs) really_free_mapping(m_); }while(0)
54beb22000-02-01Fredrik Hübinette (Hubbe)  #define free_mapping_data(M) do{ \ struct mapping_data *md_=(M); \ debug_malloc_touch(md_); \ if(!--md_->refs) really_free_mapping_data(md_); \
7a76e82000-03-28Henrik Grubbström (Grubba)  /* FIXME: What about valrefs & hardlinks? */ \
54beb22000-02-01Fredrik Hübinette (Hubbe) }while(0)
5267b71995-08-09Fredrik Hübinette (Hubbe) 
1f21332000-07-28Fredrik Hübinette (Hubbe) PMOD_PROTO void really_free_mapping(struct mapping *md);
5267b71995-08-09Fredrik Hübinette (Hubbe) /* Prototypes begin here */
59e53e2000-01-31Fredrik Hübinette (Hubbe) BLOCK_ALLOC(mapping, 511)
616b622000-01-31Fredrik Hübinette (Hubbe) struct mapping *debug_allocate_mapping(int size);
57a4ab2000-01-27Fredrik Hübinette (Hubbe) void really_free_mapping_data(struct mapping_data *md);
65b6732000-07-07Martin Stjernholm void do_free_mapping(struct mapping *m);
59e53e2000-01-31Fredrik Hübinette (Hubbe) struct mapping_data *copy_mapping_data(struct mapping_data *md);
515b6c1996-06-09Fredrik Hübinette (Hubbe) void mapping_fix_type_field(struct mapping *m);
59e53e2000-01-31Fredrik Hübinette (Hubbe) void low_mapping_insert(struct mapping *m, struct svalue *key, struct svalue *val, int overwrite);
5267b71995-08-09Fredrik Hübinette (Hubbe) void mapping_insert(struct mapping *m,
515b6c1996-06-09Fredrik Hübinette (Hubbe)  struct svalue *key, struct svalue *val);
5267b71995-08-09Fredrik Hübinette (Hubbe) union anything *mapping_get_item_ptr(struct mapping *m,
515b6c1996-06-09Fredrik Hübinette (Hubbe)  struct svalue *key,
5267b71995-08-09Fredrik Hübinette (Hubbe)  TYPE_T t);
ea0be61999-11-11Fredrik Hübinette (Hubbe) void map_delete_no_free(struct mapping *m, struct svalue *key, struct svalue *to);
515b6c1996-06-09Fredrik Hübinette (Hubbe) void check_mapping_for_destruct(struct mapping *m);
06983f1996-09-22Fredrik Hübinette (Hubbe) struct svalue *low_mapping_lookup(struct mapping *m, struct svalue *key);
14dae91997-01-26Fredrik Hübinette (Hubbe) struct svalue *low_mapping_string_lookup(struct mapping *m, struct pike_string *p);
a28dd21998-04-23Fredrik Hübinette (Hubbe) void mapping_string_insert(struct mapping *m, struct pike_string *p, struct svalue *val);
ea0be61999-11-11Fredrik Hübinette (Hubbe) void mapping_string_insert_string(struct mapping *m, struct pike_string *p, struct pike_string *val);
85f59e1998-01-08Fredrik Hübinette (Hubbe) struct svalue *simple_mapping_string_lookup(struct mapping *m, char *p);
8a5d441999-10-19Fredrik Hübinette (Hubbe) struct svalue *mapping_mapping_lookup(struct mapping *m, struct svalue *key1, struct svalue *key2, int create); struct svalue *mapping_mapping_string_lookup(struct mapping *m, struct pike_string *key1, struct pike_string *key2, int create);
515b6c1996-06-09Fredrik Hübinette (Hubbe) void mapping_index_no_free(struct svalue *dest, struct mapping *m, struct svalue *key); struct array *mapping_indices(struct mapping *m); struct array *mapping_values(struct mapping *m);
56ade31998-02-19Fredrik Hübinette (Hubbe) struct array *mapping_to_array(struct mapping *m);
515b6c1996-06-09Fredrik Hübinette (Hubbe) void mapping_replace(struct mapping *m,struct svalue *from, struct svalue *to); struct mapping *mkmapping(struct array *ind, struct array *val); struct mapping *copy_mapping(struct mapping *m);
59e53e2000-01-31Fredrik Hübinette (Hubbe) struct mapping *copy_mapping(struct mapping *m);
515b6c1996-06-09Fredrik Hübinette (Hubbe) struct mapping *merge_mappings(struct mapping *a, struct mapping *b, INT32 op);
59e53e2000-01-31Fredrik Hübinette (Hubbe) struct mapping *merge_mapping_array_ordered(struct mapping *a, struct array *b, INT32 op); struct mapping *merge_mapping_array_unordered(struct mapping *a, struct array *b, INT32 op);
515b6c1996-06-09Fredrik Hübinette (Hubbe) struct mapping *add_mappings(struct svalue *argp, INT32 args);
5267b71995-08-09Fredrik Hübinette (Hubbe) int mapping_equal_p(struct mapping *a, struct mapping *b, struct processing *p); void describe_mapping(struct mapping *m,struct processing *p,int indent);
59e53e2000-01-31Fredrik Hübinette (Hubbe) node *make_node_from_mapping(struct mapping *m);
5267b71995-08-09Fredrik Hübinette (Hubbe) void f_m_delete(INT32 args); void f_aggregate_mapping(INT32 args); struct mapping *copy_mapping_recursively(struct mapping *m, struct processing *p); void mapping_search_no_free(struct svalue *to, struct mapping *m, struct svalue *look_for,
59e53e2000-01-31Fredrik Hübinette (Hubbe)  struct svalue *key );
624d091996-02-24Fredrik Hübinette (Hubbe) void check_mapping(struct mapping *m);
be478c1997-08-30Henrik Grubbström (Grubba) void check_all_mappings(void);
c94c371996-03-28Fredrik Hübinette (Hubbe) void gc_mark_mapping_as_referenced(struct mapping *m);
e2d9e62000-06-10Martin Stjernholm unsigned gc_touch_all_mappings(void);
be478c1997-08-30Henrik Grubbström (Grubba) void gc_check_all_mappings(void); void gc_mark_all_mappings(void);
45d87e2000-07-18Martin Stjernholm void real_gc_cycle_check_mapping(struct mapping *m, int weak);
e2d9e62000-06-10Martin Stjernholm void gc_cycle_check_all_mappings(void);
45d87e2000-07-18Martin Stjernholm void gc_zap_ext_weak_refs_in_mappings(void);
be478c1997-08-30Henrik Grubbström (Grubba) void gc_free_all_unreferenced_mappings(void);
61e9a01998-01-25Fredrik Hübinette (Hubbe) void simple_describe_mapping(struct mapping *m); void debug_dump_mapping(struct mapping *m);
be478c1997-08-30Henrik Grubbström (Grubba) void zap_all_mappings(void);
5267b71995-08-09Fredrik Hübinette (Hubbe) /* Prototypes end here */
616b622000-01-31Fredrik Hübinette (Hubbe)  #define allocate_mapping(X) dmalloc_touch(struct mapping *,debug_allocate_mapping(X))
45d87e2000-07-18Martin Stjernholm #define gc_cycle_check_mapping(X, WEAK) \ gc_cycle_enqueue((gc_cycle_check_cb *) real_gc_cycle_check_mapping, (X), (WEAK))
e2d9e62000-06-10Martin Stjernholm  #endif /* MAPPING_H */