Test semaphore

Test semaphore* ( semaforo ) : Boolean

Parâmetro	Tipo		Descrição
semaforo	Text	→	Semáforo a testar
Resultado	Boolean	←	True = o semáforo existe, False = o semáforo não existe

Descrição

comando Test semaphore lhe permite provar a existência de um semáforo.

A diferença entre a função Semaphore e Test semaphore é que Test semaphore não cria o semaforo se este não existe. Se o semaforo existe, a função devolve True. Do contrário, devolve False.

Exemplo

O exemplo a seguir lhe permite conhecer o estado de um processo (em nosso caso, a modificação de um código) sem modificar semaforo:

 $Win:=Open window(x1;x2;y1;y2;-Palette window)
 Repeat
    If(Test semaphore("Código de encriptação"))
       POSIÇAO MENSAGEM($x3;$y3)
       MESSAGE("O código de encriptação está sendo modificado.")
    Else
       POSIÇAO MENSAGEM($x3;$y3)
       MESSAGE("A modificação do código de encriptação for autorizada.")
    End if
 Until(StopInfo)
 CLOSE WINDOW

Ver também

CLEAR SEMAPHORE
Semaphore

Propriedades

Número do comando	652
Thread-seguro	✓