|
|
| version 1.172, 2004/02/13 14:01:08 | version 1.183, 2008/08/15 15:30:21 |
|---|---|
| Line 1 | Line 1 |
| /** @file | /** @file |
| Parser: globals. | Parser: globals. |
| Copyright (c) 2001-2004 ArtLebedev Group (http://www.artlebedev.com) | Copyright (c) 2001-2005 ArtLebedev Group (http://www.artlebedev.com) |
| Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru) | Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru) |
| */ | */ |
| Line 18 extern "C" { | Line 18 extern "C" { |
| }; | }; |
| #endif | #endif |
| #include "pcre.h" | |
| #include "pa_globals.h" | #include "pa_globals.h" |
| #include "pa_string.h" | #include "pa_string.h" |
| #include "pa_sapi.h" | #include "pa_sapi.h" |
| Line 29 extern "C" { | Line 27 extern "C" { |
| #include "pa_cache_managers.h" | #include "pa_cache_managers.h" |
| #include "pcre.h" | |
| // defines | // defines |
| //#define PA_DEBUG_XML_GC_MEMORY | //#define PA_DEBUG_XML_GC_MEMORY |
| //20051130 trying to remove this, author claims that fixed a lot there // 20040920 for now both workarounds needed. wait for new libxml/xsl versions | |
| // // there is a problem with testcase, it's unstable. | |
| // // see paf@six/bug20040920/cgi-bin/t for it-showed-bug-on-20040920-day | |
| // #define PA_WORKAROUND_BUGGY_FREE_IN_LIBXML_GC_MEMORY | |
| // #define PA_WORKAROUND_BUGGY_MALLOCATOMIC_IN_LIBXML_GC_MEMORY | |
| // globals | // globals |
| short hex_value[0x100]; | short hex_value[0x100]; |
| #ifdef XML | |
| GdomeDOMImplementation *domimpl; | |
| #endif | |
| static void setup_hex_value() { | static void setup_hex_value() { |
| memset(hex_value, 0, sizeof(hex_value)); | memset(hex_value, 0, sizeof(hex_value)); |
| hex_value['0'] = 0; | hex_value['0'] = 0; |
| Line 77 Request& pa_thread_request() { | Line 79 Request& pa_thread_request() { |
| return *thread_request.get(pa_get_thread_id()); | return *thread_request.get(pa_get_thread_id()); |
| } | } |
| #ifdef PA_RELEASE_ASSERTS | |
| void pa_release_assert(const char* str, const char* file, int line) { | |
| SAPI::die("%s at %s:%d", str, file, line); | |
| } | |
| #endif | |
| #ifdef XML | #ifdef XML |
| class XML_Generic_error_info { | class XML_Generic_error_info { |
| public: | public:/*internal, actually*/ |
| char buf[MAX_STRING*5]; | char buf[MAX_STRING*5]; |
| size_t used; | size_t used; |
| public: | public: |
| XML_Generic_error_info() { | XML_Generic_error_info() { |
| reset(); | |
| } | |
| void reset() { | |
| buf[used=0]=0; | buf[used=0]=0; |
| } | } |
| const char* get_and_reset() { | const char* get() { |
| if(used) { | return used? buf: 0; |
| char* result=pa_strdup(buf, used); | |
| reset(); | |
| return result; | |
| } else | |
| return 0; | |
| } | } |
| }; | }; |
| Line 135 const char* xmlGenericErrors() { | Line 136 const char* xmlGenericErrors() { |
| SYNCHRONIZED; // find+free blocked | SYNCHRONIZED; // find+free blocked |
| if(XML_Generic_error_info *p=xml_generic_error_infos.get(thread_id)) | if(XML_Generic_error_info *p=xml_generic_error_infos.get(thread_id)) { |
| return p->get_and_reset(); | xml_generic_error_infos.remove(thread_id); |
| return p->get(); | |
| } | |
| return 0; // no errors for our thread_id registered | return 0; // no errors for our thread_id registered |
| } | } |
| Line 144 const char* xmlGenericErrors() { | Line 147 const char* xmlGenericErrors() { |
| #endif | #endif |
| void pa_globals_destroy(void *) { | void pa_globals_destroy(void *) { |
| /* | |
| try { | try { |
| #ifdef XML | #ifdef XML |
| GdomeException exc; | |
| gdome_di_unref (domimpl, &exc); | |
| // uncomment SAPI::abort below if adding potential-throw code here | |
| #endif | #endif |
| } catch(const Exception& e) { | } catch(.../*const Exception& e* /) { |
| // SAPI::abort("pa_globals_destroy failed: %s", e.comment()); | // SAPI::abort("pa_globals_destroy failed: %s", e.comment()); |
| } | } |
| */ | |
| } | } |
| Line 175 static char *pa_GC_strdup(const char *s) | Line 177 static char *pa_GC_strdup(const char *s) |
| } | } |
| #ifdef PA_DEBUG_XML_GC_MEMORY | #ifdef PA_DEBUG_XML_GC_MEMORY |
| void *pa_look_for[]={(void*)0x8abe000,(void*)0x0,(void*)0x0,(void*)0x0, | void *pa_look_for[]={(void*)0x84ba980,(void*)0x8969460,(void*)0x0,(void*)0x0, |
| (void*)0x0,(void*)0x0,(void*)0x0,(void*)0x0}; | (void*)0x0,(void*)0x0,(void*)0x0,(void*)0x0}; |
| bool pa_looked(void*p) { | bool pa_looked(void*p) { |
| for(int i=0; i<8; i++) | for(int i=0; i<8; i++) |
| if(pa_look_for[i]==p) | if(pa_look_for[i]==p) { |
| __asm__("int $3"); | |
| return true; | return true; |
| } | |
| if((((int)p)&~0xFF)==0x89a7700) { | |
| __asm__("int $3"); | |
| return true; | |
| } | |
| return false; | return false; |
| } | } |
| static void* pa_gc_malloc_log(size_t size){ | static void* pa_gc_malloc_log(size_t size){ |
| void *p=pa_gc_malloc(size); | void *p=pa_gc_malloc(size); |
| fprintf(stderr, "pa_gc_malloc_log(%d)=0x%p\n", size, p); | fprintf(stderr, "pa_gc_malloc_log(%d)=0x%p\n", size, p); |
| // if(pa_looked(p)) | if(pa_looked(p)) |
| // fprintf(stderr,"catched debug malloc(%d)=0x%p\n", size, p); | fprintf(stderr,"catched debug malloc(%d)=0x%p\n", size, p); |
| return p; | return p; |
| } | } |
| static void* pa_gc_malloc_atomic_log(size_t size){ | static void* pa_gc_malloc_atomic_log(size_t size){ |
| #ifdef PA_WORKAROUND_BUGGY_MALLOCATOMIC_IN_LIBXML_GC_MEMORY | |
| void *p=pa_gc_malloc(size); | |
| fprintf(stderr, "pa_gc_malloc_atomicFAKE_log(%d)=0x%p\n", size, p); | |
| #else | |
| void *p=pa_gc_malloc_atomic(size); | void *p=pa_gc_malloc_atomic(size); |
| fprintf(stderr, "pa_gc_malloc_atomic_log(%d)=0x%p\n", size, p); | fprintf(stderr, "pa_gc_malloc_atomic_log(%d)=0x%p\n", size, p); |
| // if(pa_looked(p)) | #endif |
| // fprintf(stderr,"catched debug malloc atomic(%d)=0x%p\n", size, p); | if(pa_looked(p)) |
| fprintf(stderr,"catched debug malloc atomic(%d)=0x%p\n", size, p); | |
| return p; | return p; |
| } | } |
| static void* pa_gc_realloc_log(void *ptr, size_t size){ | static void* pa_gc_realloc_log(void *ptr, size_t size){ |
| void *p=pa_gc_realloc(ptr, size); | void *p=pa_gc_realloc(ptr, size); |
| fprintf(stderr, "pa_gc_realloc_log(0x%p, %d)=0x%p\n", ptr, size, p); | fprintf(stderr, "pa_gc_realloc_log(0x%p, %d)=0x%p\n", ptr, size, p); |
| // if(pa_looked(p)) | if(pa_looked(p)) |
| // fprintf(stderr,"catched debug realloc(%d)=0x%p\n", size, p); | fprintf(stderr,"catched debug realloc(%d)=0x%p\n", size, p); |
| return p; | return p; |
| } | } |
| //static void pa_gc_free_ignore(void *){} | |
| static void pa_gc_free_log(void *p){ | static void pa_gc_free_log(void *p){ |
| #ifdef PA_WORKAROUND_BUGGY_FREE_IN_LIBXML_GC_MEMORY | |
| fprintf(stderr, "pa_gc_freeIGNORE_log(0x%p)\n", p); | |
| #else | |
| fprintf(stderr, "pa_gc_free_log(0x%p)\n", p); | fprintf(stderr, "pa_gc_free_log(0x%p)\n", p); |
| // if(pa_looked(p)) | #endif |
| // fprintf(stderr,"catched debug free(0x%p)\n", p); | if(pa_looked(p)) |
| fprintf(stderr,"catched debug free(0x%p)\n", p); | |
| #ifndef PA_WORKAROUND_BUGGY_FREE_IN_LIBXML_GC_MEMORY | |
| pa_gc_free(p); | pa_gc_free(p); |
| #endif | |
| } | } |
| #else | #else |
| Line 224 static void* pa_gc_malloc_nonull(size_t | Line 242 static void* pa_gc_malloc_nonull(size_t |
| return check(pa_gc_malloc(size), "allocating XML compsite memory", size); | return check(pa_gc_malloc(size), "allocating XML compsite memory", size); |
| } | } |
| static void* pa_gc_malloc_atomic_nonull(size_t size) { | static void* pa_gc_malloc_atomic_nonull(size_t size) { |
| #ifdef PA_WORKAROUND_BUGGY_MALLOCATOMIC_IN_LIBXML_GC_MEMORY | |
| return check(pa_gc_malloc(size), "allocating XML composite memory (asked atomic)", size); | |
| #else | |
| return check(pa_gc_malloc_atomic(size), "allocating XML atomic memory", size); | return check(pa_gc_malloc_atomic(size), "allocating XML atomic memory", size); |
| #endif | |
| } | } |
| static void* pa_gc_realloc_nonull(void* ptr, size_t size) { | static void* pa_gc_realloc_nonull(void* ptr, size_t size) { |
| return check(pa_gc_realloc(ptr, size), "reallocating XML memory", size); | return check(pa_gc_realloc(ptr, size), "reallocating XML memory", size); |
| } | } |
| static void pa_gc_free_maybeignore( | |
| void* | |
| #ifndef PA_WORKAROUND_BUGGY_FREE_IN_LIBXML_GC_MEMORY | |
| ptr | |
| #endif | |
| ) { | |
| #ifndef PA_WORKAROUND_BUGGY_FREE_IN_LIBXML_GC_MEMORY | |
| pa_gc_free(ptr); | |
| #endif | |
| } | |
| #endif | #endif |
| #endif | #endif |
| Line 254 static void gc_substitute_memory_managem | Line 287 static void gc_substitute_memory_managem |
| /*xmlStrdupFunc */pa_GC_strdup); | /*xmlStrdupFunc */pa_GC_strdup); |
| #else | #else |
| xmlGcMemSetup( | xmlGcMemSetup( |
| /*xmlFreeFunc */pa_gc_free, | /*xmlFreeFunc */pa_gc_free_maybeignore, |
| /*xmlMallocFunc */pa_gc_malloc_nonull, | /*xmlMallocFunc */pa_gc_malloc_nonull, |
| /*xmlMallocFunc */pa_gc_malloc_atomic_nonull, | /*xmlMallocFunc */pa_gc_malloc_atomic_nonull, |
| /*xmlReallocFunc */pa_gc_realloc_nonull, | /*xmlReallocFunc */pa_gc_realloc_nonull, |
| Line 263 static void gc_substitute_memory_managem | Line 296 static void gc_substitute_memory_managem |
| #else | #else |
| xmlMemSetup( | xmlMemSetup( |
| /*xmlFreeFunc */pa_gc_free, | /*xmlFreeFunc */pa_gc_free_maybeignore, |
| /*xmlMallocFunc */pa_gc_malloc, | /*xmlMallocFunc */pa_gc_malloc, |
| /*xmlReallocFunc */pa_gc_realloc, | /*xmlReallocFunc */pa_gc_realloc, |
| /*xmlStrdupFunc */pa_GC_strdup); | /*xmlStrdupFunc */pa_GC_strdup); |
| Line 297 void pa_globals_init() { | Line 330 void pa_globals_init() { |
| #ifdef XML | #ifdef XML |
| // initializing xml libs | // initializing xml libs |
| /* First get a DOMImplementation reference */ | |
| domimpl = gdome_di_mkref (); | |
| /* | /* |
| * Register the EXSLT extensions and the test module | * Register the EXSLT extensions and the test module |
| */ | */ |
| Line 347 void pa_globals_init() { | Line 378 void pa_globals_init() { |
| #endif | #endif |
| } | } |
| void pa_globals_done() { | |
| delete cache_managers; cache_managers=0; | |
| } | |
| #ifdef _MSC_VER | #ifdef _MSC_VER |
| #ifndef PA_DEBUG_DISABLE_GC | #ifndef PA_DEBUG_DISABLE_GC |
| Line 359 void pa_globals_init() { | Line 394 void pa_globals_init() { |
| #endif | #endif |
| #ifdef XML | #define GNOME_LIBS "../../../../win32/gnome" |
| # define GNOME_LIBS "../../../../win32/gnome" | |
| #ifdef WITH_MAILRECEIVE | |
| # pragma comment(lib, GNOME_LIBS "/glib/lib/libglib-1.3-11.lib") | # pragma comment(lib, GNOME_LIBS "/glib/lib/libglib-1.3-11.lib") |
| #endif | |
| #ifdef XML | |
| # ifdef _DEBUG | # ifdef _DEBUG |
| # ifdef LIBXML_STATIC | # ifdef LIBXML_STATIC |
| Line 381 void pa_globals_init() { | Line 420 void pa_globals_init() { |
| # pragma comment(lib, GNOME_LIBS "/libxslt-x.x.x/win32/debug/lib/libexslt.lib") | # pragma comment(lib, GNOME_LIBS "/libxslt-x.x.x/win32/debug/lib/libexslt.lib") |
| # endif | # endif |
| # ifdef LIBGDOME_STATIC | |
| # pragma comment(lib, GNOME_LIBS "/gdome2-x.x.x/win32/DebugStatic/libgdome.lib") | |
| # else | |
| # pragma comment(lib, GNOME_LIBS "/gdome2-x.x.x/win32/DebugDynamic/libgdome.lib") | |
| # endif | |
| #else | #else |
| # ifdef LIBXML_STATIC | # ifdef LIBXML_STATIC |
| Line 406 void pa_globals_init() { | Line 439 void pa_globals_init() { |
| # pragma comment(lib, GNOME_LIBS "/libxslt-x.x.x/win32/release/lib/libexslt.lib") | # pragma comment(lib, GNOME_LIBS "/libxslt-x.x.x/win32/release/lib/libexslt.lib") |
| # endif | # endif |
| # ifdef LIBGDOME_STATIC | |
| # pragma comment(lib, GNOME_LIBS "/gdome2-x.x.x/win32/ReleaseStatic/libgdome.lib") | |
| # else | |
| # pragma comment(lib, GNOME_LIBS "/gdome2-x.x.x/win32/ReleaseDynamic/libgdome.lib") | |
| # endif | |
| # endif | # endif |
| #endif | #endif |