| 1 | | - | Le **point-virgule**, ***;*** est utilisé pour séparer des instructions (contrairement à d'autres langages où il *termine* une instruction). C'est obligatoire pour la plupart des instructions, volontaire dans certaines instructions et interdit dans une instruction particulière. |
| 1 | + | & |
| 2 | 2 | | |
| 3 | | - | (En vue d'expliquer l'emploi où les mot-clés Pascal sont mentionnés dans cet article, ils apparaîtront en MAJUSCULES. Les listings de programme seront en minuscules.) |
| 3 | + | En [[ASCII/fr|ASCII]], le caractère de code décimal `38` (ou [[hexadecimal/fr|$]]`26`) est défini pour être `&` (prononcé “esperluette” (ampersand)). |
| 4 | 4 | | |
| 5 | | - | Le point-virgule est généralement obligatoire, et exigé après chaque instruction. Les endroits où il est optionnel sont : |
| 5 | + | ## Pascal |
| 6 | 6 | | |
| 7 | | - | - avant une instruction END |
| 8 | | - | - avant le point à la fin du PROGRAM ou de l'UNITE |
| 7 | + | ### Base octale |
| 9 | 8 | | |
| 10 | | - | Les endroits où le point virgule est interdit sont : |
| 9 | + | En [[Pascal/fr|Pascal]], le `&` dénote un nombre écrit en base octale. |
| 11 | 10 | | |
| 12 | | - | - Avant l'instruction BEGIN qui commence une instruction composée |
| 13 | | - | - Avant une clause ELSE immédiatement à la suite d'un IF imbriqué. |
| 11 | + | ``` pascal |
| 12 | + | program messageNo(input, output, stderr); |
| 14 | 13 | | |
| 15 | | - | C'est généralement interdit devant la clause ELSE dans une instruction [[If/fr|IF]] ou une instruction [[Case/fr|CASE]]. Toutefois, dans le cas d'une instruction IF imbriquée, il peut être requis devant un ELSE s'appliquant à un autre IF plus tôt dans le texte du programme et que le IF proche n'est pas associé à une instruction ELSE. Ceci est expliqué plus bas. |
| 14 | + | uses |
| 15 | + | baseUnix; |
| 16 | 16 | | |
| 17 | | - | Un point-virgule est interdit avant la clause [[Else/fr|ELSE]] qui s'applique à l'immédiatement dernier IF afin que le compilateur puisse savoir où le IF termine. Par exemple : |
| 17 | + | begin |
| 18 | + | // withdraw group write access to current terminal |
| 19 | + | // equivalent to invoking: mesg n |
| 20 | + | fpChmod('/dev/stdin', &0600); |
| 21 | + | end. |
| 22 | + | ``` |
| 18 | 23 | | |
| 24 | + | Dans la base octale, seuls les caractères allant de `0` jusqu'à `7` inclus sont permis. `&` erst sépcifié devant pour indiquer la base octale. |
| 25 | + | |
| 26 | + | Une remarque au passage, dans un programme de production, le nombre dans l'exemple plus haut est mieux écrit ainsi : |
| 27 | + | |
| 19 | 28 | | ``` pascal |
| 20 | | - | if continuance then |
| 21 | | - | if separated then |
| 22 | | - | Condition(a) |
| 23 | | - | else |
| 24 | | - | if combined then |
| 25 | | - | Condition(b) |
| 26 | | - | else |
| 27 | | - | Condition(c); |
| 28 | | - | Calculate_fee; |
| 29 | + | fpChmod('/dev/stdin', S_IRUSR or S_IWUSR); |
| 29 | 30 | | ``` |
| 30 | 31 | | |
| 31 | | - | Pour cet exemple, le point-virgule est interdit en ligne 3 (sinon le ELSE en ligne 4 s'appliquerait au IF de la ligne 1). |
| 32 | + | car c'est plus significatif qu'avoir un nombre brut. Pascal est un langage de haut niveau. Profitez de cet avantage. Ecrivez ce que vous *voulez dire* et non pas ce qu'en fait l'ordinateur fait. |
| 32 | 33 | | |
| 33 | | - | S'il y avait un BEGIN entre les lignes 1 et 2 et un END après la ligne 8, un point-virgule devrait être interdit sur la ligne 1. |
| 34 | + | > **Note:** Les nombres littéraux en octal ne sont pas pris en charge [[Mode Delphi/fr|{$mode Delphi}]] et [[Mode TP/fr|{$mode TP}]]. |
| 34 | 35 | | |
| 35 | | - | Parce que la ligne 6 n'a pas de point-virgule, le ELSE de la ligne 7 s'applique au IF de la ligne 5. Si la ligne 6 se terminait par un point-virgule alors le ELSE de la ligne 7 s'appliquerait au IF de la ligne 1 (le ELSE en ligne 4 s'applique au IF en ligne 2). Ainsi le point-virgule est interdit dans ce contexte en vue d'obtenir ce résultat. |
| 36 | + | ### Code d'échappement d'identificateur |
| 36 | 37 | | |
| 37 | | - | Pourtant, si vous *vouliez* que le ELSE s'applique en ligne 1, le point-virgule serait *obligatoire* en ligne 6, en vue de "fermer" le IF en ligne 5. |
| 38 | + | [[FPC/fr|FreePascal]] a déclaré rétroactivement quelques nouveaux [[Reserved word/fr|mots réservés]]. Afin d'être capable de compiler le vieux code avec un version du [[Compiler/fr|compiler]] à jour, qui pourrait échouer du fait de ces nouveaux mots-clés, FPC a déclaré le `&` comme un caractère d'échappement. |
| 38 | 39 | | |
| 39 | | - | S'il y avait un IF au dessus de la ligne 1, le point-virgule de la ligne 8 ferme le IF de la ligne 1, et si un ELSE était placé après la ligne 8, il ne s'appliquerait pas au IF de la ligne1. |
| 40 | + | Ainsi, sans refactorisation du code mais en ajoutant des échappements, i.e. en faisant précéder l'[[Identifier/fr|identificateur]] par `&`, le compilateur accepte le mot réservé actuel comme un identificateur valide. Le nouveau code doit cependant proposer des noms d'identificateur différents, sans utiliser cette fonction (NdT: qui est aussi disponible dans Delphi). |
| 40 | 41 | | |
| 41 | | - | Il est préférable d'entourer toutes les instructions IF par des blocs BEGIN / END s'il peut y avoir une interrogation sur quel ELSE s'applique à quel IF, dans un ensemble de IF imbriqués. |
| 42 | + | ## Lazarus |
| 42 | 43 | | |
| 43 | | - | Attention : les indentations n'ont aucun caractère syntaxique, il convient donc d'être vigilant, elles peuvent être mal formulées et induire ainsi en erreur. |
| 44 | + | En [[Lazarus Faq/fr|Lazarus]] le `&` est utilisé pour indiquer le raccourci-clavier dans [[TMenuItem/fr|TMenuItem]]. |
| 44 | 45 | | |
| 45 | 46 | | --- |
| 46 | | - | *From the Free Pascal wiki, page ";/fr", as it stood on 2022-08-14 after a change by Kai Burghardt, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).* |
| 47 | + | *From the Free Pascal wiki, page "&/fr", as it stood on 2022-08-06 after a change by Kai Burghardt, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).* |
