src/common/mimecmn.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        src/common/mimecmn.cpp
   3 // Purpose:     classes and functions to manage MIME types
   4 // Author:      Vadim Zeitlin
   5 // Modified by:
   6 //  Chris Elliott (biol75@york.ac.uk) 5 Dec 00: write support for Win32
   7 // Created:     23.09.98
   8 // RCS-ID:      $Id$
   9 // Copyright:   (c) 1998 Vadim Zeitlin <zeitlin@dptmaths.ens-cachan.fr>
  10 // Licence:     wxWindows licence (part of wxExtra library)
  11 /////////////////////////////////////////////////////////////////////////////
  12
  13 // ============================================================================
  14 // declarations
  15 // ============================================================================
  16
  17 // ----------------------------------------------------------------------------
  18 // headers
  19 // ----------------------------------------------------------------------------
  20
  21 // for compilers that support precompilation, includes "wx.h".
  22 #include "wx/wxprec.h"
  23
  24 #ifdef __BORLANDC__
  25     #pragma hdrstop
  26 #endif
  27
  28 #if wxUSE_MIMETYPE
  29
  30 #include "wx/mimetype.h"
  31
  32 #ifndef WX_PRECOMP
  33     #include "wx/dynarray.h"
  34     #include "wx/string.h"
  35     #include "wx/intl.h"
  36     #include "wx/log.h"
  37 #endif //WX_PRECOMP
  38
  39 #include "wx/module.h"
  40 #include "wx/file.h"
  41 #include "wx/iconloc.h"
  42 #include "wx/confbase.h"
  43
  44 // other standard headers
  45 #include <ctype.h>
  46
  47 // implementation classes:
  48 #if defined(__WXMSW__)
  49     #include "wx/msw/mimetype.h"
  50 #elif defined(__WXMAC__)
  51     #include "wx/mac/mimetype.h"
  52 #elif defined(__WXPM__) || defined (__EMX__)
  53     #include "wx/os2/mimetype.h"
  54     #undef __UNIX__
  55 #elif defined(__DOS__)
  56     #include "wx/msdos/mimetype.h"
  57 #else // Unix
  58     #include "wx/unix/mimetype.h"
  59 #endif
  60
  61 // ============================================================================
  62 // common classes
  63 // ============================================================================
  64
  65 // ----------------------------------------------------------------------------
  66 // wxFileTypeInfo
  67 // ----------------------------------------------------------------------------
  68
  69 wxFileTypeInfo::wxFileTypeInfo(const wxChar *mimeType,
  70                                const wxChar *openCmd,
  71                                const wxChar *printCmd,
  72                                const wxChar *desc,
  73                                ...)
  74               : m_mimeType(mimeType),
  75                 m_openCmd(openCmd),
  76                 m_printCmd(printCmd),
  77                 m_desc(desc)
  78 {
  79     va_list argptr;
  80     va_start(argptr, desc);
  81
  82     for ( ;; )
  83     {
  84         // icc gives this warning in its own va_arg() macro, argh
  85 #ifdef __INTELC__
  86     #pragma warning(push)
  87     #pragma warning(disable: 1684)
  88 #endif
  89
  90         const wxChar *ext = va_arg(argptr, const wxChar *);
  91
  92 #ifdef __INTELC__
  93     #pragma warning(pop)
  94 #endif
  95         if ( !ext )
  96         {
  97             // NULL terminates the list
  98             break;
  99         }
 100
 101         m_exts.Add(ext);
 102     }
 103
 104     va_end(argptr);
 105 }
 106
 107
 108 wxFileTypeInfo::wxFileTypeInfo(const wxArrayString& sArray)
 109 {
 110     m_mimeType = sArray [0u];
 111     m_openCmd  = sArray [1u];
 112     m_printCmd = sArray [2u];
 113     m_desc     = sArray [3u];
 114
 115     size_t count = sArray.GetCount();
 116     for ( size_t i = 4; i < count; i++ )
 117     {
 118         m_exts.Add(sArray[i]);
 119     }
 120 }
 121
 122 #include "wx/arrimpl.cpp"
 123 WX_DEFINE_OBJARRAY(wxArrayFileTypeInfo)
 124
 125 // ============================================================================
 126 // implementation of the wrapper classes
 127 // ============================================================================
 128
 129 // ----------------------------------------------------------------------------
 130 // wxFileType
 131 // ----------------------------------------------------------------------------
 132
 133 /* static */
 134 wxString wxFileType::ExpandCommand(const wxString& command,
 135                                    const wxFileType::MessageParameters& params)
 136 {
 137     bool hasFilename = false;
 138
 139     wxString str;
 140     for ( const wxChar *pc = command.c_str(); *pc != wxT('\0'); pc++ ) {
 141         if ( *pc == wxT('%') ) {
 142             switch ( *++pc ) {
 143                 case wxT('s'):
 144                     // '%s' expands into file name (quoted because it might
 145                     // contain spaces) - except if there are already quotes
 146                     // there because otherwise some programs may get confused
 147                     // by double double quotes
 148 #if 0
 149                     if ( *(pc - 2) == wxT('"') )
 150                         str << params.GetFileName();
 151                     else
 152                         str << wxT('"') << params.GetFileName() << wxT('"');
 153 #endif
 154                     str << params.GetFileName();
 155                     hasFilename = true;
 156                     break;
 157
 158                 case wxT('t'):
 159                     // '%t' expands into MIME type (quote it too just to be
 160                     // consistent)
 161                     str << wxT('\'') << params.GetMimeType() << wxT('\'');
 162                     break;
 163
 164                 case wxT('{'):
 165                     {
 166                         const wxChar *pEnd = wxStrchr(pc, wxT('}'));
 167                         if ( pEnd == NULL ) {
 168                             wxString mimetype;
 169                             wxLogWarning(_("Unmatched '{' in an entry for mime type %s."),
 170                                          params.GetMimeType().c_str());
 171                             str << wxT("%{");
 172                         }
 173                         else {
 174                             wxString param(pc + 1, pEnd - pc - 1);
 175                             str << wxT('\'') << params.GetParamValue(param) << wxT('\'');
 176                             pc = pEnd;
 177                         }
 178                     }
 179                     break;
 180
 181                 case wxT('n'):
 182                 case wxT('F'):
 183                     // TODO %n is the number of parts, %F is an array containing
 184                     //      the names of temp files these parts were written to
 185                     //      and their mime types.
 186                     break;
 187
 188                 default:
 189                     wxLogDebug(wxT("Unknown field %%%c in command '%s'."),
 190                                *pc, command.c_str());
 191                     str << *pc;
 192             }
 193         }
 194         else {
 195             str << *pc;
 196         }
 197     }
 198
 199     // metamail(1) man page states that if the mailcap entry doesn't have '%s'
 200     // the program will accept the data on stdin so normally we should append
 201     // "< %s" to the end of the command in such case, but not all commands
 202     // behave like this, in particular a common test is 'test -n "$DISPLAY"'
 203     // and appending "< %s" to this command makes the test fail... I don't
 204     // know of the correct solution, try to guess what we have to do.
 205
 206     // test now carried out on reading file so test should never get here
 207     if ( !hasFilename && !str.empty()
 208 #ifdef __UNIX__
 209                       && !str.StartsWith(_T("test "))
 210 #endif // Unix
 211        ) {
 212         str << wxT(" < '") << params.GetFileName() << wxT('\'');
 213     }
 214
 215     return str;
 216 }
 217
 218 wxFileType::wxFileType(const wxFileTypeInfo& info)
 219 {
 220     m_info = &info;
 221     m_impl = NULL;
 222 }
 223
 224 wxFileType::wxFileType()
 225 {
 226     m_info = NULL;
 227     m_impl = new wxFileTypeImpl;
 228 }
 229
 230 wxFileType::~wxFileType()
 231 {
 232     if ( m_impl )
 233         delete m_impl;
 234 }
 235
 236 bool wxFileType::GetExtensions(wxArrayString& extensions)
 237 {
 238     if ( m_info )
 239     {
 240         extensions = m_info->GetExtensions();
 241         return true;
 242     }
 243
 244     return m_impl->GetExtensions(extensions);
 245 }
 246
 247 bool wxFileType::GetMimeType(wxString *mimeType) const
 248 {
 249     wxCHECK_MSG( mimeType, false, _T("invalid parameter in GetMimeType") );
 250
 251     if ( m_info )
 252     {
 253         *mimeType = m_info->GetMimeType();
 254
 255         return true;
 256     }
 257
 258     return m_impl->GetMimeType(mimeType);
 259 }
 260
 261 bool wxFileType::GetMimeTypes(wxArrayString& mimeTypes) const
 262 {
 263     if ( m_info )
 264     {
 265         mimeTypes.Clear();
 266         mimeTypes.Add(m_info->GetMimeType());
 267
 268         return true;
 269     }
 270
 271     return m_impl->GetMimeTypes(mimeTypes);
 272 }
 273
 274 bool wxFileType::GetIcon(wxIconLocation *iconLoc) const
 275 {
 276     if ( m_info )
 277     {
 278         if ( iconLoc )
 279         {
 280             iconLoc->SetFileName(m_info->GetIconFile());
 281 #ifdef __WXMSW__
 282             iconLoc->SetIndex(m_info->GetIconIndex());
 283 #endif // __WXMSW__
 284         }
 285
 286         return true;
 287     }
 288
 289     return m_impl->GetIcon(iconLoc);
 290 }
 291
 292 bool
 293 wxFileType::GetIcon(wxIconLocation *iconloc,
 294                     const MessageParameters& params) const
 295 {
 296     if ( !GetIcon(iconloc) )
 297     {
 298         return false;
 299     }
 300
 301     // we may have "%s" in the icon location string, at least under Windows, so
 302     // expand this
 303     if ( iconloc )
 304     {
 305         iconloc->SetFileName(ExpandCommand(iconloc->GetFileName(), params));
 306     }
 307
 308     return true;
 309 }
 310
 311 bool wxFileType::GetDescription(wxString *desc) const
 312 {
 313     wxCHECK_MSG( desc, false, _T("invalid parameter in GetDescription") );
 314
 315     if ( m_info )
 316     {
 317         *desc = m_info->GetDescription();
 318
 319         return true;
 320     }
 321
 322     return m_impl->GetDescription(desc);
 323 }
 324
 325 bool
 326 wxFileType::GetOpenCommand(wxString *openCmd,
 327                            const wxFileType::MessageParameters& params) const
 328 {
 329     wxCHECK_MSG( openCmd, false, _T("invalid parameter in GetOpenCommand") );
 330
 331     if ( m_info )
 332     {
 333         *openCmd = ExpandCommand(m_info->GetOpenCommand(), params);
 334
 335         return true;
 336     }
 337
 338     return m_impl->GetOpenCommand(openCmd, params);
 339 }
 340
 341 wxString wxFileType::GetOpenCommand(const wxString& filename) const
 342 {
 343     wxString cmd;
 344     if ( !GetOpenCommand(&cmd, filename) )
 345     {
 346         // return empty string to indicate an error
 347         cmd.clear();
 348     }
 349
 350     return cmd;
 351 }
 352
 353 bool
 354 wxFileType::GetPrintCommand(wxString *printCmd,
 355                             const wxFileType::MessageParameters& params) const
 356 {
 357     wxCHECK_MSG( printCmd, false, _T("invalid parameter in GetPrintCommand") );
 358
 359     if ( m_info )
 360     {
 361         *printCmd = ExpandCommand(m_info->GetPrintCommand(), params);
 362
 363         return true;
 364     }
 365
 366     return m_impl->GetPrintCommand(printCmd, params);
 367 }
 368
 369
 370 size_t wxFileType::GetAllCommands(wxArrayString *verbs,
 371                                   wxArrayString *commands,
 372                                   const wxFileType::MessageParameters& params) const
 373 {
 374     if ( verbs )
 375         verbs->Clear();
 376     if ( commands )
 377         commands->Clear();
 378
 379 #if defined (__WXMSW__)  || defined(__UNIX__)
 380     return m_impl->GetAllCommands(verbs, commands, params);
 381 #else // !__WXMSW__ || Unix
 382     // we don't know how to retrieve all commands, so just try the 2 we know
 383     // about
 384     size_t count = 0;
 385     wxString cmd;
 386     if ( GetOpenCommand(&cmd, params) )
 387     {
 388         if ( verbs )
 389             verbs->Add(_T("Open"));
 390         if ( commands )
 391             commands->Add(cmd);
 392         count++;
 393     }
 394
 395     if ( GetPrintCommand(&cmd, params) )
 396     {
 397         if ( verbs )
 398             verbs->Add(_T("Print"));
 399         if ( commands )
 400             commands->Add(cmd);
 401
 402         count++;
 403     }
 404
 405     return count;
 406 #endif // __WXMSW__/| __UNIX__
 407 }
 408
 409 bool wxFileType::Unassociate()
 410 {
 411 #if defined(__WXMSW__)
 412     return m_impl->Unassociate();
 413 #elif defined(__UNIX__)
 414     return m_impl->Unassociate(this);
 415 #else
 416     wxFAIL_MSG( _T("not implemented") ); // TODO
 417     return false;
 418 #endif
 419 }
 420
 421 bool wxFileType::SetCommand(const wxString& cmd,
 422                             const wxString& verb,
 423                             bool overwriteprompt)
 424 {
 425 #if defined (__WXMSW__)  || defined(__UNIX__)
 426     return m_impl->SetCommand(cmd, verb, overwriteprompt);
 427 #else
 428     wxUnusedVar(cmd);
 429     wxUnusedVar(verb);
 430     wxUnusedVar(overwriteprompt);
 431     wxFAIL_MSG(_T("not implemented"));
 432     return false;
 433 #endif
 434 }
 435
 436 bool wxFileType::SetDefaultIcon(const wxString& cmd, int index)
 437 {
 438     wxString sTmp = cmd;
 439 #ifdef __WXMSW__
 440     // VZ: should we do this?
 441     // chris elliott : only makes sense in MS windows
 442     if ( sTmp.empty() )
 443         GetOpenCommand(&sTmp, wxFileType::MessageParameters(wxEmptyString, wxEmptyString));
 444 #endif
 445     wxCHECK_MSG( !sTmp.empty(), false, _T("need the icon file") );
 446
 447 #if defined (__WXMSW__) || defined(__UNIX__)
 448     return m_impl->SetDefaultIcon (cmd, index);
 449 #else
 450     wxUnusedVar(index);
 451     wxFAIL_MSG(_T("not implemented"));
 452     return false;
 453 #endif
 454 }
 455
 456 //----------------------------------------------------------------------------
 457 // wxMimeTypesManagerFactory
 458 //----------------------------------------------------------------------------
 459
 460 wxMimeTypesManagerFactory *wxMimeTypesManagerFactory::m_factory = NULL;
 461
 462 /* static */
 463 void wxMimeTypesManagerFactory::SetFactory( wxMimeTypesManagerFactory *factory )
 464 {
 465     if (wxMimeTypesManagerFactory::m_factory)
 466         delete wxMimeTypesManagerFactory::m_factory;
 467
 468     wxMimeTypesManagerFactory::m_factory = factory;
 469 }
 470
 471 /* static */
 472 wxMimeTypesManagerFactory *wxMimeTypesManagerFactory::GetFactory()
 473 {
 474     if (!wxMimeTypesManagerFactory::m_factory)
 475         wxMimeTypesManagerFactory::m_factory = new wxMimeTypesManagerFactory;
 476
 477     return wxMimeTypesManagerFactory::m_factory;
 478 }
 479
 480 wxMimeTypesManagerImpl *wxMimeTypesManagerFactory::CreateMimeTypesManagerImpl()
 481 {
 482     return new wxMimeTypesManagerImpl;
 483 }
 484
 485 // ----------------------------------------------------------------------------
 486 // wxMimeTypesManager
 487 // ----------------------------------------------------------------------------
 488
 489 void wxMimeTypesManager::EnsureImpl()
 490 {
 491     if ( !m_impl )
 492         m_impl = wxMimeTypesManagerFactory::GetFactory()->CreateMimeTypesManagerImpl();
 493 }
 494
 495 bool wxMimeTypesManager::IsOfType(const wxString& mimeType,
 496                                   const wxString& wildcard)
 497 {
 498     wxASSERT_MSG( mimeType.Find(wxT('*')) == wxNOT_FOUND,
 499                   wxT("first MIME type can't contain wildcards") );
 500
 501     // all comparaisons are case insensitive (2nd arg of IsSameAs() is false)
 502     if ( wildcard.BeforeFirst(wxT('/')).
 503             IsSameAs(mimeType.BeforeFirst(wxT('/')), false) )
 504     {
 505         wxString strSubtype = wildcard.AfterFirst(wxT('/'));
 506
 507         if ( strSubtype == wxT("*") ||
 508              strSubtype.IsSameAs(mimeType.AfterFirst(wxT('/')), false) )
 509         {
 510             // matches (either exactly or it's a wildcard)
 511             return true;
 512         }
 513     }
 514
 515     return false;
 516 }
 517
 518 wxMimeTypesManager::wxMimeTypesManager()
 519 {
 520     m_impl = NULL;
 521 }
 522
 523 wxMimeTypesManager::~wxMimeTypesManager()
 524 {
 525     if ( m_impl )
 526         delete m_impl;
 527 }
 528
 529 bool wxMimeTypesManager::Unassociate(wxFileType *ft)
 530 {
 531 #if defined(__UNIX__) && !defined(__CYGWIN__) && !defined(__WINE__)
 532     return m_impl->Unassociate(ft);
 533 #else
 534     return ft->Unassociate();
 535 #endif
 536 }
 537
 538
 539 wxFileType *
 540 wxMimeTypesManager::Associate(const wxFileTypeInfo& ftInfo)
 541 {
 542     EnsureImpl();
 543
 544 #if defined(__WXMSW__) || defined(__UNIX__)
 545     return m_impl->Associate(ftInfo);
 546 #else // other platforms
 547     wxUnusedVar(ftInfo);
 548     wxFAIL_MSG( _T("not implemented") ); // TODO
 549     return NULL;
 550 #endif // platforms
 551 }
 552
 553 wxFileType *
 554 wxMimeTypesManager::GetFileTypeFromExtension(const wxString& ext)
 555 {
 556     EnsureImpl();
 557     wxFileType *ft = m_impl->GetFileTypeFromExtension(ext);
 558
 559     if ( !ft ) {
 560         // check the fallbacks
 561         //
 562         // TODO linear search is potentially slow, perhaps we should use a
 563         //       sorted array?
 564         size_t count = m_fallbacks.GetCount();
 565         for ( size_t n = 0; n < count; n++ ) {
 566             if ( m_fallbacks[n].GetExtensions().Index(ext) != wxNOT_FOUND ) {
 567                 ft = new wxFileType(m_fallbacks[n]);
 568
 569                 break;
 570             }
 571         }
 572     }
 573
 574     return ft;
 575 }
 576
 577 wxFileType *
 578 wxMimeTypesManager::GetFileTypeFromMimeType(const wxString& mimeType)
 579 {
 580     EnsureImpl();
 581     wxFileType *ft = m_impl->GetFileTypeFromMimeType(mimeType);
 582
 583     if ( !ft ) {
 584         // check the fallbacks
 585         //
 586         // TODO linear search is potentially slow, perhaps we should use a
 587         //      sorted array?
 588         size_t count = m_fallbacks.GetCount();
 589         for ( size_t n = 0; n < count; n++ ) {
 590             if ( wxMimeTypesManager::IsOfType(mimeType,
 591                                               m_fallbacks[n].GetMimeType()) ) {
 592                 ft = new wxFileType(m_fallbacks[n]);
 593
 594                 break;
 595             }
 596         }
 597     }
 598
 599     return ft;
 600 }
 601
 602 bool wxMimeTypesManager::ReadMailcap(const wxString& filename, bool fallback)
 603 {
 604     EnsureImpl();
 605     return m_impl->ReadMailcap(filename, fallback);
 606 }
 607
 608 bool wxMimeTypesManager::ReadMimeTypes(const wxString& filename)
 609 {
 610     EnsureImpl();
 611     return m_impl->ReadMimeTypes(filename);
 612 }
 613
 614 void wxMimeTypesManager::AddFallbacks(const wxFileTypeInfo *filetypes)
 615 {
 616     EnsureImpl();
 617     for ( const wxFileTypeInfo *ft = filetypes; ft && ft->IsValid(); ft++ ) {
 618         AddFallback(*ft);
 619     }
 620 }
 621
 622 size_t wxMimeTypesManager::EnumAllFileTypes(wxArrayString& mimetypes)
 623 {
 624     EnsureImpl();
 625     size_t countAll = m_impl->EnumAllFileTypes(mimetypes);
 626
 627     // add the fallback filetypes
 628     size_t count = m_fallbacks.GetCount();
 629     for ( size_t n = 0; n < count; n++ ) {
 630         if ( mimetypes.Index(m_fallbacks[n].GetMimeType()) == wxNOT_FOUND ) {
 631             mimetypes.Add(m_fallbacks[n].GetMimeType());
 632             countAll++;
 633         }
 634     }
 635
 636     return countAll;
 637 }
 638
 639 void wxMimeTypesManager::Initialize(int mcapStyle,
 640                                     const wxString& sExtraDir)
 641 {
 642 #if defined(__UNIX__) && !defined(__CYGWIN__) && !defined(__WINE__)
 643     EnsureImpl();
 644
 645     m_impl->Initialize(mcapStyle, sExtraDir);
 646 #else
 647     (void)mcapStyle;
 648     (void)sExtraDir;
 649 #endif // Unix
 650 }
 651
 652 // and this function clears all the data from the manager
 653 void wxMimeTypesManager::ClearData()
 654 {
 655 #if defined(__UNIX__) && !defined(__CYGWIN__) && !defined(__WINE__)
 656     EnsureImpl();
 657
 658     m_impl->ClearData();
 659 #endif // Unix
 660 }
 661
 662 // ----------------------------------------------------------------------------
 663 // global data and wxMimeTypeCmnModule
 664 // ----------------------------------------------------------------------------
 665
 666 // private object
 667 static wxMimeTypesManager gs_mimeTypesManager;
 668
 669 // and public pointer
 670 wxMimeTypesManager *wxTheMimeTypesManager = &gs_mimeTypesManager;
 671
 672 class wxMimeTypeCmnModule: public wxModule
 673 {
 674 public:
 675     wxMimeTypeCmnModule() : wxModule() { }
 676     virtual bool OnInit() { return true; }
 677     virtual void OnExit()
 678     {
 679         // this avoids false memory leak allerts:
 680         if ( gs_mimeTypesManager.m_impl != NULL )
 681         {
 682             delete gs_mimeTypesManager.m_impl;
 683             gs_mimeTypesManager.m_impl = NULL;
 684             gs_mimeTypesManager.m_fallbacks.Clear();
 685         }
 686     }
 687
 688     DECLARE_DYNAMIC_CLASS(wxMimeTypeCmnModule)
 689 };
 690
 691 IMPLEMENT_DYNAMIC_CLASS(wxMimeTypeCmnModule, wxModule)
 692
 693 #endif // wxUSE_MIMETYPE