#!/bin/sh
# Copyright (C) 2000-2016 Free Software Foundation, Inc.
# This file is part of the GNU C Library.
# Contributed by Bruno Haible <haible@clisp.cons.org>, 2000.
#

# The GNU C 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 C 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 C Library; if not, see
# <http://www.gnu.org/licenses/>.

# Checks that the iconv() implementation (in both directions) for a
# stateless encoding agrees with the charmap table.

setglobal common_objpfx = $1
setglobal objpfx = $2
setglobal test_program_prefix = $3
setglobal charset = $4
setglobal charmap = $5

# sort is used on the build system.
setglobal LC_ALL = 'C'
export LC_ALL

set -e

# Get the charmap.
./tst-table-charmap.sh $(charmap:-$charset) \
  < ../localedata/charmaps/$(charmap:-$charset) \
  > $(objpfx)tst-$(charset).charmap.table
# When the charset is GB18030, truncate this table because for this encoding,
# the tst-table-from and tst-table-to programs scan the Unicode BMP only.
if test $(charset) = GB18030 {
  grep '0x....$' < $(objpfx)tst-$(charset).charmap.table \
    > $(objpfx)tst-$(charset).truncated.table
  mv $(objpfx)tst-$(charset).truncated.table $(objpfx)tst-$(charset).charmap.table
}

# Precomputed expexted differences between the charmap and iconv forward.
setglobal precomposed = "$(charset).precomposed"

# Precompute expected differences between the charmap and iconv backward.
if test $(charset) = EUC-TW {
  setglobal irreversible = "$(objpfx)tst-$(charset).irreversible"
  shell {grep '^0x8EA1' $(objpfx)tst-$(charset).charmap.table
   cat $(charset).irreversible
  } > ${irreversible}
} else {
  setglobal irreversible = "$(charset).irreversible"
}

# iconv in one direction.
$(test_program_prefix) \
$(objpfx)tst-table-from $(charset) \
  > $(objpfx)tst-$(charset).table

# iconv in the other direction.
$(test_program_prefix) \
$(objpfx)tst-table-to $(charset) | sort \
  > $(objpfx)tst-$(charset).inverse.table

# Difference between the charmap and iconv backward.
diff $(objpfx)tst-$(charset).charmap.table $(objpfx)tst-$(charset).inverse.table | \
  grep '^[<>]' | sed -e 's,^. ,,' > $(objpfx)tst-$(charset).irreversible.table

# Check 1: charmap and iconv forward should be identical, except for
# precomposed characters.
if test -f $(precomposed) {
  cat $(objpfx)tst-$(charset).table $(precomposed) | sort | uniq -u \
    > $(objpfx)tst-$(charset).tmp.table
  cmp -s $(objpfx)tst-$(charset).charmap.table $(objpfx)tst-$(charset).tmp.table ||
  exit 1
} else {
  cmp -s $(objpfx)tst-$(charset).charmap.table $(objpfx)tst-$(charset).table ||
  exit 1
}

# Check 2: the difference between the charmap and iconv backward.
if test -f $(irreversible) {
  cat $(objpfx)tst-$(charset).charmap.table $(irreversible) | sort | uniq -u \
    > $(objpfx)tst-$(charset).tmp.table
  cmp -s $(objpfx)tst-$(charset).tmp.table $(objpfx)tst-$(charset).inverse.table ||
  exit 1
} else {
  cmp -s $(objpfx)tst-$(charset).charmap.table $(objpfx)tst-$(charset).inverse.table ||
  exit 1
}

exit 0