4 * Copyright 2005 James Hawkins
5 * Copyright 2007 Jacek Caban
7 * This library is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Lesser General Public
9 * License as published by the Free Software Foundation; either
10 * version 2.1 of the License, or (at your option) any later version.
12 * This library is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * Lesser General Public License for more details.
17 * You should have received a copy of the GNU Lesser General Public
18 * License along with this library; if not, write to the Free Software
19 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
27 #include "wine/debug.h"
29 WINE_DEFAULT_DEBUG_CHANNEL(htmlhelp
);
31 /* Reads a string from the #STRINGS section in the CHM file */
32 static LPCSTR
GetChmString(CHMInfo
*chm
, DWORD offset
)
36 if(!chm
->strings_stream
)
39 if(chm
->strings_size
<= (offset
>> BLOCK_BITS
)) {
40 chm
->strings_size
= (offset
>> BLOCK_BITS
)+1;
42 chm
->strings
= heap_realloc_zero(chm
->strings
,
43 chm
->strings_size
*sizeof(char*));
45 chm
->strings
= heap_alloc_zero(
46 chm
->strings_size
*sizeof(char*));
50 if(!chm
->strings
[offset
>> BLOCK_BITS
]) {
55 pos
.QuadPart
= offset
& ~BLOCK_MASK
;
56 hres
= IStream_Seek(chm
->strings_stream
, pos
, STREAM_SEEK_SET
, NULL
);
58 WARN("Seek failed: %08x\n", hres
);
62 chm
->strings
[offset
>> BLOCK_BITS
] = heap_alloc(BLOCK_SIZE
);
64 hres
= IStream_Read(chm
->strings_stream
, chm
->strings
[offset
>> BLOCK_BITS
],
67 WARN("Read failed: %08x\n", hres
);
68 heap_free(chm
->strings
[offset
>> BLOCK_BITS
]);
69 chm
->strings
[offset
>> BLOCK_BITS
] = NULL
;
74 str
= chm
->strings
[offset
>> BLOCK_BITS
] + (offset
& BLOCK_MASK
);
75 TRACE("offset %#x => %s\n", offset
, debugstr_a(str
));
79 static BOOL
ReadChmSystem(CHMInfo
*chm
)
82 DWORD ver
=0xdeadbeef, read
, buf_size
;
91 static const WCHAR wszSYSTEM
[] = {'#','S','Y','S','T','E','M',0};
93 hres
= IStorage_OpenStream(chm
->pStorage
, wszSYSTEM
, NULL
, STGM_READ
, 0, &stream
);
95 WARN("Could not open #SYSTEM stream: %08x\n", hres
);
99 IStream_Read(stream
, &ver
, sizeof(ver
), &read
);
100 TRACE("version is %x\n", ver
);
102 buf
= heap_alloc(8*sizeof(DWORD
));
103 buf_size
= 8*sizeof(DWORD
);
106 hres
= IStream_Read(stream
, &entry
, sizeof(entry
), &read
);
110 if(entry
.len
> buf_size
)
111 buf
= heap_realloc(buf
, buf_size
=entry
.len
);
113 hres
= IStream_Read(stream
, buf
, entry
.len
, &read
);
119 TRACE("TOC is %s\n", debugstr_an(buf
, entry
.len
));
120 heap_free(chm
->defToc
);
121 chm
->defToc
= strdupnAtoW(buf
, entry
.len
);
124 TRACE("Default topic is %s\n", debugstr_an(buf
, entry
.len
));
125 heap_free(chm
->defTopic
);
126 chm
->defTopic
= strdupnAtoW(buf
, entry
.len
);
129 TRACE("Title is %s\n", debugstr_an(buf
, entry
.len
));
130 heap_free(chm
->defTitle
);
131 chm
->defTitle
= strdupnAtoW(buf
, entry
.len
);
134 /* TODO: Currently only the Locale ID is loaded from this field */
135 TRACE("Locale is: %d\n", *(LCID
*)&buf
[0]);
136 if(!GetLocaleInfoW(*(LCID
*)&buf
[0], LOCALE_IDEFAULTANSICODEPAGE
|LOCALE_RETURN_NUMBER
,
137 (WCHAR
*)&chm
->codePage
, sizeof(chm
->codePage
)/sizeof(WCHAR
)))
138 chm
->codePage
= CP_ACP
;
141 TRACE("Window name is %s\n", debugstr_an(buf
, entry
.len
));
142 chm
->defWindow
= strdupnAtoW(buf
, entry
.len
);
145 TRACE("Compiled file is %s\n", debugstr_an(buf
, entry
.len
));
146 heap_free(chm
->compiledFile
);
147 chm
->compiledFile
= strdupnAtoW(buf
, entry
.len
);
150 TRACE("Version is %s\n", debugstr_an(buf
, entry
.len
));
153 TRACE("Time is %08x\n", *(DWORD
*)buf
);
156 TRACE("Number of info types: %d\n", *(DWORD
*)buf
);
159 TRACE("Check sum: %x\n", *(DWORD
*)buf
);
162 TRACE("unhandled code %x, size %x\n", entry
.code
, entry
.len
);
167 IStream_Release(stream
);
169 return SUCCEEDED(hres
);
172 LPWSTR
FindContextAlias(CHMInfo
*chm
, DWORD index
)
180 static const WCHAR wszIVB
[] = {'#','I','V','B',0};
182 hres
= IStorage_OpenStream(chm
->pStorage
, wszIVB
, NULL
, STGM_READ
, 0, &ivb_stream
);
184 WARN("Could not open #IVB stream: %08x\n", hres
);
188 hres
= IStream_Read(ivb_stream
, &size
, sizeof(size
), &read
);
190 WARN("Read failed: %08x\n", hres
);
191 IStream_Release(ivb_stream
);
195 buf
= heap_alloc(size
);
196 hres
= IStream_Read(ivb_stream
, buf
, size
, &read
);
197 IStream_Release(ivb_stream
);
199 WARN("Read failed: %08x\n", hres
);
204 size
/= 2*sizeof(DWORD
);
206 for(i
=0; i
<size
; i
++) {
207 if(buf
[2*i
] == index
) {
208 ret
= GetChmString(chm
, buf
[2*i
+1]);
215 TRACE("returning %s\n", debugstr_a(ret
));
216 return strdupAtoW(ret
);
220 * Tests if the file <chmfile>.<ext> exists, used for loading Indices, Table of Contents, etc.
221 * when these files are not available from the HH_WINTYPE structure.
223 static WCHAR
*FindHTMLHelpSetting(HHInfo
*info
, const WCHAR
*extW
)
225 static const WCHAR periodW
[] = {'.',0};
226 IStorage
*pStorage
= info
->pCHMInfo
->pStorage
;
231 filename
= heap_alloc( (strlenW(info
->pCHMInfo
->compiledFile
)
232 + strlenW(periodW
) + strlenW(extW
) + 1) * sizeof(WCHAR
) );
233 strcpyW(filename
, info
->pCHMInfo
->compiledFile
);
234 strcatW(filename
, periodW
);
235 strcatW(filename
, extW
);
236 hr
= IStorage_OpenStream(pStorage
, filename
, NULL
, STGM_READ
, 0, &pStream
);
240 return strdupAtoW("");
242 IStream_Release(pStream
);
246 /* Loads the HH_WINTYPE data from the CHM file
248 * FIXME: There may be more than one window type in the file, so
249 * add the ability to choose a certain window type
251 BOOL
LoadWinTypeFromCHM(HHInfo
*info
)
253 LARGE_INTEGER liOffset
;
254 IStorage
*pStorage
= info
->pCHMInfo
->pStorage
;
259 static const WCHAR null
[] = {0};
260 static const WCHAR toc_extW
[] = {'h','h','c',0};
261 static const WCHAR index_extW
[] = {'h','h','k',0};
262 static const WCHAR windowsW
[] = {'#','W','I','N','D','O','W','S',0};
264 hr
= IStorage_OpenStream(pStorage
, windowsW
, NULL
, STGM_READ
, 0, &pStream
);
267 /* no defined window types so use (hopefully) sane defaults */
268 static const WCHAR defaultwinW
[] = {'d','e','f','a','u','l','t','w','i','n','\0'};
269 memset((void*)&(info
->WinType
), 0, sizeof(info
->WinType
));
270 info
->WinType
.cbStruct
=sizeof(info
->WinType
);
271 info
->WinType
.fUniCodeStrings
=TRUE
;
272 info
->WinType
.pszType
= strdupW(info
->pCHMInfo
->defWindow
? info
->pCHMInfo
->defWindow
: defaultwinW
);
273 info
->WinType
.pszToc
= strdupW(info
->pCHMInfo
->defToc
? info
->pCHMInfo
->defToc
: null
);
274 info
->WinType
.pszIndex
= strdupW(null
);
275 info
->WinType
.fsValidMembers
=0;
276 info
->WinType
.fsWinProperties
=HHWIN_PROP_TRI_PANE
;
277 info
->WinType
.pszCaption
=strdupW(info
->pCHMInfo
->defTitle
? info
->pCHMInfo
->defTitle
: null
);
278 info
->WinType
.dwStyles
=WS_POPUP
;
279 info
->WinType
.dwExStyles
=0;
280 info
->WinType
.nShowState
=SW_SHOW
;
281 info
->WinType
.pszFile
=strdupW(info
->pCHMInfo
->defTopic
? info
->pCHMInfo
->defTopic
: null
);
282 info
->WinType
.curNavType
=HHWIN_NAVTYPE_TOC
;
286 /* jump past the #WINDOWS header */
287 liOffset
.QuadPart
= sizeof(DWORD
) * 2;
289 hr
= IStream_Seek(pStream
, liOffset
, STREAM_SEEK_SET
, NULL
);
290 if (FAILED(hr
)) goto done
;
292 /* read the HH_WINTYPE struct data */
293 hr
= IStream_Read(pStream
, &info
->WinType
, sizeof(info
->WinType
), &cbRead
);
294 if (FAILED(hr
)) goto done
;
296 /* convert the #STRINGS offsets to actual strings */
298 info
->WinType
.pszType
= info
->pszType
= strdupAtoW(GetChmString(info
->pCHMInfo
, (DWORD_PTR
)info
->WinType
.pszType
));
299 info
->WinType
.pszCaption
= info
->pszCaption
= strdupAtoW(GetChmString(info
->pCHMInfo
, (DWORD_PTR
)info
->WinType
.pszCaption
));
300 info
->WinType
.pszHome
= info
->pszHome
= strdupAtoW(GetChmString(info
->pCHMInfo
, (DWORD_PTR
)info
->WinType
.pszHome
));
301 info
->WinType
.pszJump1
= info
->pszJump1
= strdupAtoW(GetChmString(info
->pCHMInfo
, (DWORD_PTR
)info
->WinType
.pszJump1
));
302 info
->WinType
.pszJump2
= info
->pszJump2
= strdupAtoW(GetChmString(info
->pCHMInfo
, (DWORD_PTR
)info
->WinType
.pszJump2
));
303 info
->WinType
.pszUrlJump1
= info
->pszUrlJump1
= strdupAtoW(GetChmString(info
->pCHMInfo
, (DWORD_PTR
)info
->WinType
.pszUrlJump1
));
304 info
->WinType
.pszUrlJump2
= info
->pszUrlJump2
= strdupAtoW(GetChmString(info
->pCHMInfo
, (DWORD_PTR
)info
->WinType
.pszUrlJump2
));
306 if (info
->WinType
.pszFile
)
307 info
->WinType
.pszFile
= info
->pszFile
= strdupAtoW(GetChmString(info
->pCHMInfo
, (DWORD_PTR
)info
->WinType
.pszFile
));
309 info
->WinType
.pszFile
= strdupW(info
->pCHMInfo
->defTopic
? info
->pCHMInfo
->defTopic
: null
);
310 if (info
->WinType
.pszToc
)
311 info
->WinType
.pszToc
= info
->pszToc
= strdupAtoW(GetChmString(info
->pCHMInfo
, (DWORD_PTR
)info
->WinType
.pszToc
));
313 info
->WinType
.pszToc
= info
->pszToc
= FindHTMLHelpSetting(info
, toc_extW
);
314 if (info
->WinType
.pszIndex
)
315 info
->WinType
.pszIndex
= info
->pszIndex
= strdupAtoW(GetChmString(info
->pCHMInfo
, (DWORD_PTR
)info
->WinType
.pszIndex
));
317 info
->WinType
.pszIndex
= info
->pszIndex
= FindHTMLHelpSetting(info
, index_extW
);
319 /* FIXME: pszCustomTabs is a list of multiple zero-terminated strings so ReadString won't
323 info
->WinType
.pszCustomTabs
= info
->pszCustomTabs
= CHM_ReadString(pChmInfo
, (DWORD_PTR
)info
->WinType
.pszCustomTabs
);
327 IStream_Release(pStream
);
329 return SUCCEEDED(hr
);
332 LPCWSTR
skip_schema(LPCWSTR url
)
334 static const WCHAR its_schema
[] = {'i','t','s',':'};
335 static const WCHAR msits_schema
[] = {'m','s','-','i','t','s',':'};
336 static const WCHAR mk_schema
[] = {'m','k',':','@','M','S','I','T','S','t','o','r','e',':'};
338 if(!strncmpiW(its_schema
, url
, sizeof(its_schema
)/sizeof(WCHAR
)))
339 return url
+sizeof(its_schema
)/sizeof(WCHAR
);
340 if(!strncmpiW(msits_schema
, url
, sizeof(msits_schema
)/sizeof(WCHAR
)))
341 return url
+sizeof(msits_schema
)/sizeof(WCHAR
);
342 if(!strncmpiW(mk_schema
, url
, sizeof(mk_schema
)/sizeof(WCHAR
)))
343 return url
+sizeof(mk_schema
)/sizeof(WCHAR
);
348 void SetChmPath(ChmPath
*file
, LPCWSTR base_file
, LPCWSTR path
)
351 static const WCHAR separatorW
[] = {':',':',0};
353 path
= skip_schema(path
);
355 ptr
= strstrW(path
, separatorW
);
357 WCHAR chm_file
[MAX_PATH
];
358 WCHAR rel_path
[MAX_PATH
];
359 WCHAR base_path
[MAX_PATH
];
362 strcpyW(base_path
, base_file
);
363 p
= strrchrW(base_path
, '\\');
367 memcpy(rel_path
, path
, (ptr
-path
)*sizeof(WCHAR
));
368 rel_path
[ptr
-path
] = 0;
370 PathCombineW(chm_file
, base_path
, rel_path
);
372 file
->chm_file
= strdupW(chm_file
);
375 file
->chm_file
= strdupW(base_file
);
379 file
->chm_index
= strdupW(ptr
);
381 TRACE("ChmFile = {%s %s}\n", debugstr_w(file
->chm_file
), debugstr_w(file
->chm_index
));
384 IStream
*GetChmStream(CHMInfo
*info
, LPCWSTR parent_chm
, ChmPath
*chm_file
)
387 IStream
*stream
= NULL
;
390 TRACE("%s (%s :: %s)\n", debugstr_w(parent_chm
), debugstr_w(chm_file
->chm_file
),
391 debugstr_w(chm_file
->chm_index
));
393 if(parent_chm
|| chm_file
->chm_file
) {
394 hres
= IITStorage_StgOpenStorage(info
->pITStorage
,
395 chm_file
->chm_file
? chm_file
->chm_file
: parent_chm
, NULL
,
396 STGM_READ
| STGM_SHARE_DENY_WRITE
, NULL
, 0, &storage
);
398 WARN("Could not open storage: %08x\n", hres
);
402 storage
= info
->pStorage
;
403 IStorage_AddRef(info
->pStorage
);
406 hres
= IStorage_OpenStream(storage
, chm_file
->chm_index
, NULL
, STGM_READ
, 0, &stream
);
407 IStorage_Release(storage
);
409 WARN("Could not open stream: %08x\n", hres
);
415 * Retrieve a CHM document and parse the data from the <title> element to get the document's title.
417 WCHAR
*GetDocumentTitle(CHMInfo
*info
, LPCWSTR document
)
419 strbuf_t node
, node_name
, content
;
420 WCHAR
*document_title
= NULL
;
426 TRACE("%s\n", debugstr_w(document
));
428 storage
= info
->pStorage
;
430 WARN("Could not open storage to obtain the title for a document.\n");
433 IStorage_AddRef(storage
);
435 hres
= IStorage_OpenStream(storage
, document
, NULL
, STGM_READ
, 0, &str
);
436 IStorage_Release(storage
);
438 WARN("Could not open stream: %08x\n", hres
);
440 stream_init(&stream
, str
);
442 strbuf_init(&content
);
443 strbuf_init(&node_name
);
445 while(next_node(&stream
, &node
)) {
446 get_node_name(&node
, &node_name
);
448 TRACE("%s\n", node
.buf
);
450 if(!strcasecmp(node_name
.buf
, "title")) {
451 if(next_content(&stream
, &content
) && content
.len
> 1)
453 document_title
= strdupnAtoW(&content
.buf
[1], content
.len
-1);
454 FIXME("magic: %s\n", debugstr_w(document_title
));
463 strbuf_free(&content
);
464 strbuf_free(&node_name
);
465 IStream_Release(str
);
467 return document_title
;
470 /* Opens the CHM file for reading */
471 CHMInfo
*OpenCHM(LPCWSTR szFile
)
476 static const WCHAR wszSTRINGS
[] = {'#','S','T','R','I','N','G','S',0};
478 if (!(ret
= heap_alloc_zero(sizeof(CHMInfo
))))
480 ret
->codePage
= CP_ACP
;
482 if (!(ret
->szFile
= strdupW(szFile
))) {
487 hres
= CoCreateInstance(&CLSID_ITStorage
, NULL
, CLSCTX_INPROC_SERVER
,
488 &IID_IITStorage
, (void **) &ret
->pITStorage
) ;
490 WARN("Could not create ITStorage: %08x\n", hres
);
491 return CloseCHM(ret
);
494 hres
= IITStorage_StgOpenStorage(ret
->pITStorage
, szFile
, NULL
,
495 STGM_READ
| STGM_SHARE_DENY_WRITE
, NULL
, 0, &ret
->pStorage
);
497 WARN("Could not open storage: %08x\n", hres
);
498 return CloseCHM(ret
);
500 hres
= IStorage_OpenStream(ret
->pStorage
, wszSTRINGS
, NULL
, STGM_READ
, 0,
501 &ret
->strings_stream
);
503 WARN("Could not open #STRINGS stream: %08x\n", hres
);
504 /* It's not critical, so we pass */
507 if(!ReadChmSystem(ret
)) {
508 WARN("Could not read #SYSTEM\n");
509 return CloseCHM(ret
);
515 CHMInfo
*CloseCHM(CHMInfo
*chm
)
518 IITStorage_Release(chm
->pITStorage
);
521 IStorage_Release(chm
->pStorage
);
523 if(chm
->strings_stream
)
524 IStream_Release(chm
->strings_stream
);
526 if(chm
->strings_size
) {
529 for(i
=0; i
<chm
->strings_size
; i
++)
530 heap_free(chm
->strings
[i
]);
533 heap_free(chm
->strings
);
534 heap_free(chm
->defWindow
);
535 heap_free(chm
->defTitle
);
536 heap_free(chm
->defTopic
);
537 heap_free(chm
->defToc
);
538 heap_free(chm
->szFile
);
539 heap_free(chm
->compiledFile
);