Lang/Tcl_Tk_Expect/Ctrl-キーマップ の履歴(No.4)

• 履歴一覧
• 差分 を表示
• 現在との差分 を表示
• ソース を表示
• Lang/Tcl_Tk_Expect/Ctrl-キーマップ へ行く。
  • 1 (2011-04-26 (火) 18:56:20)
  • 2 (2011-04-26 (火) 19:02:06)
  • 3 (2011-04-28 (木) 10:08:16)
  • 4 (2011-05-11 (水) 15:58:35)
  • 5 (2011-06-03 (金) 13:52:00)
  • 6 (2012-05-19 (土) 22:23:37)

Lang/Tcl_Tk_Expect

Ctrl-* キー†

• expect interact コマンドで使える、Ctrl-* キーの割り当て
• 何故か、下一桁が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-'

確認用†

• こんなのを実行すれば確認出来る。

  #!/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"; }
              \008 { puts "typed: \\008\r"; }
              \009 { puts "typed: \\009\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"; }
              \018 { puts "typed: \\018\r"; }
              \019 { puts "typed: \\019\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"; }
              \028 { puts "typed: \\028\r"; }
              \029 { puts "typed: \\029\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"; }
              \038 { puts "typed: \\038\r"; }
              \039 { puts "typed: \\039\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"; }
              \048 { puts "typed: \\048\r"; }
              \049 { puts "typed: \\049\r"; }
         }
      }
  }