1  /* Check two strings for equality.
       2     Copyright (C) 2018-2023 Free Software Foundation, Inc.
       3     This file is part of the GNU C Library.
       4  
       5     The GNU C Library is free software; you can redistribute it and/or
       6     modify it under the terms of the GNU Lesser General Public
       7     License as published by the Free Software Foundation; either
       8     version 2.1 of the License, or (at your option) any later version.
       9  
      10     The GNU C Library is distributed in the hope that it will be useful,
      11     but WITHOUT ANY WARRANTY; without even the implied warranty of
      12     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
      13     Lesser General Public License for more details.
      14  
      15     You should have received a copy of the GNU Lesser General Public
      16     License along with the GNU C Library; if not, see
      17     <https://www.gnu.org/licenses/>.  */
      18  
      19  #include <stdio.h>
      20  #include <stdlib.h>
      21  #include <string.h>
      22  #include <wchar.h>
      23  #include <support/check.h>
      24  #include <support/support.h>
      25  #include <support/xmemstream.h>
      26  
      27  static void
      28  report_length (const char *what, const CHAR *str, size_t length)
      29  {
      30    if (str == NULL)
      31      printf ("  %s string: NULL\n", what);
      32    else
      33      printf ("  %s string: %zu %s\n", what, length,
      34  	    WIDE ? "wide characters" : "bytes");
      35  }
      36  
      37  static void
      38  report_string (const char *what, const UCHAR *blob,
      39                 size_t length, const char *expr)
      40  {
      41    if (length > 0)
      42      {
      43        printf ("  %s (evaluated from %s):\n", what, expr);
      44        char *quoted = SUPPORT_QUOTE_BLOB (blob, length);
      45        printf ("      %s\"%s\"\n", LPREFIX, quoted);
      46        free (quoted);
      47  
      48        fputs ("     ", stdout);
      49        for (size_t i = 0; i < length; ++i)
      50          printf (" %02X", (unsigned int) blob[i]);
      51        putc ('\n', stdout);
      52      }
      53  }
      54  
      55  static size_t
      56  string_length_or_zero (const CHAR *str)
      57  {
      58    if (str == NULL)
      59      return 0;
      60    else
      61      return STRLEN (str);
      62  }
      63  
      64  void
      65  SUPPORT_TEST_COMPARE_STRING (const CHAR *left, const CHAR *right,
      66                               const char *file, int line,
      67                               const char *left_expr, const char *right_expr)
      68  {
      69    /* Two null pointers are accepted.  */
      70    if (left == NULL && right == NULL)
      71      return;
      72  
      73    size_t left_length = string_length_or_zero (left);
      74    size_t right_length = string_length_or_zero (right);
      75  
      76    if (left_length != right_length || left == NULL || right == NULL
      77        || MEMCMP (left, right, left_length) != 0)
      78      {
      79        support_record_failure ();
      80        printf ("%s:%d: error: string comparison failed\n", file, line);
      81        if (left_length == right_length && right != NULL && left != NULL)
      82          printf ("  string length: %zu %s\n", left_length,
      83  		WIDE ? "wide characters" : "bytes");
      84        else
      85          {
      86            report_length ("left", left, left_length);
      87            report_length ("right", right, right_length);
      88          }
      89        report_string ("left", (const UCHAR *) left,
      90                       left_length, left_expr);
      91        report_string ("right", (const UCHAR *) right,
      92                       right_length, right_expr);
      93      }
      94  }