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

* 別解 [#t4bb7900]
|~記述 |~キーアサイン |~備考 |
|\cX   |Ctrl-X        |Xは任意の文字として、定義済み |

** 使用例 [#u64a5b37]
 interact {
     \ca { puts "Typed Ctrl-a\r"; }
 }

テキスト整形のルールを表示する

Lang/Tcl_Tk_Expect/Ctrl-キーマップ の編集

Lang/Tcl_Tk_Expect/Ctrl-キーマップの編集