Develop and Download Open Source Software

Browse Subversion Repository

Annotation of /branches/ttcomtester/tests/unicodebuf-irm.sh

Parent Directory Parent Directory | Revision Log Revision Log


Revision 10521 - (hide annotations) (download) (as text)
Fri Jan 20 16:03:38 2023 UTC (14 months, 3 weeks ago) by zmatsuo
File MIME type: text/x-sh
File size: 1511 byte(s)
add communication test tool
1 doda 8445 #!/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

Properties

Name Value
svn:executable *

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26