Tivoli Service Desk 6.0 Developer's Toolkit Script - Manuel de référence du langage TSD Script
Retour à la page principale
Exécute une opération AND bit par bit sur une ou plusieurs expressions entières, puis renvoie le résultat.
FUNCTION BitAnd (VAL bits: INTEGER ...): INTEGER;
Nom de l'argument | Description |
bits | Expression entière |
IF BitAnd(winStyle, $WinTitle) <> 0 THEN -- Le style de la fenêtre appelle une barre de titre. ... END;
Retourne l'inverse de l'argument au niveau du bit.
FUNCTION BitNot (VAL bits: INTEGER): INTEGER;
Nom de l'argument | Description |
bits | Entier constitué de valeurs à bit unique |
BitNot modifie chaque bit en remplaçant son argument par son inverse binaire : ainsi, 0 devient 1, tandis que 1 se tranforme en 0.
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.
Exécute une opération OR bit par bit sur une ou plusieurs expressions entières, puis renvoie le résultat.
FUNCTION BitOr (VAL bits: INTEGER ...): INTEGER;
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. |
answer := WinMessageBox($Desktop, 'Erreur', BitOr($MBIconError, $MBAbortRetryIgnore, $MBDefButton2, $MBMoveable), 'Echec de l'opération');
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.
FUNCTION BitXOr (VAL bits: INTEGER ...): INTEGER;
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. |
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;
Tivoli Service Desk 6.0 Developer's Toolkit Script - Manuel de référence du langage TSD Script