dll/win32/mshtml/htmlanchor.c

   1 /*
   2  * Copyright 2007 Jacek Caban for CodeWeavers
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Lesser General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2.1 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Lesser General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Lesser General Public
  15  * License along with this library; if not, write to the Free Software
  16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  17  */
  18
  19 #include "mshtml_private.h"
  20
  21 typedef struct {
  22     HTMLElement element;
  23
  24     IHTMLAnchorElement IHTMLAnchorElement_iface;
  25
  26     nsIDOMHTMLAnchorElement *nsanchor;
  27 } HTMLAnchorElement;
  28
  29 static HRESULT navigate_href_new_window(HTMLElement *element, nsAString *href_str, const WCHAR *target)
  30 {
  31     const PRUnichar *href;
  32     IUri *uri;
  33     HRESULT hres;
  34
  35     nsAString_GetData(href_str, &href);
  36     hres = create_relative_uri(element->node.doc->basedoc.window, href, &uri);
  37     if(FAILED(hres))
  38         return hres;
  39
  40     hres = navigate_new_window(element->node.doc->basedoc.window, uri, target, NULL, NULL);
  41     IUri_Release(uri);
  42     return hres;
  43 }
  44
  45 HTMLOuterWindow *get_target_window(HTMLOuterWindow *window, nsAString *target_str, BOOL *use_new_window)
  46 {
  47     HTMLOuterWindow *top_window, *ret_window;
  48     const PRUnichar *target;
  49     HRESULT hres;
  50
  51     static const WCHAR _parentW[] = {'_','p','a','r','e','n','t',0};
  52     static const WCHAR _selfW[] = {'_','s','e','l','f',0};
  53     static const WCHAR _topW[] = {'_','t','o','p',0};
  54
  55     *use_new_window = FALSE;
  56
  57     nsAString_GetData(target_str, &target);
  58     TRACE("%s\n", debugstr_w(target));
  59
  60     if(!*target || !strcmpiW(target, _selfW)) {
  61         IHTMLWindow2_AddRef(&window->base.IHTMLWindow2_iface);
  62         return window;
  63     }
  64
  65     if(!strcmpiW(target, _topW)) {
  66         get_top_window(window, &top_window);
  67         IHTMLWindow2_AddRef(&top_window->base.IHTMLWindow2_iface);
  68         return top_window;
  69     }
  70
  71     if(!strcmpiW(target, _parentW)) {
  72         if(!window->parent) {
  73             WARN("Window has no parent, treat as self\n");
  74             IHTMLWindow2_AddRef(&window->base.IHTMLWindow2_iface);
  75             return window;
  76         }
  77
  78         IHTMLWindow2_AddRef(&window->parent->base.IHTMLWindow2_iface);
  79         return window->parent;
  80     }
  81
  82     get_top_window(window, &top_window);
  83
  84     hres = get_frame_by_name(top_window, target, TRUE, &ret_window);
  85     if(FAILED(hres) || !ret_window) {
  86         *use_new_window = TRUE;
  87         return NULL;
  88     }
  89
  90     IHTMLWindow2_AddRef(&ret_window->base.IHTMLWindow2_iface);
  91     return ret_window;
  92 }
  93
  94 static HRESULT navigate_href(HTMLElement *element, nsAString *href_str, nsAString *target_str)
  95 {
  96     HTMLOuterWindow *window;
  97     BOOL use_new_window;
  98     const PRUnichar *href;
  99     HRESULT hres;
 100
 101     window = get_target_window(element->node.doc->basedoc.window, target_str, &use_new_window);
 102     if(!window) {
 103         if(use_new_window) {
 104             const PRUnichar *target;
 105             nsAString_GetData(target_str, &target);
 106             return navigate_href_new_window(element, href_str, target);
 107         }else {
 108             return S_OK;
 109         }
 110     }
 111
 112     nsAString_GetData(href_str, &href);
 113     if(*href) {
 114         hres = navigate_url(window, href, window->uri_nofrag, BINDING_NAVIGATED);
 115     }else {
 116         TRACE("empty href\n");
 117         hres = S_OK;
 118     }
 119     IHTMLWindow2_Release(&window->base.IHTMLWindow2_iface);
 120     return hres;
 121 }
 122
 123 HRESULT handle_link_click_event(HTMLElement *element, nsAString *href_str, nsAString *target_str,
 124                                 nsIDOMEvent *event, BOOL *prevent_default)
 125 {
 126     nsIDOMMouseEvent *mouse_event;
 127     INT16 button;
 128     nsresult nsres;
 129     HRESULT hres;
 130
 131     TRACE("CLICK\n");
 132
 133     nsres = nsIDOMEvent_QueryInterface(event, &IID_nsIDOMMouseEvent, (void**)&mouse_event);
 134     assert(nsres == NS_OK);
 135
 136     nsres = nsIDOMMouseEvent_GetButton(mouse_event, &button);
 137     assert(nsres == NS_OK);
 138
 139     nsIDOMMouseEvent_Release(mouse_event);
 140
 141     switch(button) {
 142     case 0:
 143         *prevent_default = TRUE;
 144         hres = navigate_href(element, href_str, target_str);
 145         break;
 146     case 1:
 147         *prevent_default = TRUE;
 148         hres = navigate_href_new_window(element, href_str, NULL);
 149         break;
 150     default:
 151         *prevent_default = FALSE;
 152         hres = S_OK;
 153     }
 154
 155     nsAString_Finish(href_str);
 156     nsAString_Finish(target_str);
 157     return hres;
 158 }
 159
 160 static inline HTMLAnchorElement *impl_from_IHTMLAnchorElement(IHTMLAnchorElement *iface)
 161 {
 162     return CONTAINING_RECORD(iface, HTMLAnchorElement, IHTMLAnchorElement_iface);
 163 }
 164
 165 static HRESULT WINAPI HTMLAnchorElement_QueryInterface(IHTMLAnchorElement *iface,
 166         REFIID riid, void **ppv)
 167 {
 168     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 169
 170     return IHTMLDOMNode_QueryInterface(&This->element.node.IHTMLDOMNode_iface, riid, ppv);
 171 }
 172
 173 static ULONG WINAPI HTMLAnchorElement_AddRef(IHTMLAnchorElement *iface)
 174 {
 175     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 176
 177     return IHTMLDOMNode_AddRef(&This->element.node.IHTMLDOMNode_iface);
 178 }
 179
 180 static ULONG WINAPI HTMLAnchorElement_Release(IHTMLAnchorElement *iface)
 181 {
 182     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 183
 184     return IHTMLDOMNode_Release(&This->element.node.IHTMLDOMNode_iface);
 185 }
 186
 187 static HRESULT WINAPI HTMLAnchorElement_GetTypeInfoCount(IHTMLAnchorElement *iface, UINT *pctinfo)
 188 {
 189     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 190     return IDispatchEx_GetTypeInfoCount(&This->element.node.event_target.dispex.IDispatchEx_iface, pctinfo);
 191 }
 192
 193 static HRESULT WINAPI HTMLAnchorElement_GetTypeInfo(IHTMLAnchorElement *iface, UINT iTInfo,
 194                                               LCID lcid, ITypeInfo **ppTInfo)
 195 {
 196     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 197     return IDispatchEx_GetTypeInfo(&This->element.node.event_target.dispex.IDispatchEx_iface, iTInfo, lcid,
 198             ppTInfo);
 199 }
 200
 201 static HRESULT WINAPI HTMLAnchorElement_GetIDsOfNames(IHTMLAnchorElement *iface, REFIID riid,
 202                                                 LPOLESTR *rgszNames, UINT cNames,
 203                                                 LCID lcid, DISPID *rgDispId)
 204 {
 205     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 206     return IDispatchEx_GetIDsOfNames(&This->element.node.event_target.dispex.IDispatchEx_iface, riid, rgszNames,
 207             cNames, lcid, rgDispId);
 208 }
 209
 210 static HRESULT WINAPI HTMLAnchorElement_Invoke(IHTMLAnchorElement *iface, DISPID dispIdMember,
 211                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
 212                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
 213 {
 214     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 215     return IDispatchEx_Invoke(&This->element.node.event_target.dispex.IDispatchEx_iface, dispIdMember, riid,
 216             lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
 217 }
 218
 219 static HRESULT WINAPI HTMLAnchorElement_put_href(IHTMLAnchorElement *iface, BSTR v)
 220 {
 221     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 222     nsAString nsstr;
 223     nsresult nsres;
 224
 225     TRACE("(%p)->(%s)\n", This, debugstr_w(v));
 226
 227     nsAString_InitDepend(&nsstr, v);
 228     nsres = nsIDOMHTMLAnchorElement_SetHref(This->nsanchor, &nsstr);
 229     nsAString_Finish(&nsstr);
 230     if(NS_FAILED(nsres))
 231         return E_FAIL;
 232
 233     return S_OK;
 234 }
 235
 236 static HRESULT WINAPI HTMLAnchorElement_get_href(IHTMLAnchorElement *iface, BSTR *p)
 237 {
 238     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 239     nsAString href_str;
 240     nsresult nsres;
 241     HRESULT hres;
 242
 243     TRACE("(%p)->(%p)\n", This, p);
 244
 245     nsAString_Init(&href_str, NULL);
 246     nsres = nsIDOMHTMLAnchorElement_GetHref(This->nsanchor, &href_str);
 247     if(NS_SUCCEEDED(nsres)) {
 248         const PRUnichar *href;
 249
 250         nsAString_GetData(&href_str, &href);
 251         hres = nsuri_to_url(href, TRUE, p);
 252     }else {
 253         ERR("GetHref failed: %08x\n", nsres);
 254         hres = E_FAIL;
 255     }
 256
 257     nsAString_Finish(&href_str);
 258     return hres;
 259 }
 260
 261 static HRESULT WINAPI HTMLAnchorElement_put_target(IHTMLAnchorElement *iface, BSTR v)
 262 {
 263     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 264     nsAString nsstr;
 265     nsresult nsres;
 266
 267     TRACE("(%p)->(%s)\n", This, debugstr_w(v));
 268
 269     nsAString_InitDepend(&nsstr, v);
 270     nsres = nsIDOMHTMLAnchorElement_SetTarget(This->nsanchor, &nsstr);
 271     nsAString_Finish(&nsstr);
 272     if(NS_FAILED(nsres))
 273         return E_FAIL;
 274
 275     return S_OK;
 276 }
 277
 278 static HRESULT WINAPI HTMLAnchorElement_get_target(IHTMLAnchorElement *iface, BSTR *p)
 279 {
 280     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 281     nsAString target_str;
 282     nsresult nsres;
 283
 284     TRACE("(%p)->(%p)\n", This, p);
 285
 286     nsAString_Init(&target_str, NULL);
 287     nsres = nsIDOMHTMLAnchorElement_GetTarget(This->nsanchor, &target_str);
 288
 289     return return_nsstr(nsres, &target_str, p);
 290 }
 291
 292 static HRESULT WINAPI HTMLAnchorElement_put_rel(IHTMLAnchorElement *iface, BSTR v)
 293 {
 294     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 295     nsAString nsstr;
 296     nsresult nsres;
 297
 298     TRACE("(%p)->(%s)\n", This, debugstr_w(v));
 299
 300     nsAString_InitDepend(&nsstr, v);
 301     nsres = nsIDOMHTMLAnchorElement_SetRel(This->nsanchor, &nsstr);
 302     nsAString_Finish(&nsstr);
 303     if(NS_FAILED(nsres))
 304         return E_FAIL;
 305
 306     return S_OK;
 307 }
 308
 309 static HRESULT WINAPI HTMLAnchorElement_get_rel(IHTMLAnchorElement *iface, BSTR *p)
 310 {
 311     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 312     nsAString nsstr;
 313     nsresult nsres;
 314
 315     TRACE("(%p)->(%p)\n", This, p);
 316
 317     nsAString_Init(&nsstr, NULL);
 318     nsres = nsIDOMHTMLAnchorElement_GetRel(This->nsanchor, &nsstr);
 319     return return_nsstr(nsres, &nsstr, p);
 320 }
 321
 322 static HRESULT WINAPI HTMLAnchorElement_put_rev(IHTMLAnchorElement *iface, BSTR v)
 323 {
 324     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 325     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 326     return E_NOTIMPL;
 327 }
 328
 329 static HRESULT WINAPI HTMLAnchorElement_get_rev(IHTMLAnchorElement *iface, BSTR *p)
 330 {
 331     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 332     FIXME("(%p)->(%p)\n", This, p);
 333     return E_NOTIMPL;
 334 }
 335
 336 static HRESULT WINAPI HTMLAnchorElement_put_urn(IHTMLAnchorElement *iface, BSTR v)
 337 {
 338     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 339     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 340     return E_NOTIMPL;
 341 }
 342
 343 static HRESULT WINAPI HTMLAnchorElement_get_urn(IHTMLAnchorElement *iface, BSTR *p)
 344 {
 345     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 346     FIXME("(%p)->(%p)\n", This, p);
 347     return E_NOTIMPL;
 348 }
 349
 350 static HRESULT WINAPI HTMLAnchorElement_put_Methods(IHTMLAnchorElement *iface, BSTR v)
 351 {
 352     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 353     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 354     return E_NOTIMPL;
 355 }
 356
 357 static HRESULT WINAPI HTMLAnchorElement_get_Methods(IHTMLAnchorElement *iface, BSTR *p)
 358 {
 359     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 360     FIXME("(%p)->(%p)\n", This, p);
 361     return E_NOTIMPL;
 362 }
 363
 364 static HRESULT WINAPI HTMLAnchorElement_put_name(IHTMLAnchorElement *iface, BSTR v)
 365 {
 366     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 367     nsAString nsstr;
 368     nsresult nsres;
 369
 370     TRACE("(%p)->(%s)\n", This, debugstr_w(v));
 371
 372     nsAString_InitDepend(&nsstr, v);
 373     nsres = nsIDOMHTMLAnchorElement_SetName(This->nsanchor, &nsstr);
 374     nsAString_Finish(&nsstr);
 375     if(NS_FAILED(nsres))
 376         return E_FAIL;
 377
 378     return S_OK;
 379 }
 380
 381 static HRESULT WINAPI HTMLAnchorElement_get_name(IHTMLAnchorElement *iface, BSTR *p)
 382 {
 383     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 384     nsAString name_str;
 385     nsresult nsres;
 386
 387     TRACE("(%p)->(%p)\n", This, p);
 388
 389     nsAString_Init(&name_str, NULL);
 390     nsres = nsIDOMHTMLAnchorElement_GetName(This->nsanchor, &name_str);
 391
 392     return return_nsstr(nsres, &name_str, p);
 393 }
 394
 395 static HRESULT WINAPI HTMLAnchorElement_put_host(IHTMLAnchorElement *iface, BSTR v)
 396 {
 397     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 398     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 399     return E_NOTIMPL;
 400 }
 401
 402 static HRESULT WINAPI HTMLAnchorElement_get_host(IHTMLAnchorElement *iface, BSTR *p)
 403 {
 404     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 405     FIXME("(%p)->(%p)\n", This, p);
 406     return E_NOTIMPL;
 407 }
 408
 409 static HRESULT WINAPI HTMLAnchorElement_put_hostname(IHTMLAnchorElement *iface, BSTR v)
 410 {
 411     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 412     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 413     return E_NOTIMPL;
 414 }
 415
 416 static HRESULT WINAPI HTMLAnchorElement_get_hostname(IHTMLAnchorElement *iface, BSTR *p)
 417 {
 418     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 419     nsAString hostname_str;
 420     nsresult nsres;
 421
 422     TRACE("(%p)->(%p)\n", This, p);
 423
 424     nsAString_Init(&hostname_str, NULL);
 425     nsres = nsIDOMHTMLAnchorElement_GetHostname(This->nsanchor, &hostname_str);
 426     return return_nsstr(nsres, &hostname_str, p);
 427 }
 428
 429 static HRESULT WINAPI HTMLAnchorElement_put_pathname(IHTMLAnchorElement *iface, BSTR v)
 430 {
 431     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 432     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 433     return E_NOTIMPL;
 434 }
 435
 436 static HRESULT WINAPI HTMLAnchorElement_get_pathname(IHTMLAnchorElement *iface, BSTR *p)
 437 {
 438     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 439     FIXME("(%p)->(%p)\n", This, p);
 440     return E_NOTIMPL;
 441 }
 442
 443 static HRESULT WINAPI HTMLAnchorElement_put_port(IHTMLAnchorElement *iface, BSTR v)
 444 {
 445     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 446     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 447     return E_NOTIMPL;
 448 }
 449
 450 static HRESULT WINAPI HTMLAnchorElement_get_port(IHTMLAnchorElement *iface, BSTR *p)
 451 {
 452     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 453     FIXME("(%p)->(%p)\n", This, p);
 454     return E_NOTIMPL;
 455 }
 456
 457 static HRESULT WINAPI HTMLAnchorElement_put_protocol(IHTMLAnchorElement *iface, BSTR v)
 458 {
 459     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 460     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 461     return E_NOTIMPL;
 462 }
 463
 464 static HRESULT WINAPI HTMLAnchorElement_get_protocol(IHTMLAnchorElement *iface, BSTR *p)
 465 {
 466     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 467     FIXME("(%p)->(%p)\n", This, p);
 468     return E_NOTIMPL;
 469 }
 470
 471 static HRESULT WINAPI HTMLAnchorElement_put_search(IHTMLAnchorElement *iface, BSTR v)
 472 {
 473     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 474     nsAString nsstr;
 475     nsresult nsres;
 476
 477     TRACE("(%p)->(%s)\n", This, debugstr_w(v));
 478
 479     nsAString_InitDepend(&nsstr, v);
 480     nsres = nsIDOMHTMLAnchorElement_SetSearch(This->nsanchor, &nsstr);
 481     nsAString_Finish(&nsstr);
 482     if(NS_FAILED(nsres))
 483         return E_FAIL;
 484
 485     return S_OK;
 486 }
 487
 488 static HRESULT WINAPI HTMLAnchorElement_get_search(IHTMLAnchorElement *iface, BSTR *p)
 489 {
 490     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 491     nsAString search_str;
 492     nsresult nsres;
 493
 494     TRACE("(%p)->(%p)\n", This, p);
 495
 496     nsAString_Init(&search_str, NULL);
 497     nsres = nsIDOMHTMLAnchorElement_GetSearch(This->nsanchor, &search_str);
 498     return return_nsstr(nsres, &search_str, p);
 499 }
 500
 501 static HRESULT WINAPI HTMLAnchorElement_put_hash(IHTMLAnchorElement *iface, BSTR v)
 502 {
 503     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 504     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 505     return E_NOTIMPL;
 506 }
 507
 508 static HRESULT WINAPI HTMLAnchorElement_get_hash(IHTMLAnchorElement *iface, BSTR *p)
 509 {
 510     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 511     nsAString hash_str;
 512     nsresult nsres;
 513
 514     TRACE("(%p)->(%p)\n", This, p);
 515
 516     nsAString_Init(&hash_str, NULL);
 517     nsres = nsIDOMHTMLAnchorElement_GetHash(This->nsanchor, &hash_str);
 518     return return_nsstr(nsres, &hash_str, p);
 519 }
 520
 521 static HRESULT WINAPI HTMLAnchorElement_put_onblur(IHTMLAnchorElement *iface, VARIANT v)
 522 {
 523     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 524
 525     TRACE("(%p)->()\n", This);
 526
 527     return IHTMLElement2_put_onblur(&This->element.IHTMLElement2_iface, v);
 528 }
 529
 530 static HRESULT WINAPI HTMLAnchorElement_get_onblur(IHTMLAnchorElement *iface, VARIANT *p)
 531 {
 532     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 533
 534     TRACE("(%p)->(%p)\n", This, p);
 535
 536     return IHTMLElement2_get_onblur(&This->element.IHTMLElement2_iface, p);
 537 }
 538
 539 static HRESULT WINAPI HTMLAnchorElement_put_onfocus(IHTMLAnchorElement *iface, VARIANT v)
 540 {
 541     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 542
 543     TRACE("(%p)->()\n", This);
 544
 545     return IHTMLElement2_put_onfocus(&This->element.IHTMLElement2_iface, v);
 546 }
 547
 548 static HRESULT WINAPI HTMLAnchorElement_get_onfocus(IHTMLAnchorElement *iface, VARIANT *p)
 549 {
 550     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 551
 552     TRACE("(%p)->(%p)\n", This, p);
 553
 554     return IHTMLElement2_get_onfocus(&This->element.IHTMLElement2_iface, p);
 555 }
 556
 557 static HRESULT WINAPI HTMLAnchorElement_put_accessKey(IHTMLAnchorElement *iface, BSTR v)
 558 {
 559     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 560
 561     TRACE("(%p)->(%s)\n", This, debugstr_w(v));
 562
 563     return IHTMLElement2_put_accessKey(&This->element.IHTMLElement2_iface, v);
 564 }
 565
 566 static HRESULT WINAPI HTMLAnchorElement_get_accessKey(IHTMLAnchorElement *iface, BSTR *p)
 567 {
 568     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 569
 570     TRACE("(%p)->(%p)\n", This, p);
 571
 572     return IHTMLElement2_get_accessKey(&This->element.IHTMLElement2_iface, p);
 573 }
 574
 575 static HRESULT WINAPI HTMLAnchorElement_get_protocolLong(IHTMLAnchorElement *iface, BSTR *p)
 576 {
 577     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 578     FIXME("(%p)->(%p)\n", This, p);
 579     return E_NOTIMPL;
 580 }
 581
 582 static HRESULT WINAPI HTMLAnchorElement_get_mimeType(IHTMLAnchorElement *iface, BSTR *p)
 583 {
 584     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 585     FIXME("(%p)->(%p)\n", This, p);
 586     return E_NOTIMPL;
 587 }
 588
 589 static HRESULT WINAPI HTMLAnchorElement_get_nameProp(IHTMLAnchorElement *iface, BSTR *p)
 590 {
 591     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 592     FIXME("(%p)->(%p)\n", This, p);
 593     return E_NOTIMPL;
 594 }
 595
 596 static HRESULT WINAPI HTMLAnchorElement_put_tabIndex(IHTMLAnchorElement *iface, short v)
 597 {
 598     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 599
 600     TRACE("(%p)->()\n", This);
 601
 602     return IHTMLElement2_put_tabIndex(&This->element.IHTMLElement2_iface, v);
 603 }
 604
 605 static HRESULT WINAPI HTMLAnchorElement_get_tabIndex(IHTMLAnchorElement *iface, short *p)
 606 {
 607     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 608
 609     TRACE("(%p)->(%p)\n", This, p);
 610
 611     return IHTMLElement2_get_tabIndex(&This->element.IHTMLElement2_iface, p);
 612 }
 613
 614 static HRESULT WINAPI HTMLAnchorElement_focus(IHTMLAnchorElement *iface)
 615 {
 616     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 617
 618     TRACE("(%p)\n", This);
 619
 620     return IHTMLElement2_focus(&This->element.IHTMLElement2_iface);
 621 }
 622
 623 static HRESULT WINAPI HTMLAnchorElement_blur(IHTMLAnchorElement *iface)
 624 {
 625     HTMLAnchorElement *This = impl_from_IHTMLAnchorElement(iface);
 626
 627     TRACE("(%p)\n", This);
 628
 629     return IHTMLElement2_blur(&This->element.IHTMLElement2_iface);
 630 }
 631
 632 static const IHTMLAnchorElementVtbl HTMLAnchorElementVtbl = {
 633     HTMLAnchorElement_QueryInterface,
 634     HTMLAnchorElement_AddRef,
 635     HTMLAnchorElement_Release,
 636     HTMLAnchorElement_GetTypeInfoCount,
 637     HTMLAnchorElement_GetTypeInfo,
 638     HTMLAnchorElement_GetIDsOfNames,
 639     HTMLAnchorElement_Invoke,
 640     HTMLAnchorElement_put_href,
 641     HTMLAnchorElement_get_href,
 642     HTMLAnchorElement_put_target,
 643     HTMLAnchorElement_get_target,
 644     HTMLAnchorElement_put_rel,
 645     HTMLAnchorElement_get_rel,
 646     HTMLAnchorElement_put_rev,
 647     HTMLAnchorElement_get_rev,
 648     HTMLAnchorElement_put_urn,
 649     HTMLAnchorElement_get_urn,
 650     HTMLAnchorElement_put_Methods,
 651     HTMLAnchorElement_get_Methods,
 652     HTMLAnchorElement_put_name,
 653     HTMLAnchorElement_get_name,
 654     HTMLAnchorElement_put_host,
 655     HTMLAnchorElement_get_host,
 656     HTMLAnchorElement_put_hostname,
 657     HTMLAnchorElement_get_hostname,
 658     HTMLAnchorElement_put_pathname,
 659     HTMLAnchorElement_get_pathname,
 660     HTMLAnchorElement_put_port,
 661     HTMLAnchorElement_get_port,
 662     HTMLAnchorElement_put_protocol,
 663     HTMLAnchorElement_get_protocol,
 664     HTMLAnchorElement_put_search,
 665     HTMLAnchorElement_get_search,
 666     HTMLAnchorElement_put_hash,
 667     HTMLAnchorElement_get_hash,
 668     HTMLAnchorElement_put_onblur,
 669     HTMLAnchorElement_get_onblur,
 670     HTMLAnchorElement_put_onfocus,
 671     HTMLAnchorElement_get_onfocus,
 672     HTMLAnchorElement_put_accessKey,
 673     HTMLAnchorElement_get_accessKey,
 674     HTMLAnchorElement_get_protocolLong,
 675     HTMLAnchorElement_get_mimeType,
 676     HTMLAnchorElement_get_nameProp,
 677     HTMLAnchorElement_put_tabIndex,
 678     HTMLAnchorElement_get_tabIndex,
 679     HTMLAnchorElement_focus,
 680     HTMLAnchorElement_blur
 681 };
 682
 683 static inline HTMLAnchorElement *impl_from_HTMLDOMNode(HTMLDOMNode *iface)
 684 {
 685     return CONTAINING_RECORD(iface, HTMLAnchorElement, element.node);
 686 }
 687
 688 static HRESULT HTMLAnchorElement_QI(HTMLDOMNode *iface, REFIID riid, void **ppv)
 689 {
 690     HTMLAnchorElement *This = impl_from_HTMLDOMNode(iface);
 691
 692     *ppv = NULL;
 693
 694     if(IsEqualGUID(&IID_IUnknown, riid)) {
 695         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
 696         *ppv = &This->IHTMLAnchorElement_iface;
 697     }else if(IsEqualGUID(&IID_IDispatch, riid)) {
 698         TRACE("(%p)->(IID_IDispatch %p)\n", This, ppv);
 699         *ppv = &This->IHTMLAnchorElement_iface;
 700     }else if(IsEqualGUID(&IID_IHTMLAnchorElement, riid)) {
 701         TRACE("(%p)->(IID_IHTMLAnchorElement %p)\n", This, ppv);
 702         *ppv = &This->IHTMLAnchorElement_iface;
 703     }
 704
 705     if(*ppv) {
 706         IUnknown_AddRef((IUnknown*)*ppv);
 707         return S_OK;
 708     }
 709
 710     return HTMLElement_QI(&This->element.node, riid, ppv);
 711 }
 712
 713 static HRESULT HTMLAnchorElement_handle_event(HTMLDOMNode *iface, DWORD eid, nsIDOMEvent *event, BOOL *prevent_default)
 714 {
 715     HTMLAnchorElement *This = impl_from_HTMLDOMNode(iface);
 716     nsAString href_str, target_str;
 717     nsresult nsres;
 718
 719     if(eid == EVENTID_CLICK) {
 720         nsAString_Init(&href_str, NULL);
 721         nsres = nsIDOMHTMLAnchorElement_GetHref(This->nsanchor, &href_str);
 722         if (NS_FAILED(nsres)) {
 723             ERR("Could not get anchor href: %08x\n", nsres);
 724             goto fallback;
 725         }
 726
 727         nsAString_Init(&target_str, NULL);
 728         nsres = nsIDOMHTMLAnchorElement_GetTarget(This->nsanchor, &target_str);
 729         if (NS_FAILED(nsres)) {
 730             ERR("Could not get anchor target: %08x\n", nsres);
 731             goto fallback;
 732         }
 733
 734         return handle_link_click_event(&This->element, &href_str, &target_str, event, prevent_default);
 735
 736 fallback:
 737         nsAString_Finish(&href_str);
 738         nsAString_Finish(&target_str);
 739     }
 740
 741     return HTMLElement_handle_event(&This->element.node, eid, event, prevent_default);
 742 }
 743
 744 static void HTMLAnchorElement_traverse(HTMLDOMNode *iface, nsCycleCollectionTraversalCallback *cb)
 745 {
 746     HTMLAnchorElement *This = impl_from_HTMLDOMNode(iface);
 747
 748     if(This->nsanchor)
 749         note_cc_edge((nsISupports*)This->nsanchor, "This->nsanchor", cb);
 750 }
 751
 752 static void HTMLAnchorElement_unlink(HTMLDOMNode *iface)
 753 {
 754     HTMLAnchorElement *This = impl_from_HTMLDOMNode(iface);
 755
 756     if(This->nsanchor) {
 757         nsIDOMHTMLAnchorElement *nsanchor = This->nsanchor;
 758
 759         This->nsanchor = NULL;
 760         nsIDOMHTMLAnchorElement_Release(nsanchor);
 761     }
 762 }
 763
 764 static const NodeImplVtbl HTMLAnchorElementImplVtbl = {
 765     HTMLAnchorElement_QI,
 766     HTMLElement_destructor,
 767     HTMLElement_cpc,
 768     HTMLElement_clone,
 769     HTMLAnchorElement_handle_event,
 770     HTMLElement_get_attr_col,
 771     NULL,
 772     NULL,
 773     NULL,
 774     NULL,
 775     NULL,
 776     NULL,
 777     NULL,
 778     NULL,
 779     NULL,
 780     HTMLAnchorElement_traverse,
 781     HTMLAnchorElement_unlink
 782 };
 783
 784 static const tid_t HTMLAnchorElement_iface_tids[] = {
 785     IHTMLAnchorElement_tid,
 786     HTMLELEMENT_TIDS,
 787     IHTMLUniqueName_tid,
 788     0
 789 };
 790
 791 static dispex_static_data_t HTMLAnchorElement_dispex = {
 792     NULL,
 793     DispHTMLAnchorElement_tid,
 794     NULL,
 795     HTMLAnchorElement_iface_tids
 796 };
 797
 798 HRESULT HTMLAnchorElement_Create(HTMLDocumentNode *doc, nsIDOMHTMLElement *nselem, HTMLElement **elem)
 799 {
 800     HTMLAnchorElement *ret;
 801     nsresult nsres;
 802
 803     ret = heap_alloc_zero(sizeof(HTMLAnchorElement));
 804     if(!ret)
 805         return E_OUTOFMEMORY;
 806
 807     ret->IHTMLAnchorElement_iface.lpVtbl = &HTMLAnchorElementVtbl;
 808     ret->element.node.vtbl = &HTMLAnchorElementImplVtbl;
 809
 810     HTMLElement_Init(&ret->element, doc, nselem, &HTMLAnchorElement_dispex);
 811
 812     nsres = nsIDOMHTMLElement_QueryInterface(nselem, &IID_nsIDOMHTMLAnchorElement, (void**)&ret->nsanchor);
 813     assert(nsres == NS_OK);
 814
 815     *elem = &ret->element;
 816     return S_OK;
 817 }