reactos/lib/kernel32/nls/mbtowc.c

   1 /*
   2  * COPYRIGHT:       See COPYING in the top level directory
   3                     Addition copyrights might be specified in LGPL.c
   4  * PROJECT:         ReactOS system libraries
   5  * FILE:            lib/kernel32/nls/mbtowc.c
   6  * PURPOSE:         National language support functions
   7  * PROGRAMMER:      Boudewijn ( ariadne@xs4all.nl)
   8  * UPDATE HISTORY:  Modified from Onno Hovers wfc. ( 08/02/99 )
   9  *
  10  */
  11 /*
  12  * nls/mbtowc.c
  13  * Copyright (c) 1996, Onno Hovers, All rights reserved
  14  */
  15
  16 #include <windows.h>
  17 #include <kernel32/nls.h>
  18 #include <kernel32/thread.h>
  19 #include <wchar.h>
  20 #include <string.h>
  21
  22 #define NDEBUG
  23 #include <kernel32/kernel32.h>
  24
  25 extern PLOCALE  __TebLocale;
  26
  27 #define GetTebLocale() __TebLocale
  28
  29 INT
  30 STDCALL
  31 MultiByteToWideChar(UINT cpid, DWORD flags, LPCSTR src, int srclen,
  32                         LPWSTR dest, int destlen)
  33 {
  34    PCODEPAGE pcodepage =__CPFirst;
  35    INT       copylen;
  36    INT       retlen;
  37    WCHAR     **atou;
  38    CHAR      c;
  39
  40    DPRINT("MultiByteToWideChar( %u, 0x%lX, %s, %d, 0x%lX, %d )\n",
  41           cpid, flags, src, srclen, (ULONG) dest, destlen);
  42
  43    /* get codepage */
  44    switch(cpid)
  45    {
  46       case CP_ACP:   pcodepage= GetTebLocale()->OemCodePage;  break;
  47       case CP_OEMCP: pcodepage= GetTebLocale()->AnsiCodePage; break;
  48       case CP_MACCP: pcodepage=&__CP10000;   break;
  49       default:
  50          pcodepage=__CPFirst;
  51          while((pcodepage)&&(pcodepage->Id!=cpid))
  52             pcodepage=pcodepage->Next;
  53    }
  54    if(pcodepage==NULL)
  55       { SetLastError(ERROR_INVALID_PARAMETER); return 0; }
  56
  57    /* get conversion table */
  58    atou=pcodepage->ToUnicode;
  59
  60    if(destlen!=0)
  61    {
  62       /* how long are we ?? */
  63       if(srclen==0)
  64          srclen=strlen(src);
  65
  66       copylen=min(srclen,destlen);
  67       retlen=copylen;
  68
  69       /* XXX: maybe some inline assembly to speed things up, here ??? */
  70       while(copylen>0)
  71       {
  72          c=*src;
  73          *dest=atou [c>>5] [(c)&0x1F];
  74          src++;
  75          dest++;
  76          copylen--;
  77       }
  78    }
  79    else
  80    {
  81       /* XXXX: composites etc. */
  82       retlen = strlen(src);
  83    }
  84    return retlen;
  85 }