メインコンテンツまでスキップ
バージョン: 開発中

Test semaphore

Test semaphore ( semaphore ) -> 戻り値

引数説明
semaphoreTextテストするセマフォ
戻り値BooleanTrue: セマフォが存在する, 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

参照

CLEAR SEMAPHORE
Semaphore