Lang/Tcl_Tk_Expect/Ctrl-キーマップ
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
開始行:
#topicpath
* Ctrl-* キー [#k6ec0d56]
- expect interact コマンドで使える、Ctrl-* キーの割り当て
- %%何故か、%% 8進数で扱われている為、下一桁が0〜7の値し...
set CTRLSPC \000; #Ctrl-Space
set CTRLA \001
set CTRLB \002
set CTRLC \003
set CTRLD \004
set CTRLE \005
set CTRLF \006
set CTRLG \007
set CTRLH \010
set CTRLI \011
set CTRLJ \012
set CTRLK \013
set CTRLL \014
set CTRLM \015; # RETURN と重複する。
set CTRLN \016
set CTRLO \017
set CTRLP \020
set CTRLQ \021
set CTRLR \022
set CTRLS \023
set CTRLT \024
set CTRLU \025
set CTRLV \026
set CTRLW \027
set CTRLX \030
set CTRLY \031
set CTRLZ \032
set CTRLPER \045; # Ctrl-%
set CTRLAND \046; # Ctrl-&
set CTRLSQOT \047; # Ctrl-'
* 別解 [#t4bb7900]
|~記述 |~キーアサイン |~備考 |
|\cX |Ctrl-X |Xは任意の文字として、定義済み |
** 使用例 [#u64a5b37]
interact {
\ca { puts "Typed Ctrl-a\r"; }
}
* 確認用 [#ed8b01cf]
- こんなのを実行すれば確認出来る。
#!/usr/bin/expect
if { 1 } {
spawn bash
while {1} {
interact {
\000 { puts "typed: \\000\r"; }
\001 { puts "typed: \\001\r"; }
\002 { puts "typed: \\002\r"; }
\003 { puts "typed: \\003\r"; }
\004 { puts "typed: \\004\r"; }
\005 { puts "typed: \\005\r"; }
\006 { puts "typed: \\006\r"; }
\007 { puts "typed: \\007\r"; }
\010 { puts "typed: \\010\r"; }
\011 { puts "typed: \\011\r"; }
\012 { puts "typed: \\012\r"; }
\013 { puts "typed: \\013\r"; }
\014 { puts "typed: \\014\r"; }
\015 { puts "typed: \\015\r"; }
\016 { puts "typed: \\016\r"; }
\017 { puts "typed: \\017\r"; }
\020 { puts "typed: \\020\r"; }
\021 { puts "typed: \\021\r"; }
\022 { puts "typed: \\022\r"; }
\023 { puts "typed: \\023\r"; }
\024 { puts "typed: \\024\r"; }
\025 { puts "typed: \\025\r"; }
\026 { puts "typed: \\026\r"; }
\027 { puts "typed: \\027\r"; }
\030 { puts "typed: \\030\r"; }
\031 { puts "typed: \\031\r"; }
\032 { puts "typed: \\032\r"; }
\033 { puts "typed: \\033\r"; }
\034 { puts "typed: \\034\r"; }
\035 { puts "typed: \\035\r"; }
\036 { puts "typed: \\036\r"; }
\037 { puts "typed: \\037\r"; }
\040 { puts "typed: \\040\r"; }
\041 { puts "typed: \\041\r"; }
\042 { puts "typed: \\042\r"; }
\043 { puts "typed: \\043\r"; }
\044 { puts "typed: \\044\r"; }
\045 { puts "typed: \\045\r"; }
\046 { puts "typed: \\046\r"; }
\047 { puts "typed: \\047\r"; }
}
}
}
終了行:
#topicpath
* Ctrl-* キー [#k6ec0d56]
- expect interact コマンドで使える、Ctrl-* キーの割り当て
- %%何故か、%% 8進数で扱われている為、下一桁が0〜7の値し...
set CTRLSPC \000; #Ctrl-Space
set CTRLA \001
set CTRLB \002
set CTRLC \003
set CTRLD \004
set CTRLE \005
set CTRLF \006
set CTRLG \007
set CTRLH \010
set CTRLI \011
set CTRLJ \012
set CTRLK \013
set CTRLL \014
set CTRLM \015; # RETURN と重複する。
set CTRLN \016
set CTRLO \017
set CTRLP \020
set CTRLQ \021
set CTRLR \022
set CTRLS \023
set CTRLT \024
set CTRLU \025
set CTRLV \026
set CTRLW \027
set CTRLX \030
set CTRLY \031
set CTRLZ \032
set CTRLPER \045; # Ctrl-%
set CTRLAND \046; # Ctrl-&
set CTRLSQOT \047; # Ctrl-'
* 別解 [#t4bb7900]
|~記述 |~キーアサイン |~備考 |
|\cX |Ctrl-X |Xは任意の文字として、定義済み |
** 使用例 [#u64a5b37]
interact {
\ca { puts "Typed Ctrl-a\r"; }
}
* 確認用 [#ed8b01cf]
- こんなのを実行すれば確認出来る。
#!/usr/bin/expect
if { 1 } {
spawn bash
while {1} {
interact {
\000 { puts "typed: \\000\r"; }
\001 { puts "typed: \\001\r"; }
\002 { puts "typed: \\002\r"; }
\003 { puts "typed: \\003\r"; }
\004 { puts "typed: \\004\r"; }
\005 { puts "typed: \\005\r"; }
\006 { puts "typed: \\006\r"; }
\007 { puts "typed: \\007\r"; }
\010 { puts "typed: \\010\r"; }
\011 { puts "typed: \\011\r"; }
\012 { puts "typed: \\012\r"; }
\013 { puts "typed: \\013\r"; }
\014 { puts "typed: \\014\r"; }
\015 { puts "typed: \\015\r"; }
\016 { puts "typed: \\016\r"; }
\017 { puts "typed: \\017\r"; }
\020 { puts "typed: \\020\r"; }
\021 { puts "typed: \\021\r"; }
\022 { puts "typed: \\022\r"; }
\023 { puts "typed: \\023\r"; }
\024 { puts "typed: \\024\r"; }
\025 { puts "typed: \\025\r"; }
\026 { puts "typed: \\026\r"; }
\027 { puts "typed: \\027\r"; }
\030 { puts "typed: \\030\r"; }
\031 { puts "typed: \\031\r"; }
\032 { puts "typed: \\032\r"; }
\033 { puts "typed: \\033\r"; }
\034 { puts "typed: \\034\r"; }
\035 { puts "typed: \\035\r"; }
\036 { puts "typed: \\036\r"; }
\037 { puts "typed: \\037\r"; }
\040 { puts "typed: \\040\r"; }
\041 { puts "typed: \\041\r"; }
\042 { puts "typed: \\042\r"; }
\043 { puts "typed: \\043\r"; }
\044 { puts "typed: \\044\r"; }
\045 { puts "typed: \\045\r"; }
\046 { puts "typed: \\046\r"; }
\047 { puts "typed: \\047\r"; }
}
}
}
ページ名:
![[PukiWiki]](image/tux_100x119.jpg "[PukiWiki]")
