Tivoli Service Desk 6.0 Developer's Toolkit Script - Manuel de référence du langage TSD Script

Fonctions logiques

Retour à la page principale


BitAnd

Description

Exécute une opération AND bit par bit sur une ou plusieurs expressions entières, puis renvoie le résultat.

Syntaxe

FUNCTION BitAnd (VAL bits: INTEGER ...): INTEGER;

Remarques concernant les arguments

Nom de l'argument Description
bits Expression entière

Exemple

 IF BitAnd(winStyle, $WinTitle) <> 0 THEN
 -- Le style de la fenêtre appelle une barre de titre.
 ...
              END;

Voir également


BitNot

Description

Retourne l'inverse de l'argument au niveau du bit.

Syntaxe

FUNCTION BitNot (VAL bits: INTEGER): INTEGER;

Remarques concernant les arguments

Nom de l'argument Description
bits Entier constitué de valeurs à bit unique

Remarques

BitNot modifie chaque bit en remplaçant son argument par son inverse binaire : ainsi, 0 devient 1, tandis que 1 se tranforme en 0.

Exemple

WinCreate($Desktop, myWindow, MyHandler, 10, 10, 80, 25,
 'Exemple', BitAnd($WinDefaultStyle, BitNot
 ($WinSysMenu)));
-- la fenêtre myWindow est créée avec tous les styles de fenêtre
-- par défaut, à ceci près qu'aucun menu système n'est présent.

Voir également


BitOr

Description

Exécute une opération OR bit par bit sur une ou plusieurs expressions entières, puis renvoie le résultat.

Syntaxe

FUNCTION BitOr (VAL bits: INTEGER ...): INTEGER;

Remarques concernant les arguments

Nom de l'argument Description
bits Expression entière dont les bits sont destinés à être combinés avec ceux d'autres expressions, en utilisant un opérateur OR.

Exemple

answer := WinMessageBox($Desktop, 'Erreur',
 BitOr($MBIconError,
 $MBAbortRetryIgnore,
 $MBDefButton2, $MBMoveable),
 'Echec de l'opération');

Voir aussi


BitXOr

Description

Exécute une opération OR exclusive bit par bit (XOR) sur une ou plusieurs expressions entières, puis renvoie le résultat. Lorsque les opérandes sont différentes, l'opération OR exclusive rentourne la valeur 1.

Syntaxe

FUNCTION BitXOr (VAL bits: INTEGER ...): INTEGER;

Remarques concernant les arguments

Nom de l'argument Description
bits Expression entière dont les bits sont destinés à être combinés avec ceux d'autres expressions, en utilisant un opérateur XOR.

Exemple

PROCEDURE EncryptText (REF text: LIST OF STRING,
                       VAL mask: INTEGER)
IS
(* Chiffrez le texte indiqué en appliquant l'opérateur XOR au masque
 de chaque caractère. Bien que présentant une sécurité limitée, cette
 opération a pour avantage que le déchiffrement est effectué par un
 rappel du texte chiffré à l'aide du même masque.*)
VARIABLES
        i: INTEGER;
ACTIONS
 FOR text DO
 FOR i := 1 TO StrLength(text[$CURRENT]) DO
 text[$CURRENT][i] :=
 Char(BitXOr(CharCode(text[$CURRENT][i]), mask));
              END;
              END;
              END;

Voir aussi


Tivoli Service Desk 6.0 Developer's Toolkit Script - Manuel de référence du langage TSD Script

Retour à la page principale

Copyright