Author: "P. J. McDermott" <pj@pehjota.net>
Subject: Replace locale/gen-translit.pl with a shell script

If a Perl interpreter isn't found, run the shell script instead.

diff -Naur src.orig/libc/locale/gen-translit.sh src/libc/locale/gen-translit.sh
--- src.orig/libc/locale/gen-translit.sh	1969-12-31 19:00:00.000000000 -0500
+++ src/libc/locale/gen-translit.sh	2013-06-21 18:04:13.414351956 -0400
@@ -0,0 +1,197 @@
+#!/bin/sh
+# A POSIX.1 shell command language translation of gen-translit.pl.
+
+set -e
+
+LF='
+'
+
+die() {
+  printf '%s\n' "${*}"
+  exit 1
+}
+
+substr() {
+  str="${1}"
+  off=${2}
+  len=${3}
+
+  while [ ${off} -gt 0 ]; do
+    str="${str#?}"
+    off=$(($off - 1))
+  done
+  while [ ${#str} -gt ${len} ]; do
+    str="${str%?}"
+  done
+
+  printf '%s\n' "${str}"
+}
+
+cstrlen() {
+  str="${*}"
+  len=${#str}
+  cnt=0
+  res=0
+
+  while [ ${cnt} -lt $len ]; do
+    if [ "x$(substr "${str}" ${cnt} 1)" = 'x\' ]; then
+      # Recognize the escape sequence.
+      if [ "x$(substr "${str}" $(($cnt + 1)) 1)" = 'xx' ]; then
+	inner=$(($cnt + 2))
+	while [ ${inner} -lt ${len} \
+		-a ${inner} -lt $(($cnt + 10)) ]; do
+	  ch="$(substr "${str}" ${inner} 1)"
+	  if [ "x${ch}" != "x${ch#[0-9a-fA-F]}" ]; then
+	    inner=$(($inner + 1))
+	    continue
+	  fi
+	  break
+	  inner=$(($inner + 1))
+	done
+	cnt=${inner}
+	res=$(($res + 1))
+      else
+	if [ $(($cnt + 1)) -ge ${len} ]; then
+	  die 'Invalid input'
+	fi
+	res=$(($res + 1))
+	cnt=$(($cnt + 1))
+      fi
+    else
+      res=$(($res + 1))
+    fi
+    cnt=$(($cnt + 1))
+  done
+
+  printf '%d\n' ${res}
+}
+
+ntranslit=0
+while read -r line; do
+  [ "x${line}" != "x${line#\#}" ] && continue
+  [ -z "${line}" ] && continue
+
+  line="${line#\"}"
+  line="${line%\"}"
+  from="${line%%\"[ 	]*}"
+  to="${line##*[ 	]\"}"
+  fromlen="$(cstrlen "${from}")"
+  tolen="$(cstrlen "${to}")"
+
+  froms="${froms}${from}${LF}"
+  fromlens="${fromlens}${fromlen}${LF}"
+  tos="${tos}${to}${LF}"
+  tolens="${tolens}${tolen}${LF}"
+
+  ntranslit=$(($ntranslit + 1))
+done <<EOF
+$(cat C-translit.h.in | gcc -E - || die 'Cannot preprocess input file')
+EOF
+
+printf '#include <stdint.h>\n'
+
+printf '#define NTRANSLIT %d\n' ${ntranslit}
+
+printf 'static const uint32_t translit_from_idx[] =\n{\n  '
+col=2
+total=0
+cnt=0
+while [ ${cnt} -lt ${ntranslit} ]; do
+  fromlen="${fromlens%%${LF}*}"
+  fromlens="${fromlens#*${LF}}"
+  if [ ${cnt} -ne 0 ]; then
+    if [ $(($col + 7)) -ge 79 ]; then
+      printf ',\n  '
+      col=2
+    else
+      printf ', '
+      col=$(($col + 2))
+    fi
+  fi
+  printf '%4d' ${total}
+  total=$(($total + $fromlen + 1))
+  col=$(($col + 4))
+  cnt=$(($cnt + 1))
+done
+printf '\n};\n'
+
+printf 'static const wchar_t translit_from_tbl[] =\n '
+col=1
+cnt=0
+while [ ${cnt} -lt ${ntranslit} ]; do
+  from="${froms%%${LF}*}"
+  froms="${froms#*${LF}}"
+  fromlen=${#from}
+  if [ ${cnt} -ne 0 ]; then
+    if [ $(($col + 6)) -ge 79 ]; then
+      printf '\n '
+      col=1
+    fi
+    printf ' L"\\0"'
+    col=$(($col + 6))
+  fi
+  if [ ${col} -gt 2 -a $(($col + $fromlen + 4)) -ge 79 ]; then
+    printf '\n  '
+    col=2
+  else
+    printf ' '
+    col=$(($col + 1))
+  fi
+  printf 'L"%s"' "${from}"
+  col=$(($col + $fromlen + 3))
+  cnt=$(($cnt + 1))
+done
+printf ';\n'
+
+printf 'static const uint32_t translit_to_idx[] =\n{\n  '
+col=2
+total=0
+cnt=0
+while [ ${cnt} -lt ${ntranslit} ]; do
+  tolen="${tolens%%${LF}*}"
+  tolens="${tolens#*${LF}}"
+  if [ ${cnt} -ne 0 ]; then
+    if [ $(($col + 7)) -ge 79 ]; then
+      printf ',\n  '
+      col=2
+    else
+      printf ', '
+      col=$(($col + 2))
+    fi
+  fi
+  printf '%4d' ${total}
+  total=$(($total + $tolen + 2))
+  col=$(($col + 4))
+  cnt=$(($cnt + 1))
+done
+printf '\n};\n'
+
+printf 'static const wchar_t translit_to_tbl[] =\n '
+col=1
+cnt=0
+while [ ${cnt} -lt ${ntranslit} ]; do
+  to="${tos%%${LF}*}"
+  tos="${tos#*${LF}}"
+  tolen=${#to}
+  if [ ${cnt} -ne 0 ]; then
+    if [ $(($col + 6)) -ge 79 ]; then
+      printf '\n '
+      col=1
+    fi
+    printf ' L"\\0"'
+    col=$(($col + 6))
+  fi
+  if [ ${col} -gt 2 -a $(($col + $tolen + 6)) -ge 79 ]; then
+    printf '\n  '
+    col=2
+  else
+    printf ' '
+    col=$(($col + 1))
+  fi
+  printf 'L"%s\\0"' "${to}"
+  col=$(($col + $tolen + 5))
+  cnt=$(($cnt + 1))
+done
+printf ';\n'
+
+exit 0
diff -Naur src.orig/libc/locale/Makefile src/libc/locale/Makefile
--- src.orig/libc/locale/Makefile	2012-11-17 12:50:14.000000000 -0500
+++ src/libc/locale/Makefile	2013-06-21 18:10:15.525446048 -0400
@@ -87,7 +87,11 @@
 $(objpfx)localedef $(objpfx)locale: $(lib-modules:%=$(objpfx)%.o)
 
 C-translit.h: C-translit.h.in gen-translit.pl
+ifneq ($(PERL),no)
 	$(PERL) gen-translit.pl < $< > $@.tmp
+else
+	/bin/sh gen-translit.sh < $< > $@.tmp
+endif
 	mv -f $@.tmp $@
 
 localepath = "$(localedir):$(i18ndir)"