src/richtext/richtexthtml.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        src/richtext/richtexthtml.cpp
   3 // Purpose:     HTML I/O for wxRichTextCtrl
   4 // Author:      Julian Smart
   5 // Modified by:
   6 // Created:     2005-09-30
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) Julian Smart
   9 // Licence:     wxWindows licence
  10 /////////////////////////////////////////////////////////////////////////////
  11
  12 // For compilers that support precompilation, includes "wx.h".
  13 #include "wx/wxprec.h"
  14
  15 #ifdef __BORLANDC__
  16     #pragma hdrstop
  17 #endif
  18
  19 #if wxUSE_RICHTEXT
  20
  21 #include "wx/richtext/richtexthtml.h"
  22
  23 #ifndef WX_PRECOMP
  24     #include "wx/wx.h"
  25 #endif
  26
  27 #include "wx/filename.h"
  28 #include "wx/wfstream.h"
  29 #include "wx/txtstrm.h"
  30
  31 IMPLEMENT_DYNAMIC_CLASS(wxRichTextHTMLHandler, wxRichTextFileHandler)
  32
  33 /// Can we handle this filename (if using files)? By default, checks the extension.
  34 bool wxRichTextHTMLHandler::CanHandle(const wxString& filename) const
  35 {
  36     wxString path, file, ext;
  37     wxSplitPath(filename, & path, & file, & ext);
  38
  39     return (ext.Lower() == wxT("html") || ext.Lower() == wxT("htm"));
  40 }
  41
  42
  43 #if wxUSE_STREAMS
  44 bool wxRichTextHTMLHandler::DoLoadFile(wxRichTextBuffer *WXUNUSED(buffer), wxInputStream& WXUNUSED(stream))
  45 {
  46     return false;
  47 }
  48
  49 /*
  50  * We need to output only _changes_ in character formatting.
  51  */
  52
  53 bool wxRichTextHTMLHandler::DoSaveFile(wxRichTextBuffer *buffer, wxOutputStream& stream)
  54 {
  55     buffer->Defragment();
  56
  57     wxTextOutputStream str(stream);
  58
  59     wxTextAttrEx currentParaStyle = buffer->GetAttributes();
  60     wxTextAttrEx currentCharStyle = buffer->GetAttributes();
  61
  62     str << wxT("<html><head></head><body>\n");
  63
  64     /*
  65     wxRichText may be support paper formats like a1/a2/a3/a4
  66     when this widget grown enough, i should turn back and support its new features
  67     but not yet
  68
  69       str << wxT("<table border=0 cellpadding=0 cellspacing=0><tr><td>");
  70
  71         wxString left_indent = SymbolicIndent(currentParaStyle.GetLeftIndent());
  72         wxString right_indent = SymbolicIndent(currentParaStyle.GetRightIndent());
  73
  74           str << wxString::Format(wxT("%s</td><td></td><td>%s</td></tr><tr>"),
  75           left_indent.c_str(), //Document-Wide Left Indent
  76           right_indent.c_str()); //Document-Wide Right Indent
  77
  78             str << wxT("<td></td><td width=\"100%\">");
  79     */
  80
  81     str << wxT("<table border=0 cellpadding=0 cellspacing=0><tr><td width=\"100%\">");
  82
  83     str << wxString::Format(wxT("<font face=\"%s\" size=\"%ld\" color=\"%s\" >"),
  84         currentParaStyle.GetFont().GetFaceName().c_str(), Pt_To_Size( currentParaStyle.GetFont().GetPointSize() ),
  85         currentParaStyle.GetTextColour().GetAsString(wxC2S_HTML_SYNTAX).c_str());
  86
  87     //wxString align = GetAlignment( currentParaStyle.GetAlignment() );
  88     //str << wxString::Format(wxT("<p align=\"%s\">"), align );
  89
  90     m_font = false;
  91     m_indent = 0;
  92     m_list = false;
  93
  94     wxRichTextObjectList::compatibility_iterator node = buffer->GetChildren().GetFirst();
  95     while (node)
  96     {
  97         wxRichTextParagraph* para = wxDynamicCast(node->GetData(), wxRichTextParagraph);
  98         wxASSERT (para != NULL);
  99
 100         if (para)
 101         {
 102             OutputParagraphFormatting(currentParaStyle, para->GetAttributes(), stream);
 103
 104             wxRichTextObjectList::compatibility_iterator node2 = para->GetChildren().GetFirst();
 105             while (node2)
 106             {
 107                 wxRichTextObject* obj = node2->GetData();
 108                 wxRichTextPlainText* textObj = wxDynamicCast(obj, wxRichTextPlainText);
 109                 if (textObj && !textObj->IsEmpty())
 110                 {
 111                     BeginCharacterFormatting(currentCharStyle, obj->GetAttributes(), stream);
 112
 113                     str << textObj->GetText();
 114
 115                     EndCharacterFormatting(currentCharStyle, obj->GetAttributes(), stream);
 116                 }
 117
 118                 wxRichTextImage* image = wxDynamicCast(obj, wxRichTextImage);
 119                 if( image && !image->IsEmpty())
 120                     Image_to_Base64( image, stream );
 121
 122                 node2 = node2->GetNext();
 123             }
 124             str << wxT("\n");
 125             //OutputParagraphFormatting(currentParaStyle, para->GetAttributes(), stream, false);
 126         }
 127         node = node->GetNext();
 128     }
 129
 130     str << wxT("</font></td></tr></table></body></html>\n");
 131
 132     return true;
 133 }
 134
 135 void wxRichTextHTMLHandler::BeginCharacterFormatting(const wxTextAttrEx& currentStyle, const wxTextAttrEx& thisStyle, wxOutputStream& stream)
 136 {
 137     wxTextOutputStream str(stream);
 138
 139     //Is the item bulleted one?
 140     if( thisStyle.GetBulletStyle() != wxTEXT_ATTR_BULLET_STYLE_NONE )
 141     {
 142         //Is there any opened list?
 143         if( m_list )
 144         {
 145             //Yes there is
 146
 147             //Is the item among the previous ones
 148             //Is the item one of the previous list tag's child items
 149             if( (thisStyle.GetLeftIndent() == (m_indent + 100)) || (thisStyle.GetLeftIndent() < 100) )
 150                 str << wxT("<li>");//Yes it is
 151             else
 152             {
 153                 //No it isn't
 154
 155                 //So we should close the list tag
 156                 str << (m_is_ul ? wxT("</ul>") : wxT("</ol>"));
 157
 158                 //And renavigate to new list's horizontal position
 159                 NavigateToListPosition(thisStyle, str);
 160                 //Ok it's done
 161
 162                 //Get the appropriate tag, an ol for numerical values, an ul for dot, square etc.
 163                 wxString tag;
 164                 TypeOfList(thisStyle, tag);
 165                 str << tag << wxT("<li>");
 166             }
 167         }
 168         else
 169         {
 170             //No there isn't a list
 171
 172             //navigate to new list's horizontal position(indent)
 173             NavigateToListPosition(thisStyle, str);
 174
 175             //Get the appropriate tag, an ol for numerical values, an ul for dot, square etc.
 176             wxString tag;
 177             TypeOfList(thisStyle, tag);
 178             str << tag << wxT("<li>");
 179
 180             //Now we have a list, mark it.
 181             m_list = true;
 182         }
 183     }
 184     else if( m_list )
 185     {
 186         //The item is not bulleted and there is a list what should be closed now.
 187         //So close the list
 188
 189         str << (m_is_ul ? wxT("</ul>") : wxT("</ol>"));
 190         //And mark as there is no an opened list
 191         m_list = false;
 192     }
 193
 194     // does the item have an indentation ?
 195     if( thisStyle.GetLeftIndent() )
 196     {
 197         if( thisStyle.GetBulletStyle() == wxTEXT_ATTR_BULLET_STYLE_NONE )
 198         {
 199             if( m_indent )
 200             {
 201                 if( (thisStyle.GetLeftIndent() + thisStyle.GetLeftSubIndent()) == m_indent )
 202                 {
 203                     if( thisStyle.GetLeftSubIndent() < 0 )
 204                     {
 205                         str << SymbolicIndent(~thisStyle.GetLeftSubIndent());
 206                     }
 207                 }
 208                 else
 209                 {
 210                     if( thisStyle.GetLeftIndent() + thisStyle.GetLeftSubIndent() > m_indent )
 211                     {
 212                         Indent(thisStyle, str);
 213                         m_indent = thisStyle.GetLeftIndent() + thisStyle.GetLeftSubIndent();
 214                         m_indents.Add( m_indent );
 215                     }
 216                     else
 217                     {
 218                         int i = m_indents.size() - 1;
 219                         for(; i > -1; i--)
 220                         {
 221                             if( m_indent < (thisStyle.GetLeftIndent() + thisStyle.GetLeftSubIndent()) )
 222                             {
 223                                 Indent(thisStyle, str);
 224                                 m_indent = thisStyle.GetLeftIndent() + thisStyle.GetLeftSubIndent();
 225                                 m_indents.Add( m_indent );
 226
 227                                 break;
 228                             }
 229                             else if( m_indent == (thisStyle.GetLeftIndent() + thisStyle.GetLeftSubIndent()) )
 230                             {
 231                                 if( thisStyle.GetLeftSubIndent() < 0 )
 232                                 {
 233                                     str << SymbolicIndent(~thisStyle.GetLeftSubIndent());
 234                                 }
 235                                 break;
 236                             }
 237                             else
 238                             {
 239                                 str << wxT("</td></tr></table>");
 240
 241                                 m_indents.RemoveAt(i);
 242
 243                                 if( i < 1 ){m_indent=0; break;}
 244                                 m_indent = m_indents[i-1];
 245                             }
 246                         }
 247                     }
 248                 }
 249             }
 250             else
 251             {
 252                 Indent(thisStyle, str);
 253                 m_indent = thisStyle.GetLeftIndent() + thisStyle.GetLeftSubIndent();
 254                 m_indents.Add( m_indent );
 255             }
 256         }
 257     }
 258     else if( m_indent )
 259     {
 260         //The item is not indented and there is a table(s) what should be closed now.
 261
 262         //So close them
 263         for(unsigned int i = 0; i < m_indents.size(); i++ )
 264             str << wxT("</td></tr></table>");
 265
 266         m_indent = 0;
 267         m_indents.Clear();
 268     }
 269
 270
 271     wxString style;
 272
 273     //Is there any change on the font properties of the item
 274     if( thisStyle.GetFont().GetFaceName() != currentStyle.GetFont().GetFaceName() )
 275         style += wxString::Format(wxT(" face=\"%s\""), thisStyle.GetFont().GetFaceName().c_str());
 276     if( thisStyle.GetFont().GetPointSize() != currentStyle.GetFont().GetPointSize() )
 277         style += wxString::Format(wxT(" size=\"%ld\""), Pt_To_Size(thisStyle.GetFont().GetPointSize()) );
 278     if( thisStyle.GetTextColour() != currentStyle.GetTextColour() )
 279         style += wxString::Format(wxT(" color=\"%s\""), thisStyle.GetTextColour().GetAsString(wxC2S_HTML_SYNTAX).c_str());
 280
 281     if( style.size() )
 282     {
 283         str << wxString::Format(wxT("<font %s >"), style.c_str());
 284         m_font = true;
 285     }
 286
 287     if( thisStyle.GetFont().GetWeight() == wxBOLD )
 288         str << wxT("<b>");
 289     if( thisStyle.GetFont().GetStyle() == wxITALIC )
 290         str << wxT("<i>");
 291     if( thisStyle.GetFont().GetUnderlined() )
 292         str << wxT("<u>");
 293 }
 294
 295 void wxRichTextHTMLHandler::EndCharacterFormatting(const wxTextAttrEx& WXUNUSED(currentStyle), const wxTextAttrEx& thisStyle, wxOutputStream& stream)
 296 {
 297     wxTextOutputStream str(stream);
 298
 299     if( thisStyle.GetFont().GetUnderlined() )
 300         str << wxT("</u>");
 301     if( thisStyle.GetFont().GetStyle() == wxITALIC )
 302         str << wxT("</i>");
 303     if( thisStyle.GetFont().GetWeight() == wxBOLD )
 304         str << wxT("</b>");
 305
 306     if( m_font )
 307     {
 308         m_font = false;
 309         str << wxT("</font>");
 310     }
 311 }
 312
 313 /// Output paragraph formatting
 314 void wxRichTextHTMLHandler::OutputParagraphFormatting(const wxTextAttrEx& WXUNUSED(currentStyle), const wxTextAttrEx& thisStyle, wxOutputStream& stream)
 315 {
 316     //If there is no opened list currently, insert a <p> after every paragraph
 317     if(!m_list)
 318     {
 319         wxTextOutputStream str(stream);
 320         wxString align = GetAlignment( thisStyle );
 321         str << wxString::Format(wxT("<p align=\"%s\">"), align.c_str());
 322     }
 323 }
 324
 325 void wxRichTextHTMLHandler::NavigateToListPosition(const wxTextAttrEx& thisStyle, wxTextOutputStream& str)
 326 {
 327     //indenting an item using an ul/ol tag is equal to inserting 5 x &nbsp; on its left side.
 328     //so we should start from 100 point left
 329
 330     //Is the second td's left wall of the current indentaion table at the 100+ point-left-side
 331     //of the item, horizontally?
 332     if( m_indent + 100 < thisStyle.GetLeftIndent() )
 333     {
 334         //yes it is
 335         LIndent(thisStyle, str);
 336         m_indent = thisStyle.GetLeftIndent() - 100;
 337         m_indents.Add( m_indent );
 338         return;
 339     }
 340     //No it isn't
 341
 342     int i = m_indents.size() - 1;
 343     for(; i > -1; i--)
 344     {
 345         //Is the second td's left wall of the current indentaion table at the 100+ point-left-side
 346         //of the item ?
 347         if( m_indent + 100 < thisStyle.GetLeftIndent() )
 348         {
 349             //Yes it is
 350             LIndent(thisStyle, str);
 351             m_indent = thisStyle.GetLeftIndent() - 100;
 352             m_indents.Add( m_indent );
 353             break;
 354         }
 355         else if( m_indent + 100 == thisStyle.GetLeftIndent() )
 356             break;//exact match
 357         else
 358         {
 359             //No it is not, the second td's left wall of the current indentaion table is at the
 360             //right side of the current item horizontally, so close it.
 361             str << wxT("</td></tr></table>");
 362
 363             m_indents.RemoveAt(i);
 364
 365             if( i < 1 ){m_indent=0; break;}
 366             m_indent = m_indents[i-1];
 367         }
 368     }
 369 }
 370 void wxRichTextHTMLHandler::Indent( const wxTextAttrEx& thisStyle, wxTextOutputStream& str )
 371 {
 372     //As a five year experienced web developer i assure you there is no way to indent an item
 373     //in html way, but we can use tables.
 374
 375
 376
 377     //Item -> "Hello world"
 378     //Its Left Indentation -> 100
 379     //Its Left Sub-Indentation ->40
 380     //A typical indentation-table for the item will be construct as the following
 381
 382     //3 x nbsp = 60
 383     //2 x nbsp = 40
 384     //LSI = Left Sub Indent
 385     //LI = Left Indent - LSI
 386     //
 387     //-------------------------------------------
 388     //|&nbsp;&nbsp;nbsp;|nbsp;nbsp;Hello World  |
 389     //|      |          |    |                  |
 390     //|        V        |    V                  |
 391     //|      --LI--     | --LSI--               |
 392     //-------------------------------------------
 393
 394     str << wxT("<table width=\"100%\" border=\"0\" cellpadding=\"0\" cellspacing=\"0\"><tr>");
 395
 396     wxString symbolic_indent = SymbolicIndent( (thisStyle.GetLeftIndent() + thisStyle.GetLeftSubIndent()) - m_indent );
 397     str << wxString::Format( wxT("<td>%s</td>"), symbolic_indent.c_str() );
 398     str << wxT("<td width=\"100%\">");
 399
 400     if( thisStyle.GetLeftSubIndent() < 0 )
 401     {
 402         str << SymbolicIndent(~thisStyle.GetLeftSubIndent());
 403     }
 404 }
 405
 406 void wxRichTextHTMLHandler::LIndent( const wxTextAttrEx& thisStyle, wxTextOutputStream& str )
 407 {
 408     //Code:
 409     //r.BeginNumberedBullet(1, 200, 60);
 410     //r.Newline();
 411     //r.WriteText(wxT("first item"));
 412     //r.EndNumberedBullet();
 413     //r.BeginNumberedBullet(2, 200, 60);
 414     //r.Newline();
 415     //r.WriteText(wxT("second item."));
 416     //r.EndNumberedBullet();
 417     //
 418     //A typical indentation-table for the item will be construct as the following
 419
 420     //1 x nbsp = 20 point
 421     //ULI -> 100pt (UL/OL tag indents its sub element by 100 point)
 422     //<--------- 100 pt ---------->|
 423     //------------------------------------------------------
 424     //|&nbsp;&nbsp;nbsp;&nbsp;nbsp;|<ul>                   |
 425     //|                            |<-ULI-><li>first item  |
 426     //|                            |<-ULI-><li>second item |
 427     //|                            |</ul>                  |
 428     //------------------------------------------------------
 429     //                             |<-100->|
 430
 431
 432     str << wxT("<table width=\"100%\" border=\"0\" cellpadding=\"0\" cellspacing=\"0\"><tr>");
 433
 434     wxString symbolic_indent = SymbolicIndent( (thisStyle.GetLeftIndent() - m_indent) - 100);
 435     str << wxString::Format( wxT("<td>%s</td>"), symbolic_indent.c_str() );
 436     str << wxT("<td width=\"100%\">");
 437 }
 438
 439 void wxRichTextHTMLHandler::TypeOfList( const wxTextAttrEx& thisStyle, wxString& tag )
 440 {
 441     //We can use number attribute of li tag but not all the browsers support it.
 442     //also wxHtmlWindow doesn't support type attribute.
 443
 444     m_is_ul = false;
 445     if( thisStyle.GetBulletStyle() == (wxTEXT_ATTR_BULLET_STYLE_ARABIC|wxTEXT_ATTR_BULLET_STYLE_PERIOD))
 446         tag = wxT("<ol type=\"1\">");
 447     else if( thisStyle.GetBulletStyle() == wxTEXT_ATTR_BULLET_STYLE_LETTERS_UPPER )
 448         tag = wxT("<ol type=\"A\">");
 449     else if( thisStyle.GetBulletStyle() == wxTEXT_ATTR_BULLET_STYLE_LETTERS_LOWER )
 450         tag = wxT("<ol type=\"a\">");
 451     else if( thisStyle.GetBulletStyle() == wxTEXT_ATTR_BULLET_STYLE_ROMAN_UPPER )
 452         tag = wxT("<ol type=\"I\">");
 453     else if( thisStyle.GetBulletStyle() == wxTEXT_ATTR_BULLET_STYLE_ROMAN_LOWER )
 454         tag = wxT("<ol type=\"i\">");
 455     else
 456     {
 457         tag = wxT("<ul>");
 458         m_is_ul = true;
 459     }
 460 }
 461
 462 wxString wxRichTextHTMLHandler::GetAlignment( const wxTextAttrEx& thisStyle )
 463 {
 464     switch( thisStyle.GetAlignment() )
 465     {
 466     case wxTEXT_ALIGNMENT_LEFT:
 467         return  wxT("left");
 468     case wxTEXT_ALIGNMENT_RIGHT:
 469         return wxT("right");
 470     case wxTEXT_ALIGNMENT_CENTER:
 471         return wxT("center");
 472     case wxTEXT_ALIGNMENT_JUSTIFIED:
 473         return wxT("justify");
 474     default:
 475         return wxT("left");
 476     }
 477 }
 478
 479 void wxRichTextHTMLHandler::Image_to_Base64(wxRichTextImage* image, wxOutputStream& stream)
 480 {
 481     wxTextOutputStream str(stream);
 482
 483     str << wxT("<img src=\"");
 484     str << wxT("data:");
 485     str << GetMimeType(image->GetImageBlock().GetImageType());
 486     str << wxT(";base64,");
 487
 488     if (image->GetImage().Ok() && !image->GetImageBlock().GetData())
 489         image->MakeBlock();
 490
 491     wxChar* data = b64enc( image->GetImageBlock().GetData(), image->GetImageBlock().GetDataSize() );
 492     str << data;
 493
 494     delete[] data;
 495
 496     str << wxT("\" />");
 497 }
 498
 499 long wxRichTextHTMLHandler::Pt_To_Size(long size)
 500 {
 501     //return most approximate size
 502     if(size < 9 ) return 1;
 503     else if( size < 11 ) return 2;
 504     else if( size < 14 ) return 3;
 505     else if( size < 18 ) return 4;
 506     else if( size < 23 ) return 5;
 507     else if( size < 30 ) return 6;
 508     else return 7;
 509 }
 510
 511 wxString wxRichTextHTMLHandler::SymbolicIndent(long indent)
 512 {
 513     wxString in;
 514     for(;indent > 0; indent -= 20)
 515         in.Append( wxT("&nbsp;") );
 516     return in;
 517 }
 518
 519 const wxChar* wxRichTextHTMLHandler::GetMimeType(int imageType)
 520 {
 521     switch(imageType)
 522     {
 523     case wxBITMAP_TYPE_BMP:
 524         return wxT("image/bmp");
 525     case wxBITMAP_TYPE_TIF:
 526         return wxT("image/tiff");
 527     case wxBITMAP_TYPE_GIF:
 528         return wxT("image/gif");
 529     case wxBITMAP_TYPE_PNG:
 530         return wxT("image/png");
 531     case wxBITMAP_TYPE_JPEG:
 532         return wxT("image/jpeg");
 533     default:
 534         return wxT("image/unknown");
 535     }
 536 }
 537
 538 //exim-style base64 encoder
 539 wxChar* wxRichTextHTMLHandler::b64enc( unsigned char* input, size_t in_len )
 540 {
 541     //elements of enc64 array must be 8 bit values
 542     //otherwise encoder will fail
 543     //hmmm.. Does wxT macro define a char as 16 bit value
 544     //when compiling with UNICODE option?
 545     static const wxChar enc64[] = wxT("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/");
 546     wxChar* output = new wxChar[4*((in_len+2)/3)+1];
 547     wxChar* p = output;
 548
 549     while( in_len-- > 0 )
 550     {
 551         register wxChar a, b;
 552
 553         a = *input++;
 554
 555         *p++ = enc64[ (a >> 2) & 0x3f ];
 556
 557         if( in_len-- <= 0 )
 558         {
 559             *p++ = enc64[ (a << 4 ) & 0x30 ];
 560             *p++ = '=';
 561             *p++ = '=';
 562             break;
 563         }
 564
 565         b = *input++;
 566
 567         *p++ = enc64[(( a << 4 ) | ((b >> 4) &0xf )) & 0x3f];
 568
 569         if( in_len-- <= 0 )
 570         {
 571             *p++ = enc64[ (b << 2) & 0x3f ];
 572             *p++ = '=';
 573             break;
 574         }
 575
 576         a = *input++;
 577
 578         *p++ = enc64[ ((( b << 2 ) & 0x3f ) | ((a >> 6)& 0x3)) & 0x3f ];
 579
 580         *p++ = enc64[ a & 0x3f ];
 581     }
 582     *p = 0;
 583
 584     return output;
 585 }
 586 #endif
 587 // wxUSE_STREAMS
 588
 589 #endif
 590 // wxUSE_RICHTEXT