FORCE_LINK_ME(m_pre)
+// replaces '\t', ' ' and '\n' with HTML markup:
+static wxString LINKAGEMODE HtmlizeWhitespaces(const wxString& str)
+{
+ wxString out;
+ size_t i = 0, j = 0, len = str.Len();
+ for (i = 0; i < len; i++)
+ {
+ switch (str[i])
+ {
+ case wxT('<'):
+ while (i < len && str[i] != wxT('>'))
+ out << str[i++];
+ out << wxT('>');
+ break;
+ case wxT(' '):
+ out << wxT(" ");
+ break;
+ case wxT('\n'):
+ out << wxT("<br>");
+ break;
+ case wxT('\t'):
+ for (j = 8 - i%8; j > 0; j--) out << wxT(" ");
+ break;
+ default:
+ out << str[i];
+ break;
+ }
+ }
+ return out;
+}
+
+
//-----------------------------------------------------------------------------
// The list handler:
//-----------------------------------------------------------------------------
m_WParser->CloseContainer();
c = m_WParser->OpenContainer();
c->SetAlignHor(wxHTML_ALIGN_LEFT);
+ c->SetIndent(m_WParser->GetCharHeight(), wxHTML_INDENT_TOP);
- wxString src, srcMid;
-
- src = *m_WParser->GetSource();
- srcMid = src.Mid(tag.GetBeginPos(),
- tag.GetEndPos1() - tag.GetBeginPos());
- srcMid.Replace(wxT("\t"), wxT(" "));
- srcMid.Replace(wxT(" "), wxT(" "));
- srcMid.Replace(wxT("\n"), wxT("<br>"));
-
+ wxString srcMid =
+ m_WParser->GetSource()->Mid(tag.GetBeginPos(),
+ tag.GetEndPos1() - tag.GetBeginPos());
// It is safe to temporarily change the source being parsed,
// provided we restore the state back after parsing
- m_Parser->SetSource(srcMid);
+ m_Parser->SetSourceAndSaveState(HtmlizeWhitespaces(srcMid));
m_Parser->DoParsing();
- m_Parser->SetSource(src);
+ m_Parser->RestoreState();
m_WParser->CloseContainer();
c = m_WParser->OpenContainer();