contrib/bc/functions.sh

   1 #! /bin/sh
   2 #
   3 # SPDX-License-Identifier: BSD-2-Clause
   4 #
   5 # Copyright (c) 2018-2021 Gavin D. Howard and contributors.
   6 #
   7 # Redistribution and use in source and binary forms, with or without
   8 # modification, are permitted provided that the following conditions are met:
   9 #
  10 # * Redistributions of source code must retain the above copyright notice, this
  11 #   list of conditions and the following disclaimer.
  12 #
  13 # * Redistributions in binary form must reproduce the above copyright notice,
  14 #   this list of conditions and the following disclaimer in the documentation
  15 #   and/or other materials provided with the distribution.
  16 #
  17 # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
  18 # AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  19 # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  20 # ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
  21 # LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  22 # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  23 # SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  24 # INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  25 # CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  26 # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  27 # POSSIBILITY OF SUCH DAMAGE.
  28 #
  29
  30 readlink() {
  31
  32         _readlink_f="$1"
  33         shift
  34
  35         _readlink_arrow="-> "
  36         _readlink_d=$(dirname "$_readlink_f")
  37
  38         _readlink_lsout=""
  39         _readlink_link=""
  40
  41         _readlink_lsout=$(ls -dl "$_readlink_f")
  42         _readlink_link=$(printf '%s' "${_readlink_lsout#*$_readlink_arrow}")
  43
  44         while [ -z "${_readlink_lsout##*$_readlink_arrow*}" ]; do
  45                 _readlink_f="$_readlink_d/$_readlink_link"
  46                 _readlink_d=$(dirname "$_readlink_f")
  47                 _readlink_lsout=$(ls -dl "$_readlink_f")
  48                 _readlink_link=$(printf '%s' "${_readlink_lsout#*$_readlink_arrow}")
  49         done
  50
  51         printf '%s' "${_readlink_f##*$_readlink_d/}"
  52 }
  53
  54 err_exit() {
  55
  56         if [ "$#" -ne 2 ]; then
  57                 printf 'Invalid number of args to err_exit\n'
  58                 exit 1
  59         fi
  60
  61         printf '%s\n' "$1"
  62         exit "$2"
  63 }
  64
  65 checktest_retcode() {
  66
  67         _checktest_retcode_d="$1"
  68         shift
  69
  70         _checktest_retcode_err="$1"
  71         shift
  72
  73         _checktest_retcode_name="$1"
  74         shift
  75
  76         if [ "$_checktest_retcode_err" -ne 0 ]; then
  77                 printf 'FAIL!!!\n'
  78                 err_exit "$_checktest_retcode_d failed test '$_checktest_retcode_name' with error code $_checktest_retcode_err" 1
  79         fi
  80 }
  81
  82 checktest() {
  83
  84         _checktest_d="$1"
  85         shift
  86
  87         _checktest_err="$1"
  88         shift
  89
  90         _checktest_name="$1"
  91         shift
  92
  93         _checktest_test_path="$1"
  94         shift
  95
  96         _checktest_results_name="$1"
  97         shift
  98
  99         checktest_retcode "$_checktest_d" "$_checktest_err" "$_checktest_name"
 100
 101         _checktest_diff=$(diff "$_checktest_test_path" "$_checktest_results_name")
 102
 103         _checktest_err="$?"
 104
 105         if [ "$_checktest_err" -ne 0 ]; then
 106                 printf 'FAIL!!!\n'
 107                 printf '%s\n' "$_checktest_diff"
 108                 err_exit "$_checktest_d failed test $_checktest_name" 1
 109         fi
 110 }
 111
 112 die() {
 113
 114         _die_d="$1"
 115         shift
 116
 117         _die_msg="$1"
 118         shift
 119
 120         _die_name="$1"
 121         shift
 122
 123         _die_err="$1"
 124         shift
 125
 126         _die_str=$(printf '\n%s %s on test:\n\n    %s\n' "$_die_d" "$_die_msg" "$_die_name")
 127
 128         err_exit "$_die_str" "$_die_err"
 129 }
 130
 131 checkcrash() {
 132
 133         _checkcrash_d="$1"
 134         shift
 135
 136         _checkcrash_error="$1"
 137         shift
 138
 139         _checkcrash_name="$1"
 140         shift
 141
 142         if [ "$_checkcrash_error" -gt 127 ]; then
 143                 die "$_checkcrash_d" "crashed ($_checkcrash_error)" \
 144                         "$_checkcrash_name" "$_checkcrash_error"
 145         fi
 146 }
 147
 148 checkerrtest()
 149 {
 150         _checkerrtest_d="$1"
 151         shift
 152
 153         _checkerrtest_error="$1"
 154         shift
 155
 156         _checkerrtest_name="$1"
 157         shift
 158
 159         _checkerrtest_out="$1"
 160         shift
 161
 162         _checkerrtest_exebase="$1"
 163         shift
 164
 165         checkcrash "$_checkerrtest_d" "$_checkerrtest_error" "$_checkerrtest_name"
 166
 167         if [ "$_checkerrtest_error" -eq 0 ]; then
 168                 die "$_checkerrtest_d" "returned no error" "$_checkerrtest_name" 127
 169         fi
 170
 171         if [ "$_checkerrtest_error" -eq 100 ]; then
 172
 173                 _checkerrtest_output=$(cat "$_checkerrtest_out")
 174                 _checkerrtest_fatal_error="Fatal error"
 175
 176                 if [ "${_checkerrtest_output##*$_checkerrtest_fatal_error*}" ]; then
 177                         printf "%s\n" "$_checkerrtest_output"
 178                         die "$_checkerrtest_d" "had memory errors on a non-fatal error" \
 179                                 "$_checkerrtest_name" "$_checkerrtest_error"
 180                 fi
 181         fi
 182
 183         if [ ! -s "$_checkerrtest_out" ]; then
 184                 die "$_checkerrtest_d" "produced no error message" "$_checkerrtest_name" "$_checkerrtest_error"
 185         fi
 186
 187         # Display the error messages if not directly running exe.
 188         # This allows the script to print valgrind output.
 189         if [ "$_checkerrtest_exebase" != "bc" -a "$_checkerrtest_exebase" != "dc" ]; then
 190                 cat "$_checkerrtest_out"
 191         fi
 192 }
 193
 194 substring_replace() {
 195
 196         _substring_replace_str="$1"
 197         shift
 198
 199         _substring_replace_needle="$1"
 200         shift
 201
 202         _substring_replace_replacement="$1"
 203         shift
 204
 205         _substring_replace_result=$(printf '%s\n' "$_substring_replace_str" | \
 206                 sed -e "s!$_substring_replace_needle!$_substring_replace_replacement!g")
 207
 208         printf '%s' "$_substring_replace_result"
 209 }
 210
 211 gen_nlspath() {
 212
 213         _gen_nlspath_nlspath="$1"
 214         shift
 215
 216         _gen_nlspath_locale="$1"
 217         shift
 218
 219         _gen_nlspath_execname="$1"
 220         shift
 221
 222         _gen_nlspath_char="@"
 223         _gen_nlspath_modifier="${_gen_nlspath_locale#*$_gen_nlspath_char}"
 224         _gen_nlspath_tmplocale="${_gen_nlspath_locale%%$_gen_nlspath_char*}"
 225
 226         _gen_nlspath_char="."
 227         _gen_nlspath_charset="${_gen_nlspath_tmplocale#*$_gen_nlspath_char}"
 228         _gen_nlspath_tmplocale="${_gen_nlspath_tmplocale%%$_gen_nlspath_char*}"
 229
 230         if [ "$_gen_nlspath_charset" = "$_gen_nlspath_tmplocale" ]; then
 231                 _gen_nlspath_charset=""
 232         fi
 233
 234         _gen_nlspath_char="_"
 235         _gen_nlspath_territory="${_gen_nlspath_tmplocale#*$_gen_nlspath_char}"
 236         _gen_nlspath_language="${_gen_nlspath_tmplocale%%$_gen_nlspath_char*}"
 237
 238         if [ "$_gen_nlspath_territory" = "$_gen_nlspath_tmplocale" ]; then
 239                 _gen_nlspath_territory=""
 240         fi
 241
 242         if [ "$_gen_nlspath_language" = "$_gen_nlspath_tmplocale" ]; then
 243                 _gen_nlspath_language=""
 244         fi
 245
 246         _gen_nlspath_needles="%%:%L:%N:%l:%t:%c"
 247
 248         _gen_nlspath_needles=$(printf '%s' "$_gen_nlspath_needles" | tr ':' '\n')
 249
 250         for _gen_nlspath_i in $_gen_nlspath_needles; do
 251                 _gen_nlspath_nlspath=$(substring_replace "$_gen_nlspath_nlspath" "$_gen_nlspath_i" "|$_gen_nlspath_i|")
 252         done
 253
 254         _gen_nlspath_nlspath=$(substring_replace "$_gen_nlspath_nlspath" "%%" "%")
 255         _gen_nlspath_nlspath=$(substring_replace "$_gen_nlspath_nlspath" "%L" "$_gen_nlspath_locale")
 256         _gen_nlspath_nlspath=$(substring_replace "$_gen_nlspath_nlspath" "%N" "$_gen_nlspath_execname")
 257         _gen_nlspath_nlspath=$(substring_replace "$_gen_nlspath_nlspath" "%l" "$_gen_nlspath_language")
 258         _gen_nlspath_nlspath=$(substring_replace "$_gen_nlspath_nlspath" "%t" "$_gen_nlspath_territory")
 259         _gen_nlspath_nlspath=$(substring_replace "$_gen_nlspath_nlspath" "%c" "$_gen_nlspath_charset")
 260
 261         _gen_nlspath_nlspath=$(printf '%s' "$_gen_nlspath_nlspath" | tr -d '|')
 262
 263         printf '%s' "$_gen_nlspath_nlspath"
 264 }