]> git.saurik.com Git - wxWidgets.git/blame - src/html/m_pre.cpp
revised the documentation of the book controls; moved common API to wxBookCtrlBase
[wxWidgets.git] / src / html / m_pre.cpp
CommitLineData
5526e819 1/////////////////////////////////////////////////////////////////////////////
93763ad5 2// Name: src/html/m_pre.cpp
5526e819
VS
3// Purpose: wxHtml module for <PRE> ... </PRE> tag (code citation)
4// Author: Vaclav Slavik
69941f05 5// RCS-ID: $Id$
5526e819 6// Copyright: (c) 1999 Vaclav Slavik
65571936 7// Licence: wxWindows licence
5526e819
VS
8/////////////////////////////////////////////////////////////////////////////
9
3096bd2f 10#include "wx/wxprec.h"
3364ab79 11
2b5f62a0 12#ifdef __BORLANDC__
93763ad5 13 #pragma hdrstop
3364ab79
RS
14#endif
15
93763ad5
WS
16#if wxUSE_HTML && wxUSE_STREAMS
17
b4f4d3dd 18#ifndef WX_PRECOMP
3364ab79
RS
19#endif
20
69941f05
VS
21#include "wx/html/forcelnk.h"
22#include "wx/html/m_templ.h"
5526e819 23
69941f05 24#include "wx/html/htmlcell.h"
3096bd2f 25#include "wx/tokenzr.h"
57f59026 26#include "wx/encconv.h"
5526e819 27
c88293a4 28FORCE_LINK_ME(m_pre)
5526e819 29
83c9da45 30// replaces '\t', ' ' and '\n' with HTML markup:
6a603a10 31static wxString LINKAGEMODE HtmlizeLinebreaks(const wxString& str)
83c9da45
VS
32{
33 wxString out;
6a603a10
VS
34 out.reserve(str.length()); // we'll certainly need at least that
35
7bf6f523
VS
36 const wxString::const_iterator end = str.end();
37 for ( wxString::const_iterator i = str.begin(); i != end; ++i )
83c9da45 38 {
f7b64fde 39 switch ( (*i).GetValue() )
83c9da45 40 {
6a603a10 41 case '<':
7bf6f523 42 while ( i != end && *i != '>' )
0ab8db38 43 {
f7b64fde 44 out << *i++;
0ab8db38 45 }
6a603a10 46 out << '>';
7bf6f523
VS
47 if ( i == end )
48 return out;
83c9da45 49 break;
6a603a10
VS
50 case '\n':
51 out << "<br>";
83c9da45
VS
52 break;
53 default:
f7b64fde 54 out << *i;
83c9da45
VS
55 break;
56 }
57 }
7bf6f523 58
83c9da45
VS
59 return out;
60}
61
62
5526e819
VS
63//-----------------------------------------------------------------------------
64// The list handler:
65//-----------------------------------------------------------------------------
66
67
68TAG_HANDLER_BEGIN(PRE, "PRE")
fc7a2a60 69 TAG_HANDLER_CONSTR(PRE) { }
5526e819
VS
70
71 TAG_HANDLER_PROC(tag)
72 {
73 wxHtmlContainerCell *c;
74
6a603a10
VS
75 const int fixed = m_WParser->GetFontFixed();
76 const int italic = m_WParser->GetFontItalic();
77 const int underlined = m_WParser->GetFontUnderlined();
78 const int bold = m_WParser->GetFontBold();
79 const int fsize = m_WParser->GetFontSize();
80 const wxHtmlWinParser::WhitespaceMode whitespace =
81 m_WParser->GetWhitespaceMode();
5526e819 82
1309ba6c 83 c = m_WParser->GetContainer();
6a603a10 84 m_WParser->SetWhitespaceMode(wxHtmlWinParser::Whitespace_Pre);
d1da8872
WS
85 m_WParser->SetFontUnderlined(false);
86 m_WParser->SetFontBold(false);
87 m_WParser->SetFontItalic(false);
88 m_WParser->SetFontFixed(true);
4f9297b0
VS
89 m_WParser->SetFontSize(3);
90 c->InsertCell(new wxHtmlFontCell(m_WParser->CreateCurrentFont()));
5526e819 91
1309ba6c
VS
92 m_WParser->CloseContainer();
93 c = m_WParser->OpenContainer();
69379916
VS
94 c->SetWidthFloat(tag);
95 c = m_WParser->OpenContainer();
1309ba6c 96 c->SetAlignHor(wxHTML_ALIGN_LEFT);
b3470d76 97 c->SetIndent(m_WParser->GetCharHeight(), wxHTML_INDENT_TOP);
1309ba6c 98
e7feeafa 99 wxString srcMid = m_WParser->GetInnerSource(tag);
6a603a10
VS
100
101 // setting Whitespace_Pre mode takes care of spaces and TABs, but
102 // not linebreaks, so we have to translate them into <br> by
103 // calling HtmlizeLinebreaks() here
104 ParseInnerSource(HtmlizeLinebreaks(srcMid));
04dbb646 105
69379916 106 m_WParser->CloseContainer();
1309ba6c
VS
107 m_WParser->CloseContainer();
108 c = m_WParser->OpenContainer();
5526e819 109
6a603a10 110 m_WParser->SetWhitespaceMode(whitespace);
4f9297b0
VS
111 m_WParser->SetFontUnderlined(underlined);
112 m_WParser->SetFontBold(bold);
113 m_WParser->SetFontItalic(italic);
114 m_WParser->SetFontFixed(fixed);
115 m_WParser->SetFontSize(fsize);
116 c->InsertCell(new wxHtmlFontCell(m_WParser->CreateCurrentFont()));
5526e819 117
d1da8872 118 return true;
5526e819
VS
119 }
120
121TAG_HANDLER_END(PRE)
122
123
124
125
126
127TAGS_MODULE_BEGIN(Pre)
128
129 TAGS_MODULE_ADD(PRE)
130
131TAGS_MODULE_END(Pre)
132
133#endif