Mercurial > emacs
comparison admin/charsets/mapconv @ 89746:b7afe7c870d3
In UNICODE2 case, sort by 4th field after
running an awk program.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Sun, 25 Jan 2004 23:37:19 +0000 |
parents | a750cf193ec6 |
children | 59bbae51ad73 |
comparison
equal
deleted
inserted
replaced
89745:708856d4c65b | 89746:b7afe7c870d3 |
---|---|
112 elif [ "$3" == "UNICODE2" ] ; then | 112 elif [ "$3" == "UNICODE2" ] ; then |
113 # Source format is: | 113 # Source format is: |
114 # 0xXXXX 0xYYYY # ... | 114 # 0xXXXX 0xYYYY # ... |
115 sed -n -e "$2 p" < $1 \ | 115 sed -n -e "$2 p" < $1 \ |
116 | sed -e 's/\([0-9A-Fx]*\)[^0]*\([0-9A-Fx]*\).*/\1 \2/' \ | 116 | sed -e 's/\([0-9A-Fx]*\)[^0]*\([0-9A-Fx]*\).*/\1 \2/' \ |
117 | sort | ${AWKPROG} | 117 | ${AWKPROG} | sort -n -k 4,4 |
118 elif [ "$3" == "YASUOKA" ] ; then | 118 elif [ "$3" == "YASUOKA" ] ; then |
119 # Source format is: | 119 # Source format is: |
120 # YYYY 0-XXXX (XXXX is a Kuten code) | 120 # YYYY 0-XXXX (XXXX is a Kuten code) |
121 sed -n -e "$2 p" < $1 \ | 121 sed -n -e "$2 p" < $1 \ |
122 | sed -e 's/\([0-9A-F]*\)[^0]*0-\([0-9]*\).*/0x\2 0x\1/' \ | 122 | sed -e 's/\([0-9A-F]*\)[^0]*0-\([0-9]*\).*/0x\2 0x\1/' \ |