String.c 4.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100
  1. /* Distributed under the OSI-approved BSD 3-Clause License. See accompanying
  2. file Copyright.txt or https://cmake.org/licensing#kwsys for details. */
  3. #ifdef KWSYS_STRING_C
  4. /*
  5. All code in this source file is conditionally compiled to work-around
  6. template definition auto-search on VMS. Other source files in this
  7. directory that use the stl string cause the compiler to load this
  8. source to try to get the definition of the string template. This
  9. condition blocks the compiler from seeing the symbols defined here.
  10. */
  11. #include "kwsysPrivate.h"
  12. #include KWSYS_HEADER(String.h)
  13. /* Work-around CMake dependency scanning limitation. This must
  14. duplicate the above list of headers. */
  15. #if 0
  16. #include "String.h.in"
  17. #endif
  18. /* Select an implementation for strcasecmp. */
  19. #if defined(_MSC_VER)
  20. #define KWSYS_STRING_USE_STRICMP
  21. #include <string.h>
  22. #elif defined(__GNUC__)
  23. #define KWSYS_STRING_USE_STRCASECMP
  24. #include <strings.h>
  25. #else
  26. /* Table to convert upper case letters to lower case and leave all
  27. other characters alone. */
  28. static char kwsysString_strcasecmp_tolower[] = {
  29. '\000', '\001', '\002', '\003', '\004', '\005', '\006', '\007', '\010',
  30. '\011', '\012', '\013', '\014', '\015', '\016', '\017', '\020', '\021',
  31. '\022', '\023', '\024', '\025', '\026', '\027', '\030', '\031', '\032',
  32. '\033', '\034', '\035', '\036', '\037', '\040', '\041', '\042', '\043',
  33. '\044', '\045', '\046', '\047', '\050', '\051', '\052', '\053', '\054',
  34. '\055', '\056', '\057', '\060', '\061', '\062', '\063', '\064', '\065',
  35. '\066', '\067', '\070', '\071', '\072', '\073', '\074', '\075', '\076',
  36. '\077', '\100', '\141', '\142', '\143', '\144', '\145', '\146', '\147',
  37. '\150', '\151', '\152', '\153', '\154', '\155', '\156', '\157', '\160',
  38. '\161', '\162', '\163', '\164', '\165', '\166', '\167', '\170', '\171',
  39. '\172', '\133', '\134', '\135', '\136', '\137', '\140', '\141', '\142',
  40. '\143', '\144', '\145', '\146', '\147', '\150', '\151', '\152', '\153',
  41. '\154', '\155', '\156', '\157', '\160', '\161', '\162', '\163', '\164',
  42. '\165', '\166', '\167', '\170', '\171', '\172', '\173', '\174', '\175',
  43. '\176', '\177', '\200', '\201', '\202', '\203', '\204', '\205', '\206',
  44. '\207', '\210', '\211', '\212', '\213', '\214', '\215', '\216', '\217',
  45. '\220', '\221', '\222', '\223', '\224', '\225', '\226', '\227', '\230',
  46. '\231', '\232', '\233', '\234', '\235', '\236', '\237', '\240', '\241',
  47. '\242', '\243', '\244', '\245', '\246', '\247', '\250', '\251', '\252',
  48. '\253', '\254', '\255', '\256', '\257', '\260', '\261', '\262', '\263',
  49. '\264', '\265', '\266', '\267', '\270', '\271', '\272', '\273', '\274',
  50. '\275', '\276', '\277', '\300', '\301', '\302', '\303', '\304', '\305',
  51. '\306', '\307', '\310', '\311', '\312', '\313', '\314', '\315', '\316',
  52. '\317', '\320', '\321', '\322', '\323', '\324', '\325', '\326', '\327',
  53. '\330', '\331', '\332', '\333', '\334', '\335', '\336', '\337', '\340',
  54. '\341', '\342', '\343', '\344', '\345', '\346', '\347', '\350', '\351',
  55. '\352', '\353', '\354', '\355', '\356', '\357', '\360', '\361', '\362',
  56. '\363', '\364', '\365', '\366', '\367', '\370', '\371', '\372', '\373',
  57. '\374', '\375', '\376', '\377'
  58. };
  59. #endif
  60. /*--------------------------------------------------------------------------*/
  61. int kwsysString_strcasecmp(const char* lhs, const char* rhs)
  62. {
  63. #if defined(KWSYS_STRING_USE_STRICMP)
  64. return _stricmp(lhs, rhs);
  65. #elif defined(KWSYS_STRING_USE_STRCASECMP)
  66. return strcasecmp(lhs, rhs);
  67. #else
  68. const char* const lower = kwsysString_strcasecmp_tolower;
  69. unsigned char const* us1 = (unsigned char const*)lhs;
  70. unsigned char const* us2 = (unsigned char const*)rhs;
  71. int result;
  72. while ((result = lower[*us1] - lower[*us2++], result == 0) && *us1++) {
  73. }
  74. return result;
  75. #endif
  76. }
  77. /*--------------------------------------------------------------------------*/
  78. int kwsysString_strncasecmp(const char* lhs, const char* rhs, size_t n)
  79. {
  80. #if defined(KWSYS_STRING_USE_STRICMP)
  81. return _strnicmp(lhs, rhs, n);
  82. #elif defined(KWSYS_STRING_USE_STRCASECMP)
  83. return strncasecmp(lhs, rhs, n);
  84. #else
  85. const char* const lower = kwsysString_strcasecmp_tolower;
  86. unsigned char const* us1 = (unsigned char const*)lhs;
  87. unsigned char const* us2 = (unsigned char const*)rhs;
  88. int result = 0;
  89. while (n && (result = lower[*us1] - lower[*us2++], result == 0) && *us1++) {
  90. --n;
  91. }
  92. return result;
  93. #endif
  94. }
  95. #endif /* KWSYS_STRING_C */