src/html/htmltag.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        htmltag.cpp
   3 // Purpose:     wxHtmlTag class (represents single tag)
   4 // Author:      Vaclav Slavik
   5 // RCS-ID:      $Id$
   6 // Copyright:   (c) 1999 Vaclav Slavik
   7 // Licence:     wxWindows Licence
   8 /////////////////////////////////////////////////////////////////////////////
   9
  10
  11 #ifdef __GNUG__
  12 #pragma implementation
  13 #endif
  14
  15 #include "wx/wxprec.h"
  16
  17 #include "wx/defs.h"
  18 #if wxUSE_HTML
  19
  20 #ifdef __BORDLANDC__
  21 #pragma hdrstop
  22 #endif
  23
  24 #ifndef WXPRECOMP
  25 #endif
  26
  27 #include "wx/html/htmltag.h"
  28 #include "wx/html/htmlpars.h"
  29 #include "wx/colour.h"
  30 #include <stdio.h> // for vsscanf
  31 #include <stdarg.h>
  32
  33
  34 //-----------------------------------------------------------------------------
  35 // wxHtmlTagsCache
  36 //-----------------------------------------------------------------------------
  37
  38 struct wxHtmlCacheItem
  39 {
  40     // this is "pos" value passed to wxHtmlTag's constructor.
  41     // it is position of '<' character of the tag
  42     int Key;
  43
  44     // end positions for the tag:
  45     // end1 is '<' of ending tag,
  46     // end2 is '>' or both are
  47     // -1 if there is no ending tag for this one...
  48     // or -2 if this is ending tag  </...>
  49     int End1, End2;
  50
  51     // name of this tag
  52     wxChar *Name;
  53 };
  54
  55
  56 IMPLEMENT_CLASS(wxHtmlTagsCache,wxObject)
  57
  58 #define CACHE_INCREMENT  64
  59
  60 wxHtmlTagsCache::wxHtmlTagsCache(const wxString& source)
  61 {
  62     const wxChar *src = source.c_str();
  63     int i, tg, pos, stpos;
  64     int lng = source.Length();
  65     wxChar dummy[256];
  66
  67     m_Cache = NULL;
  68     m_CacheSize = 0;
  69     m_CachePos = 0;
  70
  71     pos = 0;
  72     while (pos < lng)
  73     {
  74         if (src[pos] == wxT('<'))   // tag found:
  75         {
  76             if (m_CacheSize % CACHE_INCREMENT == 0)
  77                 m_Cache = (wxHtmlCacheItem*) realloc(m_Cache, (m_CacheSize + CACHE_INCREMENT) * sizeof(wxHtmlCacheItem));
  78             tg = m_CacheSize++;
  79             m_Cache[tg].Key = stpos = pos++;
  80             dummy[0] = 0; i = 0;
  81             while (pos < lng &&
  82                    src[pos] != wxT('>') &&
  83                    src[pos] != wxT(' ') && src[pos] != wxT('\r') &&
  84                    src[pos] != wxT('\n') && src[pos] != wxT('\t'))
  85             {
  86                 dummy[i] = src[pos++];
  87                 if ((dummy[i] >= wxT('a')) && (dummy[i] <= wxT('z'))) dummy[i] -= (wxT('a') - wxT('A'));
  88                 i++;
  89             }
  90             dummy[i] = 0;
  91             m_Cache[tg].Name = new wxChar[i+1];
  92             memcpy(m_Cache[tg].Name, dummy, (i+1)*sizeof(wxChar));
  93
  94             while (pos < lng && src[pos] != wxT('>')) pos++;
  95
  96             if (src[stpos+1] == wxT('/')) // ending tag:
  97             {
  98                 m_Cache[tg].End1 = m_Cache[tg].End2 = -2;
  99                 // find matching begin tag:
 100                 for (i = tg; i >= 0; i--)
 101                     if ((m_Cache[i].End1 == -1) && (wxStrcmp(m_Cache[i].Name, dummy+1) == 0))
 102                     {
 103                         m_Cache[i].End1 = stpos;
 104                         m_Cache[i].End2 = pos + 1;
 105                         break;
 106                     }
 107             }
 108             else
 109             {
 110                 m_Cache[tg].End1 = m_Cache[tg].End2 = -1;
 111             }
 112         }
 113
 114         pos++;
 115     }
 116
 117     // ok, we're done, now we'll free .Name members of cache - we don't need it anymore:
 118     for (i = 0; i < m_CacheSize; i++)
 119     {
 120         delete[] m_Cache[i].Name;
 121         m_Cache[i].Name = NULL;
 122     }
 123 }
 124
 125 void wxHtmlTagsCache::QueryTag(int at, int* end1, int* end2)
 126 {
 127     if (m_Cache == NULL) return;
 128     if (m_Cache[m_CachePos].Key != at)
 129     {
 130         int delta = (at < m_Cache[m_CachePos].Key) ? -1 : 1;
 131         do
 132         {
 133             m_CachePos += delta;
 134         }
 135         while (m_Cache[m_CachePos].Key != at);
 136     }
 137     *end1 = m_Cache[m_CachePos].End1;
 138     *end2 = m_Cache[m_CachePos].End2;
 139 }
 140
 141
 142
 143
 144 //-----------------------------------------------------------------------------
 145 // wxHtmlTag
 146 //-----------------------------------------------------------------------------
 147
 148 IMPLEMENT_CLASS(wxHtmlTag,wxObject)
 149
 150 wxHtmlTag::wxHtmlTag(wxHtmlTag *parent,
 151                      const wxString& source, int pos, int end_pos,
 152                      wxHtmlTagsCache *cache,
 153                      wxHtmlEntitiesParser *entParser) : wxObject()
 154 {
 155     /* Setup DOM relations */
 156
 157     m_Next = NULL;
 158     m_FirstChild = m_LastChild = NULL;
 159     m_Parent = parent;
 160     if (parent)
 161     {
 162         m_Prev = m_Parent->m_LastChild;
 163         if (m_Prev == NULL)
 164             m_Parent->m_FirstChild = this;
 165         else
 166             m_Prev->m_Next = this;
 167         m_Parent->m_LastChild = this;
 168     }
 169     else
 170         m_Prev = NULL;
 171
 172     /* Find parameters and their values: */
 173
 174     int i;
 175     wxChar c;
 176
 177     // fill-in name, params and begin pos:
 178     i = pos+1;
 179
 180     // find tag's name and convert it to uppercase:
 181     while ((i < end_pos) &&
 182            ((c = source[i++]) != wxT(' ') && c != wxT('\r') &&
 183              c != wxT('\n') && c != wxT('\t') &&
 184              c != wxT('>')))
 185     {
 186         if ((c >= wxT('a')) && (c <= wxT('z')))
 187             c -= (wxT('a') - wxT('A'));
 188         m_Name << c;
 189     }
 190
 191     // if the tag has parameters, read them and "normalize" them,
 192     // i.e. convert to uppercase, replace whitespaces by spaces and
 193     // remove whitespaces around '=':
 194     if (source[i-1] != wxT('>'))
 195     {
 196         #define IS_WHITE(c) (c == wxT(' ') || c == wxT('\r') || \
 197                              c == wxT('\n') || c == wxT('\t'))
 198         wxString pname, pvalue;
 199         wxChar quote;
 200         enum
 201         {
 202             ST_BEFORE_NAME = 1,
 203             ST_NAME,
 204             ST_BEFORE_EQ,
 205             ST_BEFORE_VALUE,
 206             ST_VALUE
 207         } state;
 208
 209         quote = 0;
 210         state = ST_BEFORE_NAME;
 211         while (i < end_pos)
 212         {
 213             c = source[i++];
 214
 215             if (c == wxT('>') && !(state == ST_VALUE && quote != 0))
 216             {
 217                 if (state == ST_BEFORE_EQ || state == ST_NAME)
 218                 {
 219                     m_ParamNames.Add(pname);
 220                     m_ParamValues.Add(wxEmptyString);
 221                 }
 222                 else if (state == ST_VALUE && quote == 0)
 223                 {
 224                     m_ParamNames.Add(pname);
 225                     if (entParser)
 226                         m_ParamValues.Add(entParser->Parse(pvalue));
 227                     else
 228                         m_ParamValues.Add(pvalue);
 229                 }
 230                 break;
 231             }
 232             switch (state)
 233             {
 234                 case ST_BEFORE_NAME:
 235                     if (!IS_WHITE(c))
 236                     {
 237                         pname = c;
 238                         state = ST_NAME;
 239                     }
 240                     break;
 241                 case ST_NAME:
 242                     if (IS_WHITE(c))
 243                         state = ST_BEFORE_EQ;
 244                     else if (c == wxT('='))
 245                         state = ST_BEFORE_VALUE;
 246                     else
 247                         pname << c;
 248                     break;
 249                 case ST_BEFORE_EQ:
 250                     if (c == wxT('='))
 251                         state = ST_BEFORE_VALUE;
 252                     else if (!IS_WHITE(c))
 253                     {
 254                         m_ParamNames.Add(pname);
 255                         m_ParamValues.Add(wxEmptyString);
 256                         pname = c;
 257                         state = ST_NAME;
 258                     }
 259                     break;
 260                 case ST_BEFORE_VALUE:
 261                     if (!IS_WHITE(c))
 262                     {
 263                         if (c == wxT('"') || c == wxT('\''))
 264                             quote = c, pvalue = wxEmptyString;
 265                         else
 266                             quote = 0, pvalue = c;
 267                         state = ST_VALUE;
 268                     }
 269                     break;
 270                 case ST_VALUE:
 271                     if ((quote != 0 && c == quote) ||
 272                         (quote == 0 && IS_WHITE(c)))
 273                     {
 274                         m_ParamNames.Add(pname);
 275                         if (quote == 0)
 276                         {
 277                             // VS: backward compatibility, no real reason,
 278                             //     but wxHTML code relies on this... :(
 279                             pvalue.MakeUpper();
 280                         }
 281                         if (entParser)
 282                             m_ParamValues.Add(entParser->Parse(pvalue));
 283                         else
 284                             m_ParamValues.Add(pvalue);
 285                         state = ST_BEFORE_NAME;
 286                     }
 287                     else
 288                         pvalue << c;
 289                     break;
 290             }
 291         }
 292
 293         #undef IS_WHITE
 294    }
 295    m_Begin = i;
 296
 297    cache->QueryTag(pos, &m_End1, &m_End2);
 298    if (m_End1 > end_pos) m_End1 = end_pos;
 299    if (m_End2 > end_pos) m_End2 = end_pos;
 300 }
 301
 302 wxHtmlTag::~wxHtmlTag()
 303 {
 304     wxHtmlTag *t1, *t2;
 305     t1 = m_FirstChild;
 306     while (t1)
 307     {
 308         t2 = t1->GetNextSibling();
 309         delete t1;
 310         t1 = t2;
 311     }
 312 }
 313
 314 bool wxHtmlTag::HasParam(const wxString& par) const
 315 {
 316     return (m_ParamNames.Index(par, FALSE) != wxNOT_FOUND);
 317 }
 318
 319 wxString wxHtmlTag::GetParam(const wxString& par, bool with_commas) const
 320 {
 321     int index = m_ParamNames.Index(par, FALSE);
 322     if (index == wxNOT_FOUND)
 323         return wxEmptyString;
 324     if (with_commas)
 325     {
 326         // VS: backward compatibility, seems to be never used by wxHTML...
 327         wxString s;
 328         s << wxT('"') << m_ParamValues[index] << wxT('"');
 329         return s;
 330     }
 331     else
 332         return m_ParamValues[index];
 333 }
 334
 335 int wxHtmlTag::ScanParam(const wxString& par, wxChar *format, void *param) const
 336 {
 337     wxString parval = GetParam(par);
 338     return wxSscanf(parval, format, param);
 339 }
 340
 341 bool wxHtmlTag::GetParamAsColour(const wxString& par, wxColour *clr) const
 342 {
 343     wxString str = GetParam(par);
 344
 345     if (str.IsEmpty()) return FALSE;
 346     if (str.GetChar(0) == wxT('#'))
 347     {
 348         unsigned long tmp;
 349         if (ScanParam(par, wxT("#%lX"), &tmp) != 1)
 350             return FALSE;
 351         *clr = wxColour((unsigned char)((tmp & 0xFF0000) >> 16),
 352                                             (unsigned char)((tmp & 0x00FF00) >> 8),
 353                                             (unsigned char)(tmp & 0x0000FF));
 354         return TRUE;
 355     }
 356     else
 357     {
 358         // Handle colours defined in HTML 4.0:
 359         #define HTML_COLOUR(name,r,g,b)                 \
 360             if (str.IsSameAs(wxT(name), FALSE))         \
 361                 { *clr = wxColour(r,g,b); return TRUE; }
 362         HTML_COLOUR("black",   0x00,0x00,0x00)
 363         HTML_COLOUR("silver",  0xC0,0xC0,0xC0)
 364         HTML_COLOUR("gray",    0x80,0x80,0x80)
 365         HTML_COLOUR("white",   0xFF,0xFF,0xFF)
 366         HTML_COLOUR("maroon",  0x80,0x00,0x00)
 367         HTML_COLOUR("red",     0xFF,0x00,0x00)
 368         HTML_COLOUR("purple",  0x80,0x00,0x80)
 369         HTML_COLOUR("fuchsia", 0xFF,0x00,0xFF)
 370         HTML_COLOUR("green",   0x00,0x80,0x00)
 371         HTML_COLOUR("lime",    0x00,0xFF,0x00)
 372         HTML_COLOUR("olive",   0x80,0x80,0x00)
 373         HTML_COLOUR("yellow",  0xFF,0xFF,0x00)
 374         HTML_COLOUR("navy",    0x00,0x00,0x80)
 375         HTML_COLOUR("blue",    0x00,0x00,0xFF)
 376         HTML_COLOUR("teal",    0x00,0x80,0x80)
 377         HTML_COLOUR("aqua",    0x00,0xFF,0xFF)
 378         #undef HTML_COLOUR
 379     }
 380
 381     return FALSE;
 382 }
 383
 384 bool wxHtmlTag::GetParamAsInt(const wxString& par, int *clr) const
 385 {
 386     if (!HasParam(par)) return FALSE;
 387     long i;
 388     bool succ = GetParam(par).ToLong(&i);
 389     *clr = (int)i;
 390     return succ;
 391 }
 392
 393 wxString wxHtmlTag::GetAllParams() const
 394 {
 395     // VS: this function is for backward compatiblity only,
 396     //     never used by wxHTML
 397     wxString s;
 398     size_t cnt = m_ParamNames.GetCount();
 399     for (size_t i = 0; i < cnt; i++)
 400     {
 401         s << m_ParamNames[i];
 402         s << wxT('=');
 403         if (m_ParamValues[i].Find(wxT('"')) != wxNOT_FOUND)
 404             s << wxT('\'') << m_ParamValues[i] << wxT('\'');
 405         else
 406             s << wxT('"') << m_ParamValues[i] << wxT('"');
 407     }
 408     return s;
 409 }
 410
 411 wxHtmlTag *wxHtmlTag::GetFirstSibling() const
 412 {
 413     if (m_Parent)
 414         return m_Parent->m_FirstChild;
 415     else
 416     {
 417         wxHtmlTag *cur = (wxHtmlTag*)this;
 418         while (cur->m_Prev)
 419             cur = cur->m_Prev;
 420         return cur;
 421     }
 422 }
 423
 424 wxHtmlTag *wxHtmlTag::GetLastSibling() const
 425 {
 426     if (m_Parent)
 427         return m_Parent->m_LastChild;
 428     else
 429     {
 430         wxHtmlTag *cur = (wxHtmlTag*)this;
 431         while (cur->m_Next)
 432             cur = cur->m_Next;
 433         return cur;
 434     }
 435 }
 436
 437 wxHtmlTag *wxHtmlTag::GetNextTag() const
 438 {
 439     if (m_FirstChild) return m_FirstChild;
 440     if (m_Next) return m_Next;
 441     wxHtmlTag *cur = m_Parent;
 442     if (!cur) return NULL;
 443     while (cur->m_Parent && !cur->m_Next)
 444         cur = cur->m_Parent;
 445     return cur->m_Next;
 446 }
 447
 448 #endif