xref: /reactos/dll/win32/hlink/hlink_main.c (revision c2d0d784) 
1 /*
2  * Implementation of hyperlinking (hlink.dll)
3  *
4  * Copyright 2005 Aric Stewart for CodeWeavers
5  *
6  * This library is free software; you can redistribute it and/or
7  * modify it under the terms of the GNU Lesser General Public
8  * License as published by the Free Software Foundation; either
9  * version 2.1 of the License, or (at your option) any later version.
10  *
11  * This library is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14  * Lesser General Public License for more details.
15  *
16  * You should have received a copy of the GNU Lesser General Public
17  * License along with this library; if not, write to the Free Software
18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
19  */
20 
21 #include "hlink_private.h"
22 
23 #include "winreg.h"
24 #include "hlguids.h"
25 
26 #include "wine/debug.h"
27 
28 WINE_DEFAULT_DEBUG_CHANNEL(hlink);
29 
30 typedef HRESULT (CALLBACK *LPFNCREATEINSTANCE)(IUnknown*, REFIID, LPVOID*);
31 
32 typedef struct
33 {
34     const IClassFactoryVtbl *lpVtbl;
35     LPFNCREATEINSTANCE      lpfnCI;
36 } CFImpl;
37 
38 BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved)
39 {
40     TRACE("%p %d %p\n", hinstDLL, fdwReason, lpvReserved);
41 
42     switch (fdwReason)
43     {
44     case DLL_PROCESS_ATTACH:
45         DisableThreadLibraryCalls(hinstDLL);
46         break;
47     case DLL_PROCESS_DETACH:
48         break;
49     }
50     return TRUE;
51 }
52 
53 /***********************************************************************
54  *             DllCanUnloadNow (HLINK.@)
55  */
56 HRESULT WINAPI DllCanUnloadNow( void )
57 {
58     return S_OK;
59 }
60 
61 /***********************************************************************
62  *             HlinkCreateFromMoniker (HLINK.@)
63  */
64 HRESULT WINAPI HlinkCreateFromMoniker( IMoniker *pimkTrgt, LPCWSTR pwzLocation,
65         LPCWSTR pwzFriendlyName, IHlinkSite* pihlsite, DWORD dwSiteData,
66         IUnknown* piunkOuter, REFIID riid, void** ppvObj)
67 {
68     IHlink *hl = NULL;
69     HRESULT r = S_OK;
70 
71     TRACE("%p %s %s %p %i %p %s %p\n", pimkTrgt, debugstr_w(pwzLocation),
72             debugstr_w(pwzFriendlyName), pihlsite, dwSiteData, piunkOuter,
73             debugstr_guid(riid), ppvObj);
74 
75     r = CoCreateInstance(&CLSID_StdHlink, piunkOuter, CLSCTX_INPROC_SERVER, riid, (LPVOID*)&hl);
76     if (FAILED(r))
77         return r;
78 
79     IHlink_SetMonikerReference(hl, HLINKSETF_LOCATION | HLINKSETF_TARGET, pimkTrgt, pwzLocation);
80 
81     if (pwzFriendlyName)
82         IHlink_SetFriendlyName(hl, pwzFriendlyName);
83     if (pihlsite)
84         IHlink_SetHlinkSite(hl, pihlsite, dwSiteData);
85 
86     *ppvObj = hl;
87 
88     TRACE("Returning %i\n",r);
89 
90     return r;
91 }
92 
93 /***********************************************************************
94  *             HlinkCreateFromString (HLINK.@)
95  */
96 HRESULT WINAPI HlinkCreateFromString( LPCWSTR pwzTarget, LPCWSTR pwzLocation,
97         LPCWSTR pwzFriendlyName, IHlinkSite* pihlsite, DWORD dwSiteData,
98         IUnknown* piunkOuter, REFIID riid, void** ppvObj)
99 {
100     IHlink *hl = NULL;
101     HRESULT r = S_OK;
102     WCHAR *hash, *tgt;
103     const WCHAR *loc;
104 
105     TRACE("%s %s %s %p %i %p %s %p\n", debugstr_w(pwzTarget),
106             debugstr_w(pwzLocation), debugstr_w(pwzFriendlyName), pihlsite,
107             dwSiteData, piunkOuter, debugstr_guid(riid), ppvObj);
108 
109     r = CoCreateInstance(&CLSID_StdHlink, piunkOuter, CLSCTX_INPROC_SERVER, riid, (LPVOID*)&hl);
110     if (FAILED(r))
111         return r;
112 
113     if (pwzTarget)
114     {
115         hash = strchrW(pwzTarget, '#');
116         if (hash)
117         {
118             if (hash == pwzTarget)
119                 tgt = NULL;
120             else
121             {
122                 int tgt_len = hash - pwzTarget;
123                 tgt = heap_alloc((tgt_len + 1) * sizeof(WCHAR));
124                 if (!tgt)
125                     return E_OUTOFMEMORY;
126                 memcpy(tgt, pwzTarget, tgt_len * sizeof(WCHAR));
127                 tgt[tgt_len] = 0;
128             }
129             if (!pwzLocation)
130                 loc = hash + 1;
131             else
132                 loc = pwzLocation;
133         }
134         else
135         {
136             tgt = hlink_strdupW(pwzTarget);
137             if (!tgt)
138                 return E_OUTOFMEMORY;
139             loc = pwzLocation;
140         }
141     }
142     else
143     {
144         tgt = NULL;
145         loc = pwzLocation;
146     }
147 
148     IHlink_SetStringReference(hl, HLINKSETF_TARGET | HLINKSETF_LOCATION, tgt, loc);
149 
150     heap_free(tgt);
151 
152     if (pwzFriendlyName)
153         IHlink_SetFriendlyName(hl, pwzFriendlyName);
154 
155     if (pihlsite)
156         IHlink_SetHlinkSite(hl, pihlsite, dwSiteData);
157 
158     TRACE("Returning %i\n",r);
159     *ppvObj = hl;
160 
161     return r;
162 }
163 
164 
165 /***********************************************************************
166  *             HlinkCreateBrowseContext (HLINK.@)
167  */
168 HRESULT WINAPI HlinkCreateBrowseContext( IUnknown* piunkOuter, REFIID riid, void** ppvObj)
169 {
170     HRESULT r = S_OK;
171 
172     TRACE("%p %s %p\n", piunkOuter, debugstr_guid(riid), ppvObj);
173 
174     r = CoCreateInstance(&CLSID_StdHlinkBrowseContext, piunkOuter, CLSCTX_INPROC_SERVER, riid, ppvObj);
175 
176     TRACE("returning %i\n",r);
177 
178     return r;
179 }
180 
181 /***********************************************************************
182  *             HlinkNavigate (HLINK.@)
183  */
184 HRESULT WINAPI HlinkNavigate(IHlink *phl, IHlinkFrame *phlFrame,
185         DWORD grfHLNF, LPBC pbc, IBindStatusCallback *pbsc,
186         IHlinkBrowseContext *phlbc)
187 {
188     HRESULT r = S_OK;
189 
190     TRACE("%p %p %i %p %p %p\n", phl, phlFrame, grfHLNF, pbc, pbsc, phlbc);
191 
192     if (phlFrame)
193         r = IHlinkFrame_Navigate(phlFrame, grfHLNF, pbc, pbsc, phl);
194     else if (phl)
195         r = IHlink_Navigate(phl, grfHLNF, pbc, pbsc, phlbc);
196 
197     return r;
198 }
199 
200 /***********************************************************************
201  *             HlinkOnNavigate (HLINK.@)
202  */
203 HRESULT WINAPI HlinkOnNavigate( IHlinkFrame *phlFrame,
204         IHlinkBrowseContext* phlbc, DWORD grfHLNF, IMoniker *pmkTarget,
205         LPCWSTR pwzLocation, LPCWSTR pwzFriendlyName, ULONG* puHLID)
206 {
207     HRESULT r = S_OK;
208 
209     TRACE("%p %p %i %p %s %s %p\n",phlFrame, phlbc, grfHLNF, pmkTarget,
210             debugstr_w(pwzLocation), debugstr_w(pwzFriendlyName), puHLID);
211 
212     r = IHlinkBrowseContext_OnNavigateHlink(phlbc, grfHLNF, pmkTarget,
213             pwzLocation, pwzFriendlyName, puHLID);
214 
215     if (phlFrame)
216         r = IHlinkFrame_OnNavigate(phlFrame,grfHLNF,pmkTarget, pwzLocation,
217                 pwzFriendlyName, 0);
218 
219     return r;
220 }
221 
222 /***********************************************************************
223  *             HlinkCreateFromData (HLINK.@)
224  */
225 HRESULT WINAPI HlinkCreateFromData(IDataObject *piDataObj,
226         IHlinkSite *pihlsite, DWORD dwSiteData, IUnknown *piunkOuter,
227         REFIID riid, void **ppvObj)
228 {
229     FIXME("%p %p %d %p %p %p\n",
230           piDataObj, pihlsite, dwSiteData, piunkOuter, riid, ppvObj);
231     *ppvObj = NULL;
232     return E_NOTIMPL;
233 }
234 
235 /***********************************************************************
236  *             HlinkQueryCreateFromData (HLINK.@)
237  */
238 HRESULT WINAPI HlinkQueryCreateFromData(IDataObject* piDataObj)
239 {
240     FIXME("%p\n", piDataObj);
241     return E_NOTIMPL;
242 }
243 
244 /***********************************************************************
245  *             HlinkNavigateToStringReference (HLINK.@)
246  */
247 HRESULT WINAPI HlinkNavigateToStringReference( LPCWSTR pwzTarget,
248         LPCWSTR pwzLocation, IHlinkSite *pihlsite, DWORD dwSiteData,
249         IHlinkFrame *pihlframe, DWORD grfHLNF, LPBC pibc,
250         IBindStatusCallback *pibsc, IHlinkBrowseContext *pihlbc)
251 {
252     HRESULT r;
253     IHlink *hlink = NULL;
254 
255     FIXME("%s %s %p %08x %p %08x %p %p %p\n",
256           debugstr_w(pwzTarget), debugstr_w(pwzLocation), pihlsite,
257           dwSiteData, pihlframe, grfHLNF, pibc, pibsc, pihlbc);
258 
259     r = HlinkCreateFromString( pwzTarget, pwzLocation, NULL, pihlsite,
260                                dwSiteData, NULL, &IID_IHlink, (LPVOID*) &hlink );
261     if (SUCCEEDED(r))
262         r = HlinkNavigate(hlink, pihlframe, grfHLNF, pibc, pibsc, pihlbc);
263 
264     return r;
265 }
266 
267 /***********************************************************************
268  *             HlinkIsShortcut (HLINK.@)
269  */
270 HRESULT WINAPI HlinkIsShortcut(LPCWSTR pwzFileName)
271 {
272     int len;
273 
274     static const WCHAR url_ext[] = {'.','u','r','l',0};
275 
276     TRACE("(%s)\n", debugstr_w(pwzFileName));
277 
278     if(!pwzFileName)
279         return E_INVALIDARG;
280 
281     len = strlenW(pwzFileName)-4;
282     if(len < 0)
283         return S_FALSE;
284 
285     return strcmpiW(pwzFileName+len, url_ext) ? S_FALSE : S_OK;
286 }
287 
288 /***********************************************************************
289  *             HlinkGetSpecialReference (HLINK.@)
290  */
291 HRESULT WINAPI HlinkGetSpecialReference(ULONG uReference, LPWSTR *ppwzReference)
292 {
293     DWORD res, type, size = 100;
294     LPCWSTR value_name;
295     WCHAR *buf;
296     HKEY hkey;
297 
298     static const WCHAR start_pageW[] = {'S','t','a','r','t',' ','P','a','g','e',0};
299     static const WCHAR search_pageW[] = {'S','e','a','r','c','h',' ','P','a','g','e',0};
300 
301     static const WCHAR ie_main_keyW[] =
302         {'S','o','f','t','w','a','r','e',
303          '\\','M','i','c','r','o','s','o','f','t','\\',
304          'I','n','t','e','r','n','e','t',' ','E','x','p','l','o','r','e','r',
305          '\\','M','a','i','n',0};
306 
307     TRACE("(%u %p)\n", uReference, ppwzReference);
308 
309     *ppwzReference = NULL;
310 
311     switch(uReference) {
312     case HLSR_HOME:
313         value_name = start_pageW;
314         break;
315     case HLSR_SEARCHPAGE:
316         value_name = search_pageW;
317         break;
318     case HLSR_HISTORYFOLDER:
319         return E_NOTIMPL;
320     default:
321         return E_INVALIDARG;
322     }
323 
324     res = RegOpenKeyW(HKEY_CURRENT_USER, ie_main_keyW, &hkey);
325     if(res != ERROR_SUCCESS) {
326         WARN("Could not open key: %u\n", res);
327         return HRESULT_FROM_WIN32(res);
328     }
329 
330     buf = CoTaskMemAlloc(size);
331     res = RegQueryValueExW(hkey, value_name, NULL, &type, (PBYTE)buf, &size);
332     buf = CoTaskMemRealloc(buf, size);
333     if(res == ERROR_MORE_DATA)
334         res = RegQueryValueExW(hkey, value_name, NULL, &type, (PBYTE)buf, &size);
335     RegCloseKey(hkey);
336     if(res != ERROR_SUCCESS) {
337         WARN("Could not query value %s: %u\n", debugstr_w(value_name), res);
338         CoTaskMemFree(buf);
339         return HRESULT_FROM_WIN32(res);
340     }
341 
342     *ppwzReference = buf;
343     return S_OK;
344 }
345 
346 /***********************************************************************
347  *             HlinkTranslateURL (HLINK.@)
348  */
349 HRESULT WINAPI HlinkTranslateURL(LPCWSTR pwzURL, DWORD grfFlags, LPWSTR *ppwzTranslatedURL)
350 {
351     FIXME("(%s %08x %p)\n", debugstr_w(pwzURL), grfFlags, ppwzTranslatedURL);
352     return E_NOTIMPL;
353 }
354 
355 /***********************************************************************
356  *             HlinkUpdateStackItem (HLINK.@)
357  */
358 HRESULT WINAPI HlinkUpdateStackItem(IHlinkFrame *pihlframe, IHlinkBrowseContext *pihlbc,
359         ULONG uHLID, IMoniker *pimkTrgt, LPCWSTR pwzLocation, LPCWSTR pwzFriendlyName)
360 {
361     FIXME("(%p %p %u %p %s %s)\n", pihlframe, pihlbc, uHLID, pimkTrgt, debugstr_w(pwzLocation),
362           debugstr_w(pwzFriendlyName));
363     return E_NOTIMPL;
364 }
365 
366 /***********************************************************************
367  *             HlinkParseDisplayName (HLINK.@)
368  */
369 HRESULT WINAPI HlinkParseDisplayName(LPBC pibc, LPCWSTR pwzDisplayName, BOOL fNoForceAbs,
370         ULONG *pcchEaten, IMoniker **ppimk)
371 {
372     HRESULT hres;
373 
374     TRACE("(%p %s %x %p %p)\n", pibc, debugstr_w(pwzDisplayName), fNoForceAbs, pcchEaten, ppimk);
375 
376     if(fNoForceAbs)
377         FIXME("Unsupported fNoForceAbs\n");
378 
379     hres = MkParseDisplayNameEx(pibc, pwzDisplayName, pcchEaten, ppimk);
380     if(SUCCEEDED(hres))
381         return hres;
382 
383     hres = MkParseDisplayName(pibc, pwzDisplayName, pcchEaten, ppimk);
384     if(SUCCEEDED(hres))
385         return hres;
386 
387     hres = CreateFileMoniker(pwzDisplayName, ppimk);
388     if(SUCCEEDED(hres))
389         *pcchEaten = strlenW(pwzDisplayName);
390 
391     return hres;
392 }
393 
394 /***********************************************************************
395  *             HlinkResolveMonikerForData (HLINK.@)
396  */
397 HRESULT WINAPI HlinkResolveMonikerForData(LPMONIKER pimkReference, DWORD reserved, LPBC pibc,
398         ULONG cFmtetc, FORMATETC *rgFmtetc, IBindStatusCallback *pibsc, LPMONIKER pimkBase)
399 {
400     LPOLESTR name = NULL;
401     IBindCtx *bctx;
402     DWORD mksys = 0;
403     void *obj = NULL;
404     HRESULT hres;
405 
406     TRACE("(%p %x %p %d %p %p %p)\n", pimkReference, reserved, pibc, cFmtetc, rgFmtetc, pibsc, pimkBase);
407 
408     if(cFmtetc || rgFmtetc || pimkBase)
409         FIXME("Unsupported args\n");
410 
411     hres = RegisterBindStatusCallback(pibc, pibsc, NULL /* FIXME */, 0);
412     if(FAILED(hres))
413         return hres;
414 
415     hres = IMoniker_IsSystemMoniker(pimkReference, &mksys);
416     if(SUCCEEDED(hres) && mksys != MKSYS_URLMONIKER)
417         WARN("sysmk = %x\n", mksys);
418 
419     /* FIXME: What is it for? */
420     CreateBindCtx(0, &bctx);
421     hres = IMoniker_GetDisplayName(pimkReference, bctx, NULL, &name);
422     IBindCtx_Release(bctx);
423     if(SUCCEEDED(hres)) {
424         TRACE("got display name %s\n", debugstr_w(name));
425         CoTaskMemFree(name);
426     }
427 
428     return IMoniker_BindToStorage(pimkReference, pibc, NULL, &IID_IUnknown, &obj);
429 }
430 
431 /***********************************************************************
432  *             HlinkClone (HLINK.@)
433  */
434 HRESULT WINAPI HlinkClone(IHlink *hlink, REFIID riid, IHlinkSite *hls,
435         DWORD site_data, void **obj)
436 {
437     IMoniker *mk, *clone_mk = NULL;
438     WCHAR *loc, *name = NULL;
439     HRESULT hres;
440 
441     if(!hlink || !riid || !obj)
442         return E_INVALIDARG;
443 
444     *obj = NULL;
445 
446     hres = IHlink_GetMonikerReference(hlink, HLINKGETREF_DEFAULT, &mk, &loc);
447     if(FAILED(hres))
448         return hres;
449 
450     if(mk) {
451         IStream *strm;
452         LARGE_INTEGER lgint;
453 
454         hres = CreateStreamOnHGlobal(NULL, TRUE, &strm);
455         if(FAILED(hres)) {
456             IMoniker_Release(mk);
457             goto cleanup;
458         }
459 
460         hres = OleSaveToStream((IPersistStream*)mk, strm);
461         if(FAILED(hres)) {
462             IStream_Release(strm);
463             IMoniker_Release(mk);
464             goto cleanup;
465         }
466         IMoniker_Release(mk);
467 
468         lgint.QuadPart = 0;
469         hres = IStream_Seek(strm, lgint, STREAM_SEEK_SET, NULL);
470         if(FAILED(hres)) {
471             IStream_Release(strm);
472             goto cleanup;
473         }
474 
475         hres = OleLoadFromStream(strm, &IID_IMoniker, (void**)&clone_mk);
476         IStream_Release(strm);
477         if(FAILED(hres))
478             goto cleanup;
479     }
480 
481     hres = IHlink_GetFriendlyName(hlink, HLFNAMEF_DEFAULT, &name);
482     if(FAILED(hres))
483         goto cleanup;
484 
485     hres = HlinkCreateFromMoniker(clone_mk, loc, name, hls, site_data, NULL,
486             &IID_IHlink, obj);
487 
488 cleanup:
489     if(clone_mk)
490         IMoniker_Release(clone_mk);
491     CoTaskMemFree(loc);
492     CoTaskMemFree(name);
493     return hres;
494 }
495 
496 static HRESULT WINAPI HLinkCF_fnQueryInterface ( LPCLASSFACTORY iface,
497         REFIID riid, LPVOID *ppvObj)
498 {
499     CFImpl *This = (CFImpl *)iface;
500 
501     TRACE("(%p)->(%s)\n",This,debugstr_guid(riid));
502 
503     *ppvObj = NULL;
504 
505     if (IsEqualIID(riid, &IID_IUnknown) ||
506         IsEqualIID(riid, &IID_IClassFactory))
507     {
508         *ppvObj = This;
509         return S_OK;
510     }
511 
512     TRACE("-- E_NOINTERFACE\n");
513     return E_NOINTERFACE;
514 }
515 
516 static ULONG WINAPI HLinkCF_fnAddRef (LPCLASSFACTORY iface)
517 {
518     return 2;
519 }
520 
521 static ULONG WINAPI HLinkCF_fnRelease(LPCLASSFACTORY iface)
522 {
523     return 1;
524 }
525 
526 static HRESULT WINAPI HLinkCF_fnCreateInstance( LPCLASSFACTORY iface,
527         LPUNKNOWN pUnkOuter, REFIID riid, LPVOID *ppvObject)
528 {
529     CFImpl *This = (CFImpl *)iface;
530 
531     TRACE("%p->(%p,%s,%p)\n", This, pUnkOuter, debugstr_guid(riid), ppvObject);
532 
533     *ppvObject = NULL;
534 
535     return This->lpfnCI(pUnkOuter, riid, ppvObject);
536 }
537 
538 static HRESULT WINAPI HLinkCF_fnLockServer(LPCLASSFACTORY iface, BOOL fLock)
539 {
540     FIXME("%p %d\n", iface, fLock);
541     return E_NOTIMPL;
542 }
543 
544 static const IClassFactoryVtbl hlcfvt =
545 {
546     HLinkCF_fnQueryInterface,
547     HLinkCF_fnAddRef,
548     HLinkCF_fnRelease,
549     HLinkCF_fnCreateInstance,
550     HLinkCF_fnLockServer
551 };
552 
553 static CFImpl HLink_cf = { &hlcfvt, HLink_Constructor };
554 static CFImpl HLinkBrowseContext_cf = { &hlcfvt, HLinkBrowseContext_Constructor };
555 
556 /***********************************************************************
557  *             DllGetClassObject (HLINK.@)
558  */
559 HRESULT WINAPI DllGetClassObject(REFCLSID rclsid, REFIID iid, LPVOID *ppv)
560 {
561     IClassFactory   *pcf = NULL;
562 
563     TRACE("%s %s %p\n", debugstr_guid(rclsid), debugstr_guid(iid), ppv);
564 
565     if (!ppv)
566         return E_INVALIDARG;
567     *ppv = NULL;
568 
569     if (IsEqualIID(rclsid, &CLSID_StdHlink))
570         pcf = (IClassFactory*) &HLink_cf;
571     else if (IsEqualIID(rclsid, &CLSID_StdHlinkBrowseContext))
572         pcf = (IClassFactory*) &HLinkBrowseContext_cf;
573     else
574         return CLASS_E_CLASSNOTAVAILABLE;
575 
576     return IClassFactory_QueryInterface(pcf, iid, ppv);
577 }
578 
579 static HRESULT register_clsid(LPCGUID guid)
580 {
581     static const WCHAR clsid[] =
582         {'C','L','S','I','D','\\',0};
583     static const WCHAR ips[] =
584         {'\\','I','n','p','r','o','c','S','e','r','v','e','r','3','2',0};
585     static const WCHAR hlink[] =
586         {'h','l','i','n','k','.','d','l','l',0};
587     static const WCHAR threading_model[] =
588         {'T','h','r','e','a','d','i','n','g','M','o','d','e','l',0};
589     static const WCHAR apartment[] =
590         {'A','p','a','r','t','m','e','n','t',0};
591     WCHAR path[80];
592     HKEY key = NULL;
593     LONG r;
594 
595     lstrcpyW(path, clsid);
596     StringFromGUID2(guid, &path[6], 80);
597     lstrcatW(path, ips);
598     r = RegCreateKeyW(HKEY_CLASSES_ROOT, path, &key);
599     if (r != ERROR_SUCCESS)
600         return E_FAIL;
601 
602     RegSetValueExW(key, NULL, 0, REG_SZ, (const BYTE *)hlink, sizeof hlink);
603     RegSetValueExW(key, threading_model, 0, REG_SZ, (const BYTE *)apartment, sizeof apartment);
604     RegCloseKey(key);
605 
606     return S_OK;
607 }
608 
609 /***********************************************************************
610  *             DllRegisterServer (HLINK.@)
611  */
612 HRESULT WINAPI DllRegisterServer(void)
613 {
614     HRESULT r;
615 
616     r = register_clsid(&CLSID_StdHlink);
617     if (SUCCEEDED(r))
618         r = register_clsid(&CLSID_StdHlinkBrowseContext);
619 
620     return S_OK;
621 }
622