--- parser3/src/main/pa_pool.C 2001/10/18 13:09:37 1.32 +++ parser3/src/main/pa_pool.C 2003/01/31 12:34:37 1.59.2.3 @@ -1,131 +1,142 @@ /** @file Parser: pool class. - Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com) - Author: Alexander Petrosyan (http://design.ru/paf) - - $Id: pa_pool.C,v 1.32 2001/10/18 13:09:37 parser Exp $ + Copyright (c) 2001-2003 ArtLebedev Group (http://www.artlebedev.com) + Author: Alexandr Petrosian (http://paf.design.ru) */ +static const char* IDENT_POOL_C="$Date: 2003/01/31 12:34:37 $"; + #include "pa_pool.h" #include "pa_exception.h" #include "pa_common.h" +#include "pa_sapi.h" +#include "pa_value_includes.h" -#ifdef XML -#include -#endif +static void *fail_alloc(char *what, size_t size) { + SAPI::die("out of memory: failed to %s %u bytes", + what, size); + + // never reached + return 0; +} +void *pa_malloc(size_t size) { + if(void *result=malloc(size)) + return result; + + return fail_alloc("allocate", size); +} + +void *pa_calloc(size_t size) { + if(void *result=calloc(1, size)) + return result; + + return fail_alloc("allocate", size); +} +void pa_free(void *ptr) { + free(ptr); +} + +void *pa_realloc(void *ptr, size_t size) { + if(void *result=realloc(ptr, size)) + return result; + + return fail_alloc("reallocate to", size); +} + +/* Pool::Pool(void *astorage) : - fstorage(astorage), fcontext(0), ftag(0), fexception(0) -#ifdef XML - , transcoder(0) -#endif + fstorage(astorage), fcontext(0), + ftotal_allocated(0), ftotal_times(0), + source_charset(0), client_charset(0) { -#ifdef XML - charset=new(*this) String(*this, "UTF-8"); -#else - charset=new(*this) String(*this, ""); -#endif } -Pool::~Pool() { -#ifdef XML - delete transcoder; -#endif +void *Pool::copy(const void *buf, const size_t size) { + if(!buf || !size) + return 0; + + void *result=malloc(size); + memcpy(result, buf, size); + return result; +} + +char *Pool::copy(const char* cstr) { + if(cstr) { + size_t size=strlen(cstr)+1; + return (char *)copy(cstr, size); + } + return 0; } + void Pool::fail_alloc(size_t size) const { - fexception->_throw(0, 0, - 0, - "failed to allocate %u bytes", size); + SAPI::die("out of pool memory: failed to allocate %u bytes; " + "already allocated on pool: %u bytes in %u times", + size, + ftotal_allocated, ftotal_times); } void Pool::fail_register_cleanup() const { - fexception->_throw(0, 0, - 0, - "failed to register cleanup"); + SAPI::die("failed to register cleanup"); +} + +void Pool::set_source_charset(Charset& acharset) { + source_charset=&acharset; +} +Charset& Pool::get_source_charset() { + if(!source_charset) + throw Exception(0, + 0, + "no source charset defined yet"); + return *source_charset; +} + +void Pool::set_client_charset(Charset& acharset) { + client_charset=&acharset; +} +Charset& Pool::get_client_charset() { + if(!client_charset) + throw Exception(0, + 0, + "no client charset defined yet"); + return *client_charset; } -void Pool::set_charset(const String &new_charset) { - if(new_charset!=*charset) { #ifdef XML - delete transcoder; transcoder=0; // flag "we need new transcoder" + +const char* Pool::transcode_cstr(xmlChar *s) { + return get_source_charset().transcode_cstr(s); +} + +String& Pool::transcode(xmlChar *s +#ifndef NO_STRING_ORIGIN + , const String *origin #endif - charset=&new_charset; // for this charset - } + ) { + return get_source_charset().transcode(s, origin); } -#ifdef XML -void Pool::update_transcoder() { - if(transcoder) - return; - - XMLTransService::Codes resValue; - transcoder=XMLPlatformUtils::fgTransService->makeNewTranscoderFor(charset->cstr(), resValue, 60); - if(!transcoder) - THROW(0, 0, - charset, - "unsupported encoding"); -} - -const char *Pool::transcode_cstr(const XalanDOMString& s) { - update_transcoder(); - - const unsigned int len=s.size()*2; - XMLByte* dest=(XMLByte *)malloc((len+1)*sizeof(XMLByte)); - bool error=true; - try { - if(transcoder) { - unsigned int charsEaten; - unsigned int size=transcoder->transcodeTo( - s.c_str(), s.length(), - dest, len, - charsEaten, - XMLTranscoder::UnRep_RepChar //UnRep_Throw - ); - dest[size]=0; - error=false; - } - } catch(XMLException& e) { - exception()._throw(*this, 0, e); - } - return (const char *)dest; +const char* Pool::transcode_cstr(GdomeDOMString *s) { + return get_source_charset().transcode_cstr(s); } -String& Pool::transcode(const XalanDOMString& s) { - return *new(*this) String(*this, transcode_cstr(s)); + +String& Pool::transcode(GdomeDOMString *s +#ifndef NO_STRING_ORIGIN + , const String *origin +#endif + ) { + return get_source_charset().transcode(s, origin); } -/// @test who would free up result? -XalanDOMString& Pool::transcode_buf(const char *buf, size_t buf_size) { - update_transcoder(); - - unsigned int dest_size=0; - XMLCh* dest=(XMLCh *)malloc((buf_size+1)*sizeof(XMLCh)); - unsigned char *charSizes=(unsigned char *)malloc(buf_size*sizeof(unsigned char)); - XalanDOMString *result; - try { - if(transcoder) { - unsigned int bytesEaten; - unsigned int dest_size=transcoder->transcodeFrom( - (unsigned char *)buf, - (const unsigned int)buf_size, - dest, (const unsigned int)buf_size, - bytesEaten, - charSizes - ); - result=new XalanDOMString(dest, dest_size); - } - } catch(XMLException& e) { - exception()._throw(*this, 0, e); - } - free(charSizes); - - return *result; +xmlChar *Pool::transcode_buf2xchar(const char* buf, size_t buf_size) { + return get_source_charset().transcode_buf2xchar(buf, buf_size); } -XalanDOMString& Pool::transcode(const String& s) { - const char *cstr=s.cstr(String::UL_XML); - return transcode_buf(cstr, strlen(cstr)); +GdomeDOMString_auto_ptr Pool::transcode(const String& s) { + return get_source_charset().transcode(s); } #endif +*/