git.oblomov.eu Git - wine/blob - dlls/dinput/joystick.c

   1 /*  DirectInput Generic Joystick device
   2  *
   3  * Copyright 1998 Marcus Meissner
   4  * Copyright 1998,1999 Lionel Ulmer
   5  * Copyright 2000-2001 TransGaming Technologies Inc.
   6  * Copyright 2009 Aric Stewart, CodeWeavers
   7  *
   8  * This library is free software; you can redistribute it and/or
   9  * modify it under the terms of the GNU Lesser General Public
  10  * License as published by the Free Software Foundation; either
  11  * version 2.1 of the License, or (at your option) any later version.
  12  *
  13  * This library is distributed in the hope that it will be useful,
  14  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  16  * Lesser General Public License for more details.
  17  *
  18  * You should have received a copy of the GNU Lesser General Public
  19  * License along with this library; if not, write to the Free Software
  20  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  21  */
  22
  23 /*
  24  * To Do:
  25  *      dead zone
  26  *      force feedback
  27  */
  28
  29 #include "joystick_private.h"
  30 #include "wine/debug.h"
  31 #include "winreg.h"
  32
  33 WINE_DEFAULT_DEBUG_CHANNEL(dinput);
  34
  35 /******************************************************************************
  36   *     SetProperty : change input device properties
  37   */
  38 HRESULT WINAPI JoystickAGenericImpl_SetProperty(
  39     LPDIRECTINPUTDEVICE8A iface,
  40     REFGUID rguid,
  41     LPCDIPROPHEADER ph)
  42 {
  43     JoystickGenericImpl *This = (JoystickGenericImpl *)iface;
  44     DWORD i;
  45
  46     TRACE("(%p,%s,%p)\n",This,debugstr_guid(rguid),ph);
  47
  48     if (ph == NULL) {
  49         WARN("invalid parameter: ph == NULL\n");
  50         return DIERR_INVALIDPARAM;
  51     }
  52
  53     if (TRACE_ON(dinput))
  54         _dump_DIPROPHEADER(ph);
  55
  56     if (IS_DIPROP(rguid)) {
  57         switch (LOWORD(rguid)) {
  58         case (DWORD_PTR)DIPROP_RANGE: {
  59             LPCDIPROPRANGE pr = (LPCDIPROPRANGE)ph;
  60             if (ph->dwHow == DIPH_DEVICE) {
  61                 TRACE("proprange(%d,%d) all\n", pr->lMin, pr->lMax);
  62                 for (i = 0; i < This->base.data_format.wine_df->dwNumObjs; i++) {
  63                     This->props[i].lMin = pr->lMin;
  64                     This->props[i].lMax = pr->lMax;
  65                 }
  66             } else {
  67                 int obj = find_property(&This->base.data_format, ph);
  68
  69                 TRACE("proprange(%d,%d) obj=%d\n", pr->lMin, pr->lMax, obj);
  70                 if (obj >= 0) {
  71                     This->props[obj].lMin = pr->lMin;
  72                     This->props[obj].lMax = pr->lMax;
  73                     return DI_OK;
  74                 }
  75             }
  76             break;
  77         }
  78         case (DWORD_PTR)DIPROP_DEADZONE: {
  79             LPCDIPROPDWORD pd = (LPCDIPROPDWORD)ph;
  80             if (ph->dwHow == DIPH_DEVICE) {
  81                 TRACE("deadzone(%d) all\n", pd->dwData);
  82                 for (i = 0; i < This->base.data_format.wine_df->dwNumObjs; i++)
  83                     This->props[i].lDeadZone  = pd->dwData;
  84             } else {
  85                 int obj = find_property(&This->base.data_format, ph);
  86
  87                 TRACE("deadzone(%d) obj=%d\n", pd->dwData, obj);
  88                 if (obj >= 0) {
  89                     This->props[obj].lDeadZone  = pd->dwData;
  90                     return DI_OK;
  91                 }
  92             }
  93             break;
  94         }
  95         case (DWORD_PTR)DIPROP_SATURATION: {
  96             LPCDIPROPDWORD pd = (LPCDIPROPDWORD)ph;
  97             if (ph->dwHow == DIPH_DEVICE) {
  98                 TRACE("saturation(%d) all\n", pd->dwData);
  99                 for (i = 0; i < This->base.data_format.wine_df->dwNumObjs; i++)
 100                     This->props[i].lSaturation = pd->dwData;
 101             } else {
 102                 int obj = find_property(&This->base.data_format, ph);
 103
 104                 TRACE("saturation(%d) obj=%d\n", pd->dwData, obj);
 105                 if (obj >= 0) {
 106                     This->props[obj].lSaturation = pd->dwData;
 107                     return DI_OK;
 108                 }
 109             }
 110             break;
 111         }
 112         default:
 113             return IDirectInputDevice2AImpl_SetProperty(iface, rguid, ph);
 114         }
 115     }
 116
 117     return DI_OK;
 118 }
 119
 120 void _dump_DIDEVCAPS(const DIDEVCAPS *lpDIDevCaps)
 121 {
 122     TRACE("dwSize: %d\n", lpDIDevCaps->dwSize);
 123     TRACE("dwFlags: %08x\n", lpDIDevCaps->dwFlags);
 124     TRACE("dwDevType: %08x %s\n", lpDIDevCaps->dwDevType,
 125           lpDIDevCaps->dwDevType == DIDEVTYPE_DEVICE ? "DIDEVTYPE_DEVICE" :
 126           lpDIDevCaps->dwDevType == DIDEVTYPE_DEVICE ? "DIDEVTYPE_DEVICE" :
 127           lpDIDevCaps->dwDevType == DIDEVTYPE_MOUSE ? "DIDEVTYPE_MOUSE" :
 128           lpDIDevCaps->dwDevType == DIDEVTYPE_KEYBOARD ? "DIDEVTYPE_KEYBOARD" :
 129           lpDIDevCaps->dwDevType == DIDEVTYPE_JOYSTICK ? "DIDEVTYPE_JOYSTICK" :
 130           lpDIDevCaps->dwDevType == DIDEVTYPE_HID ? "DIDEVTYPE_HID" : "UNKNOWN");
 131     TRACE("dwAxes: %d\n", lpDIDevCaps->dwAxes);
 132     TRACE("dwButtons: %d\n", lpDIDevCaps->dwButtons);
 133     TRACE("dwPOVs: %d\n", lpDIDevCaps->dwPOVs);
 134     if (lpDIDevCaps->dwSize > sizeof(DIDEVCAPS_DX3)) {
 135         TRACE("dwFFSamplePeriod: %d\n", lpDIDevCaps->dwFFSamplePeriod);
 136         TRACE("dwFFMinTimeResolution: %d\n", lpDIDevCaps->dwFFMinTimeResolution);
 137         TRACE("dwFirmwareRevision: %d\n", lpDIDevCaps->dwFirmwareRevision);
 138         TRACE("dwHardwareRevision: %d\n", lpDIDevCaps->dwHardwareRevision);
 139         TRACE("dwFFDriverVersion: %d\n", lpDIDevCaps->dwFFDriverVersion);
 140     }
 141 }
 142
 143 HRESULT WINAPI JoystickAGenericImpl_GetCapabilities(
 144         LPDIRECTINPUTDEVICE8A iface,
 145         LPDIDEVCAPS lpDIDevCaps)
 146 {
 147     JoystickGenericImpl *This = (JoystickGenericImpl *)iface;
 148     int size;
 149
 150     TRACE("%p->(%p)\n",iface,lpDIDevCaps);
 151
 152     if (lpDIDevCaps == NULL) {
 153         WARN("invalid pointer\n");
 154         return E_POINTER;
 155     }
 156
 157     size = lpDIDevCaps->dwSize;
 158
 159     if (!(size == sizeof(DIDEVCAPS) || size == sizeof(DIDEVCAPS_DX3))) {
 160         WARN("invalid parameter\n");
 161         return DIERR_INVALIDPARAM;
 162     }
 163
 164     CopyMemory(lpDIDevCaps, &This->devcaps, size);
 165     lpDIDevCaps->dwSize = size;
 166
 167     if (TRACE_ON(dinput))
 168         _dump_DIDEVCAPS(lpDIDevCaps);
 169
 170     return DI_OK;
 171 }
 172
 173 /******************************************************************************
 174   *     GetObjectInfo : get object info
 175   */
 176 HRESULT WINAPI JoystickWGenericImpl_GetObjectInfo(LPDIRECTINPUTDEVICE8W iface,
 177         LPDIDEVICEOBJECTINSTANCEW pdidoi, DWORD dwObj, DWORD dwHow)
 178 {
 179     static const WCHAR axisW[] = {'A','x','i','s',' ','%','d',0};
 180     static const WCHAR povW[] = {'P','O','V',' ','%','d',0};
 181     static const WCHAR buttonW[] = {'B','u','t','t','o','n',' ','%','d',0};
 182     HRESULT res;
 183
 184     res = IDirectInputDevice2WImpl_GetObjectInfo(iface, pdidoi, dwObj, dwHow);
 185     if (res != DI_OK) return res;
 186
 187     if      (pdidoi->dwType & DIDFT_AXIS)
 188         sprintfW(pdidoi->tszName, axisW, DIDFT_GETINSTANCE(pdidoi->dwType));
 189     else if (pdidoi->dwType & DIDFT_POV)
 190         sprintfW(pdidoi->tszName, povW, DIDFT_GETINSTANCE(pdidoi->dwType));
 191     else if (pdidoi->dwType & DIDFT_BUTTON)
 192         sprintfW(pdidoi->tszName, buttonW, DIDFT_GETINSTANCE(pdidoi->dwType));
 193
 194     _dump_OBJECTINSTANCEW(pdidoi);
 195     return res;
 196 }
 197
 198 HRESULT WINAPI JoystickAGenericImpl_GetObjectInfo(LPDIRECTINPUTDEVICE8A iface,
 199         LPDIDEVICEOBJECTINSTANCEA pdidoi, DWORD dwObj, DWORD dwHow)
 200 {
 201     HRESULT res;
 202     DIDEVICEOBJECTINSTANCEW didoiW;
 203     DWORD dwSize = pdidoi->dwSize;
 204
 205     didoiW.dwSize = sizeof(didoiW);
 206     res = JoystickWGenericImpl_GetObjectInfo((LPDIRECTINPUTDEVICE8W)iface, &didoiW, dwObj, dwHow);
 207     if (res != DI_OK) return res;
 208
 209     memset(pdidoi, 0, pdidoi->dwSize);
 210     memcpy(pdidoi, &didoiW, FIELD_OFFSET(DIDEVICEOBJECTINSTANCEW, tszName));
 211     pdidoi->dwSize = dwSize;
 212     WideCharToMultiByte(CP_ACP, 0, didoiW.tszName, -1, pdidoi->tszName,
 213                         sizeof(pdidoi->tszName), NULL, NULL);
 214
 215     return res;
 216 }
 217
 218 /******************************************************************************
 219   *     GetProperty : get input device properties
 220   */
 221 HRESULT WINAPI JoystickAGenericImpl_GetProperty(
 222     LPDIRECTINPUTDEVICE8A iface,
 223     REFGUID rguid,
 224     LPDIPROPHEADER pdiph)
 225 {
 226     JoystickGenericImpl *This = (JoystickGenericImpl *)iface;
 227
 228     TRACE("(%p,%s,%p)\n", iface, debugstr_guid(rguid), pdiph);
 229
 230     if (TRACE_ON(dinput))
 231         _dump_DIPROPHEADER(pdiph);
 232
 233     if (IS_DIPROP(rguid)) {
 234         switch (LOWORD(rguid)) {
 235         case (DWORD_PTR) DIPROP_RANGE: {
 236             LPDIPROPRANGE pr = (LPDIPROPRANGE)pdiph;
 237             int obj = find_property(&This->base.data_format, pdiph);
 238
 239             /* The app is querying the current range of the axis
 240              * return the lMin and lMax values */
 241             if (obj >= 0) {
 242                 pr->lMin = This->props[obj].lMin;
 243                 pr->lMax = This->props[obj].lMax;
 244                 TRACE("range(%d, %d) obj=%d\n", pr->lMin, pr->lMax, obj);
 245                 return DI_OK;
 246             }
 247             break;
 248         }
 249         case (DWORD_PTR) DIPROP_DEADZONE: {
 250             LPDIPROPDWORD pd = (LPDIPROPDWORD)pdiph;
 251             int obj = find_property(&This->base.data_format, pdiph);
 252
 253             if (obj >= 0) {
 254                 pd->dwData = This->props[obj].lDeadZone;
 255                 TRACE("deadzone(%d) obj=%d\n", pd->dwData, obj);
 256                 return DI_OK;
 257             }
 258             break;
 259         }
 260         case (DWORD_PTR) DIPROP_SATURATION: {
 261             LPDIPROPDWORD pd = (LPDIPROPDWORD)pdiph;
 262             int obj = find_property(&This->base.data_format, pdiph);
 263
 264             if (obj >= 0) {
 265                 pd->dwData = This->props[obj].lSaturation;
 266                 TRACE("saturation(%d) obj=%d\n", pd->dwData, obj);
 267                 return DI_OK;
 268             }
 269             break;
 270         }
 271         default:
 272             return IDirectInputDevice2AImpl_GetProperty(iface, rguid, pdiph);
 273         }
 274     }
 275
 276     return DI_OK;
 277 }
 278
 279 /******************************************************************************
 280   *     GetDeviceInfo : get information about a device's identity
 281   */
 282 HRESULT WINAPI JoystickAGenericImpl_GetDeviceInfo(
 283     LPDIRECTINPUTDEVICE8A iface,
 284     LPDIDEVICEINSTANCEA pdidi)
 285 {
 286     JoystickGenericImpl *This = (JoystickGenericImpl *)iface;
 287
 288     TRACE("(%p,%p)\n", iface, pdidi);
 289
 290     if (pdidi == NULL) {
 291         WARN("invalid pointer\n");
 292         return E_POINTER;
 293     }
 294
 295     if ((pdidi->dwSize != sizeof(DIDEVICEINSTANCE_DX3A)) &&
 296         (pdidi->dwSize != sizeof(DIDEVICEINSTANCEA))) {
 297         WARN("invalid parameter: pdidi->dwSize = %d\n", pdidi->dwSize);
 298         return DIERR_INVALIDPARAM;
 299     }
 300
 301     /* Return joystick */
 302     pdidi->guidInstance = This->guidInstance;
 303     pdidi->guidProduct = This->guidProduct;
 304     /* we only support traditional joysticks for now */
 305     pdidi->dwDevType = This->devcaps.dwDevType;
 306     strcpy(pdidi->tszInstanceName, "Joystick");
 307     strcpy(pdidi->tszProductName, This->name);
 308     if (pdidi->dwSize > sizeof(DIDEVICEINSTANCE_DX3A)) {
 309         pdidi->guidFFDriver = GUID_NULL;
 310         pdidi->wUsagePage = 0;
 311         pdidi->wUsage = 0;
 312     }
 313
 314     return DI_OK;
 315 }
 316
 317 /******************************************************************************
 318   *     GetDeviceInfo : get information about a device's identity
 319   */
 320 HRESULT WINAPI JoystickWGenericImpl_GetDeviceInfo(
 321     LPDIRECTINPUTDEVICE8W iface,
 322     LPDIDEVICEINSTANCEW pdidi)
 323 {
 324     JoystickGenericImpl *This = (JoystickGenericImpl *)iface;
 325
 326     TRACE("(%p,%p)\n", iface, pdidi);
 327
 328     if ((pdidi->dwSize != sizeof(DIDEVICEINSTANCE_DX3W)) &&
 329         (pdidi->dwSize != sizeof(DIDEVICEINSTANCEW))) {
 330         WARN("invalid parameter: pdidi->dwSize = %d\n", pdidi->dwSize);
 331         return DIERR_INVALIDPARAM;
 332     }
 333
 334     /* Return joystick */
 335     pdidi->guidInstance = This->guidInstance;
 336     pdidi->guidProduct = This->guidProduct;
 337     /* we only support traditional joysticks for now */
 338     pdidi->dwDevType = This->devcaps.dwDevType;
 339     MultiByteToWideChar(CP_ACP, 0, "Joystick", -1, pdidi->tszInstanceName, MAX_PATH);
 340     MultiByteToWideChar(CP_ACP, 0, This->name, -1, pdidi->tszProductName, MAX_PATH);
 341     if (pdidi->dwSize > sizeof(DIDEVICEINSTANCE_DX3W)) {
 342         pdidi->guidFFDriver = GUID_NULL;
 343         pdidi->wUsagePage = 0;
 344         pdidi->wUsage = 0;
 345     }
 346
 347     return DI_OK;
 348 }
 349
 350 HRESULT WINAPI JoystickAGenericImpl_Poll(LPDIRECTINPUTDEVICE8A iface)
 351 {
 352     JoystickGenericImpl *This = (JoystickGenericImpl *)iface;
 353
 354     TRACE("(%p)\n",This);
 355
 356     if (!This->base.acquired) {
 357         WARN("not acquired\n");
 358         return DIERR_NOTACQUIRED;
 359     }
 360
 361     This->joy_polldev(This);
 362     return DI_OK;
 363 }
 364
 365 /******************************************************************************
 366   *     GetDeviceState : returns the "state" of the joystick.
 367   *
 368   */
 369 HRESULT WINAPI JoystickAGenericImpl_GetDeviceState(
 370     LPDIRECTINPUTDEVICE8A iface,
 371     DWORD len,
 372     LPVOID ptr)
 373 {
 374     JoystickGenericImpl *This = (JoystickGenericImpl *)iface;
 375
 376     TRACE("(%p,0x%08x,%p)\n", This, len, ptr);
 377
 378     if (!This->base.acquired) {
 379         WARN("not acquired\n");
 380         return DIERR_NOTACQUIRED;
 381     }
 382
 383     /* update joystick state */
 384     This->joy_polldev(This);
 385
 386     /* convert and copy data to user supplied buffer */
 387     fill_DataFormat(ptr, len, &This->js, &This->base.data_format);
 388
 389     return DI_OK;
 390 }
 391
 392 /*
 393  * This maps the read value (from the input event) to a value in the
 394  * 'wanted' range.
 395  * Notes:
 396  *   Dead zone is in % multiplied by a 100 (range 0..10000)
 397  */
 398 LONG joystick_map_axis(ObjProps *props, int val)
 399 {
 400     LONG ret;
 401     LONG dead_zone = MulDiv( props->lDeadZone, props->lDevMax - props->lDevMin, 10000 );
 402     LONG dev_range = props->lDevMax - props->lDevMin - dead_zone;
 403
 404     /* Center input */
 405     val -= (props->lDevMin + props->lDevMax) / 2;
 406
 407     /* Remove dead zone */
 408     if (abs( val ) <= dead_zone / 2)
 409         val = 0;
 410     else
 411         val = val < 0 ? val + dead_zone / 2 : val - dead_zone / 2;
 412
 413     /* Scale and map the value from the device range into the required range */
 414     ret = MulDiv( val, props->lMax - props->lMin, dev_range ) +
 415           (props->lMin + props->lMax) / 2;
 416
 417     /* Clamp in case or rounding errors */
 418     if      (ret > props->lMax) ret = props->lMax;
 419     else if (ret < props->lMin) ret = props->lMin;
 420
 421     TRACE( "(%d <%d> %d) -> (%d <%d> %d): val=%d ret=%d\n",
 422            props->lDevMin, dead_zone, props->lDevMax,
 423            props->lMin, props->lDeadZone, props->lMax,
 424            val, ret );
 425
 426     return ret;
 427 }
 428
 429 /*
 430  * Maps POV x & y event values to a DX "clock" position:
 431  *         0
 432  *   31500    4500
 433  * 27000  -1    9000
 434  *   22500   13500
 435  *       18000
 436  */
 437 DWORD joystick_map_pov(POINTL *p)
 438 {
 439     if (p->x > 0)
 440         return p->y < 0 ?  4500 : !p->y ?  9000 : 13500;
 441     else if (p->x < 0)
 442         return p->y < 0 ? 31500 : !p->y ? 27000 : 22500;
 443     else
 444         return p->y < 0 ?     0 : !p->y ?    -1 : 18000;
 445 }
 446
 447 /*
 448  * Setup the dinput options.
 449  */
 450
 451 HRESULT setup_dinput_options(JoystickGenericImpl *This, const int *default_axis_map)
 452 {
 453     char buffer[MAX_PATH+16];
 454     HKEY hkey, appkey;
 455     int tokens = 0;
 456     int axis = 0;
 457     int pov = 0;
 458
 459     get_app_key(&hkey, &appkey);
 460
 461     /* get options */
 462
 463     if (!get_config_key(hkey, appkey, "DefaultDeadZone", buffer, sizeof(buffer)))
 464     {
 465         This->deadzone = atoi(buffer);
 466         TRACE("setting default deadzone to: \"%s\" %d\n", buffer, This->deadzone);
 467     }
 468
 469     This->axis_map = HeapAlloc(GetProcessHeap(), 0, This->device_axis_count * sizeof(int));
 470     if (!This->axis_map) return DIERR_OUTOFMEMORY;
 471
 472     if (!get_config_key(hkey, appkey, This->name, buffer, sizeof(buffer)))
 473     {
 474         static const char *axis_names[] = {"X", "Y", "Z", "Rx", "Ry", "Rz",
 475                                            "Slider1", "Slider2",
 476                                            "POV1", "POV2", "POV3", "POV4"};
 477         const char *delim = ",";
 478         char * ptr;
 479         TRACE("\"%s\" = \"%s\"\n", This->name, buffer);
 480
 481         if ((ptr = strtok(buffer, delim)) != NULL)
 482         {
 483             do
 484             {
 485                 int i;
 486
 487                 for (i = 0; i < sizeof(axis_names) / sizeof(axis_names[0]); i++)
 488                 {
 489                     if (!strcmp(ptr, axis_names[i]))
 490                     {
 491                         if (!strncmp(ptr, "POV", 3))
 492                         {
 493                             if (pov >= 4)
 494                             {
 495                                 WARN("Only 4 POVs supported - ignoring extra\n");
 496                                 i = -1;
 497                             }
 498                             else
 499                             {
 500                                 /* Pov takes two axes */
 501                                 This->axis_map[tokens++] = i;
 502                                 pov++;
 503                             }
 504                         }
 505                         else
 506                         {
 507                             if (axis >= 8)
 508                             {
 509                                 FIXME("Only 8 Axes supported - ignoring extra\n");
 510                                 i = -1;
 511                             }
 512                             else
 513                                 axis++;
 514                         }
 515                         break;
 516                     }
 517                 }
 518
 519                 if (i == sizeof(axis_names) / sizeof(axis_names[0]))
 520                 {
 521                     ERR("invalid joystick axis type: \"%s\"\n", ptr);
 522                     i = -1;
 523                 }
 524
 525                 This->axis_map[tokens] = i;
 526                 tokens++;
 527             } while ((ptr = strtok(NULL, delim)) != NULL);
 528
 529             if (tokens != This->device_axis_count)
 530             {
 531                 ERR("not all joystick axes mapped: %d axes(%d,%d), %d arguments\n",
 532                     This->device_axis_count, axis, pov, tokens);
 533                 while (tokens < This->device_axis_count)
 534                 {
 535                     This->axis_map[tokens] = -1;
 536                     tokens++;
 537                 }
 538             }
 539         }
 540     }
 541     else
 542     {
 543         int i;
 544
 545         if (default_axis_map)
 546         {
 547             /* Use default mapping from the driver */
 548             for (i = 0; i < This->device_axis_count; i++)
 549             {
 550                 This->axis_map[i] = default_axis_map[i];
 551                 tokens = default_axis_map[i];
 552                 if (tokens < 0)
 553                     continue;
 554                 if (tokens < 8)
 555                     axis++;
 556                 else if (tokens < 15)
 557                 {
 558                     i++;
 559                     pov++;
 560                     This->axis_map[i] = default_axis_map[i];
 561                 }
 562             }
 563         }
 564         else
 565         {
 566             /* No config - set default mapping. */
 567             for (i = 0; i < This->device_axis_count; i++)
 568             {
 569                 if (i < 8)
 570                     This->axis_map[i] = axis++;
 571                 else if (i < 15)
 572                 {
 573                     This->axis_map[i++] = 8 + pov;
 574                     This->axis_map[i  ] = 8 + pov++;
 575                 }
 576                 else
 577                     This->axis_map[i] = -1;
 578             }
 579         }
 580     }
 581     This->devcaps.dwAxes = axis;
 582     This->devcaps.dwPOVs = pov;
 583
 584     if (appkey) RegCloseKey(appkey);
 585     if (hkey)   RegCloseKey(hkey);
 586
 587     return DI_OK;
 588 }