Edit

thodg/libiconv/lib/iconv_open2.h

Branch :

  • Show log

    Commit

  • Author : Bruno Haible
    Date : 2023-04-03 04:12:01
    Hash : 19b6af5e
    Message : Allow overriding the newline conversion for EBCDIC encodings. Reported by Mike Fulton <mikefultonpersonal@gmail.com> in <https://lists.gnu.org/archive/html/bug-gnu-libiconv/2023-04/msg00009.html>. * include/iconv.h.in (ICONV_SURFACE_NONE, ICONV_SURFACE_EBCDIC_ZOS_UNIX): New macros. (ICONV_GET_FROM_SURFACE, ICONV_SET_FROM_SURFACE, ICONV_GET_TO_SURFACE, ICONV_SET_TO_SURFACE): New macros. * lib/converters.h (struct conv_struct): Add the fields isurface, osurface. (swap_x15_x25): New macro. * lib/iconv.c (iconv_open, iconv_open_into): Add local variables from_surface, to_surface. (ALL_SURFACES): New macro. (iconvctl): Adjust ICONV_TRIVIALP implementation. Implement the ICONV_{GET,SET}_{FROM,TO}_SURFACE requests. * lib/iconv_open1.h: Parse a /ZOS_UNIX surface specifier. Set from_surface, to_surface. * lib/iconv_open2.h: Copy the values of from_surface, to_surface into the conversion descriptor. * lib/ebcdic*.h (*_mbtowc): Test the isurface. If requested, call swap_x15_x25 right after fetching an input byte. (*_wctomb): Test the osurface. If requested, call swap_x15_x25 right before storing an output byte. * man/iconvctl.3 (REQUEST VALUES): Document the ICONV_{GET,SET}_{FROM,TO}_SURFACE requests. * src/iconv.c (main): If ICONV_EBCDIC_ZOS_UNIX is set, set the from/to surfaces accordingly. * man/iconv.1 (ENVIRONMENT): New section. * tests/check-ebcdic: New file. * tests/Makefile.in (check): Invoke it. (SOURCE_FILES): Add it. * NEWS: Mention the new functionality.

  • lib/iconv_open2.h
  • /*
     * Copyright (C) 1999-2009, 2023 Free Software Foundation, Inc.
     * This file is part of the GNU LIBICONV Library.
     *
     * The GNU LIBICONV Library is free software; you can redistribute it
     * and/or modify it under the terms of the GNU Lesser General Public
     * License as published by the Free Software Foundation; either version 2.1
     * of the License, or (at your option) any later version.
     *
     * The GNU LIBICONV Library is distributed in the hope that it will be
     * useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
     * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
     * Lesser General Public License for more details.
     *
     * You should have received a copy of the GNU Lesser General Public
     * License along with the GNU LIBICONV Library; see the file COPYING.LIB.
     * If not, see <https://www.gnu.org/licenses/>.
     */
    
    /* Part 2 of iconv_open.
       Input:
         struct conv_struct * cd;
         unsigned int from_index;
         int from_wchar;
         unsigned int from_surface;
         unsigned int to_index;
         int to_wchar;
         unsigned int to_surface;
         int transliterate;
         int discard_ilseq;
       Output: none.
       Side effects: Fills cd.
     */
    
      cd->iindex = from_index;
      cd->ifuncs = all_encodings[from_index].ifuncs;
      cd->oindex = to_index;
      cd->ofuncs = all_encodings[to_index].ofuncs;
      cd->oflags = all_encodings[to_index].oflags;
      /* Initialize the loop functions. */
    #if HAVE_MBRTOWC
      if (to_wchar) {
    #if HAVE_WCRTOMB
        if (from_wchar) {
          cd->lfuncs.loop_convert = wchar_id_loop_convert;
          cd->lfuncs.loop_reset = wchar_id_loop_reset;
        } else
    #endif
        {
          cd->lfuncs.loop_convert = wchar_to_loop_convert;
          cd->lfuncs.loop_reset = wchar_to_loop_reset;
        }
      } else
    #endif
      {
    #if HAVE_WCRTOMB
        if (from_wchar) {
          cd->lfuncs.loop_convert = wchar_from_loop_convert;
          cd->lfuncs.loop_reset = wchar_from_loop_reset;
        } else
    #endif
        {
          cd->lfuncs.loop_convert = unicode_loop_convert;
          cd->lfuncs.loop_reset = unicode_loop_reset;
        }
      }
      /* Initialize the surfaces. */
      cd->isurface = from_surface;
      cd->osurface = to_surface;
      /* Initialize the states. */
      memset(&cd->istate,'\0',sizeof(state_t));
      memset(&cd->ostate,'\0',sizeof(state_t));
      /* Initialize the operation flags. */
      cd->transliterate = transliterate;
      cd->discard_ilseq = discard_ilseq;
      #ifndef LIBICONV_PLUG
      cd->fallbacks.mb_to_uc_fallback = NULL;
      cd->fallbacks.uc_to_mb_fallback = NULL;
      cd->fallbacks.mb_to_wc_fallback = NULL;
      cd->fallbacks.wc_to_mb_fallback = NULL;
      cd->fallbacks.data = NULL;
      cd->hooks.uc_hook = NULL;
      cd->hooks.wc_hook = NULL;
      cd->hooks.data = NULL;
      #endif
      /* Initialize additional fields. */
      if (from_wchar != to_wchar) {
        struct wchar_conv_struct * wcd = (struct wchar_conv_struct *) cd;
    #if HAVE_WCRTOMB || HAVE_MBRTOWC
        memset(&wcd->state,'\0',sizeof(mbstate_t));
    #endif
      }
      /* Done. */