1  /* Verify that fseek/ftell combination works for wide chars.
       2     Copyright (C) 2012-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 <locale.h>
      22  #include <errno.h>
      23  #include <wchar.h>
      24  #include <unistd.h>
      25  #include <string.h>
      26  
      27  #include <support/temp_file.h>
      28  
      29  static int
      30  do_seek_end (FILE *fp)
      31  {
      32    long save;
      33  
      34    if (fputws (L"abc\n", fp) == -1)
      35      {
      36        printf ("do_seek_end: fputws: %s\n", strerror (errno));
      37        return 1;
      38      }
      39  
      40    save = ftell (fp);
      41    rewind (fp);
      42  
      43    if (fseek (fp, 0, SEEK_END) == -1)
      44      {
      45        printf ("do_seek_end: fseek: %s\n", strerror (errno));
      46        return 1;
      47      }
      48  
      49    if (save != ftell (fp))
      50      {
      51        printf ("save = %ld, ftell = %ld\n", save, ftell (fp));
      52        return 1;
      53      }
      54  
      55    return 0;
      56  }
      57  
      58  int
      59  do_seek_set (FILE *fp)
      60  {
      61    long save1, save2;
      62  
      63    if (fputws (L"ゅう\n", fp) == -1)
      64      {
      65        printf ("seek_set: fputws(1): %s\n", strerror (errno));
      66        return 1;
      67      }
      68  
      69    save1 = ftell (fp);
      70  
      71    if (fputws (L"ゅう\n", fp) == -1)
      72      {
      73        printf ("seek_set: fputws(2): %s\n", strerror (errno));
      74        return 1;
      75      }
      76  
      77    save2 = ftell (fp);
      78  
      79    if (fputws (L"ゅう\n", fp) == -1)
      80      {
      81        printf ("seek_set: fputws(3): %s\n", strerror (errno));
      82        return 1;
      83      }
      84  
      85    if (fseek (fp, save1, SEEK_SET) == -1)
      86      {
      87        printf ("seek_set: fseek(1): %s\n", strerror (errno));
      88        return 1;
      89      }
      90  
      91    if (save1 != ftell (fp))
      92      {
      93        printf ("save1 = %ld, ftell = %ld\n", save1, ftell (fp));
      94        return 1;
      95      }
      96  
      97    if (fseek (fp, save2, SEEK_SET) == -1)
      98      {
      99        printf ("seek_set: fseek(2): %s\n", strerror (errno));
     100        return 1;
     101      }
     102  
     103    if (save2 != ftell (fp))
     104      {
     105        printf ("save2 = %ld, ftell = %ld\n", save2, ftell (fp));
     106        return 1;
     107      }
     108  
     109    return 0;
     110  }
     111  
     112  static int
     113  do_test (void)
     114  {
     115    if (setlocale (LC_ALL, "ja_JP.UTF-8") == NULL)
     116      {
     117        printf ("Cannot set ja_JP.UTF-8 locale.\n");
     118        exit (1);
     119      }
     120  
     121    /* Retain messages in English.  */
     122    if (setlocale (LC_MESSAGES, "en_US.ISO-8859-1") == NULL)
     123      {
     124        printf ("Cannot set LC_MESSAGES to en_US.ISO-8859-1 locale.\n");
     125        exit (1);
     126      }
     127  
     128    int ret = 0;
     129    char *filename;
     130    int fd = create_temp_file ("tst-fseek.out", &filename);
     131  
     132    if (fd == -1)
     133      return 1;
     134  
     135    FILE *fp = fdopen (fd, "w+");
     136    if (fp == NULL)
     137      {
     138        printf ("seek_set: fopen: %s\n", strerror (errno));
     139        close (fd);
     140        return 1;
     141      }
     142  
     143    if (do_seek_set (fp))
     144      {
     145        printf ("SEEK_SET test failed\n");
     146        ret = 1;
     147      }
     148  
     149    /* Reopen the file.  */
     150    fclose (fp);
     151    fp = fopen (filename, "w+");
     152    if (fp == NULL)
     153      {
     154        printf ("seek_end: fopen: %s\n", strerror (errno));
     155        return 1;
     156      }
     157  
     158    if (do_seek_end (fp))
     159      {
     160        printf ("SEEK_END test failed\n");
     161        ret = 1;
     162      }
     163  
     164    fclose (fp);
     165  
     166    return ret;
     167  }
     168  
     169  #include <support/test-driver.c>