gdiplus: Stub GdipPlayMetafileRecord.
[wine] / dlls / hhctrl.ocx / content.c
1 /*
2  * Copyright 2007 Jacek Caban for CodeWeavers
3  * Copyright 2011 Owen Rudge for CodeWeavers
4  *
5  * This library is free software; you can redistribute it and/or
6  * modify it under the terms of the GNU Lesser General Public
7  * License as published by the Free Software Foundation; either
8  * version 2.1 of the License, or (at your option) any later version.
9  *
10  * This library is distributed in the hope that it will be useful,
11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13  * Lesser General Public License for more details.
14  *
15  * You should have received a copy of the GNU Lesser General Public
16  * License along with this library; if not, write to the Free Software
17  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
18  */
19
20 #define NONAMELESSUNION
21 #define NONAMELESSSTRUCT
22
23 #include "hhctrl.h"
24 #include "stream.h"
25
26 #include "wine/debug.h"
27
28 WINE_DEFAULT_DEBUG_CHANNEL(htmlhelp);
29
30 typedef enum {
31     INSERT_NEXT,
32     INSERT_CHILD
33 } insert_type_t;
34
35 static void free_content_item(ContentItem *item)
36 {
37     ContentItem *next;
38
39     while(item) {
40         next = item->next;
41
42         free_content_item(item->child);
43
44         heap_free(item->name);
45         heap_free(item->local);
46         heap_free(item->merge.chm_file);
47         heap_free(item->merge.chm_index);
48
49         item = next;
50     }
51 }
52
53 static void parse_obj_node_param(ContentItem *item, ContentItem *hhc_root, const char *text)
54 {
55     const char *ptr;
56     LPWSTR *param, merge;
57     int len, wlen;
58
59     ptr = get_attr(text, "name", &len);
60     if(!ptr) {
61         WARN("name attr not found\n");
62         return;
63     }
64
65     if(!strncasecmp("name", ptr, len)) {
66         param = &item->name;
67     }else if(!strncasecmp("merge", ptr, len)) {
68         param = &merge;
69     }else if(!strncasecmp("local", ptr, len)) {
70         param = &item->local;
71     }else {
72         WARN("unhandled param %s\n", debugstr_an(ptr, len));
73         return;
74     }
75
76     ptr = get_attr(text, "value", &len);
77     if(!ptr) {
78         WARN("value attr not found\n");
79         return;
80     }
81
82     wlen = MultiByteToWideChar(CP_ACP, 0, ptr, len, NULL, 0);
83     *param = heap_alloc((wlen+1)*sizeof(WCHAR));
84     MultiByteToWideChar(CP_ACP, 0, ptr, len, *param, wlen);
85     (*param)[wlen] = 0;
86
87     if(param == &merge) {
88         SetChmPath(&item->merge, hhc_root->merge.chm_file, merge);
89         heap_free(merge);
90     }
91 }
92
93 static ContentItem *parse_hhc(HHInfo*,IStream*,ContentItem*,insert_type_t*);
94
95 static ContentItem *insert_item(ContentItem *item, ContentItem *new_item, insert_type_t insert_type)
96 {
97     if(!item)
98         return new_item;
99
100     if(!new_item)
101         return item;
102
103     switch(insert_type) {
104     case INSERT_NEXT:
105         item->next = new_item;
106         return new_item;
107     case INSERT_CHILD:
108         if(item->child) {
109             ContentItem *iter = item->child;
110             while(iter->next)
111                 iter = iter->next;
112             iter->next = new_item;
113         }else {
114             item->child = new_item;
115         }
116         return item;
117     }
118
119     return NULL;
120 }
121
122 static ContentItem *parse_sitemap_object(HHInfo *info, stream_t *stream, ContentItem *hhc_root,
123         insert_type_t *insert_type)
124 {
125     strbuf_t node, node_name;
126     ContentItem *item;
127
128     *insert_type = INSERT_NEXT;
129
130     strbuf_init(&node);
131     strbuf_init(&node_name);
132
133     item = heap_alloc_zero(sizeof(ContentItem));
134
135     while(next_node(stream, &node)) {
136         get_node_name(&node, &node_name);
137
138         TRACE("%s\n", node.buf);
139
140         if(!strcasecmp(node_name.buf, "/object"))
141             break;
142         if(!strcasecmp(node_name.buf, "param"))
143             parse_obj_node_param(item, hhc_root, node.buf);
144
145         strbuf_zero(&node);
146     }
147
148     strbuf_free(&node);
149     strbuf_free(&node_name);
150
151     if(item->merge.chm_index) {
152         IStream *merge_stream;
153
154         merge_stream = GetChmStream(info->pCHMInfo, item->merge.chm_file, &item->merge);
155         if(merge_stream) {
156             item->child = parse_hhc(info, merge_stream, hhc_root, insert_type);
157             IStream_Release(merge_stream);
158         }else {
159             WARN("Could not get %s::%s stream\n", debugstr_w(item->merge.chm_file),
160                  debugstr_w(item->merge.chm_file));
161
162             if(!item->name) {
163                 free_content_item(item);
164                 item = NULL;
165             }
166         }
167
168     }
169
170     return item;
171 }
172
173 static ContentItem *parse_ul(HHInfo *info, stream_t *stream, ContentItem *hhc_root)
174 {
175     strbuf_t node, node_name;
176     ContentItem *ret = NULL, *prev = NULL, *new_item = NULL;
177     insert_type_t it;
178
179     strbuf_init(&node);
180     strbuf_init(&node_name);
181
182     while(next_node(stream, &node)) {
183         get_node_name(&node, &node_name);
184
185         TRACE("%s\n", node.buf);
186
187         if(!strcasecmp(node_name.buf, "object")) {
188             const char *ptr;
189             int len;
190
191             static const char sz_text_sitemap[] = "text/sitemap";
192
193             ptr = get_attr(node.buf, "type", &len);
194
195             if(ptr && len == sizeof(sz_text_sitemap)-1
196                && !memcmp(ptr, sz_text_sitemap, len)) {
197                 new_item = parse_sitemap_object(info, stream, hhc_root, &it);
198                 prev = insert_item(prev, new_item, it);
199                 if(!ret)
200                     ret = prev;
201             }
202         }else if(!strcasecmp(node_name.buf, "ul")) {
203             new_item = parse_ul(info, stream, hhc_root);
204             insert_item(prev, new_item, INSERT_CHILD);
205         }else if(!strcasecmp(node_name.buf, "/ul")) {
206             break;
207         }
208
209         strbuf_zero(&node);
210     }
211
212     strbuf_free(&node);
213     strbuf_free(&node_name);
214
215     return ret;
216 }
217
218 static ContentItem *parse_hhc(HHInfo *info, IStream *str, ContentItem *hhc_root,
219         insert_type_t *insert_type)
220 {
221     stream_t stream;
222     strbuf_t node, node_name;
223     ContentItem *ret = NULL, *prev = NULL;
224
225     *insert_type = INSERT_NEXT;
226
227     strbuf_init(&node);
228     strbuf_init(&node_name);
229
230     stream_init(&stream, str);
231
232     while(next_node(&stream, &node)) {
233         get_node_name(&node, &node_name);
234
235         TRACE("%s\n", node.buf);
236
237         if(!strcasecmp(node_name.buf, "ul")) {
238             ContentItem *item = parse_ul(info, &stream, hhc_root);
239             prev = insert_item(prev, item, INSERT_CHILD);
240             if(!ret)
241                 ret = prev;
242             *insert_type = INSERT_CHILD;
243         }
244
245         strbuf_zero(&node);
246     }
247
248     strbuf_free(&node);
249     strbuf_free(&node_name);
250
251     return ret;
252 }
253
254 static void insert_content_item(HWND hwnd, ContentItem *parent, ContentItem *item)
255 {
256     TVINSERTSTRUCTW tvis;
257
258     memset(&tvis, 0, sizeof(tvis));
259     tvis.u.item.mask = TVIF_TEXT|TVIF_PARAM;
260     tvis.u.item.cchTextMax = strlenW(item->name)+1;
261     tvis.u.item.pszText = item->name;
262     tvis.u.item.lParam = (LPARAM)item;
263     tvis.hParent = parent ? parent->id : 0;
264     tvis.hInsertAfter = TVI_LAST;
265
266     item->id = (HTREEITEM)SendMessageW(hwnd, TVM_INSERTITEMW, 0, (LPARAM)&tvis);
267 }
268
269 static void fill_content_tree(HWND hwnd, ContentItem *parent, ContentItem *item)
270 {
271     while(item) {
272         if(item->name) {
273             insert_content_item(hwnd, parent, item);
274             fill_content_tree(hwnd, item, item->child);
275         }else {
276             fill_content_tree(hwnd, parent, item->child);
277         }
278         item = item->next;
279     }
280 }
281
282 static void set_item_parents(ContentItem *parent, ContentItem *item)
283 {
284     while(item) {
285         item->parent = parent;
286         set_item_parents(item, item->child);
287         item = item->next;
288     }
289 }
290
291 void InitContent(HHInfo *info)
292 {
293     IStream *stream;
294     insert_type_t insert_type;
295
296     info->content = heap_alloc_zero(sizeof(ContentItem));
297     SetChmPath(&info->content->merge, info->pCHMInfo->szFile, info->WinType.pszToc);
298
299     stream = GetChmStream(info->pCHMInfo, info->pCHMInfo->szFile, &info->content->merge);
300     if(!stream) {
301         TRACE("Could not get content stream\n");
302         return;
303     }
304
305     info->content->child = parse_hhc(info, stream, info->content, &insert_type);
306     IStream_Release(stream);
307
308     set_item_parents(NULL, info->content);
309     fill_content_tree(info->tabs[TAB_CONTENTS].hwnd, NULL, info->content);
310 }
311
312 void ReleaseContent(HHInfo *info)
313 {
314     free_content_item(info->content);
315 }
316
317 void ActivateContentTopic(HWND hWnd, LPCWSTR filename, ContentItem *item)
318 {
319     if (lstrcmpiW(item->local, filename) == 0)
320     {
321         SendMessageW(hWnd, TVM_SELECTITEM, TVGN_CARET, (LPARAM) item->id);
322         return;
323     }
324
325     if (item->next)
326         ActivateContentTopic(hWnd, filename, item->next);
327
328     if (item->child)
329         ActivateContentTopic(hWnd, filename, item->child);
330 }