]>
git.saurik.com Git - wxWidgets.git/blob - src/html/m_pre.cpp
1 /////////////////////////////////////////////////////////////////////////////
3 // Purpose: wxHtml module for <PRE> ... </PRE> tag (code citation)
4 // Author: Vaclav Slavik
6 // Copyright: (c) 1999 Vaclav Slavik
7 // Licence: wxWindows Licence
8 /////////////////////////////////////////////////////////////////////////////
10 #if defined(__GNUG__) && !defined(NO_GCC_PRAGMA)
11 #pragma implementation
14 #include "wx/wxprec.h"
17 #if wxUSE_HTML && wxUSE_STREAMS
25 #include "wx/html/forcelnk.h"
26 #include "wx/html/m_templ.h"
28 #include "wx/html/htmlcell.h"
29 #include "wx/tokenzr.h"
30 #include "wx/encconv.h"
34 // replaces '\t', ' ' and '\n' with HTML markup:
35 static wxString LINKAGEMODE
HtmlizeWhitespaces(const wxString
& str
)
38 size_t i
= 0, j
= 0, len
= str
.Len();
39 for (i
= 0; i
< len
; i
++)
44 while (i
< len
&& str
[i
] != wxT('>'))
55 for (j
= 8 - i%8
; j
> 0; j
--) out
<< wxT(" ");
66 //-----------------------------------------------------------------------------
68 //-----------------------------------------------------------------------------
71 TAG_HANDLER_BEGIN(PRE
, "PRE")
72 TAG_HANDLER_CONSTR(PRE
) { }
76 wxHtmlContainerCell
*c
;
78 int fixed
= m_WParser
->GetFontFixed(),
79 italic
= m_WParser
->GetFontItalic(),
80 underlined
= m_WParser
->GetFontUnderlined(),
81 bold
= m_WParser
->GetFontBold(),
82 fsize
= m_WParser
->GetFontSize();
84 c
= m_WParser
->GetContainer();
85 m_WParser
->SetFontUnderlined(FALSE
);
86 m_WParser
->SetFontBold(FALSE
);
87 m_WParser
->SetFontItalic(FALSE
);
88 m_WParser
->SetFontFixed(TRUE
);
89 m_WParser
->SetFontSize(3);
90 c
->InsertCell(new wxHtmlFontCell(m_WParser
->CreateCurrentFont()));
92 m_WParser
->CloseContainer();
93 c
= m_WParser
->OpenContainer();
94 c
->SetAlignHor(wxHTML_ALIGN_LEFT
);
95 c
->SetIndent(m_WParser
->GetCharHeight(), wxHTML_INDENT_TOP
);
98 m_WParser
->GetSource()->Mid(tag
.GetBeginPos(),
99 tag
.GetEndPos1() - tag
.GetBeginPos());
100 // It is safe to temporarily change the source being parsed,
101 // provided we restore the state back after parsing
102 m_Parser
->SetSourceAndSaveState(HtmlizeWhitespaces(srcMid
));
103 m_Parser
->DoParsing();
104 m_Parser
->RestoreState();
106 m_WParser
->CloseContainer();
107 c
= m_WParser
->OpenContainer();
109 m_WParser
->SetFontUnderlined(underlined
);
110 m_WParser
->SetFontBold(bold
);
111 m_WParser
->SetFontItalic(italic
);
112 m_WParser
->SetFontFixed(fixed
);
113 m_WParser
->SetFontSize(fsize
);
114 c
->InsertCell(new wxHtmlFontCell(m_WParser
->CreateCurrentFont()));
125 TAGS_MODULE_BEGIN(Pre
)