Test semaphore

4D v18

Test semaphore


Test semaphore ( semaphore ) -> 戻り値

引数	型	説明
semaphore	文字	テストするセマフォ
戻り値	ブール	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

参照

CLEAR SEMAPHORE
Semaphore