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

9:   #include "error.h"   #include "pike_memory.h"    - RCSID("$Id: dynamic_buffer.c,v 1.9 1998/11/22 11:02:42 hubbe Exp $"); + RCSID("$Id: dynamic_buffer.c,v 1.10 2000/07/28 17:16:54 hubbe Exp $");      static dynamic_buffer buff;    - char *low_make_buf_space(INT32 space, dynamic_buffer *buf) + PMOD_EXPORT char *low_make_buf_space(INT32 space, dynamic_buffer *buf)   {    char *ret;   #ifdef PIKE_DEBUG
37:    return ret;   }    - void low_my_putchar(char b,dynamic_buffer *buf) + PMOD_EXPORT void low_my_putchar(char b,dynamic_buffer *buf)   {   #ifdef PIKE_DEBUG    if(!buf->s.str)
46:    low_make_buf_space(1,buf)[0]=b;   }    - void low_my_binary_strcat(const char *b,INT32 l,dynamic_buffer *buf) + PMOD_EXPORT void low_my_binary_strcat(const char *b,INT32 l,dynamic_buffer *buf)   {   #ifdef PIKE_DEBUG    if(!buf->s.str)
56:    MEMCPY(low_make_buf_space(l,buf),b,l);   }    - void debug_initialize_buf(dynamic_buffer *buf) + PMOD_EXPORT void debug_initialize_buf(dynamic_buffer *buf)   {    buf->s.str=(char *)xalloc((buf->bufsize=BUFFER_BEGIN_SIZE));    *(buf->s.str)=0;    buf->s.len=0;   }    - void low_reinit_buf(dynamic_buffer *buf) + PMOD_EXPORT void low_reinit_buf(dynamic_buffer *buf)   {    if(!buf->s.str)    {
74:    }   }    - void low_init_buf_with_string(string s, dynamic_buffer *buf) + PMOD_EXPORT void low_init_buf_with_string(string s, dynamic_buffer *buf)   {    if(buf->s.str) { free(buf->s.str); buf->s.str=NULL; }    buf->s=s;
89:   #endif   }    - string complex_free_buf(void) + PMOD_EXPORT string complex_free_buf(void)   {    string tmp;    if(!buff.s.str) return buff.s;
100:    return tmp;   }    - void toss_buffer(dynamic_buffer *buf) + PMOD_EXPORT void toss_buffer(dynamic_buffer *buf)   {    if(buf->s.str) free(buf->s.str);    buf->s.str=0;   }    - char *simple_free_buf(void) + PMOD_EXPORT char *simple_free_buf(void)   {    if(!buff.s.str) return 0;    return complex_free_buf().str;   }    - struct pike_string *debug_low_free_buf(dynamic_buffer *buf) + PMOD_EXPORT struct pike_string *debug_low_free_buf(dynamic_buffer *buf)   {    struct pike_string *q;    if(!buf->s.str) return 0;
123:    return q;   }    - struct pike_string *debug_free_buf(void) { return low_free_buf(&buff); } - char *make_buf_space(INT32 space) { return low_make_buf_space(space,&buff); } - void my_putchar(char b) { low_my_putchar(b,&buff); } - void my_binary_strcat(const char *b,INT32 l) { low_my_binary_strcat(b,l,&buff); } - void my_strcat(const char *b) { my_binary_strcat(b,strlen(b)); } - void init_buf(void) { low_reinit_buf(&buff); } - void init_buf_with_string(string s) { low_init_buf_with_string(s,&buff); } - char *debug_return_buf(void) + PMOD_EXPORT struct pike_string *debug_free_buf(void) { return low_free_buf(&buff); } + PMOD_EXPORT char *make_buf_space(INT32 space) { return low_make_buf_space(space,&buff); } + PMOD_EXPORT void my_putchar(char b) { low_my_putchar(b,&buff); } + PMOD_EXPORT void my_binary_strcat(const char *b,INT32 l) { low_my_binary_strcat(b,l,&buff); } + PMOD_EXPORT void my_strcat(const char *b) { my_binary_strcat(b,strlen(b)); } + PMOD_EXPORT void init_buf(void) { low_reinit_buf(&buff); } + PMOD_EXPORT void init_buf_with_string(string s) { low_init_buf_with_string(s,&buff); } + PMOD_EXPORT char *debug_return_buf(void)   {    my_putchar(0);    return buff.s.str;   }   /* int my_get_buf_size() { return buff->s.len; } */