Test semaphore

4D v20 R7

Test semaphore


Test semaphore ( semaforo ) -> Resultado

Parámetro	Tipo	Descripción
semaforo	Cadena	Nombre del semáforo a probar
Resultado	Booleano	True = el semáforo existe, False = el semáforo no existe

Descripción

El comando Test semaphore le permite probar la existencia de un semáforo.

La diferencia entre la función Semaphore y Test semaphore es que Test semaphore no crea el semaphore si éste no existe. Si el semaforo existe, la función devuelve True. De lo contrario, devuelve False.

Ejemplo

El siguiente ejemplo le permite conocer el estado de un proceso (en nuestro caso, la modificación de un código) sin modificar semaforo:

 $Win:=Open window(x1;x2;y1;y2;-Palette window)

 Repeat

    If(Test semaphore("Código de encriptación"))

       POSICION MENSAJE($x3;$y3)

       MESSAGE("El código de encriptación está siendo modificado.")

    Else

       POSICION MENSAJE($x3;$y3)

       MESSAGE("La modificación del código de encriptación ha sido autorizada.")

    End if

 Until(StopInfo)

 CLOSE WINDOW

Ver también

CLEAR SEMAPHORE
Semaphore