Develop and Download Open Source Software

Browse Subversion Repository

Annotation of /branches/ttcomtester/tests/unicodebuf-dch.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, 2 weeks ago) by zmatsuo
File MIME type: text/x-sh
File size: 1234 byte(s)
add communication test tool
1 doda 8445 #!/bin/sh
2    
3     CSI() {
4     printf "\033[%s" "$1"
5     }
6    
7     Col() {
8     CSI "$1G"
9     }
10    
11     InitScreen() {
12     CSI "8;24;80t" # 端末サイズを 80x24 に変更
13     CSI "2J" # 画面消去
14     CSI "1;1H" # カーソルを画面左上に移動
15     }
16    
17     DCHtest() {
18     printf "1234567890abcdefgあいうえおかきくけこさしすせそ"
19     Col $2
20     CSI "$1P"
21     printf "\n"
22     }
23    
24     ret=0
25    
26     InitScreen
27    
28     for i in 1 2 3 4 5; do
29     DCHtest $i 18
30     done
31    
32     for i in 1 2 3 4 5; do
33     DCHtest $i 21
34     done
35    
36     cat <<_EoF_
37    
38     === 正しい出力は以下 ===
39    
40     1234567890abcdefg いうえおかきくけこさしすせそ
41     1234567890abcdefgいうえおかきくけこさしすせそ
42     1234567890abcdefg うえおかきくけこさしすせそ
43     1234567890abcdefgうえおかきくけこさしすせそ
44     1234567890abcdefg えおかきくけこさしすせそ
45     1234567890abcdefgあ うえおかきくけこさしすせそ
46     1234567890abcdefgあ えおかきくけこさしすせそ
47     1234567890abcdefgあ えおかきくけこさしすせそ
48     1234567890abcdefgあ おかきくけこさしすせそ
49     1234567890abcdefgあ おかきくけこさしすせそ
50     _EoF_
51    
52     for i in 3 2 1; do
53     printf "%d 秒後に画面を再描画します\r" $i
54     read -t 1 && ret=1 && break
55     done
56    
57     CSI 7t # 画面再描画
58    
59     exit $ret

Properties

Name Value
svn:executable *

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