Use awk not perl. Clean up sed script.
[kopensolaris-gnu/glibc.git] / iconvdata / gen-8bit-gap.sh
1 #! /bin/sh
2 echo "static const uint32_t to_ucs4[256] = {"
3 sed -ne '/^[^[:space:]]*[[:space:]]*.x00/d' \
4     -e 's/^[^[:space:]]*[[:space:]]*.x\(..\)[[:space:]]*<U\(....\)>.*/  [0x\1] = 0x\2,/p' \
5     "$@" | sort -u
6 echo "};"
7 echo "static const struct gap from_idx[] = {"
8 sed -ne 's/^[^[:space:]]*[[:space:]]*.x\(..\)[[:space:]]*<U\(....\)>.*/\2/p' \
9     "$@" | sort -u | $AWK -f gap.awk
10 echo "  { start: 0xffff, end: 0xffff, idx:     0 }"
11 echo "};"
12 echo "static const char from_ucs4[] = {"
13 sed -ne 's/^[^[:space:]]*[[:space:]]*.x\(..\)[[:space:]]*<U\(....\)>.*/\2 \1/p' \
14     "$@" | sort -u | $AWK -f gaptab.awk
15 echo "};"