Ignore:
Timestamp:
Apr 3, 2001, 4:10:48 PM (24 years ago)
Author:
sandervl
Message:

codepage updates

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/src/kernel32/ole2nls.cpp

    r5155 r5451  
    1 /* $Id: ole2nls.cpp,v 1.8 2001-02-17 19:44:59 sandervl Exp $ */
     1/* $Id: ole2nls.cpp,v 1.9 2001-04-03 14:10:48 sandervl Exp $ */
    22
    33/*
     
    13481348}
    13491349
    1350 
    1351 ODINFUNCTION5(BOOL,    GetStringTypeExW,
    1352               LCID,    locale,
    1353               DWORD,   dwInfoType,
    1354               LPCWSTR, lpSrcStr,
    1355               int,     cchSrc,
    1356               LPWORD,  lpCharType)
    1357 {
    1358   int i;
    1359 
    1360   dprintf(("KERNEL32:  GetStringTypeW, not properly implemented\n"));
    1361   if((DWORD)lpSrcStr == (DWORD)lpCharType ||
    1362      !lpSrcStr ||
    1363      !lpCharType)
    1364   {
    1365     SetLastError(ERROR_INVALID_PARAMETER);
    1366     return(FALSE);
    1367   }
    1368 
    1369   if(cchSrc == -1)
    1370     cchSrc = lstrlenW(lpSrcStr);
    1371 
    1372   switch(dwInfoType)
    1373   {
    1374     case CT_CTYPE1:
    1375       for(i=0;i<cchSrc;i++)
    1376       {
    1377         lpCharType[i] = 0;
    1378         if (isdigit(lpSrcStr[i])) lpCharType[i]|=C1_DIGIT;
    1379         if (isalpha(lpSrcStr[i])) lpCharType[i]|=C1_ALPHA;
    1380         if (islower(lpSrcStr[i])) lpCharType[i]|=C1_LOWER;
    1381         if (isupper(lpSrcStr[i])) lpCharType[i]|=C1_UPPER;
    1382         if (isspace(lpSrcStr[i])) lpCharType[i]|=C1_SPACE;
    1383         if (ispunct(lpSrcStr[i])) lpCharType[i]|=C1_PUNCT;
    1384         if (iscntrl(lpSrcStr[i])) lpCharType[i]|=C1_CNTRL;
    1385         if ( (lpSrcStr[i] == ' ') ||
    1386              (lpSrcStr[i] == '\t') )
    1387            lpCharType[i]|=C1_BLANK;
    1388       }
    1389       return TRUE;
    1390       break;
    1391 
    1392     case CT_CTYPE2:
    1393     case CT_CTYPE3: //not supported right now
    1394       return FALSE;
    1395       break;
    1396   }
    1397 
    1398   return FALSE;
    1399 }
    1400 
    1401 ODINFUNCTION4(BOOL,    GetStringTypeW,
    1402               DWORD,   dwInfoType,
    1403               LPCWSTR, lpSrcStr,
    1404               int,     cchSrc,
    1405               LPWORD,  lpCharType)
    1406 {
    1407   return CALL_ODINFUNC(GetStringTypeExW)(0,
    1408                           dwInfoType,
    1409                           lpSrcStr,
    1410                           cchSrc,
    1411                           lpCharType);
    1412 }
    1413 
    1414 
    1415 
    14161350/***********************************************************************
    14171351 *           VerLanguageNameA              [KERNEL32.709][VERSION.9]
Note: See TracChangeset for help on using the changeset viewer.