// Author: Vaclav Slavik
// RCS-ID: $Id$
// Copyright: (c) 1999 Vaclav Slavik
-// Licence: wxWindows Licence
+// Licence: wxWindows licence
/////////////////////////////////////////////////////////////////////////////
-#ifdef __GNUG__
+#if defined(__GNUG__) && !defined(NO_GCC_PRAGMA)
#pragma implementation
#endif
#include "wx/defs.h"
#if wxUSE_HTML && wxUSE_STREAMS
-#ifdef __BORDLANDC__
+#ifdef __BORLANDC__
#pragma hdrstop
#endif
FORCE_LINK_ME(m_pre)
+// replaces '\t', ' ' and '\n' with HTML markup:
+static wxString LINKAGEMODE HtmlizeWhitespaces(const wxString& str)
+{
+ wxString out;
+ size_t len = str.Len();
+ size_t linepos = 0;
+ for (size_t i = 0; i < len; i++)
+ {
+ switch (str[i])
+ {
+ case wxT('<'):
+ while (i < len && str[i] != wxT('>'))
+ {
+ out << str[i++];
+ linepos++;
+ }
+ out << wxT('>');
+ linepos++;
+ break;
+ case wxT(' '):
+ out << wxT(" ");
+ linepos++;
+ break;
+ case wxT('\n'):
+ out << wxT("<br>");
+ linepos = 0;
+ break;
+ case wxT('\t'):
+ {
+ for (size_t j = 8 - linepos % 8; j > 0; j--)
+ out << wxT(" ");
+ linepos += 8 - linepos % 8;
+ }
+ break;
+ default:
+ out << str[i];
+ linepos++;
+ break;
+ }
+ }
+ return out;
+}
+
+
//-----------------------------------------------------------------------------
// The list handler:
//-----------------------------------------------------------------------------
TAG_HANDLER_BEGIN(PRE, "PRE")
+ TAG_HANDLER_CONSTR(PRE) { }
TAG_HANDLER_PROC(tag)
{
m_WParser->CloseContainer();
c = m_WParser->OpenContainer();
+ c->SetWidthFloat(tag);
+ c = m_WParser->OpenContainer();
c->SetAlignHor(wxHTML_ALIGN_LEFT);
+ c->SetIndent(m_WParser->GetCharHeight(), wxHTML_INDENT_TOP);
- wxString srcMid =
+ wxString srcMid =
m_WParser->GetSource()->Mid(tag.GetBeginPos(),
tag.GetEndPos1() - tag.GetBeginPos());
- srcMid.Replace(wxT("\t"), wxT(" "));
- srcMid.Replace(wxT(" "), wxT(" "));
- srcMid.Replace(wxT("\n"), wxT("<br>"));
-
// It is safe to temporarily change the source being parsed,
// provided we restore the state back after parsing
- m_Parser->SetSourceAndSaveState(srcMid);
+ m_Parser->SetSourceAndSaveState(HtmlizeWhitespaces(srcMid));
m_Parser->DoParsing();
m_Parser->RestoreState();
+ m_WParser->CloseContainer();
m_WParser->CloseContainer();
c = m_WParser->OpenContainer();