Test semaphore
Test semaphore ( semaphore ) -> 戻り値
| 引数 | 型 | 説明 | |
|---|---|---|---|
| semaphore | Text | → | テストするセマフォ |
| 戻り値 | Boolean | ← | True: セマフォが存在する, False: セマフォは存在しない |
説明
Test semaphore コマンドは、セマフォの存在をテストします。
Semaphore関数とTest semaphore関数の違いは、Test semaphoreはセマフォが存在しない場合にはsemaphoreを作成しないということです。semaphoreが存在している場合、関数はTrueを返します。そうでない場合はFalseを返します。
例題
下記の例は、セマフォを変更せずにプロセスの状態 (この場合は、コードを変更して
いる最中かどうか) を知ることを可能にするものです:
$Win:=Open window(x1;x2;y1;y2;-Palette window)
Repeat
If(Test semaphore("Encrypting code"))
POSITION MESSAGE($x3;$y3)
MESSAGE("Encrypting code being modified.")
Else
POSITION MESSAGE($x3;$y3)
MESSAGE("Modification of the encrypting code authorized.")
End if
Until(StopInfo)
CLOSE WINDOW