Lang/Tcl_Tk_Expect の履歴(No.8)

Language

目次†

↑

共通†

↑

コメント†

"#" 以降がコメントになる
式を書いた後にコメントを書く場合、 "#" の前に ";" がないとエラーになるので注意

↑

I/O†

定義済みの channel_ID： stdout / stderr / stdin
出力
- puts [-nonewline] channel_ID string
  - defalut では stdout へ出力する。
  - -nonewline オプションをつけると、改行文字を省略する。
  - 例
```
puts stderr "ERROR: an error has occuered\r";  # stderr に文字列を出力。
```
入力
- gets
```
gets stdin VAL;    # 変数 VAL に、stdin から読み取った内容を格納する。
```
- read [-nonewline] channel_ID
  - channel_ID から全てのデータを読み込む。
  - -nonewline オプションをつけると、改行文字を省略する。
- read channel_ID bytes
  - channel_ID から、bytes 分のデータを読み込む。
- seek channel_ID offset [origin]
  - originは、以下が定義されている：
    origin description
    
    start ファイルやデバイスの先頭から
    
    current 現在のアクセス位置
    
    end ファイルやデバイスの終端から
- tell channel_ID
  - channel_ID の、現在のアクセス位置を返す。

origin	description
start	ファイルやデバイスの先頭から
current	現在のアクセス位置
end	ファイルやデバイスの終端から

↑

1sec 未満の sleep†

1sec未満の sleep をするには、sleep ではなく、after を使用する。単位はmsecである。
```
# 50msec の sleep
after 50;
```

↑

変数†

宣言
- 宣言・代入する時は、変数名に接頭辞をつけない
```
set AAA "1234";
```
- 参照する時は、接頭辞 "$" をつける。$変数名とするか、${変数名} と表記する。
```
puts "AAA: ${AAA}\r";
puts "BBB: $BBB\r";
```
- ※宣言されていない変数を参照しようとすると、スクリプトabortするので注意すること。

↑

関数†

関数定義
```
proc function_name { arg1 arg2 } {
    # 実装
    return ${value};   # 返り値を返す場合
}
```
- 関数名は、キーワード "proc" に続けて書く
- 引数には、接頭辞（？） "$" はつけない。区切りはコンマではなくスペース

関数呼び出し

function_name ${aa} ${bb};                       # 通常の呼出しの場合
set return_value [ function_name ${aa} ${bb} ];  # 返り値を取得する場合

↑

グローバル変数†

グローバル領域に変数を定義し、その変数を参照する関数内で、 "global" 文にて列挙する必要がある

#!/usr/bin/expect
set G_VAL1 "";

proc func_name { arg1 arg2 } {
    global G_VAL1;
    if { ${arg1} > 10 } {
        set G_VAL1 ${arg1};
    } else {
        set G_VAL1 ${arg2};
    }
}

↑

他のスクリプトファイルから関数や変数を取り込む†

あるスクリプト（script-main.expとする）から、別のスクリプトファイル（script-sub.expとする）の中身を取り込みたいときは、以下のように記述する：
```
source "script-sub.exp";
```
- これにより、script-sub.exp の定義内容が、元からscript-main.expに書かれていたかのように扱える。

↑

フロー制御†

↑

if†

