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 #ifdef __GNUG__
  11 #pragma implementation
  12 #endif
  13
  14 #include "wx/wxprec.h"
  15
  16 #include "wx/defs.h"
  17 #if wxUSE_HTML && wxUSE_STREAMS
  18 #ifdef __BORDLANDC__
  19 #pragma hdrstop
  20 #endif
  21
  22 #ifndef WXPRECOMP
  23 #endif
  24
  25 #include "wx/html/forcelnk.h"
  26 #include "wx/html/m_templ.h"
  27
  28 #include "wx/html/htmlcell.h"
  29 #include "wx/tokenzr.h"
  30 #include "wx/encconv.h"
  31
  32 FORCE_LINK_ME(m_pre)
  33
  34 //-----------------------------------------------------------------------------
  35 // The list handler:
  36 //-----------------------------------------------------------------------------
  37
  38
  39 TAG_HANDLER_BEGIN(PRE, "PRE")
  40
  41     TAG_HANDLER_PROC(tag)
  42     {
  43         wxHtmlContainerCell *c;
  44
  45         int fixed = m_WParser->GetFontFixed(),
  46             italic = m_WParser->GetFontItalic(),
  47             underlined = m_WParser->GetFontUnderlined(),
  48             bold = m_WParser->GetFontBold(),
  49             fsize = m_WParser->GetFontSize();
  50
  51         c = m_WParser->GetContainer();
  52         m_WParser->SetFontUnderlined(FALSE);
  53         m_WParser->SetFontBold(FALSE);
  54         m_WParser->SetFontItalic(FALSE);
  55         m_WParser->SetFontFixed(TRUE);
  56         m_WParser->SetFontSize(3);
  57         c->InsertCell(new wxHtmlFontCell(m_WParser->CreateCurrentFont()));
  58
  59         m_WParser->CloseContainer();
  60         c = m_WParser->OpenContainer();
  61         c->SetAlignHor(wxHTML_ALIGN_LEFT);
  62
  63         wxString srcMid =
  64             m_WParser->GetSource()->Mid(tag.GetBeginPos(),
  65                                         tag.GetEndPos1() - tag.GetBeginPos());
  66         srcMid.Replace(wxT("\t"), wxT("        "));
  67         srcMid.Replace(wxT(" "), wxT("&nbsp;"));
  68         srcMid.Replace(wxT("\n"), wxT("<br>"));
  69
  70         // It is safe to temporarily change the source being parsed,
  71         // provided we restore the state back after parsing
  72         m_Parser->SetSourceAndSaveState(srcMid);
  73         m_Parser->DoParsing();
  74         m_Parser->RestoreState();
  75
  76         m_WParser->CloseContainer();
  77         c = m_WParser->OpenContainer();
  78
  79         m_WParser->SetFontUnderlined(underlined);
  80         m_WParser->SetFontBold(bold);
  81         m_WParser->SetFontItalic(italic);
  82         m_WParser->SetFontFixed(fixed);
  83         m_WParser->SetFontSize(fsize);
  84         c->InsertCell(new wxHtmlFontCell(m_WParser->CreateCurrentFont()));
  85
  86         return TRUE;
  87     }
  88
  89 TAG_HANDLER_END(PRE)
  90
  91
  92
  93
  94
  95 TAGS_MODULE_BEGIN(Pre)
  96
  97     TAGS_MODULE_ADD(PRE)
  98
  99 TAGS_MODULE_END(Pre)
 100
 101 #endif