Changeset 5451 for trunk/src/kernel32/ole2nls.cpp
- Timestamp:
- Apr 3, 2001, 4:10:48 PM (24 years ago)
- 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:59sandervl Exp $ */1 /* $Id: ole2nls.cpp,v 1.9 2001-04-03 14:10:48 sandervl Exp $ */ 2 2 3 3 /* … … 1348 1348 } 1349 1349 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 now1394 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 1416 1350 /*********************************************************************** 1417 1351 * VerLanguageNameA [KERNEL32.709][VERSION.9]
Note:
See TracChangeset
for help on using the changeset viewer.