src/html/m_pre.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        m_pre.cpp
   3 // Purpose:     wxHtml module for <PRE> ... </PRE> tag (code citation)
   4 // Author:      Vaclav Slavik
   5 // RCS-ID:      $Id$
   6 // Copyright:   (c) 1999 Vaclav Slavik
   7 // Licence:     wxWindows licence
   8 /////////////////////////////////////////////////////////////////////////////
   9
  10 #include "wx/wxprec.h"
  11
  12 #include "wx/defs.h"
  13 #if wxUSE_HTML && wxUSE_STREAMS
  14 #ifdef __BORLANDC__
  15 #pragma hdrstop
  16 #endif
  17
  18 #ifndef WXPRECOMP
  19 #endif
  20
  21 #include "wx/html/forcelnk.h"
  22 #include "wx/html/m_templ.h"
  23
  24 #include "wx/html/htmlcell.h"
  25 #include "wx/tokenzr.h"
  26 #include "wx/encconv.h"
  27
  28 FORCE_LINK_ME(m_pre)
  29
  30 // replaces '\t', ' ' and '\n' with HTML markup:
  31 static wxString LINKAGEMODE HtmlizeWhitespaces(const wxString& str)
  32 {
  33     wxString out;
  34     size_t len = str.Len();
  35     size_t linepos = 0;
  36     for (size_t i = 0; i < len; i++)
  37     {
  38         switch (str[i])
  39         {
  40             case wxT('<'):
  41                 while (i < len && str[i] != wxT('>'))
  42                 {
  43                     out << str[i++];
  44                     linepos++;
  45                 }
  46                 out << wxT('>');
  47                 linepos++;
  48                 break;
  49             case wxT(' '):
  50                 out << wxT("&nbsp;");
  51                 linepos++;
  52                 break;
  53             case wxT('\n'):
  54                 out << wxT("<br>");
  55                 linepos = 0;
  56                 break;
  57             case wxT('\t'):
  58                 {
  59                     for (size_t j = 8 - linepos % 8; j > 0; j--)
  60                         out << wxT("&nbsp;");
  61                     linepos += 8 - linepos % 8;
  62                 }
  63                 break;
  64             default:
  65                 out << str[i];
  66                 linepos++;
  67                 break;
  68         }
  69     }
  70     return out;
  71 }
  72
  73
  74 //-----------------------------------------------------------------------------
  75 // The list handler:
  76 //-----------------------------------------------------------------------------
  77
  78
  79 TAG_HANDLER_BEGIN(PRE, "PRE")
  80     TAG_HANDLER_CONSTR(PRE) { }
  81
  82     TAG_HANDLER_PROC(tag)
  83     {
  84         wxHtmlContainerCell *c;
  85
  86         int fixed = m_WParser->GetFontFixed(),
  87             italic = m_WParser->GetFontItalic(),
  88             underlined = m_WParser->GetFontUnderlined(),
  89             bold = m_WParser->GetFontBold(),
  90             fsize = m_WParser->GetFontSize();
  91
  92         c = m_WParser->GetContainer();
  93         m_WParser->SetFontUnderlined(false);
  94         m_WParser->SetFontBold(false);
  95         m_WParser->SetFontItalic(false);
  96         m_WParser->SetFontFixed(true);
  97         m_WParser->SetFontSize(3);
  98         c->InsertCell(new wxHtmlFontCell(m_WParser->CreateCurrentFont()));
  99
 100         m_WParser->CloseContainer();
 101         c = m_WParser->OpenContainer();
 102         c->SetWidthFloat(tag);
 103         c = m_WParser->OpenContainer();
 104         c->SetAlignHor(wxHTML_ALIGN_LEFT);
 105         c->SetIndent(m_WParser->GetCharHeight(), wxHTML_INDENT_TOP);
 106
 107         wxString srcMid =
 108             m_WParser->GetSource()->Mid(tag.GetBeginPos(),
 109                                         tag.GetEndPos1() - tag.GetBeginPos());
 110         // It is safe to temporarily change the source being parsed,
 111         // provided we restore the state back after parsing
 112         m_Parser->SetSourceAndSaveState(HtmlizeWhitespaces(srcMid));
 113         m_Parser->DoParsing();
 114         m_Parser->RestoreState();
 115
 116         m_WParser->CloseContainer();
 117         m_WParser->CloseContainer();
 118         c = m_WParser->OpenContainer();
 119
 120         m_WParser->SetFontUnderlined(underlined);
 121         m_WParser->SetFontBold(bold);
 122         m_WParser->SetFontItalic(italic);
 123         m_WParser->SetFontFixed(fixed);
 124         m_WParser->SetFontSize(fsize);
 125         c->InsertCell(new wxHtmlFontCell(m_WParser->CreateCurrentFont()));
 126
 127         return true;
 128     }
 129
 130 TAG_HANDLER_END(PRE)
 131
 132
 133
 134
 135
 136 TAGS_MODULE_BEGIN(Pre)
 137
 138     TAGS_MODULE_ADD(PRE)
 139
 140 TAGS_MODULE_END(Pre)
 141
 142 #endif