Browse Subversion Repository
Contents of /branches/ttcomtester/tests/unicodebuf-irm.sh
Parent Directory
| Revision Log
Revision 10521 -
( show annotations)
( download)
( as text)
Fri Jan 20 16:03:38 2023 UTC
(13 months, 2 weeks ago)
by zmatsuo
File MIME type: text/x-sh
File size: 1511 byte(s)
add communication test tool
| 1 |
#!/bin/sh |
| 2 |
|
| 3 |
CSI() { |
| 4 |
printf "\033[%s" "$1" |
| 5 |
} |
| 6 |
|
| 7 |
InitScreen() { |
| 8 |
CSI "8;24;80t" # 端末サイズを 80x24 に変更 |
| 9 |
CSI "2J" # 画面消去 |
| 10 |
CSI "1;1H" # カーソルを画面左上に移動 |
| 11 |
} |
| 12 |
|
| 13 |
IRMtest() { |
| 14 |
printf "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890abcdefghijklmnopqrstuvwxyz1234567890" |
| 15 |
CSI 4h # 挿入モード有効化 |
| 16 |
CSI 37G # 37桁目に移動 |
| 17 |
printf "%*.*s\n" $1 $1 "*********************************" |
| 18 |
CSI 4l # 挿入モード解除 |
| 19 |
} |
| 20 |
|
| 21 |
ret=0 |
| 22 |
|
| 23 |
InitScreen |
| 24 |
|
| 25 |
for i in 1 2 3 4 5 6 7 8 9 10; do |
| 26 |
IRMtest $i |
| 27 |
done |
| 28 |
|
| 29 |
cat <<_EoF_ |
| 30 |
|
| 31 |
=== 正しい出力は以下 === |
| 32 |
|
| 33 |
ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890*abcdefghijklmnopqrstuvwxyz1234567890 |
| 34 |
ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890**abcdefghijklmnopqrstuvwxyz1234567890 |
| 35 |
ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890***abcdefghijklmnopqrstuvwxyz1234567890 |
| 36 |
ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890****abcdefghijklmnopqrstuvwxyz1234567890 |
| 37 |
ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890*****abcdefghijklmnopqrstuvwxyz1234567890 |
| 38 |
ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890******abcdefghijklmnopqrstuvwxyz1234567890 |
| 39 |
ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890*******abcdefghijklmnopqrstuvwxyz1234567890 |
| 40 |
ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890********abcdefghijklmnopqrstuvwxyz1234567890 |
| 41 |
ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890*********abcdefghijklmnopqrstuvwxyz123456789 |
| 42 |
ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890**********abcdefghijklmnopqrstuvwxyz12345678 |
| 43 |
_EoF_ |
| 44 |
|
| 45 |
for i in 3 2 1; do |
| 46 |
printf "%d 秒後に画面を再描画します\r" $i |
| 47 |
read -t 1 && ret=1 && break |
| 48 |
done |
| 49 |
|
| 50 |
CSI 7t # 画面再描画 |
| 51 |
|
| 52 |
exit $ret |
|