X-Git-Url: https://git.saurik.com/wxWidgets.git/blobdiff_plain/1d1b48625e17b7eea75f8da111751a828946a29f..eeb67742cdf63068e82ec68e50ad2c9bb5ab613f:/utils/HelpGen/src/scriptbinder.cpp diff --git a/utils/HelpGen/src/scriptbinder.cpp b/utils/HelpGen/src/scriptbinder.cpp deleted file mode 100644 index affd6634e4..0000000000 --- a/utils/HelpGen/src/scriptbinder.cpp +++ /dev/null @@ -1,617 +0,0 @@ -///////////////////////////////////////////////////////////////////////////// -// Name: No names yet. -// Purpose: Contrib. demo -// Author: Aleksandras Gluchovas -// Modified by: -// Created: 22/09/98 -// RCS-ID: $Id$ -// Copyright: (c) Aleskandars Gluchovas -// Licence: wxWindows licence -///////////////////////////////////////////////////////////////////////////// - -// For compilers that support precompilation, includes "wx/wx.h". -#include "wx/wxprec.h" - -#ifdef __BORLANDC__ -#pragma hdrstop -#endif - -#ifndef WX_PRECOMP -#include "wx/wx.h" -#endif - -#include -#include - -#include // import sprintf() (for doubles) -#include // import atoi() (for integers) - -#include "scriptbinder.h" - -// helper functions - -static size_t wx_log2(size_t nr) -{ - size_t tmp = 0; - while (nr >= 2 ) - { - nr /= 2; - ++tmp; - } - - return tmp; -} - -/***** Implementation for class ScriptStream *****/ - -ScriptStream::ScriptStream() - : m_pBuf(0), - m_Size(0), - m_Capacity(0) -{} - -ScriptStream::~ScriptStream() -{ - if ( m_pBuf ) delete m_pBuf; -} - -void ScriptStream::WriteBytes( const void* srcBuf, size_t count ) -{ - if ( !count ) return; - - // increase the capacity if necessary - if ( m_Size + count > m_Capacity ) - { - m_Capacity = - ( 0x2 << (wx_log2( m_Size + count ) + 1 ) ); - - if ( m_Capacity < 128 ) m_Capacity = 128; - - char* oldBuf = m_pBuf; - - m_pBuf = new char[m_Capacity]; - - if ( oldBuf ) - { - memcpy( m_pBuf, oldBuf, m_Size ); - delete oldBuf; - } - } - - // append new data - memcpy( &m_pBuf[m_Size], srcBuf, count ); - - m_Size += count; -} - -ScriptStream& ScriptStream::operator<<( const char* str ) -{ - WriteBytes( str, strlen( str ) ); - - return *this; -} - -ScriptStream& ScriptStream::operator<<( const wxString& str ) -{ - if ( str.length() < 512 ) - { - char buf[512]; - size_t len = str.length(); - - for( size_t i = 0; i != len; ++i ) - buf[i] = str[i]; - - WriteBytes( buf, len ); - } - else - WriteBytes( str.c_str(), str.length() ); - - return *this; -} - -ScriptStream& ScriptStream::operator<<( char ch ) -{ - WriteBytes( &ch, 1 ); - - return *this; -} - -void ScriptStream::endl() -{ - char ch = '\n'; - WriteBytes( &ch, 1 ); -} - -/***** Implementation for class ScriptTemplate *****/ - -ScriptTemplate::ScriptTemplate( const wxString& templateText ) -{ - wxString tmp = templateText; - - m_TText = (char*)malloc( tmp.length() + 1 ); - - strcpy( m_TText, tmp.c_str() ); -} - -ScriptTemplate::~ScriptTemplate() -{ - for( size_t i = 0; i != m_Vars.size(); ++i ) - - delete m_Vars[i]; - - free( m_TText ); -} - -bool ScriptTemplate::HasVar( const char* name ) -{ - for( size_t i = 0; i != m_Vars.size(); ++i ) - - if ( strcmp( m_Vars[i]->m_Name, name ) == 0 ) - - return 1; - - return 0; -} - -void ScriptTemplate::AddStringVar ( const char* name, int ofs ) -{ - m_Vars.push_back( new TVarInfo( name, ofs, TVAR_STRING ) ); -} - -void ScriptTemplate::AddIntegerVar( const char* name, int ofs ) -{ - m_Vars.push_back( new TVarInfo( name, ofs, TVAR_INTEGER ) ); -} - -void ScriptTemplate::AddDoubleVar ( const char* name, int ofs ) -{ - m_Vars.push_back( new TVarInfo( name, ofs, TVAR_DOUBLE ) ); -} - -void ScriptTemplate::AddObjectRefArray( const char* name, - int ofsRefToFirstObj, - int ofsObjSizeInt, - int ofsObjRefTempl - ) -{ - TArrayInfo* pInfo = new TArrayInfo( name ); - - m_Vars.push_back( pInfo ); - - pInfo->m_RefOfs = ofsRefToFirstObj; - pInfo->m_SizeIntOfs = ofsObjSizeInt; - pInfo->m_ObjRefTemplOfs = ofsObjRefTempl; -} - -inline void ScriptTemplate::PrintVar( TVarInfo* pInfo, - void* dataObj, - ScriptStream& stm ) -{ - char buf[128]; - - switch ( pInfo->m_Type ) - { - case TVAR_INTEGER : - { - sprintf(buf, "%d",*( (int*) ((char*)dataObj + pInfo->m_Ofs) ) ); - - stm.WriteBytes( buf, strlen(buf ) ); - break; - } - - case TVAR_STRING : - { - wxString& str = *( (wxString*) ((char*)dataObj+pInfo->m_Ofs) ); - - const char* cs = str.c_str(); -#ifdef DEBUG_WEIRED_OFFSETS - cout << "DBG:: cs address is " << (int)cs << endl; - cout << "DBG:: str address is " << (int)(&str) << endl; - cout << "DBG:: dataObj points to " << (int)dataObj << endl; - cout << "DBG:: pInfo->m_Ofs value is " << (int)pInfo->m_Ofs << endl; - cout << "DBG:: d+pInfo->m_Ofs is " << (int)((char*)dataObj + pInfo->m_Ofs) << endl; - cout << "DBG:: pInfo->m_Name is " << pInfo->m_Name << endl; - cout << "DBG:: pInfo->m_Type is " << pInfo->m_Type << endl; - cout << "DBG:: end of dump. " << endl; - - cout << "DBG:: cs value is " << endl << cs << endl; -#endif - stm.WriteBytes( cs, strlen(cs) ); - break; - } - - case TVAR_DOUBLE : - { - sprintf( buf, "%f", - *( (double*)( (char*)dataObj+pInfo->m_Ofs) ) ); - - stm.WriteBytes( buf, strlen(buf ) ); - break; - } - - case TVAR_REF_ARRAY : - { - TArrayInfo& info = *((TArrayInfo*)pInfo); - - int sz = *((int*) ( (char*)dataObj+info.m_SizeIntOfs )); - if ( !sz ) - { - // DBG:: - int u = 0; - ++u; - break; - } - - int* array = *((int**)( (char*)dataObj+info.m_RefOfs )); - - ScriptTemplate* pRefTempl; - - for( int i = 0; i != sz; ++i ) - { - pRefTempl = - *((ScriptTemplate**)((char*)(array[i])+info.m_ObjRefTemplOfs)); - - pRefTempl->PrintScript( (void*)array[i], stm ); - } - - break; - } - - default : break; - } -} - -void ScriptTemplate::PrintScript( void* dataObj, ScriptStream& stm ) -{ - char* cur = m_TText; - - // template parsing loop - do - { - char* start = cur; - - while( *cur != '\0' && *cur != '$' ) ++cur; - - // flush text collected between variables - stm.WriteBytes( start, cur - start ); - - if ( *cur == '\0' ) break; - - cur += 2; // skip to the name of the var - - start = cur; - - while( *cur != ')' ) ++cur; - - // put terminating zero temorarely - - *cur = '\0'; - - // look up variable - - size_t sz = m_Vars.size(); - // bool found = false; - - for( size_t i = 0; i != sz; ++i ) - { - if ( strcmp( m_Vars[i]->m_Name, start ) == 0 ) - { - PrintVar( m_Vars[i], dataObj, stm ); - - *cur = ')'; // remove terminating zero - ++cur; - // found = 1; - break; - } - } - - // variable referred by template script is not - // registered to this tempalte object - // ASSERT( found ); - - } while(1); -} - -/***** implementation for class ScriptSection *****/ - -int ScriptSection::m_IdCounter = 0; - -ScriptSection::ScriptSection( const wxString& name, - const wxString& body, - ScriptTemplate* pSectionTemplate, - ScriptTemplate* pReferenceTemplate, - bool autoHide, - bool sorted - ) - : m_pParent ( NULL ), - - m_Name ( name ), - m_Body ( body ), - - m_AutoHide ( autoHide ), - m_SortOn ( sorted ), - - m_pSectTempl( pSectionTemplate ), - m_pRefTempl ( pReferenceTemplate ), - - m_RefCount( 0 ), - m_ArrSize( 0 ) -{ - // generate GUID - - wxChar buf[32]; - wxSprintf( buf, _T("%d"), ++m_IdCounter ); - m_Id = buf; -} - -ScriptSection::~ScriptSection() -{ - SectListT lst = m_Subsections; - - while( m_Subsections.size() ) - - m_Subsections[0]->RemoveRef(); - - for( size_t i = 0; i != m_References.size(); ++i ) - - m_References[i]->RemoveRef(); -} - -void ScriptSection::AddRef() -{ - ++m_RefCount; -} - -void ScriptSection::RemoveRef() -{ - if ( !m_RefCount || !(--m_RefCount) ) - { - if (m_pParent) - { - // remove ourselves from parent's list - - SectListT& lst = m_pParent->m_Subsections; - for( size_t i = 0; i != lst.size(); ++i ) - - if ( lst[i] == this ) - { - lst.erase( &lst[i] ); - break; - } - } - - delete this; - } -} - -ScriptSection* ScriptSection::GetSubsection( const char* name ) -{ - // FOR NOW:: fixed section name length - char buf[128]; - - size_t cur = 0; - - while( name[cur] && name[cur] != '/' ) - { - buf[cur] = name[cur]; - ++cur; - } - - // ASSERT( cur < sizeof(buf) ); - - buf[cur] = '\0'; - - size_t sz = m_Subsections.size(); - - for( size_t i = 0; i != sz; ++i ) - { - // DBG:: - //ScriptSection& sect = *m_Subsections[i]; - - if ( m_Subsections[i]->m_Name == buf ) - { - if ( name[cur] == '/' ) - - // search recursivelly - return m_Subsections[i]->GetSubsection( &name[cur+1] ); - else - return m_Subsections[i]; - } - } - - return 0; -} - -void ScriptSection::AddSection( ScriptSection* pSection, - bool addToReferencesToo - ) -{ - m_Subsections.push_back( pSection ); - - pSection->AddRef(); - - // can add section to multiple containers - // ASSERT( pSection->m_pParent == 0 ); - - pSection->m_pParent = this; - - if ( addToReferencesToo ) - - AddReference( pSection ); -} - -void ScriptSection::AddReference( ScriptSection* pReferredSection ) -{ - m_References.push_back( pReferredSection ); - - pReferredSection->AddRef(); - - // set up mandatory fields used by ScriptTemplate - m_ArrSize = m_References.size(); - if ( m_ArrSize ) - m_RefFirst = (void*)&m_References[0]; -} - -SectListT& ScriptSection::GetSubsections() -{ - return m_Subsections; -} - -// static method: -void ScriptSection::RegisterTemplate( ScriptTemplate& sectionTempalte ) -{ - int nameOfs, bodyOfs, idOfs, - arrRefOfs, arrSizeOfs, refTemplOfs; - - // obtaining offsets of member vars - - GET_VAR_OFS( ScriptSection, m_Name, &nameOfs ) - GET_VAR_OFS( ScriptSection, m_Body, &bodyOfs ) - GET_VAR_OFS( ScriptSection, m_Id, &idOfs ) - GET_VAR_OFS( ScriptSection, m_RefFirst,&arrRefOfs ) - GET_VAR_OFS( ScriptSection, m_ArrSize, &arrSizeOfs ) - - GET_VAR_OFS( ScriptSection, m_pRefTempl, &refTemplOfs ) - - // registering member variables with given script template - - sectionTempalte.AddStringVar( "NAME", nameOfs ); - sectionTempalte.AddStringVar( "BODY", bodyOfs ); - sectionTempalte.AddStringVar( "ID", idOfs ); - - sectionTempalte.AddObjectRefArray( "REFLIST", - arrRefOfs, arrSizeOfs, refTemplOfs ); -} - -void ScriptSection::Print( ScriptStream& stm ) -{ - // TBD:: sorting - - // print out this content first - if ( m_pSectTempl ) - - m_pSectTempl->PrintScript( this, stm ); - - // attach contents subsections at the end of this content - - for( size_t i = 0; i != m_Subsections.size(); ++i ) - - m_Subsections[i]->Print( stm ); -} - -void ScriptSection::DoRemoveEmptySections(int& nRemoved, SectListT& removedLst) -{ - for( size_t i = 0; i != m_Subsections.size(); ++i ) - { - ScriptSection& sect = *m_Subsections[i]; - - sect.DoRemoveEmptySections( nRemoved, removedLst ); - - if (sect.m_AutoHide ) - - if ( sect.m_References.size() == 0 ) - { - bool found = false; - for( size_t k = 0; k != removedLst.size(); ++k ) - - if ( removedLst[k] == § ) - { - found = 1; - break; - } - - if ( !found ) - { - removedLst.push_back( § ); - ++nRemoved; - - delete § - --i; - } - } - } -} - -void ScriptSection::DoRemoveDeadLinks( SectListT& removedLst) -{ - size_t dsz = removedLst.size(); - - for( size_t i = 0; i != m_Subsections.size(); ++i ) - { - m_Subsections[i]->DoRemoveDeadLinks( removedLst ); - } - - for( size_t n = 0; n != m_References.size(); ++n ) - { - for( size_t k = 0; k != dsz; ++k ) - - if ( removedLst[k] == m_References[n] ) - { - m_References.erase( &m_References[n] ); - --n; - - // set up mandatory fields used by ScriptTemplate - m_ArrSize = m_References.size(); - if ( m_ArrSize ) - m_RefFirst = (void*)&m_References[0]; - - break; - } - } -} - - -void ScriptSection::RemoveEmptySections() -{ - // FIXME:: this is very_very_very slow alg.! +"doesn't work" - - int nRemoved = 0; - - do - { - SectListT removedLst; - nRemoved = 0; - - DoRemoveEmptySections( nRemoved, removedLst ); - - DoRemoveDeadLinks( removedLst ); - } - while( nRemoved ); -} - -/***** Iimplementation for class DocGeneratorBase *****/ - -bool DocGeneratorBase::SaveDocument( const char* fname, - const char* fopenOptions, - ScriptSection* pFromSection - ) -{ - FILE* fp = fopen( fname, fopenOptions ); - - if ( !fp ) return 0; - - ScriptStream stm; - - // check if derived class agrees about saving it - if ( !OnSaveDocument( stm ) ) return 0; - - if ( pFromSection ) - - pFromSection->Print( stm ); - else - { - ScriptSection* pTopSect = GetTopSection(); - // ASSERT( pTopSect ); - pTopSect->Print( stm ); - } - - size_t nWrite = fwrite( stm.GetBuf(), 1, stm.GetBufSize(), fp ); - - if ( nWrite != stm.GetBufSize() ) return 0; - - fclose( fp ); - - return 1; - - // that^s it -}