]> git.saurik.com Git - wxWidgets.git/blob - src/unix/mimetype.cpp
Some doc tweaks
[wxWidgets.git] / src / unix / mimetype.cpp
1
2 /////////////////////////////////////////////////////////////////////////////
3 // Name: unix/mimetype.cpp
4 // Purpose: classes and functions to manage MIME types
5 // Author: Vadim Zeitlin
6 // Modified by:
7 // Created: 23.09.98
8 // RCS-ID: $Id$
9 // Copyright: (c) 1998 Vadim Zeitlin <zeitlin@dptmaths.ens-cachan.fr>
10 // Licence: wxWindows license (part of wxExtra library)
11 /////////////////////////////////////////////////////////////////////////////
12
13 // known bugs; there may be others!! chris elliott, biol75@york.ac.uk 27 Mar 01
14
15 // 1) .mailcap and .mimetypes can be either in a netscape or metamail format
16 // and entries may get confused during writing (I've tried to fix this; please let me know
17 // any files that fail)
18 // 2) KDE and Gnome do not yet fully support international read/write
19 // 3) Gnome key lines like open.latex."LaTeX this file"=latex %f will have odd results
20 // 4) writing to files comments out the existing data; I hope this avoids losing
21 // any data which we could not read, and data which we did not store like test=
22 // 5) results from reading files with multiple entries (especially matches with type/* )
23 // may (or may not) work for getXXX commands
24 // 6) Loading the png icons in Gnome doesn't work for me...
25 // 7) In Gnome, if keys.mime exists but keys.users does not, there is
26 // an error message in debug mode, but the file is still written OK
27 // 8) Deleting entries is only allowed from the user file; sytem wide entries
28 // will be preserved during unassociate
29 // 9) KDE does not yet handle multiple actions; Netscape mode n??ever will
30
31 // ============================================================================
32 // declarations
33 // ============================================================================
34
35 // ----------------------------------------------------------------------------
36 // headers
37 // ----------------------------------------------------------------------------
38
39 #ifdef __GNUG__
40 #pragma implementation "mimetype.h"
41 #endif
42
43 // for compilers that support precompilation, includes "wx.h".
44 #include "wx/wxprec.h"
45
46 #ifdef __BORLANDC__
47 #pragma hdrstop
48 #endif
49
50 #ifndef WX_PRECOMP
51 #include "wx/defs.h"
52 #endif
53
54 #if wxUSE_FILE && wxUSE_TEXTFILE
55
56 #ifndef WX_PRECOMP
57 #include "wx/string.h"
58 #if wxUSE_GUI
59 #include "wx/icon.h"
60
61 #endif
62 #endif //WX_PRECOMP
63
64
65 #include "wx/log.h"
66 #include "wx/file.h"
67 #include "wx/intl.h"
68 #include "wx/dynarray.h"
69 #include "wx/confbase.h"
70
71 #include "wx/ffile.h"
72 #include "wx/textfile.h"
73 #include "wx/dir.h"
74 #include "wx/utils.h"
75 #include "wx/tokenzr.h"
76
77 #include "wx/unix/mimetype.h"
78
79 // other standard headers
80 #include <ctype.h>
81
82 #ifdef __VMS
83 /* silence warnings for comparing unsigned int's <0 */
84 # pragma message disable unscomzer
85 #endif
86
87 // this is a class to extend wxArrayString...
88 class wxMimeArrayString : public wxArrayString
89 {
90 public:
91 wxMimeArrayString ()
92 {
93 wxArrayString ();
94 }
95
96 size_t pIndexOf (const wxString & verb)
97 {
98 size_t i = 0;
99 wxString sTmp = verb;
100 // avoid a problem with modifying const parameter
101 sTmp.MakeLower();
102 while ( (i < GetCount()) && (! Item(i).MakeLower().Contains(sTmp)) )
103 {
104 i++;
105 }
106 if ( i==GetCount() ) i = (size_t)wxNOT_FOUND;
107 return i;
108 }
109
110 bool ReplaceOrAddLineCmd (const wxString verb, const wxString & cmd)
111 {
112 size_t nIndex = pIndexOf (verb);
113 if (nIndex == (size_t)wxNOT_FOUND)
114 Add(verb + wxT("=") + cmd);
115 else
116 Item(nIndex) = verb + wxT("=") + cmd;
117 return TRUE;
118 }
119
120 wxString GetVerb (size_t i)
121 {
122 if (i > GetCount() ) return wxEmptyString;
123 wxString sTmp = Item(i).BeforeFirst(wxT('='));
124 return sTmp;
125 }
126
127 wxString GetCmd (size_t i)
128 {
129 if (i > GetCount() ) return wxEmptyString;
130 wxString sTmp = Item(i).AfterFirst(wxT('='));
131 return sTmp;
132 }
133 };
134
135 //this class extends wxTextFile
136 class wxMimeTextFile : public wxTextFile
137 {
138 public:
139 // constructors
140 wxMimeTextFile () : wxTextFile () {};
141 wxMimeTextFile (const wxString& strFile) : wxTextFile (strFile) { };
142
143 int pIndexOf(const wxString & sSearch, bool bIncludeComments = FALSE, int iStart = 0)
144 {
145 size_t i = iStart;
146 int nResult = wxNOT_FOUND;
147 if (i>=GetLineCount()) return wxNOT_FOUND;
148
149 wxString sTest = sSearch;
150 sTest.MakeLower();
151 wxString sLine;
152
153 if (bIncludeComments)
154 {
155 while ( (i < GetLineCount()) )
156 {
157 sLine = GetLine (i);
158 sLine.MakeLower();
159 if (sLine.Contains(sTest)) nResult = (int) i;
160 i++;
161 }
162 }
163 else
164 {
165 while ( (i < GetLineCount()) )
166 {
167 sLine = GetLine (i);
168 sLine.MakeLower();
169 if ( ! sLine.StartsWith(wxT("#")))
170 {
171 if (sLine.Contains(sTest)) nResult = (int) i;
172 }
173 i++;
174 }
175 }
176 return nResult;
177 }
178
179 bool CommentLine(int nIndex)
180 {
181 if (nIndex <0) return FALSE;
182 if (nIndex >= (int)GetLineCount() ) return FALSE;
183 GetLine(nIndex) = GetLine(nIndex).Prepend(wxT("#"));
184 return TRUE;
185 }
186
187 bool CommentLine(const wxString & sTest)
188 {
189 int nIndex = pIndexOf(sTest);
190 if (nIndex <0) return FALSE;
191 if (nIndex >= (int)GetLineCount() ) return FALSE;
192 GetLine(nIndex) = GetLine(nIndex).Prepend(wxT("#"));
193 return TRUE;
194 }
195
196 wxString GetVerb (size_t i)
197 {
198 if (i > GetLineCount() ) return wxEmptyString;
199 wxString sTmp = GetLine(i).BeforeFirst(wxT('='));
200 return sTmp;
201 }
202
203 wxString GetCmd (size_t i)
204 {
205 if (i > GetLineCount() ) return wxEmptyString;
206 wxString sTmp = GetLine(i).AfterFirst(wxT('='));
207 return sTmp;
208 }
209 };
210
211 // in case we're compiling in non-GUI mode
212 class WXDLLEXPORT wxIcon;
213
214 // ----------------------------------------------------------------------------
215 // constants
216 // ----------------------------------------------------------------------------
217
218 // MIME code tracing mask
219 #define TRACE_MIME _T("mime")
220
221 // ----------------------------------------------------------------------------
222 // private functions
223 // ----------------------------------------------------------------------------
224
225 // there are some fields which we don't understand but for which we don't give
226 // warnings as we know that they're not important - this function is used to
227 // test for them
228 static bool IsKnownUnimportantField(const wxString& field);
229
230 // ----------------------------------------------------------------------------
231 // private classes
232 // ----------------------------------------------------------------------------
233
234
235
236 // This class uses both mailcap and mime.types to gather information about file
237 // types.
238 //
239 // The information about mailcap file was extracted from metamail(1) sources
240 // and documentation and subsequently revised when I found the RFC 1524
241 // describing it.
242 //
243 // Format of mailcap file: spaces are ignored, each line is either a comment
244 // (starts with '#') or a line of the form <field1>;<field2>;...;<fieldN>.
245 // A backslash can be used to quote semicolons and newlines (and, in fact,
246 // anything else including itself).
247 //
248 // The first field is always the MIME type in the form of type/subtype (see RFC
249 // 822) where subtype may be '*' meaning "any". Following metamail, we accept
250 // "type" which means the same as "type/*", although I'm not sure whether this
251 // is standard.
252 //
253 // The second field is always the command to run. It is subject to
254 // parameter/filename expansion described below.
255 //
256 // All the following fields are optional and may not be present at all. If
257 // they're present they may appear in any order, although each of them should
258 // appear only once. The optional fields are the following:
259 // * notes=xxx is an uninterpreted string which is silently ignored
260 // * test=xxx is the command to be used to determine whether this mailcap line
261 // applies to our data or not. The RHS of this field goes through the
262 // parameter/filename expansion (as the 2nd field) and the resulting string
263 // is executed. The line applies only if the command succeeds, i.e. returns 0
264 // exit code.
265 // * print=xxx is the command to be used to print (and not view) the data of
266 // this type (parameter/filename expansion is done here too)
267 // * edit=xxx is the command to open/edit the data of this type
268 // * needsterminal means that a new interactive console must be created for
269 // the viewer
270 // * copiousoutput means that the viewer doesn't interact with the user but
271 // produces (possibly) a lof of lines of output on stdout (i.e. "cat" is a
272 // good example), thus it might be a good idea to use some kind of paging
273 // mechanism.
274 // * textualnewlines means not to perform CR/LF translation (not honored)
275 // * compose and composetyped fields are used to determine the program to be
276 // called to create a new message pert in the specified format (unused).
277 //
278 // Parameter/filename expansion:
279 // * %s is replaced with the (full) file name
280 // * %t is replaced with MIME type/subtype of the entry
281 // * for multipart type only %n is replaced with the nnumber of parts and %F is
282 // replaced by an array of (content-type, temporary file name) pairs for all
283 // message parts (TODO)
284 // * %{parameter} is replaced with the value of parameter taken from
285 // Content-type header line of the message.
286 //
287 //
288 // There are 2 possible formats for mime.types file, one entry per line (used
289 // for global mime.types and called Mosaic format) and "expanded" format where
290 // an entry takes multiple lines (used for users mime.types and called
291 // Netscape format).
292 //
293 // For both formats spaces are ignored and lines starting with a '#' are
294 // comments. Each record has one of two following forms:
295 // a) for "brief" format:
296 // <mime type> <space separated list of extensions>
297 // b) for "expanded" format:
298 // type=<mime type> BACKSLASH
299 // desc="<description>" BACKSLASH
300 // exts="<comma separated list of extensions>"
301 //
302 // (where BACKSLASH is a literal '\\' which we can't put here because cpp
303 // misinterprets it)
304 //
305 // We try to autodetect the format of mime.types: if a non-comment line starts
306 // with "type=" we assume the second format, otherwise the first one.
307
308 // there may be more than one entry for one and the same mime type, to
309 // choose the right one we have to run the command specified in the test
310 // field on our data.
311
312 // ----------------------------------------------------------------------------
313 // wxGNOME
314 // ----------------------------------------------------------------------------
315
316 // GNOME stores the info we're interested in in several locations:
317 // 1. xxx.keys files under /usr/share/mime-info
318 // 2. xxx.keys files under ~/.gnome/mime-info
319 //
320 // The format of xxx.keys file is the following:
321 //
322 // mimetype/subtype:
323 // field=value
324 //
325 // with blank lines separating the entries and indented lines starting with
326 // TABs. We're interested in the field icon-filename whose value is the path
327 // containing the icon.
328 //
329 // Update (Chris Elliott): apparently there may be an optional "[lang]" prefix
330 // just before the field name.
331
332
333 bool wxMimeTypesManagerImpl::CheckGnomeDirsExist ()
334 {
335 wxString gnomedir;
336 wxGetHomeDir( &gnomedir );
337 wxString sTmp = gnomedir;
338 sTmp = sTmp + "/.gnome" ;
339 if (! wxDir::Exists ( sTmp ) )
340 {
341 if (!wxMkdir ( sTmp ))
342 {
343 wxFAIL_MSG (wxString ("Failed to create directory\n.gnome in \nCheckGnomeDirsExist") + sTmp );
344 return FALSE;
345 }
346 }
347 sTmp = sTmp + "/mime-info";
348 if (! wxDir::Exists ( sTmp ) )
349 {
350 if (!wxMkdir ( sTmp ))
351 {
352 wxFAIL_MSG (wxString ("Failed to create directory\nmime-info in \nCheckGnomeDirsExist") + sTmp );
353 return FALSE;
354 }
355 }
356 return TRUE;
357
358 }
359
360
361
362 bool wxMimeTypesManagerImpl::WriteGnomeKeyFile(int index, bool delete_index)
363 {
364 wxString gnomedir;
365 wxGetHomeDir( &gnomedir );
366
367 wxMimeTextFile outfile ( gnomedir + "/.gnome/mime-info/user.keys");
368 // if this fails probably Gnome is not installed ??
369 // create it anyway as a private mime store
370
371 if (! outfile.Open () )
372 {
373 if (delete_index) return FALSE;
374 if (!CheckGnomeDirsExist() ) return FALSE;
375 outfile.Create ();
376 }
377
378 wxString sTmp, strType = m_aTypes[index];
379 int nIndex = outfile.pIndexOf(strType);
380 if ( nIndex == wxNOT_FOUND )
381 {
382 outfile.AddLine ( strType + wxT(':') );
383 // see file:/usr/doc/gnome-libs-devel-1.0.40/devel-docs/mime-type-handling.txt
384 // as this does not deal with internationalisation
385 // wxT( "\t[en_US]") + verb + wxT ('=') + cmd + wxT(" %f");
386 wxMimeArrayString * entries = m_aEntries[index];
387 size_t i;
388 for (i=0; i < entries->GetCount(); i++)
389 {
390 sTmp = entries->Item(i);
391 sTmp.Replace( wxT("%s"), wxT("%f") );
392 sTmp = wxT ( "\t") + sTmp;
393 outfile.AddLine ( sTmp );
394 }
395 //for international use do something like this
396 //outfile.AddLine ( wxString( "\t[en_US]icon-filename=") + cmd );
397 outfile.AddLine ( wxT( "\ticon-filename=") + m_aIcons[index] );
398 }
399 else
400 {
401 if (delete_index) outfile.CommentLine(nIndex);
402 wxMimeArrayString sOld;
403 size_t nOld = nIndex + 1;
404 bool oldEntryEnd = FALSE;
405 while ( (nOld < outfile.GetLineCount() )&& (oldEntryEnd == FALSE ))
406 {
407 sTmp = outfile.GetLine(nOld);
408 if ( (sTmp[0u] == wxT('\t')) || (sTmp[0u] == wxT('#')) )
409 {
410 // we have another line to deal with
411 outfile.CommentLine(nOld);
412 nOld ++;
413 // add the line to our store
414 if ((!delete_index) && (sTmp[0u] == wxT('\t'))) sOld.Add(sTmp);
415 }
416 // next mimetpye ??or blank line
417 else oldEntryEnd = TRUE;
418 }
419 // list of entries in our data; these should all be in sOld,
420 // though sOld may also contain other entries , eg flags
421 if (!delete_index)
422 {
423 wxMimeArrayString * entries = m_aEntries[index];
424 size_t i;
425 for (i=0; i < entries->GetCount(); i++)
426 {
427 // replace any entries in sold that match verbs we know
428 sOld.ReplaceOrAddLineCmd ( entries->GetVerb(i), entries->GetCmd (i) );
429 }
430 //sOld should also contain the icon
431 if ( !m_aIcons[index].IsEmpty() )
432 sOld.ReplaceOrAddLineCmd ( wxT( "icon-filename"), m_aIcons[index] );
433
434 for (i=0; i < sOld.GetCount(); i++)
435 {
436 sTmp = sOld.Item(i);
437 sTmp.Replace( wxT("%s"), wxT("%f") );
438 sTmp = wxT ( "\t") + sTmp;
439 nIndex ++;
440 outfile.InsertLine ( sTmp, nIndex );
441 }
442 }
443 }
444 bool bTmp = outfile.Write ();
445 return bTmp;
446 }
447
448
449 bool wxMimeTypesManagerImpl::WriteGnomeMimeFile(int index, bool delete_index)
450 {
451 wxString gnomedir;
452 wxGetHomeDir( &gnomedir );
453
454 wxMimeTextFile outfile ( gnomedir + "/.gnome/mime-info/user.mime");
455 // if this fails probably Gnome is not installed ??
456 // create it anyway as a private mime store
457 if (! outfile.Open () )
458 {
459 if (delete_index) return FALSE;
460 if (!CheckGnomeDirsExist() ) return FALSE;
461 outfile.Create ();
462 }
463 wxString strType = m_aTypes[index];
464 int nIndex = outfile.pIndexOf(strType);
465 if ( nIndex == wxNOT_FOUND )
466 {
467 outfile.AddLine ( strType );
468 outfile.AddLine ( wxT( "\text:") + m_aExtensions.Item(index) );
469 }
470 else
471 {
472 if (delete_index)
473 {
474 outfile.CommentLine(nIndex);
475 outfile.CommentLine(nIndex+1);
476 }
477 else
478 {// check for next line being the right one to replace ??
479 wxString sOld = outfile.GetLine(nIndex+1);
480 if (sOld.Contains(wxT("\text: ")))
481 {
482 outfile.GetLine(nIndex+1) = wxT( "\text: ") + m_aExtensions.Item(index);
483 }
484 else
485 {
486 outfile.InsertLine(wxT( "\text: ") + m_aExtensions.Item(index), nIndex + 1 );
487 }
488 }
489 }
490 bool bTmp = outfile.Write ();
491 return bTmp;
492 }
493
494
495 void wxMimeTypesManagerImpl::LoadGnomeDataFromKeyFile(const wxString& filename)
496 {
497 wxTextFile textfile(filename);
498 if ( !textfile.Open() )
499 return;
500 wxLogTrace(TRACE_MIME, wxT("--- Opened Gnome file %s ---"),
501 filename.c_str());
502
503 // values for the entry being parsed
504 wxString curMimeType, curIconFile;
505 wxMimeArrayString * entry = new wxMimeArrayString;
506
507 // these are always empty in this file
508 wxArrayString strExtensions;
509 wxString strDesc;
510
511 const wxChar *pc;
512 size_t nLineCount = textfile.GetLineCount();
513 size_t nLine = 0;
514 while ( nLine < nLineCount)
515 {
516 pc = textfile[nLine].c_str();
517 if ( *pc != _T('#') )
518 {
519
520 wxLogTrace(TRACE_MIME, wxT("--- Reading from Gnome file %s '%s' ---"),
521 filename.c_str(),pc);
522
523 wxString sTmp(pc);
524 if (sTmp.Contains(wxT("=")) )
525 {
526 if (sTmp.Contains( wxT("icon-filename=") ) )
527 {
528 curIconFile = sTmp.AfterFirst(wxT('='));
529 }
530 else //: some other field,
531 {
532 //may contain lines like this (RH7)
533 // \t[lang]open.tex."TeX this file"=tex %f
534 // \tflags.tex.flags=needsterminal
535 // \topen.latex."LaTeX this file"=latex %f
536 // \tflags.latex.flags=needsterminal
537
538 // \topen=xdvi %f
539 // \tview=xdvi %f
540 // \topen.convert.Convert file to Postscript=dvips %f -o `basename %f .dvi`.ps
541
542 // for now ignore lines with flags in...FIX
543 sTmp = sTmp.AfterLast(wxT(']'));
544 sTmp = sTmp.AfterLast(wxT('\t'));
545 sTmp.Trim(FALSE).Trim();
546 if (0 == sTmp.Replace ( wxT("%f"), wxT("%s") )) sTmp = sTmp + wxT(" %s");
547 entry->Add(sTmp);
548
549 }
550
551 } // emd of has an equals sign
552 else
553 {
554 // not a comment and not an equals sign
555 if (sTmp.Contains(wxT('/')))
556 {
557 // this is the start of the new mimetype
558 // overwrite any existing data
559 if (! curMimeType.IsEmpty())
560 {
561 AddToMimeData ( curMimeType, curIconFile, entry, strExtensions, strDesc);
562
563 // now get ready for next bit
564 entry = new wxMimeArrayString;
565 }
566 curMimeType = sTmp.BeforeFirst(wxT(':'));
567 }
568 }
569 } // end of not a comment
570 // ignore blank lines
571 nLine ++;
572 } // end of while, save any data
573 if (! curMimeType.IsEmpty())
574 {
575 AddToMimeData ( curMimeType, curIconFile, entry, strExtensions, strDesc);
576 }
577
578 }
579
580
581
582 void wxMimeTypesManagerImpl::LoadGnomeMimeTypesFromMimeFile(const wxString& filename)
583 {
584 wxTextFile textfile(filename);
585 if ( !textfile.Open() )
586 return;
587 wxLogTrace(TRACE_MIME, wxT("--- Opened Gnome file %s ---"),
588 filename.c_str());
589
590 // values for the entry being parsed
591 wxString curMimeType, curExtList;
592
593 const wxChar *pc;
594 size_t nLineCount = textfile.GetLineCount();
595 for ( size_t nLine = 0; ; nLine++ )
596 {
597 if ( nLine < nLineCount )
598 {
599 pc = textfile[nLine].c_str();
600 if ( *pc == _T('#') )
601 {
602 // skip comments
603 continue;
604 }
605 }
606 else
607 {
608 // so that we will fall into the "if" below
609 pc = NULL;
610 }
611
612 if ( !pc || !*pc )
613 {
614 // end of the entry
615 if ( !!curMimeType && !!curExtList )
616 {
617 wxLogTrace(TRACE_MIME, wxT("--- At end of Gnome file finding mimetype %s ---"),
618 curMimeType.c_str());
619
620 AddMimeTypeInfo(curMimeType, curExtList, wxEmptyString);
621 }
622
623 if ( !pc )
624 {
625 // the end - this can only happen if nLine == nLineCount
626 break;
627 }
628
629 curExtList.Empty();
630
631 continue;
632 }
633
634 // what do we have here?
635 if ( *pc == _T('\t') )
636 {
637 // this is a field=value ling
638 pc++; // skip leading TAB
639
640 static const int lenField = 4; // strlen("ext:")
641 if ( wxStrncmp(pc, _T("ext:"), lenField) == 0 )
642 {
643 // skip ' ' which follows and take everything left until the end
644 // of line
645 curExtList = pc + lenField + 1;
646 }
647 //else: some other field, we don't care
648 }
649 else
650 {
651 // this is the start of the new section
652 wxLogTrace(TRACE_MIME, wxT("--- In Gnome file finding mimetype %s ---"),
653 curMimeType.c_str());
654
655 if (! curMimeType.IsEmpty()) AddMimeTypeInfo(curMimeType, curExtList, wxEmptyString);
656
657 curMimeType.Empty();
658
659 while ( *pc != _T(':') && *pc != _T('\0') )
660 {
661 curMimeType += *pc++;
662 }
663 }
664 }
665 }
666
667
668 void wxMimeTypesManagerImpl::LoadGnomeMimeFilesFromDir(const wxString& dirbase)
669 {
670 wxASSERT_MSG( !!dirbase && !wxEndsWithPathSeparator(dirbase),
671 _T("base directory shouldn't end with a slash") );
672
673 wxString dirname = dirbase;
674 dirname << _T("/mime-info");
675
676 if ( !wxDir::Exists(dirname) )
677 return;
678
679 wxDir dir(dirname);
680 if ( !dir.IsOpened() )
681 return;
682
683 // we will concatenate it with filename to get the full path below
684 dirname += _T('/');
685
686 wxString filename;
687 bool cont = dir.GetFirst(&filename, _T("*.mime"), wxDIR_FILES);
688 while ( cont )
689 {
690 LoadGnomeMimeTypesFromMimeFile(dirname + filename);
691
692 cont = dir.GetNext(&filename);
693 }
694
695 cont = dir.GetFirst(&filename, _T("*.keys"), wxDIR_FILES);
696 while ( cont )
697 {
698 LoadGnomeDataFromKeyFile(dirname + filename);
699
700 cont = dir.GetNext(&filename);
701 }
702 }
703
704
705
706
707 void wxMimeTypesManagerImpl::GetGnomeMimeInfo(const wxString& sExtraDir)
708 {
709
710 wxArrayString dirs;
711 dirs.Add(_T("/usr/share"));
712 dirs.Add(_T("/usr/local/share"));
713
714 wxString gnomedir;
715 wxGetHomeDir( &gnomedir );
716 gnomedir += _T("/.gnome");
717 dirs.Add( gnomedir );
718 if (!sExtraDir.IsEmpty()) dirs.Add( sExtraDir );
719
720 size_t nDirs = dirs.GetCount();
721 for ( size_t nDir = 0; nDir < nDirs; nDir++ )
722 {
723 LoadGnomeMimeFilesFromDir(dirs[nDir]);
724 }
725 }
726
727
728
729
730 // end of gnome
731
732 // ----------------------------------------------------------------------------
733 // wxKDE
734 // ----------------------------------------------------------------------------
735
736 // KDE stores the icon info in its .kdelnk files. The file for mimetype/subtype
737 // may be found in either of the following locations
738 //
739 // 1. $KDEDIR/share/mimelnk/mimetype/subtype.kdelnk
740 // 2. ~/.kde/share/mimelnk/mimetype/subtype.kdelnk
741 //
742 // The format of a .kdelnk file is almost the same as the one used by
743 // wxFileConfig, i.e. there are groups, comments and entries. The icon is the
744 // value for the entry "Type"
745
746 // kde writing; see http://webcvs.kde.org/cgi-bin/cvsweb.cgi/~checkout~/kdelibs/kio/DESKTOP_ENTRY_STANDARD
747 // for now write to .kdelnk but should eventually do .desktop instead (in preference??)
748
749 bool wxMimeTypesManagerImpl::CheckKDEDirsExist ( const wxString & sOK, const wxString & sTest )
750
751 {
752 if (sTest.IsEmpty())
753 {
754 if (wxDir::Exists(sOK)) return TRUE;
755 else return FALSE;
756 }
757 else
758 {
759 wxString sStart = sOK + wxT("/") + sTest.BeforeFirst(wxT('/'));
760 if (!wxDir::Exists(sStart)) wxMkdir(sStart);
761 wxString sEnd = sTest.AfterFirst(wxT('/'));
762 return CheckKDEDirsExist(sStart, sEnd);
763 }
764 }
765
766 bool wxMimeTypesManagerImpl::WriteKDEMimeFile(int index, bool delete_index)
767 {
768 wxMimeTextFile appoutfile, mimeoutfile;
769 wxString sHome = wxGetHomeDir();
770 wxString sTmp = wxT(".kde/share/mimelnk/");
771 wxString sMime = m_aTypes[index] ;
772 CheckKDEDirsExist (sHome, sTmp + sMime.BeforeFirst(wxT('/')) );
773 sTmp = sHome + wxT('/') + sTmp + sMime + wxT(".kdelnk");
774
775 bool bTemp;
776 bool bMimeExists = mimeoutfile.Open (sTmp);
777 if (!bMimeExists)
778 {
779 bTemp = mimeoutfile.Create (sTmp);
780 // some unknown error eg out of disk space
781 if (!bTemp) return FALSE;
782 }
783
784 sTmp = wxT(".kde/share/applnk/");
785 CheckKDEDirsExist (sHome, sTmp + sMime.AfterFirst(wxT('/')) );
786 sTmp = sHome + wxT('/') + sTmp + sMime.AfterFirst(wxT('/')) + wxT(".kdelnk");
787
788 bool bAppExists;
789 bAppExists = appoutfile.Open (sTmp);
790 if (!bAppExists)
791 {
792 bTemp = appoutfile.Create (sTmp);
793 // some unknown error eg out of disk space
794 if (!bTemp) return FALSE;
795 }
796
797 // fixed data; write if new file
798 if (!bMimeExists)
799 {
800 mimeoutfile.AddLine(wxT("#KDE Config File"));
801 mimeoutfile.AddLine(wxT("[KDE Desktop Entry]"));
802 mimeoutfile.AddLine(wxT("Version=1.0"));
803 mimeoutfile.AddLine(wxT("Type=MimeType"));
804 mimeoutfile.AddLine(wxT("MimeType=") + sMime);
805 }
806
807 if (!bAppExists)
808 {
809 mimeoutfile.AddLine(wxT("#KDE Config File"));
810 mimeoutfile.AddLine(wxT("[KDE Desktop Entry]"));
811 appoutfile.AddLine(wxT("Version=1.0"));
812 appoutfile.AddLine(wxT("Type=Application"));
813 appoutfile.AddLine(wxT("MimeType=") + sMime + wxT(';'));
814 }
815
816 // variable data
817 // ignore locale
818 mimeoutfile.CommentLine(wxT("Comment="));
819 if (!delete_index)
820 mimeoutfile.AddLine(wxT("Comment=") + m_aDescriptions[index]);
821 appoutfile.CommentLine(wxT("Name="));
822 if (!delete_index)
823 appoutfile.AddLine(wxT("Comment=") + m_aDescriptions[index]);
824
825 sTmp = m_aIcons[index];
826 // we can either give the full path, or the shortfilename if its in
827 // one of the directories we search
828 mimeoutfile.CommentLine(wxT("Icon=") );
829 if (!delete_index) mimeoutfile.AddLine(wxT("Icon=") + sTmp );
830 appoutfile.CommentLine(wxT("Icon=") );
831 if (!delete_index) appoutfile.AddLine(wxT("Icon=") + sTmp );
832
833 sTmp = wxT(" ") + m_aExtensions[index];
834
835 wxStringTokenizer tokenizer(sTmp, _T(" "));
836 sTmp = wxT("Patterns=");
837 mimeoutfile.CommentLine(sTmp);
838 while ( tokenizer.HasMoreTokens() )
839 {
840 // holds an extension; need to change it to *.ext;
841 wxString e = wxT("*.") + tokenizer.GetNextToken() + wxT(";");
842 sTmp = sTmp + e;
843 }
844 if (!delete_index) mimeoutfile.AddLine(sTmp);
845
846 wxMimeArrayString * entries = m_aEntries[index];
847 // if we don't find open just have an empty string ... FIX this
848 size_t iOpen = entries->pIndexOf(wxT("open"));
849 sTmp = entries->GetCmd(iOpen);
850 sTmp.Replace( wxT("%s"), wxT("%f") );
851
852 mimeoutfile.CommentLine(wxT("DefaultApp=") );
853 if (!delete_index) mimeoutfile.AddLine(wxT("DefaultApp=") + sTmp);
854
855 sTmp.Replace( wxT("%f"), wxT("") );
856 appoutfile.CommentLine(wxT("Exec="));
857 if (!delete_index) appoutfile.AddLine(wxT("Exec=") + sTmp);
858
859 if (entries->GetCount() > 1)
860 {
861 //other actions as well as open
862
863 }
864 bTemp = FALSE;
865 if (mimeoutfile.Write ()) bTemp = TRUE;
866 mimeoutfile.Close ();
867 if (appoutfile.Write ()) bTemp = TRUE;
868 appoutfile.Close ();
869
870 return bTemp;
871
872
873 }
874
875 void wxMimeTypesManagerImpl::LoadKDELinksForMimeSubtype(const wxString& dirbase,
876 const wxString& subdir,
877 const wxString& filename,
878 const wxArrayString& icondirs)
879 {
880 wxMimeTextFile file;
881 if ( !file.Open(dirbase + filename) ) return;
882
883 wxMimeArrayString * entry = new wxMimeArrayString;
884 wxArrayString sExts;
885 wxString mimetype, mime_desc, strIcon;
886
887 int nIndex = file.pIndexOf ("MimeType=");
888 if (nIndex == wxNOT_FOUND)
889 {
890 // construct mimetype from the directory name and the basename of the
891 // file (it always has .kdelnk extension)
892 mimetype << subdir << _T('/') << filename.BeforeLast(_T('.'));
893 }
894 else mimetype = file.GetCmd (nIndex);
895
896 // first find the description string: it is the value in either "Comment="
897 // line or "Comment[<locale_name>]=" one
898 nIndex = wxNOT_FOUND;
899
900 wxString comment;
901 #if wxUSE_INTL
902 wxLocale *locale = wxGetLocale();
903 if ( locale )
904 {
905 // try "Comment[locale name]" first
906 comment << _T("Comment[") + locale->GetName() + _T("]=");
907 nIndex = file.pIndexOf(comment);
908 }
909 #endif // wxUSE_INTL
910
911 if ( nIndex == wxNOT_FOUND )
912 {
913 comment = _T("Comment=");
914 nIndex = file.pIndexOf(comment);
915 }
916
917 if ( nIndex != wxNOT_FOUND ) mime_desc = file.GetCmd(nIndex);
918 //else: no description
919
920 // next find the extensions
921 wxString mime_extension;
922
923 nIndex = file.pIndexOf(_T("Patterns="));
924 if ( nIndex != wxNOT_FOUND )
925 {
926 wxString exts = file.GetCmd (nIndex) ;;
927
928 wxStringTokenizer tokenizer(exts, _T(";"));
929 while ( tokenizer.HasMoreTokens() )
930 {
931 wxString e = tokenizer.GetNextToken();
932 if ( e.Left(2) != _T("*.") )
933 continue; // don't support too difficult patterns
934
935 if ( !mime_extension.empty() )
936 {
937 // separate from the previous ext
938 mime_extension << _T(' ');
939 }
940
941 mime_extension << e.Mid(2);
942 }
943 }
944 sExts.Add(mime_extension);
945
946
947 // ok, now we can take care of icon:
948
949 nIndex = file.pIndexOf(_T("Icon="));
950 if ( nIndex != wxNOT_FOUND )
951 {
952 strIcon = file.GetCmd(nIndex);
953 //it could be the real path, but more often a short name
954 if (!wxFileExists(strIcon))
955 {
956 // icon is just the short name
957 if ( !strIcon.IsEmpty() )
958 {
959 // we must check if the file exists because it may be stored
960 // in many locations, at least ~/.kde and $KDEDIR
961 size_t nDir, nDirs = icondirs.GetCount();
962 for ( nDir = 0; nDir < nDirs; nDir++ )
963 if (wxFileExists(icondirs[nDir] + strIcon))
964 {
965 strIcon.Prepend(icondirs[nDir]);
966 break;
967 }
968 }
969 }
970 }
971 // now look for lines which know about the application
972 // exec= or DefaultApp=
973
974 nIndex = file.pIndexOf(wxT("DefaultApp"));
975
976 if ( nIndex == wxNOT_FOUND )
977 {
978 // no entry try exec
979 nIndex = file.pIndexOf(wxT("Exec"));
980 }
981
982 if ( nIndex != wxNOT_FOUND )
983 {
984 wxString sTmp = file.GetCmd(nIndex);
985 // we expect %f; others including %F and %U and %u are possible
986 if (0 == sTmp.Replace ( wxT("%f"), wxT("%s") )) sTmp = sTmp + wxT(" %s");
987 entry->ReplaceOrAddLineCmd (wxString(wxT("open")), sTmp );
988 }
989
990 AddToMimeData (mimetype, strIcon, entry, sExts, mime_desc);
991
992
993 }
994
995 void wxMimeTypesManagerImpl::LoadKDELinksForMimeType(const wxString& dirbase,
996 const wxString& subdir,
997 const wxArrayString& icondirs)
998 {
999 wxString dirname = dirbase;
1000 dirname += subdir;
1001 wxDir dir(dirname);
1002 if ( !dir.IsOpened() )
1003 return;
1004
1005 dirname += _T('/');
1006
1007 wxString filename;
1008 bool cont = dir.GetFirst(&filename, _T("*.kdelnk"), wxDIR_FILES);
1009 while ( cont )
1010 {
1011 LoadKDELinksForMimeSubtype(dirname, subdir, filename, icondirs);
1012
1013 cont = dir.GetNext(&filename);
1014 }
1015 // new standard for Gnome and KDE
1016 cont = dir.GetFirst(&filename, _T("*.desktop"), wxDIR_FILES);
1017 while ( cont )
1018 {
1019 LoadKDELinksForMimeSubtype(dirname, subdir, filename, icondirs);
1020
1021 cont = dir.GetNext(&filename);
1022 }
1023 }
1024
1025 void wxMimeTypesManagerImpl::LoadKDELinkFilesFromDir(const wxString& dirbase,
1026 const wxArrayString& icondirs)
1027 {
1028 wxASSERT_MSG( !!dirbase && !wxEndsWithPathSeparator(dirbase),
1029 _T("base directory shouldn't end with a slash") );
1030
1031 wxString dirname = dirbase;
1032 dirname << _T("/mimelnk");
1033
1034 if ( !wxDir::Exists(dirname) )
1035 return;
1036
1037 wxDir dir(dirname);
1038 if ( !dir.IsOpened() )
1039 return;
1040
1041 // we will concatenate it with dir name to get the full path below
1042 dirname += _T('/');
1043
1044 wxString subdir;
1045 bool cont = dir.GetFirst(&subdir, wxEmptyString, wxDIR_DIRS);
1046 while ( cont )
1047 {
1048 LoadKDELinksForMimeType(dirname, subdir, icondirs);
1049
1050 cont = dir.GetNext(&subdir);
1051 }
1052 }
1053
1054 void wxMimeTypesManagerImpl::GetKDEMimeInfo(const wxString& sExtraDir)
1055 {
1056 wxArrayString dirs;
1057 wxArrayString icondirs;
1058
1059 // settings in ~/.kde have maximal priority
1060 dirs.Add(wxGetHomeDir() + _T("/.kde/share"));
1061 icondirs.Add(wxGetHomeDir() + _T("/.kde/share/icons/"));
1062
1063 // the variable KDEDIR is set when KDE is running
1064 const char *kdedir = getenv("KDEDIR");
1065 if ( kdedir )
1066 {
1067 dirs.Add(wxString(kdedir) + _T("/share"));
1068 icondirs.Add(wxString(kdedir) + _T("/share/icons/"));
1069 }
1070 else
1071 {
1072 // try to guess KDEDIR
1073 dirs.Add(_T("/usr/share"));
1074 dirs.Add(_T("/opt/kde/share"));
1075 icondirs.Add(_T("/usr/share/icons/"));
1076 icondirs.Add(_T("/usr/X11R6/share/icons/")); // Debian/Corel linux
1077 icondirs.Add(_T("/opt/kde/share/icons/"));
1078 }
1079
1080 if (!sExtraDir.IsEmpty()) dirs.Add (sExtraDir);
1081 icondirs.Add(sExtraDir + wxT("/icons"));
1082
1083 size_t nDirs = dirs.GetCount();
1084 for ( size_t nDir = 0; nDir < nDirs; nDir++ )
1085 {
1086 LoadKDELinkFilesFromDir(dirs[nDir], icondirs);
1087 }
1088
1089
1090 }
1091
1092 // end of KDE
1093
1094 // ----------------------------------------------------------------------------
1095 // wxFileTypeImpl (Unix)
1096 // ----------------------------------------------------------------------------
1097
1098
1099 wxString wxFileTypeImpl::GetExpandedCommand(const wxString & verb, const wxFileType::MessageParameters& params) const
1100 {
1101 wxString sTmp;
1102 size_t i = 0;
1103 while ( (i < m_index.GetCount() ) && sTmp.IsEmpty() )
1104 {
1105 sTmp = m_manager->GetCommand ( verb, m_index[i] );
1106 i ++;
1107 }
1108
1109 return wxFileType::ExpandCommand(sTmp, params);
1110 }
1111
1112 bool wxFileTypeImpl::GetIcon(wxIcon *icon,
1113 wxString *iconFile /*= NULL */,
1114 int *iconIndex /*= NULL*/) const
1115
1116 {
1117 #if wxUSE_GUI
1118 wxString sTmp;
1119 size_t i = 0;
1120 while ( (i < m_index.GetCount() ) && sTmp.IsEmpty() )
1121 {
1122 sTmp = m_manager->m_aIcons[m_index[i]];
1123 i ++;
1124 }
1125 if ( sTmp.IsEmpty () ) return FALSE;
1126
1127 wxIcon icn;
1128
1129 if (sTmp.Right(4).MakeUpper() == _T(".XPM"))
1130 icn = wxIcon(sTmp);
1131 else
1132 icn = wxIcon(sTmp, wxBITMAP_TYPE_ANY);
1133
1134 if ( icn.Ok() )
1135 {
1136 *icon = icn;
1137 if (iconFile) *iconFile = sTmp;
1138 if (iconIndex) *iconIndex = 0;
1139 return TRUE;
1140 }
1141 #endif // wxUSE_GUI
1142
1143 return FALSE;
1144 }
1145
1146
1147 bool
1148 wxFileTypeImpl::GetMimeTypes(wxArrayString& mimeTypes) const
1149 {
1150 mimeTypes.Clear();
1151 for (size_t i = 0; i < m_index.GetCount(); i++)
1152 mimeTypes.Add(m_manager->m_aTypes[m_index[i]]);
1153 return TRUE;
1154 }
1155
1156
1157 size_t wxFileTypeImpl::GetAllCommands(wxArrayString *verbs,
1158 wxArrayString *commands,
1159 const wxFileType::MessageParameters& params) const
1160 {
1161
1162 wxString vrb, cmd, sTmp;
1163 size_t count = 0;
1164 wxMimeArrayString * sPairs;
1165
1166 // verbs and commands have been cleared already in mimecmn.cpp...
1167 // if we find no entries in the exact match, try the inexact match
1168 for (size_t n = 0; ((count ==0) && (n < m_index.GetCount())); n++)
1169 {
1170 // list of verb = command pairs for this mimetype
1171 sPairs = m_manager->m_aEntries [m_index[n]];
1172 size_t i;
1173 for ( i = 0; i < sPairs->GetCount () ; i++ )
1174 {
1175 vrb = sPairs->GetVerb(i);
1176 // some gnome entries have . inside
1177 vrb = vrb.AfterLast(wxT('.'));
1178 cmd = sPairs->GetCmd (i);
1179 if (! cmd.IsEmpty() )
1180 {
1181 cmd = wxFileType::ExpandCommand(cmd, params);
1182 count ++;
1183 if ( vrb.IsSameAs (wxT("open")))
1184 {
1185 verbs->Insert(vrb,0u);
1186 commands ->Insert(cmd,0u);
1187 }
1188 else
1189 {
1190 verbs->Add (vrb);
1191 commands->Add (cmd);
1192 }
1193 }
1194
1195 }
1196
1197 }
1198 return count;
1199
1200 }
1201
1202 bool wxFileTypeImpl::GetExtensions(wxArrayString& extensions)
1203 {
1204 wxString strExtensions = m_manager->GetExtension(m_index[0]);
1205 extensions.Empty();
1206
1207 // one extension in the space or comma delimitid list
1208 wxString strExt;
1209 for ( const wxChar *p = strExtensions; ; p++ ) {
1210 if ( *p == wxT(' ') || *p == wxT(',') || *p == wxT('\0') ) {
1211 if ( !strExt.IsEmpty() ) {
1212 extensions.Add(strExt);
1213 strExt.Empty();
1214 }
1215 //else: repeated spaces (shouldn't happen, but it's not that
1216 // important if it does happen)
1217
1218 if ( *p == wxT('\0') )
1219 break;
1220 }
1221 else if ( *p == wxT('.') ) {
1222 // remove the dot from extension (but only if it's the first char)
1223 if ( !strExt.IsEmpty() ) {
1224 strExt += wxT('.');
1225 }
1226 //else: no, don't append it
1227 }
1228 else {
1229 strExt += *p;
1230 }
1231 }
1232
1233 return TRUE;
1234 }
1235
1236 // set an arbitrary command,
1237 // could adjust the code to ask confirmation if it already exists and
1238 // overwriteprompt is TRUE, but this is currently ignored as *Associate* has
1239 // no overwrite prompt
1240 bool wxFileTypeImpl::SetCommand(const wxString& cmd, const wxString& verb, bool overwriteprompt /*= TRUE*/)
1241 {
1242 wxArrayString strExtensions;
1243 wxString strDesc, strIcon ;
1244
1245 wxMimeArrayString *entry = new wxMimeArrayString ();
1246 entry->Add(verb + wxT("=") + cmd + wxT(" %s "));
1247
1248 wxArrayString strTypes;
1249 GetMimeTypes (strTypes);
1250 if (strTypes.GetCount() < 1) return FALSE;
1251
1252 size_t i;
1253 bool Ok = TRUE;
1254 for (i = 0; i < strTypes.GetCount(); i++)
1255 {
1256 if (!m_manager->DoAssociation (strTypes[i], strIcon, entry, strExtensions, strDesc))
1257 Ok = FALSE;
1258 }
1259
1260 return Ok;
1261 }
1262
1263 // ignore index on the grouds that we only have one icon in a Unix file
1264 bool wxFileTypeImpl::SetDefaultIcon(const wxString& strIcon /*= wxEmptyString*/, int /*index = 0*/)
1265 {
1266 if (strIcon.IsEmpty()) return FALSE;
1267 wxArrayString strExtensions;
1268 wxString strDesc;
1269
1270 wxMimeArrayString *entry = new wxMimeArrayString ();
1271
1272 wxArrayString strTypes;
1273 GetMimeTypes (strTypes);
1274 if (strTypes.GetCount() < 1) return FALSE;
1275
1276 size_t i;
1277 bool Ok = TRUE;
1278 for (i = 0; i < strTypes.GetCount(); i++)
1279 {
1280 if (!m_manager->DoAssociation (strTypes[i], strIcon, entry, strExtensions, strDesc))
1281 Ok = FALSE;
1282 }
1283
1284 return Ok;
1285 }
1286 // ----------------------------------------------------------------------------
1287 // wxMimeTypesManagerImpl (Unix)
1288 // ----------------------------------------------------------------------------
1289
1290
1291 wxMimeTypesManagerImpl::wxMimeTypesManagerImpl()
1292 {
1293 m_initialized = FALSE;
1294 m_mailcapStylesInited = 0;
1295 }
1296
1297 // read system and user mailcaps and other files
1298 void wxMimeTypesManagerImpl::Initialize(int mailcapStyles,
1299 const wxString& sExtraDir)
1300 {
1301 // read mimecap amd mime.types
1302 if ( (mailcapStyles & wxMAILCAP_NETSCAPE) ||
1303 (mailcapStyles & wxMAILCAP_STANDARD) )
1304 GetMimeInfo(sExtraDir);
1305
1306 // read GNOME tables
1307 if ( mailcapStyles & wxMAILCAP_GNOME)
1308 GetGnomeMimeInfo(sExtraDir);
1309
1310 // read KDE tables
1311 if ( mailcapStyles & wxMAILCAP_KDE)
1312 GetKDEMimeInfo(sExtraDir);
1313
1314 m_mailcapStylesInited |= mailcapStyles;
1315 }
1316
1317 // clear data so you can read another group of WM files
1318 void wxMimeTypesManagerImpl::ClearData()
1319 {
1320 m_aTypes.Clear ();
1321 m_aIcons.Clear ();
1322 m_aExtensions.Clear ();
1323 m_aDescriptions.Clear ();
1324
1325 size_t cnt = m_aTypes.GetCount();
1326 for (size_t i = 0; i < cnt; i++)
1327 {
1328 m_aEntries[i]->Clear ();
1329 }
1330 m_aEntries.Clear ();
1331 m_mailcapStylesInited = 0;
1332 }
1333
1334 wxMimeTypesManagerImpl::~wxMimeTypesManagerImpl()
1335 {
1336 ClearData(); // do we need to delete the ArrayStrings too to avoid a leak
1337
1338 // delete m_aEntries //fix a leak here ?;
1339 }
1340
1341
1342 void wxMimeTypesManagerImpl::GetMimeInfo (const wxString& sExtraDir)
1343 {
1344 // read this for netscape or Metamail formats
1345
1346 // directories where we look for mailcap and mime.types by default
1347 // used by netscape and pine and other mailers, using 2 different formats!
1348
1349 // (taken from metamail(1) sources)
1350 //
1351 // although RFC 1524 specifies the search path of
1352 // /etc/:/usr/etc:/usr/local/etc only, it doesn't hurt to search in more
1353 // places - OTOH, the RFC also says that this path can be changed with
1354 // MAILCAPS environment variable (containing the colon separated full
1355 // filenames to try) which is not done yet (TODO?)
1356
1357 wxString strHome = wxGetenv(wxT("HOME"));
1358
1359 wxArrayString dirs;
1360 dirs.Add ( wxT("/etc/") );
1361 dirs.Add ( wxT("/usr/etc/") );
1362 dirs.Add ( wxT("/usr/local/etc/") );
1363 dirs.Add ( wxT("/etc/mail/") );
1364 dirs.Add ( wxT("/usr/public/lib/") );
1365 dirs.Add ( strHome + wxT("/.") );
1366 if (!sExtraDir.IsEmpty()) dirs.Add ( sExtraDir + wxT("/") );
1367
1368 size_t nDirs = dirs.GetCount();
1369 for ( size_t nDir = 0; nDir < nDirs; nDir++ )
1370 {
1371 wxString file = dirs[nDir] + wxT("mailcap");
1372 if ( wxFile::Exists(file) ) {
1373 ReadMailcap(file);
1374 }
1375
1376 file = dirs[nDir] + wxT("mime.types");
1377 if ( wxFile::Exists(file) ) {
1378 ReadMimeTypes(file);
1379 }
1380 }
1381
1382 }
1383
1384 bool wxMimeTypesManagerImpl::WriteToMimeTypes (int index, bool delete_index)
1385 {
1386 // check we have the right manager
1387 if (! ( m_mailcapStylesInited & wxMAILCAP_STANDARD) )
1388 return FALSE;
1389
1390 bool bTemp;
1391 wxString strHome = wxGetenv(wxT("HOME"));
1392
1393 // and now the users mailcap
1394 wxString strUserMailcap = strHome + wxT("/.mime.types");
1395
1396 wxMimeTextFile file;
1397 if ( wxFile::Exists(strUserMailcap) )
1398 {
1399 bTemp = file.Open(strUserMailcap);
1400 }
1401 else
1402 {
1403 if (delete_index) return FALSE;
1404 bTemp = file.Create(strUserMailcap);
1405 }
1406 if (bTemp)
1407 {
1408 int nIndex;
1409 // test for netscape's header and return FALSE if its found
1410 nIndex = file.pIndexOf (wxT("#--Netscape"));
1411 if (nIndex != wxNOT_FOUND)
1412 {
1413 wxASSERT_MSG(FALSE,wxT("Error in .mime.types \nTrying to mix Netscape and Metamail formats\nFile not modiifed"));
1414 return FALSE;
1415 }
1416 // write it in alternative format
1417 // get rid of unwanted entries
1418 wxString strType = m_aTypes[index];
1419 nIndex = file.pIndexOf (strType);
1420 // get rid of all the unwanted entries...
1421 if (nIndex != wxNOT_FOUND) file.CommentLine (nIndex);
1422
1423 if (!delete_index)
1424 {
1425 // add the new entries in
1426 wxString sTmp = strType.Append (wxT(' '), 40-strType.Len() );
1427 sTmp = sTmp + m_aExtensions[index];
1428 file.AddLine (sTmp);
1429 }
1430
1431
1432 bTemp = file.Write ();
1433 file.Close ();
1434 }
1435 return bTemp;
1436 }
1437
1438 bool wxMimeTypesManagerImpl::WriteToNSMimeTypes (int index, bool delete_index)
1439 {
1440 //check we have the right managers
1441 if (! ( m_mailcapStylesInited & wxMAILCAP_NETSCAPE) )
1442 return FALSE;
1443
1444 bool bTemp;
1445 wxString strHome = wxGetenv(wxT("HOME"));
1446
1447 // and now the users mailcap
1448 wxString strUserMailcap = strHome + wxT("/.mime.types");
1449
1450 wxMimeTextFile file;
1451 if ( wxFile::Exists(strUserMailcap) )
1452 {
1453 bTemp = file.Open(strUserMailcap);
1454 }
1455 else
1456 {
1457 if (delete_index) return FALSE;
1458 bTemp = file.Create(strUserMailcap);
1459 }
1460 if (bTemp)
1461 {
1462
1463 // write it in the format that Netscape uses
1464 int nIndex;
1465 // test for netscape's header and insert if required...
1466 // this is a comment so use TRUE
1467 nIndex = file.pIndexOf (wxT("#--Netscape"), TRUE);
1468 if (nIndex == wxNOT_FOUND)
1469 {
1470 // either empty file or metamail format
1471 // at present we can't cope with mixed formats, so exit to preseve
1472 // metamail entreies
1473 if (file.GetLineCount () > 0)
1474 {
1475 wxASSERT_MSG(FALSE, wxT(".mime.types File not in Netscape format\nNo entries written to\n.mime.types or to .mailcap"));
1476 return FALSE;
1477 }
1478 file.InsertLine (wxT( "#--Netscape Communications Corporation MIME Information" ), 0);
1479 nIndex = 0;
1480 }
1481
1482 wxString strType = wxT("type=") + m_aTypes[index];
1483 nIndex = file.pIndexOf (strType);
1484 // get rid of all the unwanted entries...
1485 if (nIndex != wxNOT_FOUND)
1486 {
1487 wxString sOld = file[nIndex];
1488 while ( (sOld.Contains(wxT("\\"))) && (nIndex < (int) file.GetLineCount()) )
1489 {
1490 file.CommentLine(nIndex);
1491 sOld = file[nIndex];
1492 wxLogTrace(TRACE_MIME, wxT("--- Deleting from mime.types line '%d %s' ---"), nIndex, sOld.c_str());
1493 nIndex ++;
1494 }
1495 if (nIndex < (int) file.GetLineCount()) file.CommentLine (nIndex);
1496 }
1497 else nIndex = (int) file.GetLineCount();
1498
1499 wxString sTmp = strType + wxT(" \\");
1500 if (!delete_index) file.InsertLine (sTmp, nIndex);
1501 if ( ! m_aDescriptions.Item(index).IsEmpty() )
1502 {
1503 sTmp = wxT("desc=\"") + m_aDescriptions[index]+ wxT("\" \\") ; //.trim ??
1504 if (!delete_index)
1505 {
1506 nIndex ++;
1507 file.InsertLine (sTmp, nIndex);
1508 }
1509 }
1510 wxString sExts = m_aExtensions.Item(index);
1511 sTmp = wxT("exts=\"") + sExts.Trim(FALSE).Trim() + wxT("\"");
1512 if (!delete_index)
1513 {
1514 nIndex ++;
1515 file.InsertLine (sTmp, nIndex);
1516 }
1517
1518 bTemp = file.Write ();
1519 file.Close ();
1520 }
1521 return bTemp;
1522 }
1523
1524
1525 bool wxMimeTypesManagerImpl::WriteToMailCap (int index, bool delete_index)
1526 {
1527 //check we have the right managers
1528 if ( !( ( m_mailcapStylesInited & wxMAILCAP_NETSCAPE) ||
1529 ( m_mailcapStylesInited & wxMAILCAP_STANDARD) ) )
1530 return FALSE;
1531
1532 bool bTemp;
1533 wxString strHome = wxGetenv(wxT("HOME"));
1534
1535 // and now the users mailcap
1536 wxString strUserMailcap = strHome + wxT("/.mailcap");
1537
1538 wxMimeTextFile file;
1539 if ( wxFile::Exists(strUserMailcap) )
1540 {
1541 bTemp = file.Open(strUserMailcap);
1542 }
1543 else
1544 {
1545 if (delete_index) return FALSE;
1546 bTemp = file.Create(strUserMailcap);
1547 }
1548 if (bTemp)
1549 {
1550 // now got a file we can write to ....
1551 wxMimeArrayString * entries = m_aEntries[index];
1552 size_t iOpen = entries->pIndexOf(wxT("open"));
1553 wxString sCmd = entries->GetCmd(iOpen);
1554 wxString sTmp;
1555
1556 sTmp = m_aTypes[index];
1557 wxString sOld;
1558 int nIndex = file.pIndexOf(sTmp);
1559 // get rid of all the unwanted entries...
1560 if (nIndex == wxNOT_FOUND)
1561 {
1562 nIndex = (int) file.GetLineCount();
1563 }
1564 else
1565 {
1566 sOld = file[nIndex];
1567 wxLogTrace(TRACE_MIME, wxT("--- Deleting from mailcap line '%d' ---"), nIndex);
1568
1569 while ( (sOld.Contains(wxT("\\"))) && (nIndex < (int) file.GetLineCount()) )
1570 {
1571 file.CommentLine(nIndex);
1572 if (nIndex < (int) file.GetLineCount()) sOld = sOld + file[nIndex];
1573 }
1574 if (nIndex < (int) file.GetLineCount()) file.CommentLine (nIndex);
1575 }
1576
1577 sTmp = sTmp + wxT(";") + sCmd ; //includes wxT(" %s ");
1578
1579 // write it in the format that Netscape uses (default)
1580 if (! ( m_mailcapStylesInited & wxMAILCAP_STANDARD ) )
1581 {
1582 if (! delete_index) file.InsertLine (sTmp, nIndex);
1583 nIndex ++;
1584 }
1585
1586 // write extended format
1587 else
1588 {
1589 // todo FIX this code;
1590 // ii) lost entries
1591 // sOld holds all the entries, but our data store only has some
1592 // eg test= is not stored
1593
1594 // so far we have written the mimetype and command out
1595 wxStringTokenizer sT (sOld, wxT(";\\"));
1596 if (sT.CountTokens () > 2)
1597 {
1598 // first one mimetype; second one command, rest unknown...
1599 wxString s;
1600 s = sT.GetNextToken();
1601 s = sT.GetNextToken();
1602
1603 // first unknown
1604 s = sT.GetNextToken();
1605 while ( ! s.IsEmpty() )
1606 {
1607 bool bKnownToken = FALSE;
1608 if (s.Contains(wxT("description="))) bKnownToken = TRUE;
1609 if (s.Contains(wxT("x11-bitmap="))) bKnownToken = TRUE;
1610 size_t i;
1611 for (i=0; i < entries->GetCount(); i++)
1612 {
1613 if (s.Contains(entries->GetVerb(i))) bKnownToken = TRUE;
1614 }
1615 if (!bKnownToken)
1616 {
1617 sTmp = sTmp + wxT("; \\");
1618 file.InsertLine (sTmp, nIndex);
1619 sTmp = s;
1620 }
1621 s = sT.GetNextToken ();
1622 }
1623
1624 }
1625
1626 if (! m_aDescriptions[index].IsEmpty() )
1627 {
1628 sTmp = sTmp + wxT("; \\");
1629 file.InsertLine (sTmp, nIndex);
1630 nIndex ++;
1631 sTmp = wxT(" description=\"") + m_aDescriptions[index] + wxT("\"");
1632 }
1633
1634 if (! m_aIcons[index].IsEmpty() )
1635 {
1636 sTmp = sTmp + wxT("; \\");
1637 file.InsertLine (sTmp, nIndex);
1638 nIndex ++;
1639 sTmp = wxT(" x11-bitmap=\"") + m_aIcons[index] + wxT("\"");
1640 }
1641 if ( entries->GetCount() > 1 )
1642
1643 {
1644 size_t i;
1645 for (i=0; i < entries->GetCount(); i++)
1646 if ( i != iOpen )
1647 {
1648 sTmp = sTmp + wxT("; \\");
1649 file.InsertLine (sTmp, nIndex);
1650 nIndex ++;
1651 sTmp = wxT(" ") + entries->Item(i);
1652 }
1653 }
1654
1655 file.InsertLine (sTmp, nIndex);
1656 nIndex ++;
1657
1658 }
1659 bTemp = file.Write ();
1660 file.Close ();
1661 }
1662 return bTemp;
1663 }
1664
1665 wxFileType *
1666 wxMimeTypesManagerImpl::Associate(const wxFileTypeInfo& ftInfo)
1667 {
1668 InitIfNeeded();
1669
1670 wxString strType = ftInfo.GetMimeType ();
1671 wxString strDesc = ftInfo.GetDescription ();
1672 wxString strIcon = ftInfo.GetIconFile ();
1673
1674 wxMimeArrayString *entry = new wxMimeArrayString ();
1675
1676 if ( ! ftInfo.GetOpenCommand().IsEmpty())
1677 entry->Add(wxT("open=") + ftInfo.GetOpenCommand () + wxT(" %s "));
1678 if ( ! ftInfo.GetPrintCommand ().IsEmpty())
1679 entry->Add(wxT("print=") + ftInfo.GetPrintCommand () + wxT(" %s "));
1680
1681 // now find where these extensions are in the data store and remove them
1682 wxArrayString sA_Exts = ftInfo.GetExtensions ();
1683 wxString sExt, sExtStore;
1684 size_t i, nIndex;
1685 for (i=0; i < sA_Exts.GetCount(); i++)
1686 {
1687 sExt = sA_Exts.Item(i);
1688 //clean up to just a space before and after
1689 sExt.Trim().Trim(FALSE);
1690 sExt = wxT(' ') + sExt + wxT(' ');
1691 for (nIndex = 0; nIndex < m_aExtensions.GetCount(); nIndex ++)
1692 {
1693 sExtStore = m_aExtensions.Item(nIndex);
1694 if (sExtStore.Replace(sExt, wxT(" ") ) > 0) m_aExtensions.Item(nIndex) = sExtStore ;
1695 }
1696
1697 }
1698
1699 if ( !DoAssociation (strType, strIcon, entry, sA_Exts, strDesc) )
1700 return NULL;
1701
1702 return GetFileTypeFromMimeType(strType);
1703 }
1704
1705
1706 bool wxMimeTypesManagerImpl::DoAssociation(const wxString& strType,
1707 const wxString& strIcon,
1708 wxMimeArrayString *entry,
1709 const wxArrayString& strExtensions,
1710 const wxString& strDesc)
1711 {
1712 int nIndex = AddToMimeData(strType, strIcon, entry, strExtensions, strDesc, TRUE);
1713
1714 if ( nIndex == wxNOT_FOUND )
1715 return FALSE;
1716
1717 return WriteMimeInfo (nIndex, FALSE);
1718 }
1719
1720 bool wxMimeTypesManagerImpl::WriteMimeInfo(int nIndex, bool delete_mime )
1721 {
1722 bool ok = TRUE;
1723
1724 if ( m_mailcapStylesInited & wxMAILCAP_STANDARD )
1725 {
1726 // write in metamail format;
1727 if (WriteToMimeTypes (nIndex, delete_mime) )
1728 if ( WriteToMailCap (nIndex, delete_mime) )
1729 ok = FALSE;
1730 }
1731 if ( m_mailcapStylesInited & wxMAILCAP_NETSCAPE )
1732 {
1733 // write in netsacpe format;
1734 if (WriteToNSMimeTypes (nIndex, delete_mime) )
1735 if ( WriteToMailCap (nIndex, delete_mime) )
1736 ok = FALSE;
1737 }
1738 if (m_mailcapStylesInited & wxMAILCAP_GNOME)
1739 {
1740 // write in Gnome format;
1741 if (WriteGnomeMimeFile (nIndex, delete_mime) )
1742 if (WriteGnomeKeyFile (nIndex, delete_mime) )
1743 ok = FALSE;
1744 }
1745 if (m_mailcapStylesInited & wxMAILCAP_KDE)
1746 {
1747 // write in KDE format;
1748 if (WriteKDEMimeFile (nIndex, delete_mime) )
1749 ok = FALSE;
1750 }
1751
1752 return ok;
1753 }
1754
1755 int wxMimeTypesManagerImpl::AddToMimeData(const wxString& strType,
1756 const wxString& strIcon,
1757 wxMimeArrayString *entry,
1758 const wxArrayString& strExtensions,
1759 const wxString& strDesc,
1760 bool ReplaceExisting)
1761 {
1762 InitIfNeeded();
1763
1764 wxLogTrace(TRACE_MIME, wxT("In Add to Mime data '%s' with %d entries and %d exts ---"),
1765 strType.c_str(), entry->GetCount(), strExtensions.GetCount() );
1766
1767 // ensure mimetype is always lower case
1768 wxString mimeType = strType;
1769 mimeType.MakeLower();
1770 int nIndex = m_aTypes.Index(mimeType);
1771 if ( nIndex == wxNOT_FOUND )
1772 {
1773 // new file type
1774 m_aTypes.Add(mimeType);
1775 m_aIcons.Add(strIcon);
1776 m_aEntries.Add(entry);
1777 size_t i;
1778 // change nIndex so we can add to the correct line
1779 nIndex = m_aExtensions.Add(wxT(' '));
1780 for (i = 0; i < strExtensions.GetCount(); i ++)
1781 {
1782 if (! m_aExtensions.Item(nIndex).Contains(wxT(' ') + strExtensions.Item(i) + wxT(' ')))
1783 m_aExtensions.Item(nIndex) += strExtensions.Item(i) + wxT(' ');
1784 }
1785 m_aDescriptions.Add(strDesc);
1786
1787 }
1788 else
1789 {
1790 // nIndex has the existing data
1791 // always add the extensions to this mimetype
1792 size_t i;
1793 for (i = 0; i < strExtensions.GetCount(); i ++)
1794 {
1795 if (! m_aExtensions.Item(nIndex).Contains(wxT(' ') + strExtensions.Item(i) + wxT(' ')))
1796 m_aExtensions.Item(nIndex) += strExtensions.Item(i) + wxT(' ');
1797 }
1798 if (ReplaceExisting)
1799 {
1800 // if new description change it
1801 if ( ! strDesc.IsEmpty())
1802 m_aDescriptions[nIndex] = strDesc;
1803
1804 // if new icon change it
1805 if ( ! strIcon.IsEmpty())
1806 m_aIcons[nIndex] = strIcon;
1807
1808 wxMimeArrayString *entryOld = m_aEntries[nIndex];
1809 // replace any matching entries...
1810 for (i=0; i < entry->GetCount(); i++)
1811 entryOld->ReplaceOrAddLineCmd (entry->GetVerb(i),
1812 entry->GetCmd (i) );
1813 }
1814 else
1815 {
1816 // add data we don't already have ...
1817 // if new description add only if none
1818 if ( ! strDesc.IsEmpty() && m_aDescriptions.Item(i).IsEmpty() )
1819 m_aDescriptions[nIndex] = strDesc;
1820
1821 // if new icon and no existing icon
1822 if ( ! strIcon.IsEmpty() && m_aIcons.Item(i). IsEmpty () )
1823 m_aIcons[nIndex] = strIcon;
1824
1825 wxMimeArrayString *entryOld = m_aEntries[nIndex];
1826 // add any new entries...
1827 for (i=0; i < entry->GetCount(); i++)
1828 {
1829 wxString sVerb = entry->GetVerb(i);
1830 if ( entryOld->pIndexOf ( sVerb ) == (size_t) wxNOT_FOUND )
1831 entryOld->Add (entry->Item(i));
1832 }
1833 }
1834 }
1835
1836 // check data integrity
1837 wxASSERT( m_aTypes.Count() == m_aEntries.Count() &&
1838 m_aTypes.Count() == m_aExtensions.Count() &&
1839 m_aTypes.Count() == m_aIcons.Count() &&
1840 m_aTypes.Count() == m_aDescriptions.Count() );
1841
1842 return nIndex;
1843 }
1844
1845
1846 wxFileType *
1847 wxMimeTypesManagerImpl::GetFileTypeFromExtension(const wxString& ext)
1848 {
1849 if (ext.IsEmpty() )
1850 return NULL;
1851
1852 InitIfNeeded();
1853
1854 wxFileType *fileType = NULL;
1855 size_t count = m_aExtensions.GetCount();
1856 for ( size_t n = 0; n < count; n++ )
1857 {
1858 wxString extensions = m_aExtensions[n];
1859 while ( !extensions.IsEmpty() ) {
1860 wxString field = extensions.BeforeFirst(wxT(' '));
1861 extensions = extensions.AfterFirst(wxT(' '));
1862
1863 // consider extensions as not being case-sensitive
1864 if ( field.IsSameAs(ext, FALSE /* no case */) )
1865 {
1866 // found
1867 if (fileType == NULL) fileType = new wxFileType;
1868 fileType->m_impl->Init(this, n);
1869 // adds this mime type to _list_ of mime types with this extension
1870 }
1871 }
1872 }
1873
1874 return fileType;
1875 }
1876
1877 wxFileType *
1878 wxMimeTypesManagerImpl::GetFileTypeFromMimeType(const wxString& mimeType)
1879 {
1880 InitIfNeeded();
1881
1882 wxFileType * fileType = NULL;
1883 // mime types are not case-sensitive
1884 wxString mimetype(mimeType);
1885 mimetype.MakeLower();
1886
1887 // first look for an exact match
1888 int index = m_aTypes.Index(mimetype);
1889 if ( index != wxNOT_FOUND )
1890 {
1891 fileType = new wxFileType;
1892 fileType->m_impl->Init(this, index);
1893 }
1894
1895 // then try to find "text/*" as match for "text/plain" (for example)
1896 // NB: if mimeType doesn't contain '/' at all, BeforeFirst() will return
1897 // the whole string - ok.
1898
1899 index = wxNOT_FOUND;
1900 wxString strCategory = mimetype.BeforeFirst(wxT('/'));
1901
1902 size_t nCount = m_aTypes.Count();
1903 for ( size_t n = 0; n < nCount; n++ ) {
1904 if ( (m_aTypes[n].BeforeFirst(wxT('/')) == strCategory ) &&
1905 m_aTypes[n].AfterFirst(wxT('/')) == wxT("*") ) {
1906 index = n;
1907 break;
1908 }
1909
1910 }
1911
1912 if ( index != wxNOT_FOUND )
1913 {
1914 fileType = new wxFileType;
1915 fileType->m_impl->Init(this, index);
1916 }
1917 return fileType;
1918 }
1919
1920
1921 wxString wxMimeTypesManagerImpl::GetCommand(const wxString & verb, size_t nIndex) const
1922 {
1923 wxString command, testcmd, sV, sTmp;
1924 sV = verb + wxT("=");
1925 // list of verb = command pairs for this mimetype
1926 wxMimeArrayString * sPairs = m_aEntries [nIndex];
1927
1928 size_t i;
1929 for ( i = 0; i < sPairs->GetCount () ; i++ )
1930 {
1931 sTmp = sPairs->Item (i);
1932 if ( sTmp.Contains(sV) ) command = sTmp.AfterFirst(wxT('='));
1933 }
1934 return command;
1935 }
1936
1937 void wxMimeTypesManagerImpl::AddFallback(const wxFileTypeInfo& filetype)
1938 {
1939 InitIfNeeded();
1940
1941 wxString extensions;
1942 const wxArrayString& exts = filetype.GetExtensions();
1943 size_t nExts = exts.GetCount();
1944 for ( size_t nExt = 0; nExt < nExts; nExt++ ) {
1945 if ( nExt > 0 ) {
1946 extensions += wxT(' ');
1947 }
1948 extensions += exts[nExt];
1949 }
1950
1951 AddMimeTypeInfo(filetype.GetMimeType(),
1952 extensions,
1953 filetype.GetDescription());
1954
1955 AddMailcapInfo(filetype.GetMimeType(),
1956 filetype.GetOpenCommand(),
1957 filetype.GetPrintCommand(),
1958 wxT(""),
1959 filetype.GetDescription());
1960 }
1961
1962 void wxMimeTypesManagerImpl::AddMimeTypeInfo(const wxString& strMimeType,
1963 const wxString& strExtensions,
1964 const wxString& strDesc)
1965 {
1966 // reading mailcap may find image/* , while
1967 // reading mime.types finds image/gif and no match is made
1968 // this means all the get functions don't work fix this
1969 wxString strIcon;
1970 wxString sTmp = strExtensions;
1971 wxMimeArrayString * entry = new wxMimeArrayString () ;
1972
1973 wxArrayString sExts;
1974 sTmp.Trim().Trim(FALSE);
1975
1976 while (!sTmp.IsEmpty())
1977 {
1978 sExts.Add (sTmp.AfterLast(wxT(' ')));
1979 sTmp = sTmp.BeforeLast(wxT(' '));
1980 }
1981
1982 AddToMimeData (strMimeType, strIcon, entry, sExts, strDesc, (bool)TRUE);
1983 }
1984
1985 void wxMimeTypesManagerImpl::AddMailcapInfo(const wxString& strType,
1986 const wxString& strOpenCmd,
1987 const wxString& strPrintCmd,
1988 const wxString& strTest,
1989 const wxString& strDesc)
1990 {
1991 InitIfNeeded();
1992
1993 wxMimeArrayString *entry = new wxMimeArrayString;
1994 entry->Add(wxT("open=") + strOpenCmd);
1995 entry->Add(wxT("print=") + strPrintCmd);
1996 entry->Add(wxT("test=") + strTest);
1997
1998 wxString strIcon;
1999 wxArrayString strExtensions;
2000
2001 AddToMimeData (strType, strIcon, entry, strExtensions, strDesc, TRUE);
2002
2003 }
2004
2005 bool wxMimeTypesManagerImpl::ReadMimeTypes(const wxString& strFileName)
2006 {
2007 wxLogTrace(TRACE_MIME, wxT("--- Parsing mime.types file '%s' ---"),
2008 strFileName.c_str());
2009
2010 wxTextFile file(strFileName);
2011 if ( !file.Open() )
2012 return FALSE;
2013
2014 // the information we extract
2015 wxString strMimeType, strDesc, strExtensions;
2016
2017 size_t nLineCount = file.GetLineCount();
2018 const wxChar *pc = NULL;
2019 for ( size_t nLine = 0; nLine < nLineCount; nLine++ ) {
2020 if ( pc == NULL ) {
2021 // now we're at the start of the line
2022 pc = file[nLine].c_str();
2023 }
2024 else {
2025 // we didn't finish with the previous line yet
2026 nLine--;
2027 }
2028
2029 // skip whitespace
2030 while ( wxIsspace(*pc) )
2031 pc++;
2032
2033 // comment or blank line?
2034 if ( *pc == wxT('#') || !*pc ) {
2035 // skip the whole line
2036 pc = NULL;
2037 continue;
2038 }
2039
2040 // detect file format
2041 const wxChar *pEqualSign = wxStrchr(pc, wxT('='));
2042 if ( pEqualSign == NULL ) {
2043 // brief format
2044 // ------------
2045
2046 // first field is mime type
2047 for ( strMimeType.Empty(); !wxIsspace(*pc) && *pc != wxT('\0'); pc++ ) {
2048 strMimeType += *pc;
2049 }
2050
2051 // skip whitespace
2052 while ( wxIsspace(*pc) )
2053 pc++;
2054
2055 // take all the rest of the string
2056 strExtensions = pc;
2057
2058 // no description...
2059 strDesc.Empty();
2060 }
2061 else {
2062 // expanded format
2063 // ---------------
2064
2065 // the string on the left of '=' is the field name
2066 wxString strLHS(pc, pEqualSign - pc);
2067
2068 // eat whitespace
2069 for ( pc = pEqualSign + 1; wxIsspace(*pc); pc++ )
2070 ;
2071
2072 const wxChar *pEnd;
2073 if ( *pc == wxT('"') ) {
2074 // the string is quoted and ends at the matching quote
2075 pEnd = wxStrchr(++pc, wxT('"'));
2076 if ( pEnd == NULL ) {
2077 wxLogWarning(_("Mime.types file %s, line %d: unterminated "
2078 "quoted string."),
2079 strFileName.c_str(), nLine + 1);
2080 }
2081 }
2082 else {
2083 // unquoted string ends at the first space or at the end of
2084 // line
2085 for ( pEnd = pc; *pEnd && !wxIsspace(*pEnd); pEnd++ )
2086 ;
2087 }
2088
2089 // now we have the RHS (field value)
2090 wxString strRHS(pc, pEnd - pc);
2091
2092 // check what follows this entry
2093 if ( *pEnd == wxT('"') ) {
2094 // skip this quote
2095 pEnd++;
2096 }
2097
2098 for ( pc = pEnd; wxIsspace(*pc); pc++ )
2099 ;
2100
2101 // if there is something left, it may be either a '\\' to continue
2102 // the line or the next field of the same entry
2103 bool entryEnded = *pc == wxT('\0'),
2104 nextFieldOnSameLine = FALSE;
2105 if ( !entryEnded ) {
2106 nextFieldOnSameLine = ((*pc != wxT('\\')) || (pc[1] != wxT('\0')));
2107 }
2108
2109 // now see what we got
2110 if ( strLHS == wxT("type") ) {
2111 strMimeType = strRHS;
2112 }
2113 else if ( strLHS == wxT("desc") ) {
2114 strDesc = strRHS;
2115 }
2116 else if ( strLHS == wxT("exts") ) {
2117 strExtensions = strRHS;
2118 }
2119 else {
2120 wxLogWarning(_("Unknown field in file %s, line %d: '%s'."),
2121 strFileName.c_str(), nLine + 1, strLHS.c_str());
2122 }
2123
2124 if ( !entryEnded ) {
2125 if ( !nextFieldOnSameLine )
2126 pc = NULL;
2127 //else: don't reset it
2128
2129 // as we don't reset strMimeType, the next field in this entry
2130 // will be interpreted correctly.
2131
2132 continue;
2133 }
2134 }
2135
2136 // depending on the format (Mosaic or Netscape) either space or comma
2137 // is used to separate the extensions
2138 strExtensions.Replace(wxT(","), wxT(" "));
2139
2140 // also deal with the leading dot
2141 if ( !strExtensions.IsEmpty() && strExtensions[0u] == wxT('.') )
2142 {
2143 strExtensions.erase(0, 1);
2144 }
2145
2146 wxLogTrace(TRACE_MIME, wxT("--- Found Mimetype '%s' ---"),
2147 strMimeType.c_str());
2148
2149 AddMimeTypeInfo(strMimeType, strExtensions, strDesc);
2150
2151 // finished with this line
2152 pc = NULL;
2153 }
2154
2155 return TRUE;
2156 }
2157
2158 bool wxMimeTypesManagerImpl::ReadMailcap(const wxString& strFileName,
2159 bool fallback)
2160 {
2161 // wxLog::AddTraceMask (TRACE_MIME);
2162 wxLogTrace(TRACE_MIME, wxT("--- Parsing mailcap file '%s' ---"),
2163 strFileName.c_str());
2164
2165 wxTextFile file(strFileName);
2166 if ( !file.Open() )
2167 return FALSE;
2168
2169 // see the comments near the end of function for the reason we need these
2170 // variables (search for the next occurence of them)
2171 // indices of MIME types (in m_aTypes) we already found in this file
2172 wxArrayInt aEntryIndices;
2173 // aLastIndices[n] is the index of last element in
2174 // m_aEntries[aEntryIndices[n]] from this file
2175 // wxArrayInt aLastIndices;
2176
2177 size_t nLineCount = file.GetLineCount();
2178 for ( size_t nLine = 0; nLine < nLineCount; nLine++ ) {
2179 // now we're at the start of the line
2180 const wxChar *pc = file[nLine].c_str();
2181
2182 // skip whitespace
2183 while ( wxIsspace(*pc) )
2184 pc++;
2185
2186 // comment or empty string?
2187 if ( *pc == wxT('#') || *pc == wxT('\0') )
2188 continue;
2189
2190 // no, do parse
2191
2192 // what field are we currently in? The first 2 are fixed and there may
2193 // be an arbitrary number of other fields -- currently, we are not
2194 // interested in any of them, but we should parse them as well...
2195 enum
2196 {
2197 Field_Type,
2198 Field_OpenCmd,
2199 Field_Other
2200 } currentToken = Field_Type;
2201
2202 // the flags and field values on the current line
2203 bool needsterminal = FALSE,
2204 copiousoutput = FALSE;
2205 wxMimeArrayString *entry = NULL; // suppress compiler warning
2206
2207 wxString strType,
2208 strOpenCmd,
2209 strIcon,
2210 strTest,
2211 strDesc,
2212 curField; // accumulator
2213 bool cont = TRUE;
2214 bool test_passed = TRUE;
2215 while ( cont ) {
2216 switch ( *pc ) {
2217 case wxT('\\'):
2218 // interpret the next character literally (notice that
2219 // backslash can be used for line continuation)
2220 if ( *++pc == wxT('\0') ) {
2221 // fetch the next line if there is one
2222 if ( nLine == nLineCount - 1 ) {
2223 // something is wrong, bail out
2224 cont = FALSE;
2225
2226 wxLogDebug(wxT("Mailcap file %s, line %d: "
2227 "'\\' on the end of the last line "
2228 "ignored."),
2229 strFileName.c_str(),
2230 nLine + 1);
2231 }
2232 else {
2233 // pass to the beginning of the next line
2234 pc = file[++nLine].c_str();
2235
2236 // skip pc++ at the end of the loop
2237 continue;
2238 }
2239 }
2240 else {
2241 // just a normal character
2242 curField += *pc;
2243 }
2244 break;
2245
2246 case wxT('\0'):
2247 cont = FALSE; // end of line reached, exit the loop
2248
2249 // fall through
2250
2251 case wxT(';'):
2252 // store this field and start looking for the next one
2253
2254 // trim whitespaces from both sides
2255 curField.Trim(TRUE).Trim(FALSE);
2256
2257 switch ( currentToken ) {
2258 case Field_Type:
2259 strType = curField;
2260 if ( strType.empty() ) {
2261 // I don't think that this is a valid mailcap
2262 // entry, but try to interpret it somehow
2263 strType = _T('*');
2264 }
2265
2266 if ( strType.Find(wxT('/')) == wxNOT_FOUND ) {
2267 // we interpret "type" as "type/*"
2268 strType += wxT("/*");
2269 }
2270
2271 currentToken = Field_OpenCmd;
2272 break;
2273
2274 case Field_OpenCmd:
2275 strOpenCmd = curField;
2276 entry = new wxMimeArrayString ();
2277 entry->Add(wxT("open=") + strOpenCmd);
2278
2279 currentToken = Field_Other;
2280 break;
2281
2282 case Field_Other:
2283 if ( !curField.empty() ) {
2284 // "good" mailcap entry?
2285 bool ok = TRUE;
2286
2287 if ( IsKnownUnimportantField(curField) ) ok = FALSE;
2288
2289 // is this something of the form foo=bar?
2290 const wxChar *pEq = wxStrchr(curField, wxT('='));
2291 if (ok)
2292 {
2293 if ( pEq != NULL )
2294 {
2295 wxString lhs = curField.BeforeFirst(wxT('=')),
2296 rhs = curField.AfterFirst(wxT('='));
2297
2298 lhs.Trim(TRUE); // from right
2299 rhs.Trim(FALSE); // from left
2300
2301 // it might be quoted
2302 if ( rhs[0u] == wxT('"') && rhs.Last() == wxT('"') )
2303 {
2304 wxString sTmp = wxString(rhs.c_str() + 1, rhs.Len() - 2);
2305 rhs = sTmp;
2306 }
2307 bool verbfound = TRUE;
2308 if ( lhs.Contains (wxT("test")))
2309 {
2310 if ( ! rhs.IsEmpty() )
2311 {
2312 if ( wxSystem(rhs) == 0 ) {
2313 // ok, test passed
2314 test_passed = TRUE;
2315 wxLogTrace(TRACE_MIME,
2316 wxT("Test '%s' for mime type '%s' succeeded."),
2317 rhs.c_str(), strType.c_str());
2318
2319 }
2320 else {
2321 test_passed = FALSE;
2322 wxLogTrace(TRACE_MIME,
2323 wxT("Test '%s' for mime type '%s' failed."),
2324 rhs.c_str(), strType.c_str());
2325 }
2326 }
2327 verbfound = FALSE;
2328 }
2329 if ( lhs.Contains (wxT("desc")))
2330 {
2331 strDesc = rhs;
2332 verbfound = FALSE;
2333 }
2334 if ( lhs.Contains (wxT("x11-bitmap")))
2335 {
2336 strIcon = rhs;
2337 verbfound = FALSE;
2338 }
2339 if ( lhs.Contains (wxT("notes")))
2340 {
2341 // ignore
2342 verbfound = FALSE;
2343 }
2344 if (verbfound) entry->Add ( lhs + wxT('=') + rhs );
2345 ok = TRUE;
2346 }
2347 else
2348 {
2349 // no, it's a simple flag
2350 if ( curField == wxT("needsterminal") ) {
2351 needsterminal = TRUE;
2352 ok = TRUE;
2353 }
2354 if ( curField == wxT("copiousoutput")) {
2355 // copiousoutput impies that the
2356 // viewer is a console program
2357 needsterminal =
2358 copiousoutput =
2359 ok = TRUE;
2360
2361 if ( !ok )
2362 {
2363 // don't flood the user with error
2364 // messages if we don't understand
2365 // something in his mailcap, but give
2366 // them in debug mode because this might
2367 // be useful for the programmer
2368 wxLogDebug
2369 (
2370 wxT("Mailcap file %s, line %d: "
2371 "unknown field '%s' for the "
2372 "MIME type '%s' ignored."),
2373 strFileName.c_str(),
2374 nLine + 1,
2375 curField.c_str(),
2376 strType.c_str()
2377 );
2378
2379 }
2380
2381 }
2382
2383 }
2384
2385 }
2386
2387 }
2388
2389
2390 // it already has this value
2391 //currentToken = Field_Other;
2392 break;
2393
2394 default:
2395 wxFAIL_MSG(wxT("unknown field type in mailcap"));
2396 }
2397
2398 // next token starts immediately after ';'
2399 curField.Empty();
2400 break;
2401
2402 default:
2403 curField += *pc;
2404 }
2405
2406 // continue in the same line
2407 pc++;
2408 }
2409
2410 // check that we really read something reasonable
2411 if ( currentToken == Field_Type || currentToken == Field_OpenCmd ) {
2412 wxLogWarning(_("Mailcap file %s, line %d: incomplete entry "
2413 "ignored."),
2414 strFileName.c_str(), nLine + 1);
2415 }
2416 else {
2417 // support for flags:
2418 // 1. create an xterm for 'needsterminal'
2419 // 2. append "| $PAGER" for 'copiousoutput'
2420 //
2421 // Note that the RFC says that having both needsterminal and
2422 // copiousoutput is probably a mistake, so it seems that running
2423 // programs with copiousoutput inside an xterm as it is done now
2424 // is a bad idea (FIXME)
2425 if ( copiousoutput )
2426 {
2427 const wxChar *p = wxGetenv(_T("PAGER"));
2428 strOpenCmd << _T(" | ") << (p ? p : _T("more"));
2429 wxLogTrace(TRACE_MIME, wxT("Replacing .(for pager)...") + entry->Item(0u) + wxT("with") + strOpenCmd );
2430
2431 entry->ReplaceOrAddLineCmd (wxString(wxT("open")), strOpenCmd );
2432 }
2433
2434 if ( needsterminal )
2435 {
2436 strOpenCmd.Printf(_T("xterm -e sh -c '%s'"), strOpenCmd.c_str());
2437 wxLogTrace(TRACE_MIME, wxT("Replacing .(for needs term)...") + entry->Item(0u) + wxT("with") + strOpenCmd );
2438
2439 entry->ReplaceOrAddLineCmd (wxString(wxT("open")), strOpenCmd );
2440 }
2441
2442 // NB: because of complications below (we must get entries priority
2443 // right), we can't use AddMailcapInfo() here, unfortunately.
2444 if ( test_passed )
2445 {
2446 strType.MakeLower();
2447 bool overwrite = TRUE;
2448 int entryIndex ;
2449 if (fallback)
2450 overwrite = FALSE;
2451 else
2452 {
2453 int nIndex = m_aTypes.Index(strType);
2454 entryIndex = aEntryIndices.Index(nIndex);
2455 if ( entryIndex == wxNOT_FOUND )
2456 {
2457 //check this fix
2458 // first time in this file, so replace the icons, entries
2459 // and description (no extensions to replace so ignore these
2460 overwrite = TRUE;
2461 aEntryIndices.Add(nIndex);
2462 //aLastIndices.Add(0);
2463 }
2464 else {
2465 // not the first time in _this_ file
2466 // so we don't want to overwrite
2467 // existing entries,but want to add to them
2468 // so we don't alter the mimetype
2469 // the indices were shifted by 1
2470 overwrite = FALSE;
2471 }
2472
2473
2474 }
2475 wxArrayString strExtensions;
2476 AddToMimeData (strType, strIcon, entry, strExtensions, strDesc, !overwrite );
2477 test_passed = TRUE;
2478 }
2479 }
2480
2481 }
2482
2483 return TRUE;
2484 }
2485
2486 size_t wxMimeTypesManagerImpl::EnumAllFileTypes(wxArrayString& mimetypes)
2487 {
2488 InitIfNeeded();
2489
2490 mimetypes.Empty();
2491
2492 wxString type;
2493 size_t count = m_aTypes.GetCount();
2494 for ( size_t n = 0; n < count; n++ )
2495 {
2496 // don't return template types from here (i.e. anything containg '*')
2497 type = m_aTypes[n];
2498 if ( type.Find(_T('*')) == wxNOT_FOUND )
2499 {
2500 mimetypes.Add(type);
2501 }
2502 }
2503
2504 return mimetypes.GetCount();
2505 }
2506
2507 // ----------------------------------------------------------------------------
2508 // writing to MIME type files
2509 // ----------------------------------------------------------------------------
2510
2511 bool wxMimeTypesManagerImpl::Unassociate(wxFileType *ft)
2512 {
2513 wxArrayString sMimeTypes;
2514 ft->GetMimeTypes (sMimeTypes);
2515
2516 wxString sMime;
2517 size_t i;
2518 for (i = 0; i < sMimeTypes.GetCount(); i ++)
2519 {
2520 sMime = sMimeTypes.Item(i);
2521 int nIndex = m_aTypes.Index (sMime);
2522 if ( nIndex == wxNOT_FOUND)
2523 {
2524 // error if we get here ??
2525 return FALSE;
2526 }
2527 else
2528 {
2529 WriteMimeInfo(nIndex, TRUE );
2530 m_aTypes.RemoveAt(nIndex);
2531 m_aEntries.RemoveAt(nIndex);
2532 m_aExtensions.RemoveAt(nIndex);
2533 m_aDescriptions.RemoveAt(nIndex);
2534 m_aIcons.RemoveAt(nIndex);
2535 }
2536 }
2537 // check data integrity
2538 wxASSERT( m_aTypes.Count() == m_aEntries.Count() &&
2539 m_aTypes.Count() == m_aExtensions.Count() &&
2540 m_aTypes.Count() == m_aIcons.Count() &&
2541 m_aTypes.Count() == m_aDescriptions.Count() );
2542
2543 return TRUE;
2544 }
2545
2546 // ----------------------------------------------------------------------------
2547 // private functions
2548 // ----------------------------------------------------------------------------
2549
2550 static bool IsKnownUnimportantField(const wxString& fieldAll)
2551 {
2552 static const wxChar *knownFields[] =
2553 {
2554 _T("x-mozilla-flags"),
2555 _T("nametemplate"),
2556 _T("textualnewlines"),
2557 };
2558
2559 wxString field = fieldAll.BeforeFirst(_T('='));
2560 for ( size_t n = 0; n < WXSIZEOF(knownFields); n++ )
2561 {
2562 if ( field.CmpNoCase(knownFields[n]) == 0 )
2563 return TRUE;
2564 }
2565
2566 return FALSE;
2567 }
2568
2569 #endif
2570 // wxUSE_FILE && wxUSE_TEXTFILE
2571