Branch: Tag:

2000-07-28

2000-07-28 17:16:56 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

JUMBOPATCH: dynamic loading now works on Win* !!!! (somewhat experimental :)

Rev: src/.cvsignore:1.24
Rev: src/Makefile.in:1.198
Rev: src/aclocal.m4:1.17
Rev: src/array.c:1.79
Rev: src/array.h:1.22
Rev: src/backend.c:1.53
Rev: src/backend.h:1.9
Rev: src/bignum.c:1.17
Rev: src/bignum.h:1.14
Rev: src/builtin_functions.c:1.293
Rev: src/builtin_functions.h:1.14
Rev: src/callback.c:1.20
Rev: src/configure.in:1.387
Rev: src/constants.c:1.22
Rev: src/dynamic_buffer.c:1.10
Rev: src/dynamic_load.c:1.41
Rev: src/error.c:1.56
Rev: src/error.h:1.46
Rev: src/fd_control.c:1.32
Rev: src/fdlib.c:1.37
Rev: src/fdlib.h:1.34
Rev: src/fsort.c:1.13
Rev: src/fsort_template.h:1.7
Rev: src/gc.c:1.110
Rev: src/gc.h:1.57
Rev: src/global.h:1.44
Rev: src/interpret.c:1.158
Rev: src/interpret.h:1.52
Rev: src/main.c:1.94
Rev: src/mapping.c:1.94
Rev: src/mapping.h:1.28
Rev: src/module_magic.h:1.1
Rev: src/module_support.c:1.34
Rev: src/module_support.h:1.7
Rev: src/multiset.c:1.26
Rev: src/object.c:1.137
Rev: src/object.h:1.50
Rev: src/opcodes.c:1.78
Rev: src/operators.c:1.93
Rev: src/operators.h:1.8
Rev: src/pike_macros.h:1.17
Rev: src/pike_memory.c:1.71
Rev: src/pike_memory.h:1.14
Rev: src/pike_types.c:1.132
Rev: src/port.c:1.28
Rev: src/precompile.sh.in:1.2
Rev: src/program.c:1.252
Rev: src/program.h:1.97
Rev: src/signal_handler.c:1.173
Rev: src/stralloc.c:1.85
Rev: src/stralloc.h:1.42
Rev: src/stuff.c:1.11
Rev: src/svalue.c:1.85
Rev: src/svalue.h:1.62
Rev: src/testsuite.in:1.316
Rev: src/threads.c:1.133
Rev: src/threads.h:1.99