set i 10;
set EXP 20;
if { ${i} > ${EXP} {
    処理...
} elseif { ${i} == ${EXP} } {
    処理...
} else {
    処理...
}

動かない例：「 } elseif { } { 」ではなく「 elseif { } {」

if { ${i} > ${EXP} } { 処理... }
elseif { ${i} == ${EXP} } { 処理... }
else { 処理... }

↑

for†

set LOOP_MAX 100;
for { set i } { ${i} < ${LOOP_MAX} } { incr i } {
    処理...
}

↑

foreach†

例1

foreach i { 0 1 2 3 4 5 } {
    処理...
}

例2

foreach { i j } { 0 1 2 3 4 5 } {
    処理...
}

例3

foreach i { 0 1 2 3 4 5 } j { 0 10 20 30 40 50 } {
    処理...
}

↑

while†

while { ${i} >= ${VAL} } {
    処理...
}

↑

ループ制御の補助コマンド†

command	description
continue	ループをスキップ。
break	ループを終了
exit [ return_code ]	return_code は、default では0

↑

switch†

switch [options] ${string} {
    pattern_1 {
        処理...
    }
    pattern_2 {
        処理...
    }
    ...
    default {
        処理...
    }
}

options

option	description
-exact	string と pattern が完全に一致する場合に真となる
-glob	string をグロブパターン pattern とマッチング
-regexp	string を正規表現 pattern とマッチング
--	option 終了を示す

option 無しの場合、値 1 と値 01 は、別物として識別される。

↑

時間†

現在時間の取得

set time_stamp	[ clock seconds ];  # clock clicks -milliseconds ではダメ。

上記で取得した時間の値 time_stamp を書式化して、time に格納する。

set time [ clock format ${time_stamp} -format "%s" ];
set time [ clock format ${ts} -format {%Y-%m-%d %H:%M:%S} ];   # YYYY-MM-DD hh:mm:ss

より詳しくは、Lang/Tcl_Tk_Expect/time へ。

↑

経過時間の計測†

"-milliseconds" オプションを付けると、msecオーダーの精度が保証される。

# 経過時間計測
#   1. GetWrapTimeInit で start_ts を取得。
#   2. GetWrapTime     を、 start_ts を渡して呼ぶと、現在時間との差分を返す。
proc GetWrapTimeInit { } {
	set start_ts	[ clock clicks -milliseconds ];
	set start_ts	[ clock format ${start_ts} -format {%s} ];
	return ${start_ts};
}

proc GetWrapTime { start_ts } {
	set ts		[ clock clicks -milliseconds ];
	set ts		[ clock format ${ts} -format {%s} ];
	set wrap	[ expr ${ts} - ${start_ts} ];
	return ${wrap};
}

↑

expect†

↑

timeout†

"expect" で待つときのタイムアウトは、変数 timeout に設定する。defaultでは10sec
```
set timeout -1;   # -1 にすると、タイムアウトしなくなる。
```

↑

微妙な待ち方をしたいときの例†

set timeout 1;
while {1} { # 基本的には無限待ち
    expect "KEYWORD" {
        処理;
        break;   # この処理が終わったら、whileループを抜ける
    }
    if { 条件 } {
        break;    # 場合によっては無限待ちループを抜ける
    }
}

↑

expect†

↑

複数のキーワードを受け付け、キーワードによって挙動を変えたい場合†

expect {
    "KEYWORD1" { 処理1; }
    "KEYWORD2" { 処理2; }
}

エラー発生時にはエラーメッセージを出力して再度正常時と同様にプロンプトを表示するようなプログラムが相手の場合、プロンプト文字列（正常時処理用に待つキーワード）は一番最後に列挙する。

↑

シグナルを受け取った時の処理†

bashのシェルスクリプトのように、"trap" コマンドを使う。
詳しいことは、expect の manpage にも書かれているので参照のこと。
```
書式： trap [[command] signals]
```
次の例では、シグナルを受け取った時に、終期化処理を行う "terminate" 関数を定義し、それを呼び出すようにしている。
```
proc terminate { } {
    # 例えば、ログ取得を終わらせる、とか。
    log_file;
}

trap terminate {SIGINT SIGTERM}
```

↑

log の取得†

"log_file" コマンドとシグナルを利用すると結構便利に使える。

下記は、"interact" で制御をユーザに引き渡した後、 Ctrl-a でログ取得開始、Ctrl-b でログ取得終了となるようにした例。

proc LogStart { logfile } {
    log_file ${logfile};
    puts "Logging Start: ${logfile}\r;
}
proc LogStop { } {
    puts "Logging Stop\r";
    log_file;
}
# 処理を色々記述。
set CTRLA \001
set CTRLB \002
interact {
    ${CTRLA} { LogStart ${out_log}; }
    ${CTRLB} { LogStop; }
}

↑

参考リンク†

もっとTcl/Tk