Test semaphore
Test semaphore ( sémaphore ) -> Résultat
| Paramètre | Type | Description | |
|---|---|---|---|
| sémaphore | Text | → | Nom du sémaphore à tester |
| Résultat | Boolean | ← | Vrai = le sémaphore existe, Faux = le sémaphore n’existe pas |
Description
La commande Test semaphore permet de tester l’existence d’un sémaphore.
A la différence de la fonction Semaphore, Test semaphore ne crée pas le sémaphore s’il n’existe pas.
Si le sémaphore existe, la fonction retourne Vrai, s’il n’existe pas elle retourne Faux.
Note : Attention, 4D tient compte de la casse des caractères en ce qui concerne les noms de sémaphores (le programme considère par exemple que "MonSémaphore" est différent de "monsémaphore").
Exemple
Cet exemple permet de connaître l’état d’un traitement (en l’occurrence, la modification d’un code) sans modifier le sémaphore :
Open window(x1;x2;y1;y2;-Palette window)
Repeat
If(Test semaphore("Code d’encryptage"))
GOTO XY($x3;$y3)
MESSAGE("Code d'encryptage en cours de modification.")
Else
GOTO XY($x3;$y3)
MESSAGE("Modification du code d'encryptage autorisée.")
End if
Until(StopInfo)
CLOSE WINDOW