5:   \*/   /**/   #include "global.h" - RCSID("$Id: mapping.c,v 1.93 2000/07/18 05:48:20 mast Exp $"); + RCSID("$Id: mapping.c,v 1.94 2000/07/28 17:16:55 hubbe Exp $");   #include "main.h"   #include "object.h"   #include "mapping.h"
170:      /* This function allocates an empty mapping with room for 'size' values    */ - struct mapping *debug_allocate_mapping(int size) + PMOD_EXPORT struct mapping *debug_allocate_mapping(int size)   {    struct mapping *m;   
190:   }       - void really_free_mapping_data(struct mapping_data *md) + PMOD_EXPORT void really_free_mapping_data(struct mapping_data *md)   {    INT32 e;    struct keypair *k;
210:    free((char *) md);   }    - void do_free_mapping(struct mapping *m) + PMOD_EXPORT void do_free_mapping(struct mapping *m)   {    if (m)    free_mapping(m);
514:    * I only use it when the type fields MUST be correct, which is not    * very often.    */ - void mapping_fix_type_field(struct mapping *m) + PMOD_EXPORT void mapping_fix_type_field(struct mapping *m)   {    INT32 e;    struct keypair *k;
542:   /* This function inserts key:val into the mapping m.    * Same as doing m[key]=val; in pike.    */ - void low_mapping_insert(struct mapping *m, + PMOD_EXPORT void low_mapping_insert(struct mapping *m,    struct svalue *key,    struct svalue *val,    int overwrite)
640:   #endif   }    - void mapping_insert(struct mapping *m, + PMOD_EXPORT void mapping_insert(struct mapping *m,    struct svalue *key,    struct svalue *val)   {    low_mapping_insert(m,key,val,1);   }    - union anything *mapping_get_item_ptr(struct mapping *m, + PMOD_EXPORT union anything *mapping_get_item_ptr(struct mapping *m,    struct svalue *key,    TYPE_T t)   {
753:    return & ( k->val.u );   }    - void map_delete_no_free(struct mapping *m, + PMOD_EXPORT void map_delete_no_free(struct mapping *m,    struct svalue *key,    struct svalue *to)   {
834:    return;   }    - void check_mapping_for_destruct(struct mapping *m) + PMOD_EXPORT void check_mapping_for_destruct(struct mapping *m)   {    INT32 e;    struct keypair *k, **prev;
906:    }   }    - struct svalue *low_mapping_lookup(struct mapping *m, + PMOD_EXPORT struct svalue *low_mapping_lookup(struct mapping *m,    struct svalue *key)   {    unsigned INT32 h,h2;
932:    return 0;   }    - struct svalue *low_mapping_string_lookup(struct mapping *m, + PMOD_EXPORT struct svalue *low_mapping_string_lookup(struct mapping *m,    struct pike_string *p)   {    struct svalue tmp;
941:    return low_mapping_lookup(m, &tmp);   }    - void mapping_string_insert(struct mapping *m, + PMOD_EXPORT void mapping_string_insert(struct mapping *m,    struct pike_string *p,    struct svalue *val)   {
951:    mapping_insert(m, &tmp, val);   }    - void mapping_string_insert_string(struct mapping *m, + PMOD_EXPORT void mapping_string_insert_string(struct mapping *m,    struct pike_string *p,    struct pike_string *val)   {
961:    mapping_string_insert(m, p, &tmp);   }    - struct svalue *simple_mapping_string_lookup(struct mapping *m, + PMOD_EXPORT struct svalue *simple_mapping_string_lookup(struct mapping *m,    char *p)   {    struct pike_string *tmp;
970:    return 0;   }    - struct svalue *mapping_mapping_lookup(struct mapping *m, + PMOD_EXPORT struct svalue *mapping_mapping_lookup(struct mapping *m,    struct svalue *key1,    struct svalue *key2,    int create)
1014:   }       - struct svalue *mapping_mapping_string_lookup(struct mapping *m, + PMOD_EXPORT struct svalue *mapping_mapping_string_lookup(struct mapping *m,    struct pike_string *key1,    struct pike_string *key2,    int create)
1029:          - void mapping_index_no_free(struct svalue *dest, + PMOD_EXPORT void mapping_index_no_free(struct svalue *dest,    struct mapping *m,    struct svalue *key)   {
1048:    }   }    - struct array *mapping_indices(struct mapping *m) + PMOD_EXPORT struct array *mapping_indices(struct mapping *m)   {    INT32 e;    struct array *a;
1075:    return a;   }    - struct array *mapping_values(struct mapping *m) + PMOD_EXPORT struct array *mapping_values(struct mapping *m)   {    INT32 e;    struct keypair *k;
1102:    return a;   }    - struct array *mapping_to_array(struct mapping *m) + PMOD_EXPORT struct array *mapping_to_array(struct mapping *m)   {    INT32 e;    struct keypair *k;
1132:    return a;   }    - void mapping_replace(struct mapping *m,struct svalue *from, struct svalue *to) + PMOD_EXPORT void mapping_replace(struct mapping *m,struct svalue *from, struct svalue *to)   {    INT32 e;    struct keypair *k;
1164:   #endif   }    - struct mapping *mkmapping(struct array *ind, struct array *val) + PMOD_EXPORT struct mapping *mkmapping(struct array *ind, struct array *val)   {    struct mapping *m;    struct svalue *i,*v;
1184:   }      #if 0 - struct mapping *copy_mapping(struct mapping *m) + PMOD_EXPORT struct mapping *copy_mapping(struct mapping *m)   {    INT32 e;    struct mapping *n;
1205:   #else      /* deferred mapping copy! */ - struct mapping *copy_mapping(struct mapping *m) + PMOD_EXPORT struct mapping *copy_mapping(struct mapping *m)   {    struct mapping *n;   
1231:      #endif    - struct mapping *merge_mappings(struct mapping *a, struct mapping *b, INT32 op) + PMOD_EXPORT struct mapping *merge_mappings(struct mapping *a, struct mapping *b, INT32 op)   {    struct array *ai, *av;    struct array *bi, *bv;
1285:    return m;   }    - struct mapping *merge_mapping_array_ordered(struct mapping *a, + PMOD_EXPORT struct mapping *merge_mapping_array_ordered(struct mapping *a,    struct array *b, INT32 op)   {    struct array *ai, *av;
1331:    return m;   }    - struct mapping *merge_mapping_array_unordered(struct mapping *a, + PMOD_EXPORT struct mapping *merge_mapping_array_unordered(struct mapping *a,    struct array *b, INT32 op)   {    struct array *b_temp;
1351:    return m;   }    - struct mapping *add_mappings(struct svalue *argp, INT32 args) + PMOD_EXPORT struct mapping *add_mappings(struct svalue *argp, INT32 args)   {    INT32 e,d;    struct mapping *ret;
1388:    return ret;   }    - int mapping_equal_p(struct mapping *a, struct mapping *b, struct processing *p) + PMOD_EXPORT int mapping_equal_p(struct mapping *a, struct mapping *b, struct processing *p)   {    struct processing curr;    struct keypair *k;
1549:    }   }    - void f_aggregate_mapping(INT32 args) + PMOD_EXPORT void f_aggregate_mapping(INT32 args)   {    INT32 e;    struct keypair *k;
1569:    push_mapping(m);   }    - struct mapping *copy_mapping_recursively(struct mapping *m, + PMOD_EXPORT struct mapping *copy_mapping_recursively(struct mapping *m,    struct processing *p)   {    struct processing doing;
1627:   }       - void mapping_search_no_free(struct svalue *to, + PMOD_EXPORT void mapping_search_no_free(struct svalue *to,    struct mapping *m,    struct svalue *look_for,    struct svalue *key /* start */)